paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:09:29 +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
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}
for i:=1 to length do
if buf^[i-1]=s then
@ -401,13 +411,14 @@ implementation
break;
end;
{$else FPC}
i := indexword(buf^,length,s);
if i <> -1 then
i:=indexword(buf^,length,s);
if i<>-1 then
begin
deleteidx(i);
delete := true;
end;
{$endif FPC}
{$endif VER1_0}
end;
@ -595,7 +606,10 @@ finalization
end.
{
$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
compilation of tw2242