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

* bug on errors (file used after dispose !) fixed

Browse Source
This commit is contained in:
pierre 1998-11-06 09:45:40 +00:00
parent 47f406fc04
commit 6e816712fc
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/files.pas
View File

@ -956,14 +956,17 @@ unit files;
dispose(map); dispose(map);
if assigned(ppufile) then if assigned(ppufile) then
dispose(ppufile,done); dispose(ppufile,done);
ppufile:=nil;
if assigned(imports) then if assigned(imports) then
dispose(imports,done); dispose(imports,done);
imports:=nil;
{$ifndef VER0_99_8} {$ifndef VER0_99_8}
if assigned(scanner) then if assigned(scanner) then
pscannerfile(scanner)^.invalid:=true; pscannerfile(scanner)^.invalid:=true;
{$endif} {$endif}
if assigned(sourcefiles) then if assigned(sourcefiles) then
dispose(sourcefiles,done); dispose(sourcefiles,done);
sourcefiles:=nil;
used_units.done; used_units.done;
linkofiles.done; linkofiles.done;
linkstaticlibs.done; linkstaticlibs.done;
@ -981,8 +984,10 @@ unit files;
{$ifndef VER0_99_8} {$ifndef VER0_99_8}
if assigned(globalsymtable) then if assigned(globalsymtable) then
dispose(punitsymtable(globalsymtable),done); dispose(punitsymtable(globalsymtable),done);
globalsymtable:=nil;
if assigned(localsymtable) then if assigned(localsymtable) then
dispose(punitsymtable(localsymtable),done); dispose(punitsymtable(localsymtable),done);
localsymtable:=nil;
{$endif} {$endif}
inherited done; inherited done;
end; end;
@ -1027,7 +1032,10 @@ unit files;
end. end.
{ {
$Log$ $Log$
Revision 1.70 1998-11-03 11:33:14 peter Revision 1.71 1998-11-06 09:45:40 pierre
* bug on errors (file used after dispose !) fixed
Revision 1.70 1998/11/03 11:33:14 peter
+ search_unit arg to only search for sources + search_unit arg to only search for sources
Revision 1.69 1998/10/29 11:35:44 florian Revision 1.69 1998/10/29 11:35:44 florian

7
compiler/verbose.pas
View File

@ -249,7 +249,7 @@ begin
{ fix status } { fix status }
status.currentline:=aktfilepos.line; status.currentline:=aktfilepos.line;
status.currentcolumn:=aktfilepos.column; status.currentcolumn:=aktfilepos.column;
if assigned(current_module) and if assigned(current_module) and assigned(current_module^.sourcefiles) and
((current_module^.unit_index<>lastmoduleidx) or ((current_module^.unit_index<>lastmoduleidx) or
(aktfilepos.fileindex<>lastfileidx)) then (aktfilepos.fileindex<>lastfileidx)) then
begin begin
@ -428,7 +428,10 @@ end.
{ {
$Log$ $Log$
Revision 1.27 1998-10-28 18:26:24 pierre Revision 1.28 1998-11-06 09:45:41 pierre
* bug on errors (file used after dispose !) fixed
Revision 1.27 1998/10/28 18:26:24 pierre
* removed some erros after other errors (introduced by useexcept) * removed some erros after other errors (introduced by useexcept)
* stabs works again correctly (for how long !) * stabs works again correctly (for how long !)