paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid infinite loop in split method

Browse Source
This commit is contained in:
pierre 2001-08-07 22:24:43 +00:00
parent cc1bf40f41
commit 13f5fb2b3e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/wini.pas
View File

@ -143,7 +143,8 @@ end;
procedure TINIEntry.Split; procedure TINIEntry.Split;
var S,ValueS: string; var S,ValueS: string;
P,P2,StartP: byte; P,P2,StartP: longint;
{ using byte for P2 lead to infinite loops PM }
C: char; C: char;
InString: boolean; InString: boolean;
Delimiter: char; Delimiter: char;
@ -488,7 +489,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.1 2001-08-04 11:30:26 peter Revision 1.2 2001-08-07 22:24:43 pierre
* avoid infinite loop in split method
Revision 1.1 2001/08/04 11:30:26 peter
* ide works now with both compiler versions * ide works now with both compiler versions
Revision 1.1.2.3 2000/08/16 18:46:15 peter Revision 1.1.2.3 2000/08/16 18:46:15 peter