Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv28753/modules
Modified Files:
universal.wrti
Log Message:
Converted |rvec-set!| from C to Worth.
Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- universal.wrti 18 Sep 2002 20:58:04 -0000 1.17
+++ universal.wrti 18 Sep 2002 21:02:25 -0000 1.18
@@ -560,16 +560,19 @@
,(mov ,0 (tetra ,0)))
(macro byte!
+ (stack>=! 2)
(->reg 1 %eax)
,(mov (byte ,0) %al)
drop drop)
(macro wyde!
+ (stack>=! 2)
(->reg 1 %eax)
,(mov (wyde ,0) %ax)
drop drop)
(macro tetra!
+ (stack>=! 2)
(->reg 0)
,(mov (tetra ,0) ,1)
drop drop)
|
