Skip to content
Snippets Groups Projects
Commit f924d8bb authored by wlott's avatar wlott
Browse files

Fixed the calculation of the offset between a function pointer and the

raw instruction address in set-symbol-function.
parent 648ace18
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.43 1990/09/21 05:46:57 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.44 1990/09/24 00:32:20 wlott Exp $
;;;
;;; This file contains the VM definition of various primitive memory access
;;; VOPs for the MIPS.
......@@ -198,7 +198,8 @@
(inst xor type (logxor vm:closure-header-type vm:function-header-type))
(inst beq type zero-tn normal-fn)
(inst addu temp function
(- vm:function-header-code-offset vm:function-pointer-type))
(- (ash vm:function-header-code-offset vm:word-shift)
vm:function-pointer-type))
(error-call vop kernel:object-not-function-error function)
(emit-label closure)
(inst li temp (make-fixup "closure_tramp" :foreign))
......
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