paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 10:11:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix 1.0.x compile

Browse Source
This commit is contained in:
peter 2004-07-01 15:42:18 +00:00
parent df63fb46e3
commit ae9df33b40
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/strutils.pp
View File

@ -253,7 +253,11 @@ var
counter: integer; counter: integer;
begin begin
counter := 0; counter := 0;
{$ifdef INTERNLENGTH}
while(counter < length(AValues)) do while(counter < length(AValues)) do
{$else}
while(counter < high(AValues)+1) do
{$endif}
begin begin
if(AText = AValues[counter]) then if(AText = AValues[counter]) then
begin begin
@ -272,7 +276,11 @@ var
counter: integer; counter: integer;
begin begin
counter := 0; counter := 0;
{$ifdef INTERNLENGTH}
while(counter < length(AValues)) do while(counter < length(AValues)) do
{$else}
while(counter < high(AValues)+1) do
{$endif}
begin begin
if(AText = AValues[counter]) then if(AText = AValues[counter]) then
begin begin
@ -680,7 +688,10 @@ end.
{ {
$Log$ $Log$
Revision 1.6 2004-06-29 19:37:17 marco Revision 1.7 2004-07-01 15:42:18 peter
* fix 1.0.x compile
Revision 1.6 2004/06/29 19:37:17 marco
* updates from B. Tierens * updates from B. Tierens
Revision 1.5 2004/05/17 07:33:01 marco Revision 1.5 2004/05/17 07:33:01 marco