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

* handle (build)derefimpl also for objectdef so it also works for methods

Browse Source 
git-svn-id: trunk@11406 -
This commit is contained in:
peter 2008-07-19 00:02:36 +00:00
parent 4e278bccb1
commit c2e5f885c6
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/symdef.pas
View File

@ -250,6 +250,8 @@ interface
function GetTypeName:string;override; function GetTypeName:string;override;
procedure buildderef;override; procedure buildderef;override;
procedure deref;override; procedure deref;override;
procedure buildderefimpl;override;
procedure derefimpl;override;
function getparentdef:tdef;override; function getparentdef:tdef;override;
function size : aint;override; function size : aint;override;
function alignment:shortint;override; function alignment:shortint;override;
@ -3905,6 +3907,24 @@ implementation
end; end;
procedure tobjectdef.buildderefimpl;
var
i : longint;
begin
inherited buildderefimpl;
if not (df_copied_def in defoptions) then
tstoredsymtable(symtable).buildderefimpl;
end;
procedure tobjectdef.derefimpl;
begin
inherited derefimpl;
if not (df_copied_def in defoptions) then
tstoredsymtable(symtable).derefimpl;
end;
function tobjectdef.getparentdef:tdef; function tobjectdef.getparentdef:tdef;
begin begin
{$warning TODO Remove getparentdef hack} {$warning TODO Remove getparentdef hack}