paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 14:40:25 +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

9
compiler/symdef.pas
View File

@ -3955,13 +3955,15 @@ implementation
if not isstabwritten then if not isstabwritten then
asmList.concat(Tai_stabs.Create(stabstring)); asmList.concat(Tai_stabs.Create(stabstring));
isstabwritten := true; isstabwritten := true;
if assigned(parast) then if not(po_external in procoptions) then
begin
tstoredsymtable(parast).concatstabto(asmlist); tstoredsymtable(parast).concatstabto(asmlist);
{ local type defs and vars should not be written { local type defs and vars should not be written
inside the main proc stab } inside the main proc stab }
if assigned(localst) and if assigned(localst) and
(localst.symtablelevel>main_program_level) then (localst.symtablelevel>main_program_level) then
tstoredsymtable(localst).concatstabto(asmlist); tstoredsymtable(localst).concatstabto(asmlist);
end;
is_def_stab_written := written; is_def_stab_written := written;
end; end;
{$endif GDB} {$endif GDB}
@ -5856,7 +5858,10 @@ implementation
end. end.
{ {
$Log$ $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 * connect parasym to paraitem
Revision 1.163 2003/09/23 17:56:06 peter Revision 1.163 2003/09/23 17:56:06 peter