From b5ef481358621c6162f5789de378112e683fbaf1 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 26 Apr 1990 00:02:26 +0000
Subject: [PATCH] Removed :translates for {alloc,dealloc}-number-stack-space,
 'cause they need info args, and therefore can't translate anything.

---
 compiler/mips/subprim.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/compiler/mips/subprim.lisp b/compiler/mips/subprim.lisp
index c665279bb..e1c6ad3ff 100644
--- a/compiler/mips/subprim.lisp
+++ b/compiler/mips/subprim.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/subprim.lisp,v 1.8 1990/04/25 23:40:24 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/subprim.lisp,v 1.9 1990/04/26 00:02:26 wlott Exp $
 ;;;
 ;;;    Linkage information for standard static functions, and random vops.
 ;;;
@@ -113,7 +113,6 @@
 
 (define-vop (alloc-number-stack-space)
   (:info amount)
-  (:translate %alloc-number-stack-space)
   (:results (result :scs (sap-reg)))
   (:generator 0
     (inst addu nsp-tn nsp-tn (- amount))
@@ -122,6 +121,5 @@
 (define-vop (dealloc-number-stack-space)
   (:info amount)
   (:policy :fast-safe)
-  (:translate %dealloc-number-stack-space)
   (:generator 0
     (inst addu nsp-tn nsp-tn amount)))
-- 
GitLab