diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp index 08759ad7343e5e3e92beb1b9962b74ffe5b0b88f..0b67be440ef978cb861b222639fae31ee706abfc 100644 --- a/compiler/generic/new-genesis.lisp +++ b/compiler/generic/new-genesis.lisp @@ -6,7 +6,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.12 1994/05/22 00:00:49 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.13 1994/05/22 18:05:49 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -772,7 +772,8 @@ #.c:rt-afpa-fasl-file-implementation #.c:x86-fasl-file-implementation #.c:hppa-fasl-file-implementation - #.c:alpha-fasl-file-implementation) + #.c:alpha-fasl-file-implementation + #.c:sgi-fasl-file-implementation) (lookup-foreign-symbol "undefined_tramp")) (#.c:sparc-fasl-file-implementation (lookup-foreign-symbol "_undefined_tramp")))))) @@ -789,7 +790,8 @@ #.c:rt-afpa-fasl-file-implementation #.c:x86-fasl-file-implementation #.c:hppa-fasl-file-implementation - #.c:alpha-fasl-file-implementation) + #.c:alpha-fasl-file-implementation + #.c:sgi-fasl-file-implementation) (ecase type (#.vm:function-header-type (make-random-descriptor @@ -1670,7 +1672,7 @@ (defun do-cold-fixup (code-object offset value kind) (let ((sap (sap+ (descriptor-sap code-object) offset))) (ecase (c:backend-fasl-file-implementation c:*backend*) - (#.c:pmax-fasl-file-implementation + ((#.c:pmax-fasl-file-implementation #.c:sgi-fasl-file-implementation) (ecase kind (:jump (assert (zerop (ash value -28)))