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

* some debug related updates

Browse Source
This commit is contained in:
pierre 2000-04-14 12:49:11 +00:00
parent c0943fad01
commit 3ed4ca8362
2 changed files with 34 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/ag68kgas.pas
View File

@ -38,6 +38,7 @@ unit ag68kgas;
procedure WriteAsmList;virtual;
{$ifdef GDB}
procedure WriteFileLineInfo(var fileinfo : tfileposinfo);
procedure WriteFileEndInfo;
{$endif}
end;
@ -256,7 +257,8 @@ unit ag68kgas;
procedure tm68kgasasmlist.WriteFileLineInfo(var fileinfo : tfileposinfo);
begin
if not (cs_debuginfo in aktmoduleswitches) then
if not ((cs_debuginfo in aktmoduleswitches) or
(cs_gdb_lineinfo in aktglobalswitches)) then
exit;
{ file changed ? (must be before line info) }
if lastfileindex<>fileinfo.fileindex then
@ -295,6 +297,19 @@ unit ag68kgas;
lastline:=fileinfo.line;
end;
end;
procedure tm68kgasasmlist.WriteFileEndInfo;
begin
if not ((cs_debuginfo in aktmoduleswitches) or
(cs_gdb_lineinfo in aktglobalswitches)) then
exit;
AsmLn;
AsmWriteLn(ait_section2str(sec_code));
AsmWriteLn(#9'.stabs "",'+tostr(n_sourcefile)+',0,0,Letext');
AsmWriteLn('Letext:');
end;
{$endif GDB}
@ -319,7 +334,8 @@ unit ag68kgas;
begin
{ write debugger informations }
{$ifdef GDB}
if cs_debuginfo in aktmoduleswitches then
if ((cs_debuginfo in aktmoduleswitches) or
(cs_gdb_lineinfo in aktglobalswitches)) then
begin
if not (hp^.typ in [ait_external,ait_regalloc, ait_regdealloc,ait_stabn,ait_stabs,
ait_label,ait_cut,ait_marker,ait_align,ait_stab_function_name]) then
@ -685,7 +701,8 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
{ there should be nothing but externals so we don't need to process
WriteTree(externals); }
WriteTree(debuglist);
If (cs_debuginfo in aktmoduleswitches) then
WriteTree(debuglist);
WriteTree(codesegment);
WriteTree(datasegment);
WriteTree(consts);
@ -706,7 +723,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
end.
{
$Log$
Revision 1.25 2000-02-09 13:22:44 peter
Revision 1.26 2000-04-14 12:49:11 pierre
* some debug related updates
Revision 1.25 2000/02/09 13:22:44 peter
* log truncated
Revision 1.24 2000/01/07 01:14:18 peter
@ -715,4 +735,4 @@ end.
Revision 1.23 1999/09/16 23:05:51 florian
* m68k compiler is again compilable (only gas writer, no assembler reader)
}
}

13
compiler/ag68kmit.pas
View File

@ -290,7 +290,8 @@ unit ag68kmit;
begin
{ write debugger informations }
{$ifdef GDB}
if cs_debuginfo in aktmoduleswitches then
if ((cs_debuginfo in aktmoduleswitches) or
(cs_gdb_lineinfo in aktglobalswitches)) then
begin
if not (hp^.typ in [ait_external,ait_regalloc, ait_regdealloc,ait_stabn,ait_stabs,
ait_label,ait_cut,ait_marker,ait_align,ait_stab_function_name]) then
@ -647,7 +648,8 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
{ there should be nothing but externals so we don't need to process
WriteTree(externals); }
WriteTree(debuglist);
If (cs_debuginfo in aktmoduleswitches) then
WriteTree(debuglist);
WriteTree(codesegment);
WriteTree(datasegment);
WriteTree(consts);
@ -668,7 +670,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
end.
{
$Log$
Revision 1.24 2000-02-09 13:22:44 peter
Revision 1.25 2000-04-14 12:49:11 pierre
* some debug related updates
Revision 1.24 2000/02/09 13:22:44 peter
* log truncated
Revision 1.23 2000/01/07 01:14:18 peter
@ -677,4 +682,4 @@ end.
Revision 1.22 1999/09/16 23:05:51 florian
* m68k compiler is again compilable (only gas writer, no assembler reader)
}
}