mescc: Support rshift, have guile-mini-mes pass math test.

[mes.git] / module / mes / as-i386.mes

diff --git a/module/mes/as-i386.mes b/module/mes/as-i386.mes
index 9806f0e0c61f4e6691df6f0156f7c5200baee200..82bc844c0403b270e75c96bea8f6fd3253324213 100644 (file)
--- a/module/mes/as-i386.mes
+++ b/module/mes/as-i386.mes
@@ -131,6 +131,11 @@
     #x89 #xd1                           ; mov    %edx,%ecx
     #xd3 #xe0))                         ; shl    %cl,%eax
 
+(define (i386:accu>>base)
+  '(#x31 #xc9                           ; xor    %ecx,%ecx
+    #x89 #xd1                           ; mov    %edx,%ecx
+    #xd3 #xe8))                         ; shr    %cl,%eax
+
 (define (i386:accu-or-base)
   '(#x09 #xd0))                         ; or    %edx,%eax