Skip to content
Snippets Groups Projects
Commit ccb928b3 authored by ch's avatar ch
Browse files

Changed the translation of SAP-INT and INT-SAP to SAP-INT and INT-SAP

respectively.
parent d36eba7f
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.1 1990/03/12 23:48:56 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.2 1990/03/22 23:50:34 ch Exp $
;;; ;;;
;;; This file contains the MIPS VM definition of SAP operations. ;;; This file contains the MIPS VM definition of SAP operations.
;;; ;;;
...@@ -76,7 +76,7 @@ ...@@ -76,7 +76,7 @@
(:args (sap :scs (sap-reg) :target int)) (:args (sap :scs (sap-reg) :target int))
(:results (int :scs (any-reg descriptor-reg))) (:results (int :scs (any-reg descriptor-reg)))
(:arg-types system-area-pointer) (:arg-types system-area-pointer)
(:translate char-code) (:translate sap-int)
(:policy :fast-safe) (:policy :fast-safe)
(:generator 0 (:generator 0
;; ### Need to check for fixnum overflow. ;; ### Need to check for fixnum overflow.
...@@ -85,7 +85,7 @@ ...@@ -85,7 +85,7 @@
(define-vop (int-sap) (define-vop (int-sap)
(:args (int :scs (any-reg descriptor-reg) :target sap)) (:args (int :scs (any-reg descriptor-reg) :target sap))
(:results (sap :scs (sap-reg))) (:results (sap :scs (sap-reg)))
(:translate code-char) (:translate int-sap)
(:policy :fast-safe) (:policy :fast-safe)
(:generator 0 (:generator 0
;; ### Need to check to see if it is a bignum. ;; ### Need to check to see if it is a bignum.
......
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