X-Git-Url: https://jxself.org/git/?p=mes.git;a=blobdiff_plain;f=module%2Fmes%2Fas-i386.mes;h=38a619802eb72fc368236201dbaa89db1033fa44;hp=a683c62b7a6f1f3cf04d46f87b7bf9ccecdc7e18;hb=042022419e6d3b092e673d41598677bacbe4c9f9;hpb=f29479dfa2e7ba83de400153b3b36089b234ac1b

diff --git a/module/mes/as-i386.mes b/module/mes/as-i386.mes
index a683c62b..38a61980 100644
--- a/module/mes/as-i386.mes
+++ b/module/mes/as-i386.mes
@@ -210,9 +210,6 @@
 (define (i386:accu->label label)
   `(("mov____%eax,0x32" (#:address ,label)))) ; mov    %eax,0x<label>
 
-(define (i386:accu-zero?)
-  '(("test___%eax,%eax")))
-
 (define (i386:accu-shl n)
   (or n (error "invalid value: accu:shl n: " n))
   `(("shl____$i8,%eax" (#:immediate1 ,n)))) ; shl    $0x8,%eax
@@ -373,6 +370,9 @@
     ("call___*%eax")                    ; call   *%eax
     ("add____$i8,%esp" (#:immediate1  ,(* n 4))))) ; add    $00,%esp
 
+(define (i386:accu-zero?)
+  '(("test___%eax,%eax")))
+
 (define (i386:accu-negate)
   '(("sete___%al")                      ; sete %al
     ("movzbl_%al,%eax")))               ; movzbl %al,%eax
@@ -411,6 +411,14 @@
 (define (i386:jump-ge label)
   `(("jge32 " (#:offset ,label))))       ; jge/jnl <n>
 
+;; signed
+(define (i386:jump-l label)
+  `(("jl32  " (#:offset ,label))))
+
+;; signed
+(define (i386:jump-le label)
+  `(("jle32 " (#:offset ,label))))
+
 (define (i386:jump-nz label)
   `(("jne32 " (#:offset ,label))))       ; jnz . + <n>
 
@@ -432,6 +440,22 @@
 (define (i386:base-sub)
   `(("sub____%eax,%edx")))              ; sub    %eax,%edx
 
+(define (i386:g?->accu)
+  '(("setg___%al")
+    ("movzbl_%al,%eax")))
+
+(define (i386:ge?->accu)
+  '(("setge__%al")
+    ("movzbl_%al,%eax")))
+
+(define (i386:l?->accu)
+  '(("setl___%al")
+    ("movzbl_%al,%eax")))
+
+(define (i386:le?->accu)
+  '(("setle__%al")
+    ("movzbl_%al,%eax")))
+
 (define (i386:nz->accu)
   '(("setne__%al")                      ; setne   %al
     ("movzbl_%al,%eax")))               ; movzbl %al,%eax