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

* fix stabs lineno for fpc_compiled

Browse Source
This commit is contained in:
peter 2004-03-14 20:10:14 +00:00
parent 4801152fac
commit 1ae8d3849b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pmodules.pas
View File

@ -137,6 +137,8 @@ implementation
procedure insertsegment; procedure insertsegment;
var
oldaktfilepos : tfileposinfo;
begin begin
{ Insert Ident of the compiler } { Insert Ident of the compiler }
if (not (cs_create_smart in aktmoduleswitches)) if (not (cs_create_smart in aktmoduleswitches))
@ -166,9 +168,12 @@ implementation
{$ifdef GDB} {$ifdef GDB}
if assigned(debuglist) then if assigned(debuglist) then
begin begin
oldaktfilepos:=aktfilepos;
aktfilepos.line:=0;
debugList.insert(Tai_symbol.Createname('gcc2_compiled',AT_FUNCTION,0)); debugList.insert(Tai_symbol.Createname('gcc2_compiled',AT_FUNCTION,0));
debugList.insert(Tai_symbol.Createname('fpc_compiled',AT_FUNCTION,0)); debugList.insert(Tai_symbol.Createname('fpc_compiled',AT_FUNCTION,0));
fixseg(debuglist,sec_code); fixseg(debuglist,sec_code);
aktfilepos:=oldaktfilepos;
end; end;
{$endif GDB} {$endif GDB}
end; end;
@ -1447,7 +1452,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.145 2004-03-10 22:52:57 peter Revision 1.146 2004-03-14 20:10:14 peter
* fix stabs lineno for fpc_compiled
Revision 1.145 2004/03/10 22:52:57 peter
* more stabs fixes * more stabs fixes
* special mode -gv for valgrind compatible stabs * special mode -gv for valgrind compatible stabs