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

Changed tn-location to location-number, because we now use it to map

locations into numbers instead of mapping tns into locations.
parent 26b20e93
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.25 1992/07/22 23:31:49 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.26 1992/08/04 08:31:33 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
;;; ;;;
(in-package "C") (in-package "C")
(export '(*backend* *target-backend* *native-backend* def-vm-support-routine (export '(*backend* *target-backend* *native-backend* backend
backend-name backend-version backend-fasl-file-type backend-name backend-version backend-fasl-file-type
backend-fasl-file-implementation backend-fasl-file-version backend-fasl-file-implementation backend-fasl-file-version
backend-register-save-penalty backend-byte-order backend-register-save-penalty backend-byte-order
...@@ -29,8 +29,8 @@ ...@@ -29,8 +29,8 @@
backend-assembler-params backend-page-size backend-assembler-params backend-page-size
;; The various backends need to call these support routines ;; The various backends need to call these support routines
make-stack-pointer-tn primitive-type primitive-type-of def-vm-support-routine make-stack-pointer-tn primitive-type
emit-nop tn-location)) primitive-type-of emit-nop location-number))
;;;; VM support routine stuff. ;;;; VM support routine stuff.
...@@ -94,7 +94,7 @@ ...@@ -94,7 +94,7 @@
;; For use with scheduler. ;; For use with scheduler.
emit-nop emit-nop
tn-location) location-number)
(defprinter vm-support-routines) (defprinter vm-support-routines)
......
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