From efd84f66b1b4ed62deef91678cfb1d3e171ce35e Mon Sep 17 00:00:00 2001 From: chiles <chiles> Date: Tue, 23 Apr 1991 17:23:50 +0000 Subject: [PATCH] Fixed allocate-code-object re William's trace-table changes. --- compiler/rt/alloc.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/rt/alloc.lisp b/compiler/rt/alloc.lisp index fe63ac0d4..6af2d8dd7 100644 --- a/compiler/rt/alloc.lisp +++ b/compiler/rt/alloc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/alloc.lisp,v 1.2 1991/04/20 17:01:34 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/alloc.lisp,v 1.3 1991/04/23 17:23:50 chiles Exp $ ;;; ;;; Allocation VOPs for the IBM RT port. ;;; @@ -94,7 +94,7 @@ (:temporary (:scs (non-descriptor-reg) :from (:argument 1)) unboxed) (:generator 100 (inst li ndescr (lognot lowtag-mask)) - (inst cal boxed boxed-arg (fixnum (1+ code-constants-offset))) + (inst cal boxed boxed-arg (fixnum (1+ vm:code-trace-table-offset-slot))) (inst n boxed ndescr) (move unboxed unboxed-arg) (inst sr unboxed word-shift) -- GitLab