paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +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; skipstab:=true;
if skipfun then if skipfun then
begin begin
skipstab:=hstab.ntype in [N_TextLine,N_RSYM,N_LSYM,N_tsym,N_LBRAC,N_RBRAC,N_IncludeFile]; { Skip all stabs for function body until N_RBRAC }
skipfun:=skipstab; skipfun:=hstab.ntype<>N_RBRAC;
skipstab:=true;
end; end;
if not skipstab then if not skipstab then
begin begin