src/: Style cleanup: use constant names for types where available.

[sod] / src / codegen-test.lisp

diff --git a/src/codegen-test.lisp b/src/codegen-test.lisp
index c01dc8cd1b346823b768180ae52298f11e2384af..81fa3e0f494ef0878b37092fc9b2145dc433f8bb 100644 (file)
--- a/src/codegen-test.lisp
+++ b/src/codegen-test.lisp
@@ -35,13 +35,13 @@ (defun make-gcd (codegen)
 
   (codegen-push codegen)
   (loop for (name init) in '(("aa" 1) ("bb" 0))
 
   (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)
   (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"))
     (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"))
       (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")
        (emit-insts codegen
                    (list (make-set-inst a "aa")
                          (make-set-inst "aa" "bb")


@@ -62,8 +62,8 @@ (defun make-gcd (codegen)
   (loop for (name init) in '(("u" "atoi(argv[1])")
                             ("v" "atoi(argv[2])")
                             ("a"))
   (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"
              (make-call-inst "gcd" (list "u" "v" "&a")))
   (emit-inst codegen (make-expr-inst
                      (make-call-inst "printf"