paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 18:51:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Counters must be global or completely local

Browse Source
This commit is contained in:
michael 1999-12-03 10:49:31 +00:00
parent 750404818d
commit 1ef542db02
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/data2inc.pp
View File

@ -490,6 +490,8 @@ var
PROCEDURE FixDec; PROCEDURE FixDec;
{ Reads decimal value starting at S1[1]. { Reads decimal value starting at S1[1].
Value in I3, number of digits found in I1} Value in I3, number of digits found in I1}
var I1,I2,i3 : longint;
BEGIN BEGIN
I1:=1; I1:=1;
WHILE ((S1[I1]>#47) AND (S1[I1]<#58)) AND (I1<=Length(S1)) DO WHILE ((S1[I1]>#47) AND (S1[I1]<#58)) AND (I1<=Length(S1)) DO
@ -890,7 +892,10 @@ begin
end. end.
{ {
$Log$ $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 + -s for string writing
* some small cleanups * some small cleanups