src/module-parse.lisp (parse-class-body): Refactor superclass list.

[sod] / src / codegen-test.lisp

diff --git a/src/codegen-test.lisp b/src/codegen-test.lisp
index da3763b94a229f8d721577726d6ac1bc53b17e4a..68210598e638aa5a415f3cd0b89403f8acb293dd 100644 (file)
--- a/src/codegen-test.lisp
+++ b/src/codegen-test.lisp
@@ -50,7 +50,7 @@ (defun make-gcd (codegen)
     (emit-insts codegen (list (make-set-inst "u" "v")
                              (make-set-inst "v" r))))
   (emit-inst codegen (make-while-inst "v" (codegen-pop-block codegen)))
     (emit-insts codegen (list (make-set-inst "u" "v")
                              (make-set-inst "v" r))))
   (emit-inst codegen (make-while-inst "v" (codegen-pop-block codegen)))

-  (emit-inst codegen (make-if-inst "a" (make-set-inst "*a" "aa") nil))
+  (emit-inst codegen (make-if-inst "a" (make-set-inst "*a" "aa")))

   (deliver-expr codegen :return "u")
   (codegen-pop-function codegen "gcd"
                        (c-type (fun int
   (deliver-expr codegen :return "u")
   (codegen-pop-function codegen "gcd"
                        (c-type (fun int


@@ -64,7 +64,7 @@ (defun make-gcd (codegen)
                             ("a"))
        do (ensure-var codegen name c-type-int init))
   (ensure-var codegen "g" c-type-int
                             ("a"))
        do (ensure-var codegen name c-type-int init))
   (ensure-var codegen "g" c-type-int

-             (make-call-inst "gcd" (list "u" "v" "&a")))
+             (make-call-inst "gcd" "u" "v" "&a"))

   (deliver-call codegen :void "printf"
                "\"%d*%d == %d (mod %d)\\n\"" "a" "u" "g" "v")
   (deliver-expr codegen :return 0)
   (deliver-call codegen :void "printf"
                "\"%d*%d == %d (mod %d)\\n\"" "a" "u" "g" "v")
   (deliver-expr codegen :return 0)