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

* DLL crash fixed : ExitProcess can not be called in DLL system_exit

Browse Source 
Problem : Halt or RunError code inside DLL will return to caller !!
  * Changed the "if h<4 then" into "if do_isdevice(h) then " in do_close
    to avoid closing of standard files
This commit is contained in:
pierre 2000-01-18 09:03:04 +00:00
parent 206ae47ad5
commit 5cf8dc7d80
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/win32/syswin32.pp
View File

@ -330,10 +330,15 @@ begin
if p[i]='/' then p[i]:='\'; if p[i]='/' then p[i]:='\';
end; end;
function do_isdevice(handle:longint):boolean;
begin
do_isdevice:=(getfiletype(handle)=2);
end;
procedure do_close(h : longint); procedure do_close(h : longint);
begin begin
if H<=4 then if do_isdevice(h) then
exit; exit;
CloseHandle(h); CloseHandle(h);
end; end;
@ -549,11 +554,6 @@ begin
end; end;
function do_isdevice(handle:longint):boolean;
begin
do_isdevice:=(getfiletype(handle)=2);
end;
{***************************************************************************** {*****************************************************************************
@ -751,6 +751,11 @@ end;
*****************************************************************************} *****************************************************************************}
Procedure system_exit; Procedure system_exit;
begin begin
{ don't call ExitProcess inside
the DLL exit code !!
This crashes Win95 at least PM }
if IsLibrary then
Exit;
if not IsConsole then if not IsConsole then
begin begin
Close(stderr); Close(stderr);
@ -1161,7 +1166,13 @@ end.
{ {
$Log$ $Log$
Revision 1.56 2000-01-16 23:05:03 peter Revision 1.57 2000-01-18 09:03:04 pierre
* DLL crash fixed : ExitProcess can not be called in DLL system_exit
Problem : Halt or RunError code inside DLL will return to caller !!
* Changed the "if h<4 then" into "if do_isdevice(h) then " in do_close
to avoid closing of standard files
Revision 1.56 2000/01/16 23:05:03 peter
* fixed typo * fixed typo
Revision 1.55 2000/01/16 22:25:38 peter Revision 1.55 2000/01/16 22:25:38 peter