[Wisp-cvs] wisp/modules/cpu ia32.wim,1.26,1.27

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules/cpu
In directory usw-pr-cvs1:/tmp/cvs-serv26569/modules/cpu

Modified Files:
	ia32.wim 
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.

Index: ia32.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/cpu/ia32.wim,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- ia32.wim	18 Sep 2002 20:54:23 -0000	1.26
+++ ia32.wim	18 Sep 2002 20:58:04 -0000	1.27
@@ -171,7 +171,7 @@
             ((* * !esbp 0)        (combyte '0 0 2))
             ((* * !ebp sbyte)     (combyte '1 0 2) (byte 3))
             ((* * !ebp imm)       (combyte '2 0 2) (tetra 3))
-            ((* * reg32 !esp)     (\modrm 0 2 3 \bytes))
+            ((* * reg32 !esp)     (\modrm 0 1 2 3 '\bytes))
             ((* * reg32 !esp scale)
                                   (combyte '0 0 '4) (combyte 4 3 2))
             ((* * reg32 !esp scale 0)
@@ -180,11 +180,11 @@
                                   (combyte '1 0 '4) (combyte 4 3 2) (byte 4))
             ((* * reg32 !esp scale imm)
                                   (combyte '2 0 '4) (combyte 4 3 2) (tetra 4))
-            ((* * imm reg32)      (\modrm 0 3 2))
+            ((* * imm reg32)      (\modrm 0 1 3 2))
             ((* * imm reg32 !esp scale)
-                                  (\modrm 0 3 4 5 2))
+                                  (\modrm 0 1 3 4 5 2))
             ((* * reg32 imm !esp scale)
-                                  (\modrm 0 2 4 5 3)))
+                                  (\modrm 0 1 2 4 5 3)))
 
   ; I/O
   (in       ((accum %dx)          (osize++lit 0 #o354))
@@ -203,8 +203,8 @@
 
   ; Bit vector operations
   (bt*      386+?
-            ((imm rm16/32 = reg*) (osize 0) #o017 (combyte '2 0 '3) (modrm 1 2))
-            ((imm rm16/32 imm)    (osize 0) #o017 #o272 (modrm 1 0) (ubyte 2)))
+            ((imm rm16/32 = reg*) (osize 1) #o017 (combyte '2 0 '3) (modrm 1 2))
+            ((imm rm16/32 imm)    (osize 1) #o017 #o272 (modrm 1 0) (ubyte 2)))
   (bt       386+? ((* *)          (bt* '4 0 1)))
   (bts      386+? ((* *)          (bt* '5 0 1)))
   (btr      386+? ((* *)          (bt* '6 0 1)))