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

* fix compile problem for sparc

Browse Source
This commit is contained in:
mazen 2004-02-25 14:25:47 +00:00
parent d46a1171c2
commit 77473fed86
3 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/sparc/cpubase.pas
View File

@ -227,11 +227,12 @@ type
TLocation isn't used, because contains a lot of unnessary fields.
}
tparalocation = packed record
size : TCGSize;
Size : TCGSize;
{ The location type where the parameter is passed, usually
LOC_REFERENCE,LOC_REGISTER or LOC_FPUREGISTER
}
loc : TCGLoc;
Loc : TCGLoc;
LocHigh : TCGLoc;
{Word alignment on stack 4 --> 32 bit}
Alignment:Byte;
case TCGLoc of
@ -551,7 +552,10 @@ implementation
end.
{
$Log$
Revision 1.60 2004-01-12 22:11:39 peter
Revision 1.61 2004-02-25 14:25:47 mazen
* fix compile problem for sparc
Revision 1.60 2004/01/12 22:11:39 peter
* use localalign info for alignment for locals and temps
* sparc fpu flags branching added
* moved powerpc copy_valye_openarray to generic

7
compiler/sparc/cpupara.pas
View File

@ -103,6 +103,7 @@ implementation
if nr<1 then
InternalError(2002100806);
FillChar(GetIntParaLoc,SizeOf(TParaLocation),0);
result.lochigh:=LOC_INVALID;
Dec(nr);
with GetIntParaLoc do
begin
@ -239,6 +240,7 @@ implementation
{$ifndef cpu64bit}
if paraloc.size in [OS_64,OS_S64] then
begin
paraloc.lochigh:=LOC_REGISTER;
if side=callerside then
paraloc.register64.reglo:=NR_FUNCTION_RESULT64_LOW_REG
else
@ -294,7 +296,10 @@ begin
end.
{
$Log$
Revision 1.35 2003-11-10 19:05:50 peter
Revision 1.36 2004-02-25 14:25:47 mazen
* fix compile problem for sparc
Revision 1.35 2003/11/10 19:05:50 peter
* fixed alias/colouring > 255
Revision 1.34 2003/10/24 11:25:32 mazen

7
compiler/sparc/cpupi.pas
View File

@ -33,8 +33,6 @@ interface
type
TSparcProcInfo=class(tcgprocinfo)
private
maxpushedparasize : longint;
public
constructor create(aparent:tprocinfo);override;
procedure allocate_push_parasize(size:longint);override;
@ -89,7 +87,10 @@ begin
end.
{
$Log$
Revision 1.23 2004-01-12 22:11:39 peter
Revision 1.24 2004-02-25 14:25:47 mazen
* fix compile problem for sparc
Revision 1.23 2004/01/12 22:11:39 peter
* use localalign info for alignment for locals and temps
* sparc fpu flags branching added
* moved powerpc copy_valye_openarray to generic