From 72d7f5a3e917b98148d5a64ecc47590ee0c77de8 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 24 Apr 1991 11:27:45 +0000
Subject: [PATCH] In last fix, print position one-based, not zero-based.

---
 compiler/represent.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index 754f75f57..4a9363de0 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/represent.lisp,v 1.23 1991/04/24 11:24:57 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/represent.lisp,v 1.24 1991/04/24 11:27:45 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -360,10 +360,10 @@
 			       (template-name op-info)))
 		  (arg-p (not (tn-ref-write-p op)))
 		  (name (get-operand-name op-tn arg-p))
-		  (pos (position-in #'tn-ref-across op
-				    (if arg-p
-					(vop-args op-vop)
-					(vop-results op-vop)))))
+		  (pos (1+ (position-in #'tn-ref-across op
+					(if arg-p
+					    (vop-args op-vop)
+					    (vop-results op-vop))))))
 	     (compiler-note
 	      "Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~
 	       The ~:R ~:[result~;argument~] of ~A."
-- 
GitLab