mescc: Fixes for goto.
[mes.git] / module / mes / libc-i386.mes
index a40a66cfb103603cd04ed12450d64d785850be9b..c9e59c068502b84507774c2df92c43811ffdc8e5 100644 (file)
   (or n urg:Xjump)
   `(#xe9 ,@(int->bv32 (if (>= n 0) n (- n 5))))) ; jmp . + <n>
 
+(define (i386:XXjump n)
+  (or n urg:XXjump)
+  `(#xe9 ,@(int->bv32 n)))              ; jmp . + <n>
+
 (define (i386:Xjump-nz n)
   (or n urg:Xjump-nz)
   `(#x0f #x85 ,@(int->bv32 n)))         ; jnz . + <n>