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)
|
