Version 47

[jonesforth.git] / jonesforth.S

diff --git a/jonesforth.S b/jonesforth.S
index 8b02f1b..45e6e85 100644 (file)
--- a/jonesforth.S
+++ b/jonesforth.S
@@ -1,11 +1,11 @@
 /*     A sometimes minimal FORTH compiler and tutorial for Linux / i386 systems. -*- asm -*-
        By Richard W.M. Jones <rich@annexia.org> http://annexia.org/forth
        This is PUBLIC DOMAIN (see public domain release statement below).
-       $Id: jonesforth.S,v 1.45 2007-10-22 18:53:13 rich Exp $
+       $Id: jonesforth.S,v 1.47 2009-09-11 08:33:13 rich Exp $
 
        gcc -m32 -nostdlib -static -Wl,-Ttext,0 -Wl,--build-id=none -o jonesforth jonesforth.S
 */
-       .set JONES_VERSION,45
+       .set JONES_VERSION,47
 /*
        INTRODUCTION ----------------------------------------------------------------------
 
@@ -716,18 +716,18 @@ code_\label :                     // assembler code follows
        pop %eax
        pop %ebx
        pop %ecx
+       push %ebx
        push %eax
        push %ecx
-       push %ebx
        NEXT
 
        defcode "-ROT",4,,NROT
        pop %eax
        pop %ebx
        pop %ecx
-       push %ebx
        push %eax
        push %ecx
+       push %ebx
        NEXT
 
        defcode "2DROP",5,,TWODROP // drop top two elements of stack