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

* indexword in 1.0.x is broken

Browse Source
This commit is contained in:
florian 2004-07-19 19:21:02 +00:00
parent aba734edc9
commit ed4d14932e
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/cgbase.pas
View File

@ -392,6 +392,16 @@ implementation
begin begin
delete:=false; delete:=false;
{$ifdef VER1_0}
{ indexword in 1.0.x is broken }
for i:=1 to length do
if buf^[i-1]=s then
begin
deleteidx(i-1);
delete:=true;
break;
end;
{$else VER1_0}
{$ifndef FPC} {$ifndef FPC}
for i:=1 to length do for i:=1 to length do
if buf^[i-1]=s then if buf^[i-1]=s then
@ -401,13 +411,14 @@ implementation
break; break;
end; end;
{$else FPC} {$else FPC}
i := indexword(buf^,length,s); i:=indexword(buf^,length,s);
if i <> -1 then if i<>-1 then
begin begin
deleteidx(i); deleteidx(i);
delete := true; delete := true;
end; end;
{$endif FPC} {$endif FPC}
{$endif VER1_0}
end; end;
@ -595,7 +606,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.92 2004-07-18 15:14:59 jonas Revision 1.93 2004-07-19 19:21:02 florian
* indexword in 1.0.x is broken
Revision 1.92 2004/07/18 15:14:59 jonas
* use indexword() in tsuperregisterworklist.delete, greatly speeds up * use indexword() in tsuperregisterworklist.delete, greatly speeds up
compilation of tw2242 compilation of tw2242