diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-05-21 06:24:12 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-05-21 06:24:12 +0000 |
commit | 6b514f6bef66f0f2076abe717952114846a93bd7 (patch) | |
tree | aed93ed6633dc1187c753cbb707742b54e8bcaab /rtl/wince | |
parent | 7e55140acd3e4d244943c318a1eaca101f54c688 (diff) | |
download | fpc-6b514f6bef66f0f2076abe717952114846a93bd7.tar.gz |
* more fpc_lib_exit change compilation fixes
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42112 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/wince')
-rw-r--r-- | rtl/wince/system.pp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rtl/wince/system.pp b/rtl/wince/system.pp index c0631616af..eeadccf260 100644 --- a/rtl/wince/system.pp +++ b/rtl/wince/system.pp @@ -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; |