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

* support overriding debuginfo for classrefdefs

Browse Source 
git-svn-id: trunk@11327 -
This commit is contained in:
Jonas Maebe 2008-07-05 14:25:23 +00:00
parent fdb790ad2c
commit 98e843c092
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/dbgbase.pas
View File

@ -46,6 +46,7 @@ interface
procedure appenddef_array(list:TAsmList;def:tarraydef);virtual;
procedure appenddef_record(list:TAsmList;def:trecorddef);virtual;
procedure appenddef_object(list:TAsmList;def:tobjectdef);virtual;
procedure appenddef_classref(list:TAsmList;def: tclassrefdef);virtual;
procedure appenddef_pointer(list:TAsmList;def:tpointerdef);virtual;
procedure appenddef_string(list:TAsmList;def:tstringdef);virtual;
procedure appenddef_procvar(list:TAsmList;def:tprocvardef);virtual;
@ -173,6 +174,12 @@ implementation
end;
procedure TDebugInfo.appenddef_classref(list:TAsmList;def: tclassrefdef);
begin
appenddef_pointer(list,tpointerdef(pvmttype));
end;
procedure TDebugInfo.appenddef_variant(list:TAsmList;def: tvariantdef);
begin
end;
@ -247,7 +254,7 @@ implementation
variantdef :
appenddef_variant(list,tvariantdef(def));
classrefdef :
appenddef_pointer(list,tpointerdef(pvmttype));
appenddef_classref(list,tclassrefdef(def));
setdef :
appenddef_set(list,tsetdef(def));
formaldef :