[Wisp-cvs] wisp/src/native misc.s,1.2,1.3 misc.wth,1.2,1.3 records.nasm,1.29,1.30

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

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

Modified Files:
	misc.s misc.wth records.nasm 
Log Message:
Moved |%record-type-ref-slot| from records.nasm to misc.wth .

Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- misc.s	18 Sep 2002 21:03:13 -0000	1.2
+++ misc.s	18 Sep 2002 21:03:20 -0000	1.3
@@ -1,5 +1,14 @@
 .section .text
 .align 16
+N_pr_record_type_ref_slot:
+.byte 144,187,3,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_ref_slot,NN_pr_record_type_ref_slot
+.equiv NN_pr_record_type_ref_slot, N_pr_record_type_ref_slot + 1
+.section .text
+.align 16
 N_record_type_huh:
 .byte 144,186
 .long RT_record_type

Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- misc.wth	18 Sep 2002 21:03:13 -0000	1.2
+++ misc.wth	18 Sep 2002 21:03:20 -0000	1.3
@@ -24,12 +24,18 @@
   swap RVEC_LEN rdecui cells 'rvec + cell! VOID)
 
 (assemble RT_record_type
-  (tetra RT_record_type)
-  (tetra 3)
-  (tetra NN_record_type_huh)
-  (tetra 19)) ; FALSE
+  (tetra RT_record_type)     ; type pointer
+  (tetra 3)                  ; slot count
+  (tetra NN_record_type_huh) ; discriminator
+  (tetra 19)) ; FALSE        ; |ref|
 
 (native record_type_huh
   'RT_record_type go-discriminate)
+
+; FOR INTERNAL USE BY |make-record-type| ONLY!
+; It is an important guarantee that it's safe to share record-type:s
+; without need to fear undue influence.
+(native pr_record_type_ref_slot
+ 'RT_record_type 3 go-access-slot)
 
 ; vim: ft=worth

Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- records.nasm	18 Sep 2002 21:03:13 -0000	1.29
+++ records.nasm	18 Sep 2002 21:03:20 -0000	1.30
@@ -222,14 +222,6 @@
     mov eax, record_type#ref(eax)
     ret
 
-; FOR INTERNAL USE BY |make-record-type| ONLY!
-; It is an important guarantee that it's safe to share record-type:s
-; without need to fear undue influence.
-native pr_record_type_ref_slot, any
-    mov edx, RT_record_type
-    mov ebx, record_type.ref / 4
-    jmp near slot_accessor_body
-
 extern NN_box_ref
 extern N_apply
 extern N_list