Skip to content
Snippets Groups Projects
Commit 57fbe045 authored by wlott's avatar wlott
Browse files

Missed a place max-offset should have been changed to tt-max-offset.

parent bc666b38
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/codegen.lisp,v 1.21 1993/05/28 05:22:19 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/codegen.lisp,v 1.22 1993/06/10 02:21:47 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -289,7 +289,7 @@
(state (cdr entry)))
(declare (type index posn) (type tt-state state))
(assert (<= last-posn posn))
(do ((offset (- posn last-posn) (- offset max-offset)))
(do ((offset (- posn last-posn) (- offset tt-max-offset)))
((< offset tt-max-offset)
(push-entry offset state))
(push-entry tt-max-offset last-state))
......
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