[Wisp-cvs] wisp/src/native misc.s,NONE,1.1 misc.wth,NONE,1.1 Makefile.am,1.154,1.155 wrap.nasm,1.61,1.62

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

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

Modified Files:
	Makefile.am wrap.nasm 
Added Files:
	misc.s misc.wth 
Log Message:
Converted |rvec-set!| from C to Worth.

--- NEW FILE: misc.s ---
.section .text
.align 16
N_rvec_set:
.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,80,83,106,30,104
.long N_rvec_set.L1
.byte 83,233
.long decui$1 - (.+4)
.byte 91,80,57,216,15,140,13,0,0,0,88,88,104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 88,91,193,224,2,5
.long rvec
.byte 91,137,24,184,27,0,0,0,195
.global N_rvec_set,NN_rvec_set,N_rvec_set.L1
.equiv NN_rvec_set, N_rvec_set + 1
.equiv N_rvec_set.L1, N_rvec_set + 37

--- NEW FILE: misc.wth ---
;;;; misc.wth - miscellaneous primitives
;;
;; Copyleft © 2002 by Andres Soolo (di...@us...)
;; This file is licensed under the GNU GPL v2.  If you
;; don't know what that means, please do read the GPL.
;;
;;;; @(#) $Id: misc.wth,v 1.1 2002/09/18 21:02:26 digg Exp $

(include wisptyp)

(extern WB_range)
(extern decui$1)
(extern rvec)

(macro RVEC_LEN 30)

(macro decui <: swap (flush) 'decui$1 jump :>)
(macro rdecui ; ( node limit )
  over decui swap over swap
  >= if drop 'WB_range swap go-raise then nip)

(native rvec_set dup 2 = argc drop
  swap RVEC_LEN rdecui cells 'rvec + cell! VOID)

; vim: ft=worth

Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/Makefile.am,v
retrieving revision 1.154
retrieving revision 1.155
diff -u -d -r1.154 -r1.155
--- Makefile.am	18 Sep 2002 20:59:22 -0000	1.154
+++ Makefile.am	18 Sep 2002 21:02:25 -0000	1.155
@@ -16,8 +16,8 @@
     memset.nasm records.nasm ref.nasm resignal.nasm signal.nasm \
     strings.nasm sys_raw.nasm types.nasm valloc.nasm vectors.nasm \
     wrap.nasm \
-    boxes.wth cons.wth death.wth sys.wth wstrings.wth \
-    boxes.s cons.s death.s sys.s wstrings.s
+    boxes.wth cons.wth death.wth misc.wth sys.wth wstrings.wth \
+    boxes.s cons.s death.s misc.s sys.s wstrings.s
 
 EXTRA_DIST = .cvsignore
 

Index: wrap.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wrap.nasm,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -d -r1.61 -r1.62
--- wrap.nasm	18 Sep 2002 21:01:03 -0000	1.61
+++ wrap.nasm	18 Sep 2002 21:02:26 -0000	1.62
@@ -79,7 +79,6 @@
 native_wrapper prsymbol2string, 1, node ; CAUTION!
 native_wrapper rat2cons, 1, node
 native_wrapper remainder, 2, node
-native_wrapper rvec_set, 2, void
 native_wrapper salloc, GC_malloc_atomic, 1, node ;; VERY DANGEROUS!
 native_wrapper strcomp, 2, node
 native_wrapper truncate, trunc, 1, node