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

Rolled back to original move costs, 'cause there seemed to be a problem with

the new ones.  This doesn't matter in the long run, 'cause when Rob
finishes the non-descriptor object support, define-move-costs is going
away.
parent f7da398d
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.19 1990/04/10 20:02:24 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.20 1990/04/11 16:42:56 wlott Exp $
;;;
;;; This file contains the VM definition for the MIPS R2000 and the new
;;; object format.
......@@ -132,6 +132,7 @@
;;;
;;; Move costs for operand loading and storing
;;;
#+nil ;; These move costs don't work.
(define-move-costs
((immediate zero null random-immediate)
;; load immediate or reg->reg move.
......@@ -191,6 +192,45 @@
;; Just indirect.
(5 sap-reg)))
(define-move-costs
((any-reg descriptor-reg non-descriptor-reg)
(1 any-reg descriptor-reg non-descriptor-reg)
(2 base-character-reg sap-reg)
(5 control-stack number-stack))
((control-stack number-stack constant)
(5 any-reg descriptor-reg non-descriptor-reg)
(6 base-character-reg sap-reg))
((immediate zero null random-immediate)
(1 any-reg descriptor-reg non-descriptor-reg))
((immediate-base-character)
(1 base-character-reg)
(2 any-reg descriptor-reg non-descriptor-reg))
((immediate-sap)
(1 sap-reg)
(2 any-reg descriptor-reg non-descriptor-reg))
((base-character-reg)
(1 base-character-reg)
(2 any-reg descriptor-reg non-descriptor-reg)
(5 base-character-stack)
(6 control-stack number-stack))
((sap-reg)
(1 sap-reg)
(2 any-reg descriptor-reg non-descriptor-reg)
(5 sap-stack)
(6 control-stack number-stack))
((base-character-stack)
(5 base-character-reg))
((sap-stack)
(5 sap-reg)))
;;;
;;; SCs which must saved on a function call.
......
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