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

* Fixed removing stabs for unused functions. It fixes debugging problems.

Browse Source 
git-svn-id: trunk@10963 -
This commit is contained in:
yury 2008-05-13 13:12:07 +00:00
parent 26efe0df1d
commit 403ce8c2c1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogbase.pas
View File

@ -2218,8 +2218,9 @@ implementation
skipstab:=true;
if skipfun then
begin
skipstab:=hstab.ntype in [N_TextLine,N_RSYM,N_LSYM,N_tsym,N_LBRAC,N_RBRAC,N_IncludeFile];
skipfun:=skipstab;
{ Skip all stabs for function body until N_RBRAC }
skipfun:=hstab.ntype<>N_RBRAC;
skipstab:=true;
end;
if not skipstab then
begin