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