scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

This commit is contained in:
bdc 1995-10-31 23:29:37 +00:00
parent 12874c0edd
commit 3a6b33db27
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/endian.scm.in
View File

@ -32,5 +32,5 @@
(define net-to-host-32 net-to-host-32-@ENDIAN@) (define net-to-host-32 net-to-host-32-@ENDIAN@)
(define net-to-host-16 net-to-host-16-@ENDIAN@) (define net-to-host-16 net-to-host-16-@ENDIAN@)
(define host-to-net-32 host-to-net-32-@ENDIAN@) (define host-to-net-32 net-to-host-32-@ENDIAN@)
(define host-to-net-16 host-to-net-16-@ENDIAN@) (define host-to-net-16 net-to-host-16-@ENDIAN@)

5
scsh/static.scm.in
View File

@ -12,7 +12,10 @@
header-a-units header-a-units
d-vector? d-vector?
stob-type) stob-type)
(open scheme heap)) (open scheme heap)
(begin
(define (newspace-begin) *newspace-begin*)
(define (heap-pointer) *hp*)))
(define-structure scsh-static-heap (export scsh-static-linker) (define-structure scsh-static-heap (export scsh-static-linker)
(open scheme heap memory data stob struct (open scheme heap memory data stob struct