mescc: Tinycc support: >>=, <<=.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 23 Jul 2017 06:51:42 +0000 (08:51 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 26 Jul 2017 09:36:08 +0000 (11:36 +0200)
* module/language/c99/compiler.mes (expr->accu): Support >>= <<=.

module/language/c99/compiler.mes

index 2ab55fd669ce7d40b7cc440a8187f3bb3e01d2df..c7dec6a0716813c0a18d27b93b402de5d8871dc0 100644 (file)
                                                     ((equal? op "&=") (wrap-as (i386:accu-and-base)))
                                                     ((equal? op "|=") (wrap-as (i386:accu-or-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)))))))))
            (pmatch a
              ((p-expr (ident ,name)) (append-text info ((accu->ident info) name)))