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

- disabled with-symtable debugging code since it was broken and

Browse Source 
at the same time confused the register allocator and therefore also
    the optimizer. May be fixed in the future using dwarf support
This commit is contained in:
Jonas Maebe 2004-04-21 17:39:40 +00:00
parent 8c253f22d9
commit 409dac05a4
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/ncgmem.pas
View File

@ -385,7 +385,7 @@ implementation
*****************************************************************************}
procedure tcgwithnode.pass_2;
{$ifdef GDB}
{$ifdef WITHNODEDEBUG}
const
withlevel : longint = 0;
var
@ -393,11 +393,11 @@ implementation
pp : pchar;
mangled_length : longint;
refnode : tnode;
{$endif GDB}
{$endif WITHNODEDEBUG}
begin
location_reset(location,LOC_VOID,OS_NO);
{$ifdef GDB}
{$ifdef WITHNODEDEBUG}
if (cs_debuginfo in aktmoduleswitches) then
begin
{ load reference }
@ -430,12 +430,12 @@ implementation
end;
withdebugList.concat(Tai_stabn.Create(strnew(pp)));
end;
{$endif GDB}
{$endif WITHNODEDEBUG}
if assigned(left) then
secondpass(left);
{$ifdef GDB}
{$ifdef WITHNODEDEBUG}
if (cs_debuginfo in aktmoduleswitches) then
begin
cg.a_label(exprasmlist,withendlabel);
@ -449,7 +449,7 @@ implementation
freemem(pp,mangled_length+50);
dec(withlevel);
end;
{$endif GDB}
{$endif WITHNODEDEBUG}
end;
@ -882,7 +882,12 @@ begin
end.
{
$Log$
Revision 1.89 2004-03-02 00:36:33 olle
Revision 1.90 2004-04-21 17:39:40 jonas
- disabled with-symtable debugging code since it was broken and
at the same time confused the register allocator and therefore also
the optimizer. May be fixed in the future using dwarf support
Revision 1.89 2004/03/02 00:36:33 olle
* big transformation of Tai_[const_]Symbol.Create[data]name*
Revision 1.88 2004/02/27 10:21:05 florian