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

* small tweak to use speedvalue before comparing strings

Browse Source
This commit is contained in:
peter 2002-10-15 19:00:42 +00:00
parent 52b34259f1
commit 52ed1daebc
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/nobj.pas
View File

@ -52,6 +52,7 @@ interface
psymcoll = ^tsymcoll;
tsymcoll = record
speedvalue : cardinal;
name : pstring;
data : pprocdefcoll;
next : psymcoll;
@ -510,6 +511,7 @@ implementation
hp : pprocdeflist;
symcoll : psymcoll;
_name : string;
_speed : cardinal;
procedure newdefentry(pd:tprocdef);
begin
@ -546,6 +548,7 @@ implementation
begin
{ if not, generate a new symbol item }
new(symcoll);
symcoll^.speedvalue:=sym.speedvalue;
symcoll^.name:=stringdup(sym.name);
symcoll^.next:=wurzel;
symcoll^.data:=nil;
@ -578,11 +581,15 @@ implementation
is_visible:=tprocsym(sym).is_visible_for_object(_class);
{ check the current list of symbols }
_name:=sym.name;
_speed:=sym.speedvalue;
symcoll:=wurzel;
while assigned(symcoll) do
begin
{ does the symbol already exist in the list ? }
if _name=symcoll^.name^ then
{ does the symbol already exist in the list? First
compare speedvalue before doing the string compare to
speed it up a little }
if (_speed=symcoll^.speedvalue) and
(_name=symcoll^.name^) then
begin
{ walk through all defs of the symbol }
for i:=1 to Tprocsym(sym).procdef_count do
@ -1307,7 +1314,10 @@ initialization
end.
{
$Log$
Revision 1.30 2002-10-06 16:40:25 florian
Revision 1.31 2002-10-15 19:00:42 peter
* small tweak to use speedvalue before comparing strings
Revision 1.30 2002/10/06 16:40:25 florian
* interface wrapper name mangling improved
Revision 1.29 2002/10/05 12:43:25 carl