paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added framework code for AmigaOS/PPC syscall support

Browse Source 
git-svn-id: trunk@2239 -
This commit is contained in:
Károly Balogh 2006-01-09 08:58:30 +00:00
parent 6aced9e534
commit b718d9ff37
4 changed files with 31 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/parser.pas
View File

@ -119,6 +119,8 @@ implementation
{ target specific stuff }
case target_info.system of
system_powerpc_amiga:
include(supported_calling_conventions,pocall_syscall);
system_powerpc_morphos:
include(supported_calling_conventions,pocall_syscall);
system_m68k_amiga:

24
compiler/pdecsub.pas
View File

@ -1314,7 +1314,7 @@ var
symtable : tsymtable;
{$endif defined(powerpc) or defined(m68k)}
begin
if pd.deftype<>procdef then
if (pd.deftype<>procdef) and (target_info.system <> system_powerpc_amiga) then
internalerror(2003042614);
tprocdef(pd).forwarddef:=false;
{$ifdef m68k}
@ -1343,10 +1343,20 @@ begin
end;
(paramanager as tm68kparamanager).create_funcretloc_info(pd,calleeside);
(paramanager as tm68kparamanager).create_funcretloc_info(pd,callerside);
tprocdef(pd).extnumber:=get_intconst;
end;
{$endif m68k}
{$ifdef powerpc}
if target_info.system in [system_powerpc_morphos] then
if target_info.system = system_powerpc_amiga then
begin
include(pd.procoptions,po_syscall_sysv);
(paramanager as tppcparamanager).create_funcretloc_info(pd,calleeside);
(paramanager as tppcparamanager).create_funcretloc_info(pd,callerside);
end else
if target_info.system = system_powerpc_morphos then
begin
if idtoken=_LEGACY then
begin
@ -1366,7 +1376,7 @@ begin
else if idtoken=_SYSVBASE then
begin
consume(_SYSVBASE);
include(pd.procoptions,po_syscall_sysvbase);
include(pd.procoptions,po_syscall_sysvbase);
end
else if idtoken=_R12BASE then
begin
@ -1430,9 +1440,10 @@ begin
end;
(paramanager as tppcparamanager).create_funcretloc_info(pd,calleeside);
(paramanager as tppcparamanager).create_funcretloc_info(pd,callerside);
tprocdef(pd).extnumber:=get_intconst;
end;
{$endif powerpc}
tprocdef(pd).extnumber:=get_intconst;
end;
@ -1802,7 +1813,10 @@ const
mutexclpo : [po_external]
),(
idtok:_SYSCALL;
pd_flags : [pd_interface,pd_implemen,pd_notobject,pd_notobjintf];
{ Different kind of syscalls are valid for AOS68k, AOSPPC and MOS. }
{ FIX ME!!! MorphOS/AOS68k pd_flags should be:
pd_interface, pd_implemen, pd_notobject, pd_notobjintf (KB) }
pd_flags : [pd_interface,pd_implemen,pd_procvar];
handler : @pd_syscall;
pocall : pocall_syscall;
pooption : [];

8
compiler/powerpc/nppccal.pas
View File

@ -68,6 +68,14 @@ implementation
tmpref: treference;
begin
case target_info.system of
system_powerpc_amiga:
begin
// one syscall convention for Amiga/PowerPC
// which is quite standard
extra_call_code;
cg.a_call_name(exprasmlist,tprocdef(procdefinition).mangledname);
extra_post_call_code;
end;
system_powerpc_morphos:
begin
if (po_syscall_sysv in tprocdef(procdefinition).procoptions) or

2
compiler/scandir.pas
View File

@ -914,6 +914,8 @@ implementation
begin
{ not needed on amiga/m68k for now, because there's only one }
{ syscall convention (legacy) (KB) }
{ not needed on amiga/powerpc because there's only one }
{ syscall convention (sysv) (KB) }
if not (target_info.system in [system_powerpc_morphos]) then
comment (V_Warning,'Syscall directive is useless on this target.');
current_scanner.skipspace;