diff --git a/compiler/systems/t_win.pas b/compiler/systems/t_win.pas index 8f3ad51fac..e69a1e71af 100644 --- a/compiler/systems/t_win.pas +++ b/compiler/systems/t_win.pas @@ -1152,10 +1152,10 @@ begin if apptype=app_gui then begin AppTypeStr:='--subsystem windows'; - EntryStr:='--entry _DLLWinMainCRTStartup@12' + EntryStr:='--entry _DLLWinMainCRTStartup' end else - EntryStr:='--entry _DLLMainCRTStartup@12'; + EntryStr:='--entry _DLLMainCRTStartup'; if assigned(DLLImageBase) then ImageBaseStr:='--image-base=0x'+DLLImageBase^; if (cs_link_strip in aktglobalswitches) then diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp index 4ac884a823..d02c84863a 100644 --- a/rtl/win32/system.pp +++ b/rtl/win32/system.pp @@ -513,7 +513,7 @@ begin end; -procedure _FPC_DLLMainCRTStartup(_hinstance,_dllreason,_dllparam:longint);stdcall;public name '_DLLMainCRTStartup@12'; +procedure _FPC_DLLMainCRTStartup(_hinstance,_dllreason,_dllparam:longint);stdcall;public name '_DLLMainCRTStartup'; begin IsConsole:=true; sysinstance:=_hinstance; @@ -523,7 +523,7 @@ begin end; -procedure _FPC_DLLWinMainCRTStartup(_hinstance,_dllreason,_dllparam:longint);stdcall;public name '_DLLWinMainCRTStartup@12'; +procedure _FPC_DLLWinMainCRTStartup(_hinstance,_dllreason,_dllparam:longint);stdcall;public name '_DLLWinMainCRTStartup'; begin IsConsole:=false; sysinstance:=_hinstance;