From fd4f4f87beda0f68d4e19c04f4737e331d197e75 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 23 Jul 2017 08:51:42 +0200
Subject: [PATCH] mescc: Tinycc support: >>=, <<=.

* module/language/c99/compiler.mes (expr->accu): Support >>= <<=.
---
 module/language/c99/compiler.mes | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/language/c99/compiler.mes b/module/language/c99/compiler.mes
index 2ab55fd6..c7dec6a0 100644
--- a/module/language/c99/compiler.mes
+++ b/module/language/c99/compiler.mes
@@ -846,6 +846,8 @@
                                                     ((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)))