Skip to content
Snippets Groups Projects
Commit 90bdefd5 authored by ram's avatar ram
Browse files

Removed #+nil on the CONSTANT case for loading ARG-FUN in DEFINE-FULL-CALL.

This really can happen when we compile a full call to a local function
for some reason (arg count error, etc.)
parent 577254a7
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.33 1990/11/03 03:23:04 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.34 1990/11/14 17:33:51 ram Exp $
;;; ;;;
;;; This file contains the VM definition of function call for the MIPS. ;;; This file contains the VM definition of function call for the MIPS.
;;; ;;;
...@@ -797,7 +797,6 @@ default-value-8 ...@@ -797,7 +797,6 @@ default-value-8
(inst lw lexenv fp-tn (inst lw lexenv fp-tn
(ash (tn-offset arg-fun) vm:word-shift)) (ash (tn-offset arg-fun) vm:word-shift))
(do-next-filler)) (do-next-filler))
#+nil
(constant (constant
(inst lw lexenv code-tn (inst lw lexenv code-tn
(- (ash (tn-offset arg-fun) vm:word-shift) (- (ash (tn-offset arg-fun) vm:word-shift)
......
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