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

compiler: reduce the overhead made in previous revision

Browse Source 
git-svn-id: trunk@16507 -
This commit is contained in:
paul 2010-12-05 14:32:05 +00:00
parent 1c0e482d7d
commit 3e5f6e7a60
1 changed files with 30 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/symtable.pas
View File

@ -1828,6 +1828,16 @@ implementation
while assigned(stackitem) do
begin
srsymtable:=stackitem^.symtable;
if (srsymtable.symtabletype=objectsymtable) then
begin
if searchsym_in_class(tobjectdef(srsymtable.defowner),tobjectdef(srsymtable.defowner),s,srsym,srsymtable) then
begin
result:=true;
exit;
end;
end
else
begin
srsym:=tsym(srsymtable.FindWithHash(hashedid));
if assigned(srsym) then
begin
@ -1855,14 +1865,6 @@ implementation
exit;
end;
end;
{ also search for class helpers }
if (srsymtable.symtabletype=objectsymtable) then
begin
if searchsym_in_class(tobjectdef(srsymtable.defowner),tobjectdef(srsymtable.defowner),s,srsym,srsymtable) then
begin
result:=true;
exit;
end;
end;
stackitem:=stackitem^.next;
end;