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

* disable some debuginfo info when valgrind support is used

Browse Source
This commit is contained in:
peter 2004-03-14 20:10:56 +00:00
parent 1ae8d3849b
commit 55daf96ba7
2 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/aasmtai.pas
View File

@ -676,7 +676,9 @@ implementation
constructor tailineinfo.create;
begin
inherited create;
fileinfo:=aktfilepos;
if (not inlining_procedure) and
(cs_gdb_valgrind in aktglobalswitches) then
fileinfo:=aktfilepos;
end;
@ -2000,7 +2002,10 @@ implementation
end.
{
$Log$
Revision 1.76 2004-03-02 17:32:12 florian
Revision 1.77 2004-03-14 20:10:56 peter
* disable some debuginfo info when valgrind support is used
Revision 1.76 2004/03/02 17:32:12 florian
* make cycle fixed
+ pic support for darwin
+ support of importing vars from shared libs on darwin implemented

11
compiler/ncgcal.pas
View File

@ -1134,7 +1134,8 @@ implementation
inlineexitcode:=TAAsmoutput.Create;
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) then
if (cs_debuginfo in aktmoduleswitches) and
not(cs_gdb_valgrind in aktglobalswitches) then
begin
objectlibrary.getaddrlabel(startlabel);
objectlibrary.getaddrlabel(endlabel);
@ -1227,7 +1228,8 @@ implementation
gen_free_localst(exprasmlist,tlocalsymtable(current_procinfo.procdef.localst));
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) then
if (cs_debuginfo in aktmoduleswitches) and
not(cs_gdb_valgrind in aktglobalswitches) then
begin
cg.a_label(exprasmlist,endlabel);
strpcopy(pp,'224,0,0,'+endlabel.name);
@ -1264,7 +1266,10 @@ begin
end.
{
$Log$
Revision 1.163 2004-03-13 21:23:21 florian
Revision 1.164 2004-03-14 20:10:56 peter
* disable some debuginfo info when valgrind support is used
Revision 1.163 2004/03/13 21:23:21 florian
* fixed inlining on arm
Revision 1.162 2004/03/09 16:28:31 peter