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

nearly final 0.4.0 hax

This commit is contained in:
bdc 1995-10-31 23:41:17 +00:00
parent 3a6b33db27
commit 31f91e754b
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/endian.scm.in
View File

@ -21,12 +21,15 @@
(byte2 (bitwise-and #b11111111 num24)) (byte2 (bitwise-and #b11111111 num24))
(byte3 (bitwise-and #b11111111 num32))) (byte3 (bitwise-and #b11111111 num32)))
(+ (arithmetic-shift byte3 24) (+ (arithmetic-shift byte3 24)
(arithmetic-shift byte2 16)
(arithmetic-shift byte1 8)
byte0))))
(define (net-to-host-16-little num16) (define (net-to-host-16-little num16)
(and (<= 0 num16 #xffffffff) (and (<= 0 num16 #xffffffff)
(let* ((num08 (arithmetic-shift num16 -8)) (let* ((num08 (arithmetic-shift num16 -8))
(byte0 (bitwise-and #b11111111 num08)) (byte0 (bitwise-and #b11111111 num08))
(byte1 (bitwise-and #b11111111 num16)) (byte1 (bitwise-and #b11111111 num16)))
(+ (arithmetic-shift byte1 8) (+ (arithmetic-shift byte1 8)
byte0)))) byte0))))

5
scsh/static.scm
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