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

mescc: Tinycc support: >>=, <<=.

Browse source 
* module/language/c99/compiler.mes (expr->accu): Support >>= <<=.
This commit is contained in:
Jan Nieuwenhuizen 2017-07-23 08:51:42 +02:00
parent b44825a035
commit fd4f4f87be
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -846,6 +846,8 @@
((equal? op "&=") (wrap-as (i386:accu-and-base))) ((equal? op "&=") (wrap-as (i386:accu-and-base)))
((equal? op "|=") (wrap-as (i386:accu-or-base))) ((equal? op "|=") (wrap-as (i386:accu-or-base)))
((equal? op "^=") (wrap-as (i386:accu-xor-base))) ((equal? op "^=") (wrap-as (i386:accu-xor-base)))
((equal? op ">>=") (wrap-as (i386:accu>>base)))
((equal? op "<<=") (wrap-as (i386:accu<<base)))
(else (error (format #f "mescc: op ~a not supported: ~a\n" op o))))))))) (else (error (format #f "mescc: op ~a not supported: ~a\n" op o)))))))))
(pmatch a (pmatch a
((p-expr (ident ,name)) (append-text info ((accu->ident info) name))) ((p-expr (ident ,name)) (append-text info ((accu->ident info) name)))