From a948221d325e52196d4dddcd0649dfa19cb76e2a Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 8 Feb 1997 21:15:38 +0000 Subject: [PATCH] Removed unnecessary comment. --- compiler/x86/alloc.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/x86/alloc.lisp b/compiler/x86/alloc.lisp index 0f8729efc..5d5601fbb 100644 --- a/compiler/x86/alloc.lisp +++ b/compiler/x86/alloc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/alloc.lisp,v 1.1 1997/01/18 14:31:20 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/alloc.lisp,v 1.2 1997/02/08 21:15:38 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -232,7 +232,7 @@ (with-cgc-allocation(temp (pad-data-block words)) (inst lea result (make-ea :byte :base temp :disp lowtag))) - (when type ; dunno what this does yet + (when type (inst mov temp (logior (ash (1- words) type-bits) type)) (storew temp result 0 lowtag)))) -- GitLab