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

* few small changes to add syscall support to M68k/Amiga target

Browse Source
This commit is contained in:
Károly Balogh 2004-05-12 13:21:09 +00:00
parent 40c6690206
commit 3175dd4c6b
3 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncal.pas
View File

@ -1243,7 +1243,7 @@ type
{$ifdef powerpc}
else
{ lib parameter has no special type but proccalloptions must be a syscall }
if (target_info.system=system_powerpc_morphos) and
if (target_info.system in [system_powerpc_morphos,system_m68k_amiga]) and
(procdefinition.proccalloption=pocall_syscall) then
begin
hiddentree:=cloadnode.create(tprocdef(procdefinition).libsym,tprocdef(procdefinition).libsym.owner);
@ -2050,7 +2050,10 @@ begin
end.
{
$Log$
Revision 1.232 2004-05-01 22:05:01 florian
Revision 1.233 2004-05-12 13:21:09 karoly
* few small changes to add syscall support to M68k/Amiga target
Revision 1.232 2004/05/01 22:05:01 florian
+ added lib support for Amiga/MorphOS syscalls
Revision 1.231 2004/03/14 20:07:13 peter

7
compiler/parser.pas
View File

@ -123,6 +123,8 @@ implementation
case target_info.system of
system_powerpc_morphos:
include(supported_calling_conventions,pocall_syscall);
system_m68k_amiga:
include(supported_calling_conventions,pocall_syscall);
end;
end;
@ -711,7 +713,10 @@ implementation
end.
{
$Log$
Revision 1.64 2004-04-28 15:19:03 florian
Revision 1.65 2004-05-12 13:21:09 karoly
* few small changes to add syscall support to M68k/Amiga target
Revision 1.64 2004/04/28 15:19:03 florian
+ syscall directive support for MorphOS added
Revision 1.63 2004/03/16 16:20:49 peter

11
compiler/pdecsub.pas
View File

@ -463,7 +463,7 @@ implementation
single_type(tt,hs1,false);
end;
if (target_info.system in [system_powerpc_morphos]) then
if (target_info.system in [system_powerpc_morphos,system_m68k_amiga]) then
begin
if (idtoken=_LOCATION) then
begin
@ -533,7 +533,7 @@ implementation
end;
pd.concatpara(nil,tt,vs,defaultvalue,false);
if (target_info.system in [system_powerpc_morphos]) then
if (target_info.system in [system_powerpc_morphos,system_m68k_amiga]) then
begin
if locationstr<>'' then
begin
@ -1162,7 +1162,7 @@ begin
internalerror(2003042614);
tprocdef(pd).forwarddef:=false;
{$ifdef powerpc}
if target_info.system=system_powerpc_morphos then
if target_info.system in [system_powerpc_morphos,system_m68k_amiga] then
begin
pd.has_paraloc_info:=true;
include(pd.procoptions,po_explicitparaloc);
@ -2238,7 +2238,10 @@ const
end.
{
$Log$
Revision 1.177 2004-05-11 22:52:48 olle
Revision 1.178 2004-05-12 13:21:09 karoly
* few small changes to add syscall support to M68k/Amiga target
Revision 1.177 2004/05/11 22:52:48 olle
* Moved import_implicit_external to symsym
Revision 1.176 2004/05/11 18:29:41 olle