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

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

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

Modified Files:
	boxes.s cons.s 
Log Message:
Improved Worth's comparison handling.

Index: boxes.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- boxes.s	31 Aug 2002 14:29:22 -0000	1.4
+++ boxes.s	4 Sep 2002 14:25:41 -0000	1.5
@@ -1,7 +1,7 @@
 .section .text
 .align 16
 N_box_empty_huh:
-.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
+.byte 144,81,131,249,1,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,27 +9,27 @@
 .long RT_box
 .byte 187,1,0,0,0,233
 .long slot_accessor_body - (.+4)
-.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
+.byte 61,35,0,0,0,15,133,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
-.equiv N_box_empty_huh.L1, N_box_empty_huh + 70
-.equiv .L2, N_box_empty_huh + 98
-.equiv .L3, N_box_empty_huh + 100
+.equiv .L0, N_box_empty_huh + 19
+.equiv N_box_empty_huh.L1, N_box_empty_huh + 47
+.equiv .L2, N_box_empty_huh + 65
+.equiv .L3, N_box_empty_huh + 67
 .section .text
 .align 16
 N_box_empty:
-.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
+.byte 144,81,131,249,1,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)
 .global N_box_empty,NN_box_empty
 .equiv NN_box_empty, N_box_empty + 1
-.equiv .L0, N_box_empty + 42
+.equiv .L0, N_box_empty + 19
 .section .text
 .align 16
 N_box_ref:
-.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
+.byte 144,81,131,249,1,15,133,10,0,0,0,88,91,83,104
 .long box_ref.final
 .byte 83,80,88,137,193,186
 .long RT_box
@@ -37,24 +37,24 @@
 .long slot_accessor_body - (.+4)
 .global N_box_ref,NN_box_ref
 .equiv NN_box_ref, N_box_ref + 1
-.equiv .L0, N_box_ref + 31
+.equiv .L0, N_box_ref + 21
 .section .text
 .align 16
 box_ref.final:
-.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
+.byte 80,61,35,0,0,0,15,133,13,0,0,0,88,88,104
 .long WB_undefined
 .byte 80,233
 .long raise$2 - (.+4)
 .byte 88,91,195
 .global box_ref.final
-.equiv .L0, box_ref.final + 35
+.equiv .L0, box_ref.final + 25
 .section .text
 .align 16
 N_make_box:
-.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
+.byte 144,81,133,201,15,133,5,0,0,0,88,64,106,35,80,88,137,193,186
 .long RT_box
 .byte 233
 .long record_constructor_body - (.+4)
 .global N_make_box,NN_make_box
 .equiv NN_make_box, N_make_box + 1
-.equiv .L0, N_make_box + 26
+.equiv .L0, N_make_box + 15

Index: cons.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/cons.s,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- cons.s	31 Aug 2002 14:29:22 -0000	1.2
+++ cons.s	4 Sep 2002 14:25:41 -0000	1.3
@@ -1,23 +1,23 @@
 .section .text
 .align 16
 N_cons_huh:
-.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
+.byte 144,81,131,249,1,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,15,182,192,247,216,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,133,192,15,133,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
-.equiv .L1, N_cons_huh + 82
-.equiv .L2, N_cons_huh + 84
+.equiv .L0, N_cons_huh + 19
+.equiv .L1, N_cons_huh + 46
+.equiv .L2, N_cons_huh + 48
 .section .text
 .align 16
 N_cons:
-.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
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)
 .byte 88,106,8,232
 .long GC_malloc - (.+4)
 .byte 91,91,137,193,131,193,4,137,25,91,137,24,13,2,0,0,0,195
 .global N_cons,NN_cons,cons$2
 .equiv NN_cons, N_cons + 1
-.equiv .L0, N_cons + 42
-.equiv cons$2, N_cons + 43
+.equiv .L0, N_cons + 19
+.equiv cons$2, N_cons + 20