Skip to content
Snippets Groups Projects
Commit a948221d authored by dtc's avatar dtc
Browse files

Removed unnecessary comment.

parent 7381feae
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -232,7 +232,7 @@
(with-cgc-allocation(temp (pad-data-block words)) (with-cgc-allocation(temp (pad-data-block words))
(inst lea result (make-ea :byte :base temp :disp lowtag))) (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)) (inst mov temp (logior (ash (1- words) type-bits) type))
(storew temp result 0 lowtag)))) (storew temp result 0 lowtag))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment