From 194e9fd8b591fe045f11ecc08a267403d009004d Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 21 Apr 1991 19:55:59 +0000 Subject: [PATCH] Fixed two usages of load-type to spec the lowtag correctly. Fixed make-fixnum to actually return the resultant fixnum. --- compiler/rt/system.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/rt/system.lisp b/compiler/rt/system.lisp index b3f3166b1..670e85674 100644 --- a/compiler/rt/system.lisp +++ b/compiler/rt/system.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/system.lisp,v 1.1 1991/02/18 15:08:18 chiles Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/system.lisp,v 1.2 1991/04/21 19:55:59 wlott Exp $ ;;; ;;; IBM RT VM definitions of various system hacking operations. ;;; @@ -106,7 +106,7 @@ (inst nilz result object type-mask) (emit-label function-ptr) - (load-type result object (- function-pointer-type)) + (load-type result object function-pointer-type) (inst b done) (emit-label lowtag-only) @@ -114,7 +114,7 @@ (inst nilz result object lowtag-mask) (emit-label other-ptr) - (load-type result object (- other-pointer-type)) + (load-type result object other-pointer-type) (emit-label done)))) @@ -184,7 +184,7 @@ (move temp ptr) (inst sl temp 3) (inst sr temp 1) - (move temp res))) + (move res temp))) (define-vop (make-other-immediate-type) (:args (val :scs (any-reg descriptor-reg) :target vtemp) -- GitLab