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

* reset_gdb_info -> reset_global_def becuase it also resets rangenr !

Browse Source
This commit is contained in:
peter 1998-10-16 08:50:02 +00:00
parent ce31428aa4
commit 39dc89f39f
1 changed files with 8 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/parser.pas
View File

@ -244,10 +244,6 @@ unit parser;
{ init code generator for a new module }
codegen_newmodule;
{$ifdef GDB}
if cs_debuginfo in aktmoduleswitches then
reset_gdb_info;
{$endif GDB}
{ Handle things which need to be once }
if (compile_level=1) then
@ -280,10 +276,6 @@ unit parser;
it's the default to release the trees }
codegen_donemodule;
{$ifdef GDB}
if cs_debuginfo in aktmoduleswitches then
reset_gdb_info;
{$endif GDB}
{ free ppu }
if assigned(current_module^.ppufile) then
@ -297,24 +289,16 @@ unit parser;
current_module^.scanner:=prev_scanner;
if assigned(prev_scanner) then
prev_scanner^.invalid:=true;
(* Peter I do not agree here because
most time current_scanner is from another unit !! PM
end;
{ free scanner, but it can already be freed due a 2nd compile }
if assigned(current_scanner) then
begin
dispose(current_scanner,done);
current_scanner:=nil;
end;
current_module^.scanner:=nil;
*)
{ free macros }
{!!! No check for unused macros yet !!! }
{!!! No check for unused macros yet !!! }
dispose(macros,done);
if (compile_level>1) then
begin
{ reset ranges/stabs in exported definitions }
reset_global_defs;
{ restore scanner }
c:=oldc;
pattern:=oldpattern;
@ -400,7 +384,10 @@ unit parser;
end.
{
$Log$
Revision 1.57 1998-10-08 17:17:23 pierre
Revision 1.58 1998-10-16 08:50:02 peter
* reset_gdb_info -> reset_global_def becuase it also resets rangenr !
Revision 1.57 1998/10/08 17:17:23 pierre
* current_module old scanner tagged as invalid if unit is recompiled
+ added ppheap for better info on tracegetmem of heaptrc
(adds line column and file index)