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

When allocating the code object, allocate the correct amount of space, not

1/4 of if.
parent 22586c6f
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.9 1991/03/20 03:02:56 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.10 1991/04/28 03:11:06 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -133,7 +133,7 @@
(trace-table (pack-trace-table trace-table))
(trace-table-len (length trace-table))
(trace-table-bits (* trace-table-len bits-per-entry))
(total-length (+ length (ceiling trace-table-bits vm:word-bits)))
(total-length (+ length (ceiling trace-table-bits vm:byte-bits)))
(box-num (- (length constants) vm:code-trace-table-offset-slot))
(code-obj (%primitive allocate-code-object box-num total-length))
(inst-stream (make-code-instruction-stream code-obj))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment