paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 06:28:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more fpc_lib_exit change compilation fixes

Browse Source 
git-svn-id: trunk@42112 -
This commit is contained in:
Jonas Maebe 2019-05-21 06:24:12 +00:00
parent 769f85783a
commit 41f36233ea
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/android/sysandroid.inc
View File

@ -79,6 +79,8 @@ end;
procedure LibMainAndroid; external name 'FPC_LIB_MAIN_ANDROID';
procedure fpc_lib_exit_intern; external name 'FPC_LIB_EXIT';
procedure atexit(p: pointer); cdecl; external;
var
@ -101,7 +103,7 @@ begin
FpClose(_SaveStdOut);
FpClose(_SaveStdErr);
// Finalize the library
fpc_lib_exit;
fpc_lib_exit_intern;
// Close stdout and stderr if stdio has been closed
if ioclosed then
begin

4
rtl/wince/system.pp
View File

@ -789,6 +789,8 @@ var
_SS : Cardinal;
{$endif cpu386}
procedure fpc_lib_exit_intern; external name 'FPC_LIB_EXIT';
function Dll_entry : longbool;[public, alias : '_FPC_DLL_Entry'];
begin
IsLibrary:=true;
@ -813,7 +815,7 @@ begin
end;
DLL_PROCESS_DETACH :
begin
Fpc_Lib_Exit;
Fpc_Lib_Exit_intern;
if assigned(Dll_Process_Detach_Hook) then
Dll_Process_Detach_Hook(DllParam);
end;