paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 17:45:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

- removed some local variables and associated code not used

Browse Source 
anymore after r4024

git-svn-id: trunk@4187 -
This commit is contained in:
Jonas Maebe 2006-07-14 18:48:26 +00:00
parent 743b05e911
commit c6b3550291
1 changed files with 0 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/symtable.pas
View File

@ -1779,25 +1779,9 @@ implementation
function searchsym_in_class_by_msgint(classh:tobjectdef;i:longint;out srsym:tsym;out srsymtable:tsymtable):boolean; function searchsym_in_class_by_msgint(classh:tobjectdef;i:longint;out srsym:tsym;out srsymtable:tsymtable):boolean;
var var
topclassh : tobjectdef;
def : tdef; def : tdef;
begin begin
result:=false; result:=false;
{ when the class passed is defined in this unit we
need to use the scope of that class. This is a trick
that can be used to access protected members in other
units. At least kylix supports it this way (PFV) }
if assigned(classh) and
(classh.owner.symtabletype in [globalsymtable,staticsymtable]) and
classh.owner.iscurrentunit then
topclassh:=classh
else
begin
if assigned(current_procinfo) then
topclassh:=current_procinfo.procdef._class
else
topclassh:=nil;
end;
def:=nil; def:=nil;
while assigned(classh) do while assigned(classh) do
begin begin
@ -1826,25 +1810,9 @@ implementation
function searchsym_in_class_by_msgstr(classh:tobjectdef;const s:string;out srsym:tsym;out srsymtable:tsymtable):boolean; function searchsym_in_class_by_msgstr(classh:tobjectdef;const s:string;out srsym:tsym;out srsymtable:tsymtable):boolean;
var var
topclassh : tobjectdef;
def : tdef; def : tdef;
begin begin
result:=false; result:=false;
{ when the class passed is defined in this unit we
need to use the scope of that class. This is a trick
that can be used to access protected members in other
units. At least kylix supports it this way (PFV) }
if assigned(classh) and
(classh.owner.symtabletype in [globalsymtable,staticsymtable]) and
classh.owner.iscurrentunit then
topclassh:=classh
else
begin
if assigned(current_procinfo) then
topclassh:=current_procinfo.procdef._class
else
topclassh:=nil;
end;
def:=nil; def:=nil;
while assigned(classh) do while assigned(classh) do
begin begin