From 31f91e754b3eb826f7d69d70d9311770e95f79fa Mon Sep 17 00:00:00 2001 From: bdc Date: Tue, 31 Oct 1995 23:41:17 +0000 Subject: [PATCH] nearly final 0.4.0 hax --- scsh/endian.scm.in | 5 ++++- scsh/static.scm | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/scsh/endian.scm.in b/scsh/endian.scm.in index c73d530..4ced550 100644 --- a/scsh/endian.scm.in +++ b/scsh/endian.scm.in @@ -21,12 +21,15 @@ (byte2 (bitwise-and #b11111111 num24)) (byte3 (bitwise-and #b11111111 num32))) (+ (arithmetic-shift byte3 24) + (arithmetic-shift byte2 16) + (arithmetic-shift byte1 8) + byte0)))) (define (net-to-host-16-little num16) (and (<= 0 num16 #xffffffff) (let* ((num08 (arithmetic-shift num16 -8)) (byte0 (bitwise-and #b11111111 num08)) - (byte1 (bitwise-and #b11111111 num16)) + (byte1 (bitwise-and #b11111111 num16))) (+ (arithmetic-shift byte1 8) byte0)))) diff --git a/scsh/static.scm b/scsh/static.scm index d367eba..af55574 100755 --- a/scsh/static.scm +++ b/scsh/static.scm @@ -12,7 +12,10 @@ header-a-units d-vector? 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) (open scheme heap memory data stob struct