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

* don't write parast,localst debug info for externals

Browse Source
This commit is contained in:
peter 2003-10-01 15:00:02 +00:00
parent 3ddc4c44bd
commit c348bd5a68
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/symdef.pas
View File

@ -3955,13 +3955,15 @@ implementation
if not isstabwritten then
asmList.concat(Tai_stabs.Create(stabstring));
isstabwritten := true;
if assigned(parast) then
tstoredsymtable(parast).concatstabto(asmlist);
{ local type defs and vars should not be written
inside the main proc stab }
if assigned(localst) and
(localst.symtablelevel>main_program_level) then
tstoredsymtable(localst).concatstabto(asmlist);
if not(po_external in procoptions) then
begin
tstoredsymtable(parast).concatstabto(asmlist);
{ local type defs and vars should not be written
inside the main proc stab }
if assigned(localst) and
(localst.symtablelevel>main_program_level) then
tstoredsymtable(localst).concatstabto(asmlist);
end;
is_def_stab_written := written;
end;
{$endif GDB}
@ -5856,7 +5858,10 @@ implementation
end.
{
$Log$
Revision 1.164 2003-09-23 21:03:35 peter
Revision 1.165 2003-10-01 15:00:02 peter
* don't write parast,localst debug info for externals
Revision 1.164 2003/09/23 21:03:35 peter
* connect parasym to paraitem
Revision 1.163 2003/09/23 17:56:06 peter