From f155ce0135074784115ae27889cb6601b692611d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 27 Mar 2003 14:23:00 +0000
Subject: [PATCH] + Fixed use of linesize property, reported by Wolfgang
 Waffenschmidt

---
 utils/ptopu.pp | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/utils/ptopu.pp b/utils/ptopu.pp
index c0c067815a..ba45c49346 100644
--- a/utils/ptopu.pp
+++ b/utils/ptopu.pp
@@ -931,12 +931,12 @@ Procedure TPrettyPrinter.PPSymbol;
     THEN newlinepos := currlinepos + currsym^.spacesbefore
     ELSE newlinepos := currmargin;
 
-    IF newlinepos + currsym^.length > MAXLINESIZE THEN BEGIN
+    IF newlinepos + currsym^.length > LINESIZE THEN BEGIN
       WriteCRs(1);
-      IF currmargin + currsym^.length <= MAXLINESIZE
+      IF currmargin + currsym^.length <= LINESIZE
       THEN newlinepos := currmargin
-      ELSE IF currsym^.length < MAXLINESIZE
-      THEN newlinepos := MAXLINESIZE - currsym^.length
+      ELSE IF currsym^.length < LINESIZE
+      THEN newlinepos := LINESIZE - currsym^.length
       ELSE newlinepos := 0;
     END;
     MoveLinePos(newlinepos);
@@ -1219,7 +1219,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2002-09-07 15:40:31  peter
+  Revision 1.6  2003-03-27 14:23:00  michael
+  + Fixed use of linesize property, reported by Wolfgang Waffenschmidt
+
+  Revision 1.5  2002/09/07 15:40:31  peter
     * old logs removed and tabs fixed
 
   Revision 1.4  2002/07/14 13:39:45  carl