From eedf2d2381d9920e599c9fe2878206e750473ac6 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 6 Oct 2018 19:22:16 +0200 Subject: [PATCH] mescc: Fix obnoxious assignment ERROR message. * module/mescc/compile.scm (expression->register): Fix assignment ERROR message. --- module/mescc/compile.scm | 6 ++++-- module/mescc/x86_64/as.scm | 2 -- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm index f708298b..7d32a56c 100644 --- 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 301dd591..0b11af00 100644 --- 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"))) -- 2.31.1