Remove old debug print from COMPILE-IR for IR-CALL
This commit is contained in:
parent
c6ba4228b3
commit
fa4fa088fe
1 changed files with 1 additions and 2 deletions
|
@ -184,8 +184,7 @@ is the responsibility of the pre-assembly compilation step."
|
||||||
:do (setf *last-instruction* :useless)
|
:do (setf *last-instruction* :useless)
|
||||||
:unless (eql (strategy (allocation-details arg)) :direct-to-argvec)
|
:unless (eql (strategy (allocation-details arg)) :direct-to-argvec)
|
||||||
:do (emit-lda (data-reference arg))
|
:do (emit-lda (data-reference arg))
|
||||||
(emit-sta (cons :address (+ arg-index +argvec-offset+)))
|
(emit-sta (cons :address (+ arg-index +argvec-offset+))))
|
||||||
(format t "~D. ~A~%" arg-index arg))
|
|
||||||
(emit-asm-instruction :opcode #x20 :operand (callee inst) :byte-length 3)
|
(emit-asm-instruction :opcode #x20 :operand (callee inst) :byte-length 3)
|
||||||
(emit-store-data (output inst)))
|
(emit-store-data (output inst)))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue