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

mescc: Tinycc support: generalize neg.

Browse source 
* module/language/c99/compiler.mes (expr->accu): Generalize neg.
This commit is contained in:
Jan Nieuwenhuizen 2017-07-23 09:18:36 +02:00
parent fd4f4f87be
commit dcce4bae8a
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
module/language/c99/compiler.mes
View file

@ -765,13 +765,10 @@
(wrap-as (i386:accu-negate)))
#:globals (.globals test-info))))
((neg (p-expr (fixed ,value)))
(append-text info (value->accu (- (cstring->number value)))))
((neg (p-expr (ident ,name)))
(append-text info (append ((ident->base info) name)
(wrap-as (i386:value->accu 0))
(wrap-as (i386:sub-base)))))
((neg ,expr)
(let ((info ((expr->base info) expr)))
(append-text info (append (wrap-as (i386:value->accu 0))
(wrap-as (i386:sub-base))))))
((eq ,a ,b) ((binop->accu info) a b (append (i386:sub-base) (i386:z->accu))))
((ge ,a ,b) ((binop->accu info) b a (i386:sub-base)))