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

Save the nfp-tn if there is one. Call debug_print instead of print, so that

the output is not quite as verbose.
parent 49e7bacf
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/print.lisp,v 1.2 1990/04/24 02:56:30 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/print.lisp,v 1.3 1990/05/19 09:44:37 wlott Exp $
;;;
;;; This file contains temporary printing utilities and similar noise.
;;;
......@@ -24,11 +24,16 @@
(:temporary (:sc any-reg :offset lra-offset) lra)
(:temporary (:sc any-reg :offset code-offset) code)
(:temporary (:scs (any-reg) :type fixnum) temp)
(:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
(:vop-var vop)
(:generator 0
(let ((lra-label (gen-label)))
(let ((lra-label (gen-label))
(cur-nfp (current-nfp-tn vop)))
(when cur-nfp
(store-stack-tn nfp-save cur-nfp))
(inst addu nsp-tn nsp-tn -16)
(storew object nsp-tn 0)
(inst li v0 (make-fixup "print" :foreign))
(inst li v0 (make-fixup "debug_print" :foreign))
(inst li temp (make-fixup "call_into_c" :foreign))
(inst j temp)
(inst compute-lra-from-code lra code lra-label)
......@@ -36,4 +41,6 @@
(emit-label lra-label)
(inst lra-header-word)
(inst addu nsp-tn nsp-tn 16)
(when cur-nfp
(load-stack-tn cur-nfp nfp-save))
(move result v0))))
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