mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-20 10:20:03 +02:00
(belongs together with r503)
* the 'main' procedure for darwin is now placed in the main program instead of in the system unit + ability to rename this 'main' symbol (-XM<x>, e.g. -XMSDL_main for SDL), for all OS'es + mention the -Xm parameter in the help git-svn-id: trunk@541 -
This commit is contained in:
parent
216215e737
commit
37fcf95f90
@ -1570,7 +1570,8 @@ implementation
|
|||||||
var
|
var
|
||||||
href : treference;
|
href : treference;
|
||||||
paraloc1,
|
paraloc1,
|
||||||
paraloc2 : tcgpara;
|
paraloc2,
|
||||||
|
paraloc3 : tcgpara;
|
||||||
hp : tused_unit;
|
hp : tused_unit;
|
||||||
begin
|
begin
|
||||||
paraloc1.init;
|
paraloc1.init;
|
||||||
@ -1615,6 +1616,12 @@ implementation
|
|||||||
cg.deallocallcpuregisters(list);
|
cg.deallocallcpuregisters(list);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
if (target_info.system = system_powerpc_darwin) then
|
||||||
|
begin
|
||||||
|
{ the parameters are already in the right registers }
|
||||||
|
cg.a_call_name(list,target_info.cprefix+'FPC_SYSTEMMAIN');
|
||||||
|
end;
|
||||||
|
|
||||||
{ initialize units }
|
{ initialize units }
|
||||||
cg.allocallcpuregisters(list);
|
cg.allocallcpuregisters(list);
|
||||||
cg.a_call_name(list,'FPC_INITIALIZEUNITS');
|
cg.a_call_name(list,'FPC_INITIALIZEUNITS');
|
||||||
|
Loading…
Reference in New Issue
Block a user