mescc: Fix obnoxious assignment ERROR message.
[mes.git] / module / mescc / compile.scm
index f708298b21c9da9dbb8df9b5c1c275eb29880dc4..7d32a56c3197052e541c0a0ffac2659abc4409ec 100644 (file)
            (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