diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp index 703cc6036dc5f58b06b9379de87afe07290f6cee..879efed8b28bcf385150c6fc7bd59982dba25c80 100644 --- a/compiler/sparc/alloc.lisp +++ b/compiler/sparc/alloc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.9 1992/12/17 08:59:51 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.10 1994/10/24 22:53:53 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -112,7 +112,7 @@ (:translate make-fdefn) (:generator 37 (with-fixed-allocation (result temp fdefn-type fdefn-size) - (inst li temp (make-fixup "_undefined_tramp" :foreign)) + (inst li temp (make-fixup (extern-alien-name "undefined_tramp") :foreign)) (storew name result fdefn-name-slot other-pointer-type) (storew null-tn result fdefn-function-slot other-pointer-type) (storew temp result fdefn-raw-addr-slot other-pointer-type)))) diff --git a/compiler/sparc/c-call.lisp b/compiler/sparc/c-call.lisp index 2cbc597ed93fe9676f72d560650a827f7b14ce0c..ae3fd05d9b53bc5ef786631cf850cab41faff93b 100644 --- a/compiler/sparc/c-call.lisp +++ b/compiler/sparc/c-call.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.9 1992/04/28 15:41:03 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.10 1994/10/24 22:54:46 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -121,7 +121,7 @@ (:results (res :scs (sap-reg))) (:result-types system-area-pointer) (:generator 2 - (inst li res (make-fixup (concatenate 'simple-string "_" foreign-symbol) + (inst li res (make-fixup (extern-alien-name foreign-symbol) :foreign)))) (define-vop (call-out) @@ -141,7 +141,7 @@ (when cur-nfp (store-stack-tn nfp-save cur-nfp)) (move cfunc function) - (inst li temp (make-fixup "_call_into_c" :foreign)) + (inst li temp (make-fixup (extern-alien-name "call_into_c") :foreign)) (inst jal lip temp) (inst nop) (when cur-nfp diff --git a/compiler/sparc/cell.lisp b/compiler/sparc/cell.lisp index 1c46ffe18a7db62ba9351e50ed223c521bce75ea..780ce61061f744f47380d63dfd7a923561ee742c 100644 --- a/compiler/sparc/cell.lisp +++ b/compiler/sparc/cell.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.18 1993/05/04 15:48:37 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.19 1994/10/24 22:55:30 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -128,7 +128,7 @@ (inst cmp type function-header-type) (inst b :eq normal-fn) (inst move lip function) - (inst li lip (make-fixup "_closure_tramp" :foreign)) + (inst li lip (make-fixup (extern-alien-name "closure_tramp") :foreign)) (emit-label normal-fn) (storew function fdefn fdefn-function-slot other-pointer-type) (storew lip fdefn fdefn-raw-addr-slot other-pointer-type) @@ -142,7 +142,7 @@ (:results (result :scs (descriptor-reg))) (:generator 38 (storew null-tn fdefn fdefn-function-slot other-pointer-type) - (inst li temp (make-fixup "_undefined_tramp" :foreign)) + (inst li temp (make-fixup (extern-alien-name "undefined_tramp") :foreign)) (storew temp fdefn fdefn-raw-addr-slot other-pointer-type) (move result fdefn))) diff --git a/compiler/sparc/print.lisp b/compiler/sparc/print.lisp index 66361f358feafc6aa67226b5a5e2fe889250ef1a..9b5bb1b365fcaae43eb9eb2be123e20e0747be91 100644 --- a/compiler/sparc/print.lisp +++ b/compiler/sparc/print.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/print.lisp,v 1.1 1990/11/30 17:05:00 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/print.lisp,v 1.2 1994/10/24 22:56:39 ram Exp $ ;;; ;;; This file contains VOPs for things like printing during %initial-function ;;; before the world is initialized. @@ -32,8 +32,8 @@ (when cur-nfp (store-stack-tn nfp-save cur-nfp)) (move nl0 object) - (inst li cfunc (make-fixup "_debug_print" :foreign)) - (inst li temp (make-fixup "_call_into_c" :foreign)) + (inst li cfunc (make-fixup (extern-alien-name "debug_print") :foreign)) + (inst li temp (make-fixup (extern-alien-name "call_into_c") :foreign)) (inst jal lip temp) (inst nop) (when cur-nfp