Skip to content
Snippets Groups Projects
Commit c825b696 authored by ram's avatar ram
Browse files

Fixed up to compile in new compiler system.

parent 4d382d1d
No related branches found
No related tags found
No related merge requests found
...@@ -148,7 +148,7 @@ ...@@ -148,7 +148,7 @@
(defun print-a-space (space stream depth) (defun print-a-space (space stream depth)
depth depth
(write-string "#<SPACE, address = " stream) (write-string "#<SPACE, address = " stream)
(prin1 (sap-to-fixnum (space-address space)) stream) (prin1 (sap-int (space-address space)) stream)
(write-char #\> stream)) (write-char #\> stream))
;;; The type codes: ;;; The type codes:
...@@ -274,8 +274,8 @@ ...@@ -274,8 +274,8 @@
(ash space-size 3) (ash space-size 3)
space-size)) space-size))
(setf (svref memory space) (setf (svref memory space)
(make-space :address (fixnum-to-sap hunk) (make-space :address (int-sap hunk)
:real-address (fixnum-to-sap addr) :real-address (int-sap addr)
:free-pointer (cons (if (eq space code-space) :free-pointer (cons (if (eq space code-space)
clc::romp-code-base clc::romp-code-base
(space-to-highbits space)) (space-to-highbits space))
...@@ -514,7 +514,7 @@ ...@@ -514,7 +514,7 @@
(short-float (short-float
(let ((fthing (%primitive make-fixnum thing))) (let ((fthing (%primitive make-fixnum thing)))
(handle-on (logior (ash short-float-4bit-ltype 12) (handle-on (logior (ash short-float-4bit-ltype 12)
(%sp-logldb 12 16 fthing) (%primitive logldb 12 16 fthing)
(if (< thing 0) #x800 0)) (if (< thing 0) #x800 0))
(logand fthing #xFFFF)))) (logand fthing #xFFFF))))
(long-float (long-float
...@@ -1227,10 +1227,6 @@ ...@@ -1227,10 +1227,6 @@
(index (clone-arg))) (index (clone-arg)))
(write-indexed code index value))) (write-indexed code index value)))
(not-cold-fop fop-miscop-fixup)
(not-cold-fop fop-link-address-fixup)
;;; Loading numbers... ;;; Loading numbers...
...@@ -1373,8 +1369,8 @@ ...@@ -1373,8 +1369,8 @@
(incf nonempty-spaces) (incf nonempty-spaces)
(incf data-pages (1+ (ash free (1+ offset-to-page-shift))))))) (incf data-pages (1+ (ash free (1+ offset-to-page-shift)))))))
(multiple-value-bind (hunk addr) (get-valid-hunk byte-length) (multiple-value-bind (hunk addr) (get-valid-hunk byte-length)
(setq hunk (fixnum-to-sap hunk)) (setq hunk (int-sap hunk))
(setq addr (fixnum-to-sap addr)) (setq addr (int-sap addr))
;; Write the CORE file password. ;; Write the CORE file password.
(%primitive 16bit-system-set hunk 0 (byte-swap-16 #x+434F)) (%primitive 16bit-system-set hunk 0 (byte-swap-16 #x+434F))
(%primitive 16bit-system-set hunk 1 (byte-swap-16 #x+5245)) (%primitive 16bit-system-set hunk 1 (byte-swap-16 #x+5245))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment