From 5b63580386e1af9cd82ab17a8016896c1d15a62d Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 21 Nov 1990 11:12:45 +0000 Subject: [PATCH] In alloc-number-stack-space, don't emit the add instruction if the amount we are adding is zero. Same for dealloc-number-stack-space. --- compiler/mips/c-call.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler/mips/c-call.lisp b/compiler/mips/c-call.lisp index e6c04355f..0f760b54a 100644 --- a/compiler/mips/c-call.lisp +++ b/compiler/mips/c-call.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/c-call.lisp,v 1.3 1990/11/13 22:59:51 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/c-call.lisp,v 1.4 1990/11/21 11:12:45 wlott Exp $ ;;; ;;; This file contains the VOPs and other necessary machine specific support ;;; routines for call-out to C. @@ -147,11 +147,13 @@ (:info amount) (:results (result :scs (sap-reg any-reg))) (:generator 0 - (inst addu nsp-tn nsp-tn (- (logandc2 (+ amount 7) 7))) + (unless (zerop amount) + (inst addu nsp-tn nsp-tn (- (logandc2 (+ amount 7) 7)))) (move result nsp-tn))) (define-vop (dealloc-number-stack-space) (:info amount) (:policy :fast-safe) (:generator 0 - (inst addu nsp-tn nsp-tn (logandc2 (+ amount 7) 7)))) + (unless (zerop amount) + (inst addu nsp-tn nsp-tn (logandc2 (+ amount 7) 7))))) -- GitLab