artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Fix obnoxious assignment ERROR message.

Browse source 
* module/mescc/compile.scm (expression->register): Fix assignment
ERROR message.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-06 19:22:16 +02:00
parent f7e208dd7b
commit eedf2d2381
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/mescc/compile.scm
View file

@ -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

2
module/mescc/x86_64/as.scm
View file

@ -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")))