Browse Source

* Changed Win32 DLL entry point names (removed @12 at the end).

git-svn-id: trunk@2770 -
yury 19 years ago
parent
commit
1d58b572b5
2 changed files with 4 additions and 4 deletions
  1. 2 2
      compiler/systems/t_win.pas
  2. 2 2
      rtl/win32/system.pp

+ 2 - 2
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

+ 2 - 2
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;