paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 07:14:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

use filepos of main when generating the module stabs

Browse Source
This commit is contained in:
peter 2004-11-04 23:59:13 +00:00
parent 939bbef317
commit 088892de9b
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/fmodule.pas
View File

@ -92,6 +92,7 @@ interface
is_unit,
in_interface, { processing the implementation part? }
in_global : boolean; { allow global settings }
mainfilepos : tfileposinfo;
recompile_reason : trecompile_reason; { the reason why the unit should be recompiled }
crc,
interface_crc : cardinal;
@ -396,6 +397,9 @@ implementation
do_reload:=false;
do_compile:=false;
sources_avail:=true;
mainfilepos.line:=0;
mainfilepos.column:=0;
mainfilepos.fileindex:=0;
recompile_reason:=rr_unknown;
in_interface:=true;
in_global:=true;
@ -575,6 +579,9 @@ implementation
crc:=0;
interface_crc:=0;
flags:=0;
mainfilepos.line:=0;
mainfilepos.column:=0;
mainfilepos.fileindex:=0;
recompile_reason:=rr_unknown;
{
The following fields should not
@ -701,7 +708,10 @@ implementation
end.
{
$Log$
Revision 1.48 2004-10-14 18:16:17 mazen
Revision 1.49 2004-11-04 23:59:13 peter
use filepos of main when generating the module stabs
Revision 1.48 2004/10/14 18:16:17 mazen
* USE_SYSUTILS merged successfully : cycles with and without defines
* Need to be optimized in performance

13
compiler/pmodules.pas
View File

@ -613,9 +613,12 @@ implementation
var
vardebuglist : taasmoutput;
storefilepos : tfileposinfo;
begin
if not (cs_debuginfo in aktmoduleswitches) then
exit;
storefilepos:=aktfilepos;
aktfilepos:=current_module.mainfilepos;
{ include symbol that will be referenced from the program to be sure to
include this debuginfo .o file }
if current_module.is_unit then
@ -658,6 +661,7 @@ implementation
dbx_counter:=tglobalsymtable(current_module.globalsymtable).prev_dbx_counter;
do_count_dbx:=false;
end;
aktfilepos:=storefilepos;
end;
{$EndIf GDB}
@ -1082,6 +1086,8 @@ implementation
tcgprocinfo(current_procinfo).parse_body;
tcgprocinfo(current_procinfo).generate_code;
tcgprocinfo(current_procinfo).resetprocdef;
{ save file pos for debuginfo }
current_module.mainfilepos:=current_procinfo.entrypos;
release_main_proc(pd);
end;
@ -1364,6 +1370,8 @@ implementation
tcgprocinfo(current_procinfo).parse_body;
tcgprocinfo(current_procinfo).generate_code;
tcgprocinfo(current_procinfo).resetprocdef;
{ save file pos for debuginfo }
current_module.mainfilepos:=current_procinfo.entrypos;
release_main_proc(pd);
{ should we force unit initialization? }
@ -1511,7 +1519,10 @@ implementation
end.
{
$Log$
Revision 1.170 2004-11-04 17:09:54 peter
Revision 1.171 2004-11-04 23:59:13 peter
use filepos of main when generating the module stabs
Revision 1.170 2004/11/04 17:09:54 peter
fixed debuginfo for variables in staticsymtable
Revision 1.169 2004/10/31 15:29:39 olle