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
|
