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