Skip to content
Snippets Groups Projects
Commit f44f451f authored by wlott's avatar wlott
Browse files

Added error0, error1, and error2 VOPs.

Fixed branch to use a branch instuction instead of a jump instruction.

Removed eql 'cause it is going to have to be written in lisp.
parent 715c365a
No related branches found
No related tags found
No related merge requests found
...@@ -7,6 +7,8 @@ ...@@ -7,6 +7,8 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/pred.lisp,v 1.2 1990/02/16 08:27:35 wlott Exp $
;;;
;;; This file contains the VM definition of predicate VOPs for the MIPS. ;;; This file contains the VM definition of predicate VOPs for the MIPS.
;;; ;;;
;;; Written by Rob MacLachlan ;;; Written by Rob MacLachlan
...@@ -25,7 +27,7 @@ ...@@ -25,7 +27,7 @@
(define-vop (branch) (define-vop (branch)
(:info dest) (:info dest)
(:generator 5 (:generator 5
(inst j dest) (b dest)
(nop))) (nop)))
...@@ -55,14 +57,25 @@ ...@@ -55,14 +57,25 @@
(nop))) (nop)))
#+nil
(define-vop (if-eql)
(:args (x :scs (any-reg descriptor-reg)) ;;;; Error VOPs
(y :scs (any-reg descriptor-reg zero null)))
(:conditional) (define-vop (error0)
(:info target not-p) (:args (code :scs (any-reg descriptor-reg)))
(:policy :fast-safe) (:generator 1000
(:translate eql) (error-call 0 code)))
#+nil
(:generator 3 (define-vop (error1)
)) (:args (code :scs (any-reg descriptor-reg))
(arg :scs (descriptor-reg)))
(:generator 1000
(error-call 1 code arg)))
(define-vop (error2)
(:args (code :scs (any-reg descriptor-reg))
(arg1 :scs (descriptor-reg))
(arg2 :scs (descriptor-reg)))
(:generator 1000
(error-call 2 code arg1 arg2)))
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