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

* ppc compilation fixed

Browse Source
This commit is contained in:
florian 2002-08-31 12:43:31 +00:00
parent 048c281e79
commit 5380652cad
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/powerpc/agppcmpw.pas
View File

@ -23,7 +23,7 @@
{ {
This unit implements an asmoutput class for PowerPC with MPW syntax This unit implements an asmoutput class for PowerPC with MPW syntax
} }
unit agppcmpwt; unit agppcmpw;
{$i fpcdefs.inc} {$i fpcdefs.inc}
@ -739,7 +739,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.1 2002-08-20 21:40:44 florian Revision 1.2 2002-08-31 12:43:31 florian
* ppc compilation fixed
Revision 1.1 2002/08/20 21:40:44 florian
+ target macos for ppc added + target macos for ppc added
+ frame work for mpw assembler output + frame work for mpw assembler output
} }

8
compiler/powerpc/cpupara.pas
View File

@ -42,6 +42,7 @@ unit cpupara;
uses uses
verbose, verbose,
globtype,
cpuinfo,cginfo, cpuinfo,cginfo,
symtype,defbase; symtype,defbase;
@ -186,7 +187,7 @@ unit cpupara;
LOC_REFERENCE: LOC_REFERENCE:
begin begin
hp.paraloc.size:=OS_32; hp.paraloc.size:=OS_32;
if push_addr_param(hp.paratype.def) or (hp.paratyp in [vs_var,vs_out]) then if push_addr_param(hp.paratype.def,p.proccalloption in [pocall_cdecl,pocall_cppdecl]) or (hp.paratyp in [vs_var,vs_out]) then
begin begin
if nextintreg<=R_8 then if nextintreg<=R_8 then
begin begin
@ -227,7 +228,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.8 2002-08-18 10:42:38 florian Revision 1.9 2002-08-31 12:43:31 florian
* ppc compilation fixed
Revision 1.8 2002/08/18 10:42:38 florian
* remaining assembler writer bugs fixed, the errors in the * remaining assembler writer bugs fixed, the errors in the
system unit are inline assembler problems system unit are inline assembler problems