From 004a8d18ce290c09d7e51afbe9fff3ffa15deac2 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 14 Apr 1992 02:58:54 +0000 Subject: [PATCH] Some changes to set-fdefn-function. Now it assumes that anything other than function-header-type should go though closure-tramps instead of worrying about the exact header type. --- compiler/sparc/cell.lisp | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/compiler/sparc/cell.lisp b/compiler/sparc/cell.lisp index 1b690e986..92e6585e0 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.10 1992/03/11 21:29:08 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.11 1992/04/14 02:58:54 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -149,18 +149,11 @@ (:temporary (:scs (non-descriptor-reg)) type) (:results (result :scs (descriptor-reg))) (:generator 38 - (let ((closure (gen-label)) - (normal-fn (gen-label))) + (let ((normal-fn (gen-label))) (load-type type function (- function-pointer-type)) - (inst nop) - (inst cmp type closure-header-type) - (inst b :eq closure) - (inst cmp type funcallable-instance-header-type) - (inst b :eq closure) (inst cmp type function-header-type) (inst b :eq normal-fn) (inst move lip function) - (emit-label closure) (inst li lip (make-fixup "_closure_tramp" :foreign)) (emit-label normal-fn) (storew function fdefn fdefn-function-slot other-pointer-type) -- GitLab