conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* libassembler librarified

This commit is contained in:
Abdulaziz Ghuloum 2007-04-29 21:42:41 -04:00
parent cb6971a438
commit cf3ff29874
4 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

7
src/libassembler.ss
View File

@ -1,4 +1,8 @@
(library (ikarus assembler)
(export)
(import (scheme))
(primitive-set! 'make-code (primitive-set! 'make-code
(lambda (code-size freevars) (lambda (code-size freevars)
(unless (and (fixnum? code-size) ($fx>= code-size 0)) (unless (and (fixnum? code-size) ($fx>= code-size 0))
@ -54,3 +58,6 @@
(unless (vector? v) (unless (vector? v)
(error 'set-code-reloc-vector! "~s is not a vector" v)) (error 'set-code-reloc-vector! "~s is not a vector" v))
(foreign-call "ikrt_set_code_reloc_vector" x v))) (foreign-call "ikrt_set_code_reloc_vector" x v)))
)

2
src/makefile.ss
View File

@ -228,7 +228,7 @@
(whack-system-env #t) (whack-system-env #t)
(define scheme-library-files (define scheme-library-files
'(["libhandlers.ss" "libhandlers.fasl" p0 onepass] '( ["libhandlers.ss" "libhandlers.fasl" p0 onepass]
["libcontrol0.ss" "libcontrol0.fasl" p0 onepass] ["libcontrol0.ss" "libcontrol0.fasl" p0 onepass]
["libcontrol1.ss" "libcontrol1.fasl" p0 onepass] ["libcontrol1.ss" "libcontrol1.fasl" p0 onepass]
["libcollect.ss" "libcollect.fasl" p0 onepass] ["libcollect.ss" "libcollect.fasl" p0 onepass]

13
src/syntax.ss
View File

@ -602,6 +602,8 @@
[fxlogand fxlogand-label (core-prim . fxlogand)] [fxlogand fxlogand-label (core-prim . fxlogand)]
[fxlogor fxlogor-label (core-prim . fxlogor)] [fxlogor fxlogor-label (core-prim . fxlogor)]
[fxlognot fxlognot-label (core-prim . fxlognot)] [fxlognot fxlognot-label (core-prim . fxlognot)]
[$fx>= $fx>=-label (core-prim . $fx>=)]
[$fx< $fx<-label (core-prim . $fx<)]
;;; generic arithmetic ;;; generic arithmetic
[- minus-label (core-prim . -)] [- minus-label (core-prim . -)]
[* *-label (core-prim . *)] [* *-label (core-prim . *)]
@ -677,15 +679,18 @@
[$record/rtd? $record/rtd?-label (core-prim . $record/rtd?)] [$record/rtd? $record/rtd?-label (core-prim . $record/rtd?)]
;;; codes ;;; codes
[$closure-code $closure-code-label (core-prim . $closure-code)] [$closure-code $closure-code-label (core-prim . $closure-code)]
[$code? $code?-label (core-prim . $code?)]
[$code-reloc-vector $code-reloc-vector-label (core-prim . $code-reloc-vector)]
[$code-freevars $code-freevars-label (core-prim . $code-freevars)]
[$code-size $code-size-label (core-prim . $code-size)]
[$code-ref $code-ref-label (core-prim . $code-ref)]
[$code-set! $code-set!-label (core-prim . $code-set!)]
[code? code?-label (core-prim . code?)] [code? code?-label (core-prim . code?)]
[code-reloc-vector code-reloc-vector-label (core-prim . code-reloc-vector)] [code-reloc-vector code-reloc-vector-label (core-prim . code-reloc-vector)]
[code-size code-size-label (core-prim . code-size)] [code-size code-size-label (core-prim . code-size)]
[code-freevars code-freevars-label (core-prim . code-freevars)] [code-freevars code-freevars-label (core-prim . code-freevars)]
[code-ref code-ref-label (core-prim . code-ref)] [code-ref code-ref-label (core-prim . code-ref)]
; [X X-label (core-prim . X)] [code-set! code-set!-label (core-prim . code-set!)]
; [X X-label (core-prim . X)]
; [X X-label (core-prim . X)]
; [X X-label (core-prim . X)]
;;; misc ;;; misc
[immediate? immediate?-label (core-prim . immediate?)] [immediate? immediate?-label (core-prim . immediate?)]
[primitive-set! primitive-set!-label (core-prim . primitive-set!)] [primitive-set! primitive-set!-label (core-prim . primitive-set!)]