paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 00:40:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed MorphOS syscall without parameters

Browse Source
This commit is contained in:
florian 2004-05-01 22:38:13 +00:00
parent e8098f6b71
commit 5a510e7438
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pdecsub.pas
View File

@ -468,7 +468,7 @@ implementation
begin begin
if explicit_paraloc then if explicit_paraloc then
Message(parser_e_paraloc_all_paras); Message(parser_e_paraloc_all_paras);
locationstr:=''; locationstr:='';
end; end;
end end
else else
@ -1158,6 +1158,8 @@ begin
{$ifdef powerpc} {$ifdef powerpc}
if target_info.system=system_powerpc_morphos then if target_info.system=system_powerpc_morphos then
begin begin
pd.has_paraloc_info:=true;
include(pd.procoptions,po_explicitparaloc);
if consume_sym(sym,symtable) then if consume_sym(sym,symtable) then
begin begin
if (sym.typ=varsym) and if (sym.typ=varsym) and
@ -2215,7 +2217,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.170 2004-05-01 22:05:01 florian Revision 1.171 2004-05-01 22:38:13 florian
* fixed MorphOS syscall without parameters
Revision 1.170 2004/05/01 22:05:01 florian
+ added lib support for Amiga/MorphOS syscalls + added lib support for Amiga/MorphOS syscalls
Revision 1.169 2004/04/29 21:10:13 florian Revision 1.169 2004/04/29 21:10:13 florian