From 9323959e02b55ec17a727bd515a790d098f89294 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 28 Oct 1990 06:40:37 +0000
Subject: [PATCH] Added a ``(inst li nargs (fixnum 2))'' when we go to call the
 static function so that it will know that it has the right number of args.

---
 assembly/mips/arith.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/assembly/mips/arith.lisp b/assembly/mips/arith.lisp
index 9d2d85543..87920df31 100644
--- a/assembly/mips/arith.lisp
+++ b/assembly/mips/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.1 1990/10/28 06:01:50 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.2 1990/10/28 06:40:37 wlott Exp $
 ;;;
 ;;; Stuff to handle simple cases for generic arithmetic.
 ;;;
@@ -31,6 +31,7 @@
 			  (:temp temp non-descriptor-reg nl0-offset)
 			  (:temp lip interior-reg lip-offset)
 			  (:temp lra descriptor-reg lra-offset)
+			  (:temp nargs any-reg nargs-offset)
 			  (:temp cname descriptor-reg cname-offset)
 			  (:temp ocfp any-reg old-fp-offset))
   (inst and temp x 3)
@@ -43,6 +44,7 @@
 
   DO-STATIC-FUN
   (load-symbol cname 'two-arg-+)
+  (inst li nargs (fixnum 2))
   (inst lw lip cname
 	(- (ash vm:symbol-raw-function-addr-slot vm:word-shift)
 	   vm:other-pointer-type))
@@ -65,6 +67,7 @@
 			  (:temp temp non-descriptor-reg nl0-offset)
 			  (:temp lip interior-reg lip-offset)
 			  (:temp lra descriptor-reg lra-offset)
+			  (:temp nargs any-reg nargs-offset)
 			  (:temp cname descriptor-reg cname-offset)
 			  (:temp ocfp any-reg old-fp-offset))
   (inst and temp x 3)
@@ -77,6 +80,7 @@
 
   DO-STATIC-FUN
   (load-symbol cname 'two-arg--)
+  (inst li nargs (fixnum 2))
   (inst lw lip cname
 	(- (ash vm:symbol-raw-function-addr-slot vm:word-shift)
 	   vm:other-pointer-type))
@@ -101,6 +105,7 @@
 			  (:temp hi non-descriptor-reg nl2-offset)
 			  (:temp lip interior-reg lip-offset)
 			  (:temp lra descriptor-reg lra-offset)
+			  (:temp nargs any-reg nargs-offset)
 			  (:temp cname descriptor-reg cname-offset)
 			  (:temp ocfp any-reg old-fp-offset))
   ;; If either arg is not a fixnum, call the static function.
@@ -151,6 +156,7 @@
 
   DO-STATIC-FUN
   (load-symbol cname 'two-arg-*)
+  (inst li nargs (fixnum 2))
   (inst lw lip cname
 	(- (ash vm:symbol-raw-function-addr-slot vm:word-shift)
 	   vm:other-pointer-type))
-- 
GitLab