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

Disable the immediate SC for the check-bound index argument because

the immediate value can not be represented in the error code.
parent 85cbc689
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/array.lisp,v 1.13 1998/03/21 07:54:36 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/array.lisp,v 1.14 1998/07/24 15:21:29 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -84,12 +84,15 @@ ...@@ -84,12 +84,15 @@
;;;; Bounds checking routine. ;;;; Bounds checking routine.
;;; Note that the immediate SC for the index argument is disabled
;;; because it is not possible to generate a valid error code SC for
;;; an immediate value.
(define-vop (check-bound) (define-vop (check-bound)
(:translate %check-bound) (:translate %check-bound)
(:policy :fast-safe) (:policy :fast-safe)
(:args (array :scs (descriptor-reg)) (:args (array :scs (descriptor-reg))
(bound :scs (any-reg descriptor-reg)) (bound :scs (any-reg descriptor-reg))
(index :scs (any-reg descriptor-reg immediate) :target result)) (index :scs (any-reg descriptor-reg #+nil immediate) :target result))
(:arg-types * positive-fixnum tagged-num) (:arg-types * positive-fixnum tagged-num)
(:results (result :scs (any-reg descriptor-reg))) (:results (result :scs (any-reg descriptor-reg)))
(:result-types positive-fixnum) (:result-types positive-fixnum)
......
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