From 4dfcfb6811d202ae1182acf26833ebf12f12e1b6 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 24 Oct 1994 22:56:39 +0000 Subject: [PATCH] Call extern-alien-name so that prefixing is done right. --- compiler/sparc/alloc.lisp | 4 ++-- compiler/sparc/c-call.lisp | 6 +++--- compiler/sparc/cell.lisp | 6 +++--- compiler/sparc/print.lisp | 6 +++--- 4 files changed, 11 insertions(+), 11 deletions(-) diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp index 703cc6036..879efed8b 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 2cbc597ed..ae3fd05d9 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 1c46ffe18..780ce6106 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 66361f358..9b5bb1b36 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 -- GitLab