mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 03:46:10 +02:00
* ppc compilation fixed
This commit is contained in:
parent
048c281e79
commit
5380652cad
@ -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
|
||||||
}
|
}
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user