Skip to content
Snippets Groups Projects
Commit 73ff3c78 authored by ch's avatar ch
Browse files

Minor frob to type checking macros to prevent spurious warnings.

parent f220a948
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/macros.lisp,v 1.16 1990/02/25 02:39:32 ch Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.17 1990/02/25 19:51:00 ch Exp $
;;; ;;;
;;; This file contains various useful macros for generating MIPS code. ;;; This file contains various useful macros for generating MIPS code.
;;; ;;;
...@@ -246,7 +246,8 @@ ...@@ -246,7 +246,8 @@
`(let* ((drop-through (gen-label)) `(let* ((drop-through (gen-label))
(,in-label (if ,not-p drop-through ,target)) (,in-label (if ,not-p drop-through ,target))
(,out-label (if ,not-p ,target drop-through))) (,out-label (if ,not-p ,target drop-through)))
,out-label ; squelch possible warning ,in-label ; squelch possible warning
,out-label
(unless (zerop ,tag-mask) (unless (zerop ,tag-mask)
(inst andi ,temp ,register ,tag-mask)) (inst andi ,temp ,register ,tag-mask))
,@(emit) ,@(emit)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment