X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fcall.lisp;h=4fda851418c20cae4c4a86bd5f7ca5fec458259a;hb=7fd2eb4b1bc68e8aaec233c4a39bdfc40225bda2;hp=67f5215deac67f6e4ff829652192051eba24ad1a;hpb=667ec9d494530079bef28e8589dd0d3274b935ec;p=sbcl.git

diff --git a/src/compiler/x86/call.lisp b/src/compiler/x86/call.lisp
index 67f5215..4fda851 100644
--- a/src/compiler/x86/call.lisp
+++ b/src/compiler/x86/call.lisp
@@ -70,28 +70,28 @@
       (make-normal-tn *fixnum-primitive-type*)))
 
 ;;; Make the TNs used to hold Old-FP and Return-PC within the current
-;;; function. We treat these specially so that the debugger can find them at a
-;;; known location.
+;;; function. We treat these specially so that the debugger can find
+;;; them at a known location.
 ;;;
 ;;; Without using a save-tn - which does not make much sense if it is
 ;;; wire to the stack? No problems.
 (!def-vm-support-routine make-old-fp-save-location (env)
-  (environment-debug-live-tn (make-wired-tn *fixnum-primitive-type*
-					    control-stack-sc-number
-					    ocfp-save-offset)
-			     env))
+  (physenv-debug-live-tn (make-wired-tn *fixnum-primitive-type*
+					control-stack-sc-number
+					ocfp-save-offset)
+			 env))
 ;;; Using a save-tn. No problems.
 #+nil
 (!def-vm-support-routine make-old-fp-save-location (env)
   (specify-save-tn
-   (environment-debug-live-tn (make-normal-tn *fixnum-primitive-type*) env)
+   (physenv-debug-live-tn (make-normal-tn *fixnum-primitive-type*) env)
    (make-wired-tn *fixnum-primitive-type* control-stack-sc-number
 		  ocfp-save-offset)))
 
 ;;; Without using a save-tn - which does not make much sense if it is
 ;;; wire to the stack? No problems.
 (!def-vm-support-routine make-return-pc-save-location (env)
-  (environment-debug-live-tn
+  (physenv-debug-live-tn
    (make-wired-tn (primitive-type-or-lose 'system-area-pointer)
 		  sap-stack-sc-number return-pc-save-offset)
    env))
@@ -100,7 +100,7 @@
 (!def-vm-support-routine make-return-pc-save-location (env)
   (let ((ptype (primitive-type-or-lose 'system-area-pointer)))
     (specify-save-tn
-     (environment-debug-live-tn (make-normal-tn ptype) env)
+     (physenv-debug-live-tn (make-normal-tn ptype) env)
      (make-wired-tn ptype sap-stack-sc-number return-pc-save-offset))))
 
 ;;; Make a TN for the standard argument count passing location. We only