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 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(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 @@
;;;; 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)
(:translate %check-bound)
(:policy :fast-safe)
(:args (array :scs (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)
(:results (result :scs (any-reg descriptor-reg)))
(: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