[Wisp-cvs] wisp/src/native boxes.s,1.3,1.4 cons.s,1.1,1.2

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

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv4879/src/native

Modified Files:
	boxes.s cons.s 
Log Message:
Implemented the beginnings of Worth's delay-optimization.

Index: boxes.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- boxes.s	26 Aug 2002 16:18:24 -0000	1.3
+++ boxes.s	31 Aug 2002 14:29:22 -0000	1.4
@@ -1,7 +1,7 @@
 .section .text
 .align 16
 N_box_empty_huh:
-.byte 144,131,249,1,15,148,192,246,216,15,190,192,137,195,131,251,0,15,148,192,246,216,15,190,192,81,133,192,15,132,8,0,0,0,88,137,193,233
+.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)
 .byte 88,88,104
 .long N_box_empty_huh.L1
@@ -9,7 +9,7 @@
 .long RT_box
 .byte 187,1,0,0,0,233
 .long slot_accessor_body - (.+4)
-.byte 137,195,131,251,35,15,148,192,246,216,15,190,192,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195
+.byte 137,195,131,251,35,15,148,192,15,182,192,247,216,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195
 .global N_box_empty_huh,NN_box_empty_huh,N_box_empty_huh.L1
 .equiv NN_box_empty_huh, N_box_empty_huh + 1
 .equiv .L0, N_box_empty_huh + 42
@@ -19,7 +19,7 @@
 .section .text
 .align 16
 N_box_empty:
-.byte 144,131,249,1,15,148,192,246,216,15,190,192,137,195,131,251,0,15,148,192,246,216,15,190,192,81,133,192,15,132,8,0,0,0,88,137,193,233
+.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)
 .byte 88,106,35,185,254,255,255,255,233
 .long N_box_ref - (.+4)
@@ -29,7 +29,7 @@
 .section .text
 .align 16
 N_box_ref:
-.byte 144,131,249,1,15,148,192,246,216,15,190,192,81,133,192,15,132,10,0,0,0,88,91,83,104
+.byte 144,131,249,1,15,148,192,15,182,192,247,216,81,133,192,15,132,10,0,0,0,88,91,83,104
 .long box_ref.final
 .byte 83,80,88,137,193,186
 .long RT_box
@@ -41,7 +41,7 @@
 .section .text
 .align 16
 box_ref.final:
-.byte 137,195,131,251,35,15,148,192,246,216,15,190,192,83,133,192,15,132,13,0,0,0,88,88,104
+.byte 137,195,131,251,35,15,148,192,15,182,192,247,216,83,133,192,15,132,13,0,0,0,88,88,104
 .long WB_undefined
 .byte 80,233
 .long raise$2 - (.+4)
@@ -51,7 +51,7 @@
 .section .text
 .align 16
 N_make_box:
-.byte 144,131,249,0,15,148,192,246,216,15,190,192,81,133,192,15,132,5,0,0,0,88,64,106,35,80,88,137,193,186
+.byte 144,131,249,0,15,148,192,15,182,192,247,216,81,133,192,15,132,5,0,0,0,88,64,106,35,80,88,137,193,186
 .long RT_box
 .byte 233
 .long record_constructor_body - (.+4)

Index: cons.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/cons.s,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- cons.s	26 Aug 2002 15:59:43 -0000	1.1
+++ cons.s	31 Aug 2002 14:29:22 -0000	1.2
@@ -1,9 +1,9 @@
 .section .text
 .align 16
 N_cons_huh:
-.byte 144,131,249,1,15,148,192,246,216,15,190,192,137,195,131,251,0,15,148,192,246,216,15,190,192,81,133,192,15,132,8,0,0,0,88,137,193,233
+.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)
-.byte 88,88,53,2,0,0,0,37,7,0,0,0,137,195,131,251,0,15,148,192,246,216,15,190,192,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195
+.byte 88,88,53,2,0,0,0,37,7,0,0,0,137,195,131,251,0,15,148,192,15,182,192,247,216,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195
 .global N_cons_huh,NN_cons_huh
 .equiv NN_cons_huh, N_cons_huh + 1
 .equiv .L0, N_cons_huh + 42
@@ -12,7 +12,7 @@
 .section .text
 .align 16
 N_cons:
-.byte 144,131,249,2,15,148,192,246,216,15,190,192,137,195,131,251,0,15,148,192,246,216,15,190,192,81,133,192,15,132,8,0,0,0,88,137,193,233
+.byte 144,131,249,2,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)
 .byte 88,106,8,232
 .long GC_malloc - (.+4)