From 1ef542db02589fcb09a8dacded021d8bb839a903 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 3 Dec 1999 10:49:31 +0000
Subject: [PATCH] Counters must be global or completely local

---
 utils/data2inc.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/utils/data2inc.pp b/utils/data2inc.pp
index cfcbc9c7a1..a9a675a60c 100644
--- a/utils/data2inc.pp
+++ b/utils/data2inc.pp
@@ -490,6 +490,8 @@ var
   PROCEDURE FixDec;
   { Reads decimal value starting at S1[1].
        Value in I3, number of digits found in I1}
+       var I1,I2,i3 : longint;
+       
   BEGIN
    I1:=1;
    WHILE ((S1[I1]>#47) AND (S1[I1]<#58)) AND (I1<=Length(S1)) DO
@@ -890,7 +892,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  1999-11-23 09:42:18  peter
+  Revision 1.3  1999-12-03 10:49:31  michael
+  Counters must be global or completely local
+
+  Revision 1.2  1999/11/23 09:42:18  peter
     + -s for string writing
     * some small cleanups