paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@2770 -
This commit is contained in:
yury 2006-03-05 20:44:23 +00:00
parent d48f512146
commit 1d58b572b5
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/systems/t_win.pas
View File

@ -1152,10 +1152,10 @@ begin
if apptype=app_gui then if apptype=app_gui then
begin begin
AppTypeStr:='--subsystem windows'; AppTypeStr:='--subsystem windows';
EntryStr:='--entry _DLLWinMainCRTStartup@12' EntryStr:='--entry _DLLWinMainCRTStartup'
end end
else else
EntryStr:='--entry _DLLMainCRTStartup@12'; EntryStr:='--entry _DLLMainCRTStartup';
if assigned(DLLImageBase) then if assigned(DLLImageBase) then
ImageBaseStr:='--image-base=0x'+DLLImageBase^; ImageBaseStr:='--image-base=0x'+DLLImageBase^;
if (cs_link_strip in aktglobalswitches) then if (cs_link_strip in aktglobalswitches) then

4
rtl/win32/system.pp
View File

@ -513,7 +513,7 @@ begin
end; 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 begin
IsConsole:=true; IsConsole:=true;
sysinstance:=_hinstance; sysinstance:=_hinstance;
@ -523,7 +523,7 @@ begin
end; 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 begin
IsConsole:=false; IsConsole:=false;
sysinstance:=_hinstance; sysinstance:=_hinstance;