paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:49:20 +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; procedure tcgwithnode.pass_2;
{$ifdef GDB} {$ifdef WITHNODEDEBUG}
const const
withlevel : longint = 0; withlevel : longint = 0;
var var
@ -393,11 +393,11 @@ implementation
pp : pchar; pp : pchar;
mangled_length : longint; mangled_length : longint;
refnode : tnode; refnode : tnode;
{$endif GDB} {$endif WITHNODEDEBUG}
begin begin
location_reset(location,LOC_VOID,OS_NO); location_reset(location,LOC_VOID,OS_NO);
{$ifdef GDB} {$ifdef WITHNODEDEBUG}
if (cs_debuginfo in aktmoduleswitches) then if (cs_debuginfo in aktmoduleswitches) then
begin begin
{ load reference } { load reference }
@ -430,12 +430,12 @@ implementation
end; end;
withdebugList.concat(Tai_stabn.Create(strnew(pp))); withdebugList.concat(Tai_stabn.Create(strnew(pp)));
end; end;
{$endif GDB} {$endif WITHNODEDEBUG}
if assigned(left) then if assigned(left) then
secondpass(left); secondpass(left);
{$ifdef GDB} {$ifdef WITHNODEDEBUG}
if (cs_debuginfo in aktmoduleswitches) then if (cs_debuginfo in aktmoduleswitches) then
begin begin
cg.a_label(exprasmlist,withendlabel); cg.a_label(exprasmlist,withendlabel);
@ -449,7 +449,7 @@ implementation
freemem(pp,mangled_length+50); freemem(pp,mangled_length+50);
dec(withlevel); dec(withlevel);
end; end;
{$endif GDB} {$endif WITHNODEDEBUG}
end; end;
@ -882,7 +882,12 @@ begin
end. end.
{ {
$Log$ $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* * big transformation of Tai_[const_]Symbol.Create[data]name*
Revision 1.88 2004/02/27 10:21:05 florian Revision 1.88 2004/02/27 10:21:05 florian