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

Added vop arguments to the internal errors.

parent 3b1f599c
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.27 1990/06/18 14:46:35 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.28 1990/07/03 06:07:15 wlott Exp $
;;;
;;; This file contains the VM definition arithmetic VOPs for the MIPS.
;;;
......@@ -344,8 +344,10 @@
(:results (q :scs (signed-reg))
(r :scs (signed-reg)))
(:result-types signed-num signed-num)
(:vop-var vop)
(:save-p :compute-only)
(:generator 11
(let ((zero (generate-error-code division-by-zero-error x y)))
(let ((zero (generate-error-code vop division-by-zero-error x y)))
(inst beq y zero-tn zero))
(inst div x y)
(inst mflo q)
......@@ -357,8 +359,10 @@
(y :target r :scs (signed-reg)))
(:results (r :scs (signed-reg)))
(:result-types signed-num)
(:vop-var vop)
(:save-p :compute-only)
(:generator 10
(let ((zero (generate-error-code division-by-zero-error x y)))
(let ((zero (generate-error-code vop division-by-zero-error x y)))
(inst beq y zero-tn zero))
(inst div x y)
(inst mfhi r)))
......
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