mescc: Fix obnoxious assignment ERROR message.

* module/mescc/compile.scm (expression->register): Fix assignment
ERROR message.

diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm
index f708298b21c9da9dbb8df9b5c1c275eb29880dc4..7d32a56c3197052e541c0a0ffac2659abc4409ec 100644 (file)
--- a/module/mescc/compile.scm
+++ b/module/mescc/compile.scm
@@ -1364,11 +1364,13 @@
            (when (and (equal? op "=")
                       (not (= size size-b))
                       (not (and (or (= size 1) (= size 2))
-                                (or (= size-b 2) (= size-b reg-size))))
+                                (or (= size-b 2) (= size-b 4) (= size-b reg-size))))
+                      (not (and (= size 2)
+                                (= size-b 4)))
                       (not (and (= size 2)
                                 (= size-b reg-size)))
                       (not (and (= size reg-size)
-                                (or (= size-b 1) (= size-b 2)))))
+                                (or (= size-b 1) (= size-b 2) (= size-b 4)))))
              (stderr "ERROR assign: ~a" (with-output-to-string (lambda () (pretty-print-c99 o))))
              (stderr "   size[~a]:~a != size[~a]:~a\n"  rank size rank-b size-b))
            (pmatch a

diff --git a/module/mescc/x86_64/as.scm b/module/mescc/x86_64/as.scm
index 301dd59108552a089edcadddc25c1816ca40f849..0b11af006e19e503aab90aae7ab0423f7294b79e 100644 (file)
--- a/module/mescc/x86_64/as.scm
+++ b/module/mescc/x86_64/as.scm
@@ -48,7 +48,6 @@
 
 ;; AMD
 (define (x86_64:function-preamble info . rest)
-  (format (current-error-port) "rest=~s\n" rest)
   `(("push___%rbp")
     ("mov____%rsp,%rbp")
     ("sub____$i32,%rbp" "%0x80")
@@ -63,7 +62,6 @@
 
 ;; traditional
 (define (x86_64:function-preamble info . rest)
-  (format (current-error-port) "rest=~s\n" rest)
   `(("push___%rbp")
     ("mov____%rsp,%rbp")))