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