(codegen-push codegen)
(loop for (name init) in '(("aa" 1) ("bb" 0))
- do (ensure-var codegen name (c-type int) init))
+ do (ensure-var codegen name c-type-int init))
(codegen-push codegen)
- (with-temporary-var (codegen r (c-type int))
+ (with-temporary-var (codegen r c-type-int)
(emit-inst codegen(make-set-inst r "u%v"))
- (with-temporary-var (codegen q (c-type int))
+ (with-temporary-var (codegen q c-type-int)
(emit-inst codegen (make-set-inst q "u/v"))
- (with-temporary-var (codegen a (c-type int))
+ (with-temporary-var (codegen a c-type-int)
(emit-insts codegen
(list (make-set-inst a "aa")
(make-set-inst "aa" "bb")
(loop for (name init) in '(("u" "atoi(argv[1])")
("v" "atoi(argv[2])")
("a"))
- do (ensure-var codegen name (c-type int) init))
- (ensure-var codegen "g" (c-type int)
+ do (ensure-var codegen name c-type-int init))
+ (ensure-var codegen "g" c-type-int
(make-call-inst "gcd" (list "u" "v" "&a")))
(emit-inst codegen (make-expr-inst
(make-call-inst "printf"