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

Fix some storage class problems in the list length VOPs which broke

the non-list error reporting.
parent c9670fca
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/subprim.lisp,v 1.3 1998/02/19 19:35:05 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/subprim.lisp,v 1.4 1998/05/13 04:01:12 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
(:args (object :scs (descriptor-reg control-stack) :target ptr)) (:args (object :scs (descriptor-reg control-stack) :target ptr))
(:arg-types list) (:arg-types list)
(:temporary (:sc unsigned-reg :offset eax-offset) eax) (:temporary (:sc unsigned-reg :offset eax-offset) eax)
(:temporary (:sc unsigned-reg :from (:argument 0)) ptr) (:temporary (:sc descriptor-reg :from (:argument 0)) ptr)
(:results (count :scs (any-reg))) (:results (count :scs (any-reg)))
(:result-types positive-fixnum) (:result-types positive-fixnum)
(:policy :fast-safe) (:policy :fast-safe)
...@@ -65,7 +65,7 @@ ...@@ -65,7 +65,7 @@
(:translate length) (:translate length)
(:args (object :scs (descriptor-reg control-stack) :target ptr)) (:args (object :scs (descriptor-reg control-stack) :target ptr))
(:arg-types list) (:arg-types list)
(:temporary (:sc unsigned-reg :from (:argument 0)) ptr) (:temporary (:sc descriptor-reg :from (:argument 0)) ptr)
(:results (count :scs (any-reg))) (:results (count :scs (any-reg)))
(:result-types positive-fixnum) (:result-types positive-fixnum)
(:policy :fast) (:policy :fast)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment