From 3ee04a80946d1c3296c787e52f446016ef42ac4b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 16 Oct 1990 17:14:12 +0000
Subject: [PATCH] Added noise to keep the compiler from complaining that RES is
 unused.

---
 assembly/mips/bit-bash.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/assembly/mips/bit-bash.lisp b/assembly/mips/bit-bash.lisp
index 7664596ec..7d0d9ccb1 100644
--- a/assembly/mips/bit-bash.lisp
+++ b/assembly/mips/bit-bash.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/bit-bash.lisp,v 1.7 1990/09/18 00:34:32 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/bit-bash.lisp,v 1.8 1990/10/16 17:14:12 wlott Exp $
 ;;;
 ;;; Stuff to implement bit bashing.
 ;;;
@@ -244,6 +244,8 @@
 			  (:temp ntemp2 non-descriptor-reg nl2-offset)
 			  (:temp ntemp3 non-descriptor-reg nl3-offset))
 
+  (progn res) ; don't complain that it's unused.
+
   (inst subu src src-arg vm:other-pointer-type)
   (inst and ntemp1 dst 3)
   (inst xor dst ntemp1)
@@ -273,6 +275,8 @@
 			  (:temp ntemp1 non-descriptor-reg nl1-offset)
 			  (:temp ntemp2 non-descriptor-reg nl2-offset)
 			  (:temp ntemp3 non-descriptor-reg nl3-offset))
+  (progn res) ; don't complain that it's unused.
+
   (inst and ntemp1 src 3)
   (inst xor src ntemp1)
   (inst sll ntemp1 5)
@@ -302,6 +306,8 @@
 			  (:temp ntemp1 non-descriptor-reg nl2-offset)
 			  (:temp ntemp2 non-descriptor-reg nl3-offset)
 			  (:temp ntemp3 non-descriptor-reg nl4-offset))
+  (progn res) ; don't complain that it's unused.
+
   (inst and ntemp1 src 3)
   (inst xor src ntemp1)
   (inst sll ntemp1 5)
@@ -334,6 +340,8 @@
 			  (:temp ntemp1 non-descriptor-reg nl2-offset)
 			  (:temp ntemp2 non-descriptor-reg nl3-offset)
 			  (:temp ntemp3 non-descriptor-reg nl4-offset))
+  (progn res) ; don't complain that it's unused.
+
   (let ((done (gen-label)))
     (pseudo-atomic (ntemp1)
       (inst subu src src-arg vm:other-pointer-type)
-- 
GitLab