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

Fixed allocate-code-object to pass the number of words to large-alloc in

nargs, not a0.
parent f13fd96c
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/mips/alloc.lisp,v 1.25 1993/06/12 20:34:33 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/alloc.lisp,v 1.26 1993/08/27 18:56:43 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -133,7 +133,7 @@
(:args (boxed :scs (any-reg))
(unboxed :scs (any-reg)))
(:results (result :scs (descriptor-reg)))
(:temporary (:sc any-reg :offset a0-offset :to (:result 0) :target result)
(:temporary (:sc any-reg :offset nargs-offset :to (:result 0) :target result)
words)
(:temporary (:sc non-descriptor-reg :offset nl0-offset) lowtag)
(:temporary (:sc any-reg :offset nl1-offset) header)
......
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