[Wisp-cvs] wisp/modules universal.wrti,1.20,1.21 wisptyp.wrti,1.16,1.17

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

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

Modified Files:
	universal.wrti wisptyp.wrti 
Log Message:
Dropped NC_VECTOR in favour of the new |<vector>| type, thereby reducing the allocation block count of vectors from 2 to 1.

Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- universal.wrti	18 Sep 2002 21:07:35 -0000	1.20
+++ universal.wrti	18 Sep 2002 21:12:24 -0000	1.21
@@ -620,11 +620,22 @@
     ,(stos %eax)
     (believe))
 
+  (macro cellfill tetrafill)
+
   (macro move
     (conform %esi %edi %ecx)
     ,(cld)
     ,(rep)
     ,(movs \byte)
-    (believe)))
+    (believe))
+
+  (macro tetramove
+    (conform %esi %edi %ecx)
+    ,(cld)
+    ,(rep)
+    ,(movs \tetra)
+    (believe))
+
+  (macro cellmove tetramove))
 
 ; vim:ft=worth

Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- wisptyp.wrti	18 Sep 2002 21:08:51 -0000	1.16
+++ wisptyp.wrti	18 Sep 2002 21:12:24 -0000	1.17
@@ -43,13 +43,13 @@
     -16 and)
 
   (macro require-vector
-    dup get-type NC_VECTOR <> if 'WB_vector_huh swap go-raise then)
+    dup get-type 'RT_vector <> if 'WB_vector_huh swap go-raise then)
 
   (macro vector-length
     cell+ cell@)
 
   (macro vector-data
-    2 cells + cell@)
+    2 cells +)
 
   (macro require-c8string
     dup get-type NC_C8STRING <> if 'WB_c8string_huh swap go-raise then)
@@ -115,7 +115,6 @@
   (macro NC_EVMFUNC 3)
   (macro NC_DICT 5)
   (macro NC_SYMBOL 6)
-  (macro NC_VECTOR 8)
   (macro NC_C8STRING 9)
   (macro NC_INSTANCE 10)