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

* use indexword() in tsuperregisterworklist.delete, greatly speeds up

Browse Source 
compilation of tw2242
This commit is contained in:
Jonas Maebe 2004-07-18 15:14:59 +00:00
parent aa6475e9fd
commit c7afb87846
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/cgbase.pas
View File

@ -387,10 +387,12 @@ implementation
function tsuperregisterworklist.delete(s:tsuperregister):boolean;
var i:word;
var
i:longint;
begin
delete:=false;
{$ifndef FPC}
for i:=1 to length do
if buf^[i-1]=s then
begin
@ -398,6 +400,14 @@ implementation
delete:=true;
break;
end;
{$else FPC}
i := indexword(buf^,length,s);
if i <> -1 then
begin
deleteidx(i);
delete := true;
end;
{$endif FPC}
end;
@ -585,7 +595,11 @@ finalization
end.
{
$Log$
Revision 1.91 2004-07-07 17:35:26 daniel
Revision 1.92 2004-07-18 15:14:59 jonas
* use indexword() in tsuperregisterworklist.delete, greatly speeds up
compilation of tw2242
Revision 1.91 2004/07/07 17:35:26 daniel
* supregset_reset clears 8kb of memory. However, it is being called in
inner loops, see for example colour_registers. According to profile data
this causes fillchar to be the most time consuming procedure.