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

* closes all handles >+ 5

Browse Source
This commit is contained in:
pierre 1999-05-19 16:54:21 +00:00
parent 1316bbd21f
commit 7de70e2804
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/go32v2/system.pp
View File

@ -528,16 +528,16 @@ begin
end;
{$ifdef SYSTEMDEBUG}
{ Keep Track of open files }
const
max_files = 50;
free_closed_names : boolean = true;
var
opennames : array [0..max_files-1] of pchar;
openfiles : array [0..max_files-1] of boolean;
{$ifdef SYSTEMDEBUG}
opennames : array [0..max_files-1] of pchar;
const
free_closed_names : boolean = true;
{$endif SYSTEMDEBUG}
{*****************************************************************************
@ -546,17 +546,21 @@ end;
procedure ___exit(exitcode:byte);cdecl;external name '___exit';
procedure do_close(handle : longint);forward;
Procedure system_exit;
{$ifdef SYSTEMDEBUG}
var
h : byte;
{$endif SYSTEMDEBUG}
begin
{$ifdef SYSTEMDEBUG}
for h:=0 to max_files-1 do
if openfiles[h] then
writeln(stderr,'file ',opennames[h],' not closed at exit');
begin
{$ifdef SYSTEMDEBUG}
writeln(stderr,'file ',opennames[h],' not closed at exit');
{$endif SYSTEMDEBUG}
if h>=5 then
do_close(h);
end;
{ halt is not allways called !! }
{ not on normal exit !! PM }
set_pm_interrupt($00,old_int00);
@ -1250,7 +1254,10 @@ Begin
End.
{
$Log$
Revision 1.12 1999-05-17 21:52:33 florian
Revision 1.13 1999-05-19 16:54:21 pierre
* closes all handles >+ 5
Revision 1.12 1999/05/17 21:52:33 florian
* most of the Object Pascal stuff moved to the system unit
Revision 1.11 1999/05/04 23:28:40 pierre