paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 16:29:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Enable local debug info in methods

Browse Source
This commit is contained in:
michael 2004-12-21 08:38:16 +00:00
parent 106a729c56
commit 1027d1941d
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/symtable.pas
View File

@ -1351,10 +1351,16 @@ implementation
while assigned(p) do
begin
{ also insert local types for the current unit }
if (unitid=0) and
(p.deftype=procdef) and
assigned(tprocdef(p).localst) then
dowritestabs(asmlist,tprocdef(p).localst);
if (unitid=0) then
begin
case p.deftype of
procdef :
if assigned(tprocdef(p).localst) then
dowritestabs(asmlist,tprocdef(p).localst);
objectdef :
dowritestabs(asmlist,tobjectdef(p).symtable);
end;
end;
if (p.stab_state=stab_state_used) then
p.concatstabto(asmlist);
p:=tstoreddef(p.indexnext);
@ -2306,7 +2312,10 @@ implementation
end.
{
$Log$
Revision 1.165 2004-12-15 15:59:54 peter
Revision 1.166 2004-12-21 08:38:16 michael
+ Enable local debug info in methods
Revision 1.165 2004/12/15 15:59:54 peter
* fix visibility of protected/private
Revision 1.164 2004/11/15 23:35:31 peter