paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:09:16 +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. TLocation isn't used, because contains a lot of unnessary fields.
} }
tparalocation = packed record tparalocation = packed record
size : TCGSize; Size : TCGSize;
{ The location type where the parameter is passed, usually { The location type where the parameter is passed, usually
LOC_REFERENCE,LOC_REGISTER or LOC_FPUREGISTER LOC_REFERENCE,LOC_REGISTER or LOC_FPUREGISTER
} }
loc : TCGLoc; Loc : TCGLoc;
LocHigh : TCGLoc;
{Word alignment on stack 4 --> 32 bit} {Word alignment on stack 4 --> 32 bit}
Alignment:Byte; Alignment:Byte;
case TCGLoc of case TCGLoc of
@ -551,7 +552,10 @@ implementation
end. end.
{ {
$Log$ $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 * use localalign info for alignment for locals and temps
* sparc fpu flags branching added * sparc fpu flags branching added
* moved powerpc copy_valye_openarray to generic * moved powerpc copy_valye_openarray to generic

7
compiler/sparc/cpupara.pas
View File

@ -103,6 +103,7 @@ implementation
if nr<1 then if nr<1 then
InternalError(2002100806); InternalError(2002100806);
FillChar(GetIntParaLoc,SizeOf(TParaLocation),0); FillChar(GetIntParaLoc,SizeOf(TParaLocation),0);
result.lochigh:=LOC_INVALID;
Dec(nr); Dec(nr);
with GetIntParaLoc do with GetIntParaLoc do
begin begin
@ -239,6 +240,7 @@ implementation
{$ifndef cpu64bit} {$ifndef cpu64bit}
if paraloc.size in [OS_64,OS_S64] then if paraloc.size in [OS_64,OS_S64] then
begin begin
paraloc.lochigh:=LOC_REGISTER;
if side=callerside then if side=callerside then
paraloc.register64.reglo:=NR_FUNCTION_RESULT64_LOW_REG paraloc.register64.reglo:=NR_FUNCTION_RESULT64_LOW_REG
else else
@ -294,7 +296,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed alias/colouring > 255
Revision 1.34 2003/10/24 11:25:32 mazen Revision 1.34 2003/10/24 11:25:32 mazen

7
compiler/sparc/cpupi.pas
View File

@ -33,8 +33,6 @@ interface
type type
TSparcProcInfo=class(tcgprocinfo) TSparcProcInfo=class(tcgprocinfo)
private
maxpushedparasize : longint;
public public
constructor create(aparent:tprocinfo);override; constructor create(aparent:tprocinfo);override;
procedure allocate_push_parasize(size:longint);override; procedure allocate_push_parasize(size:longint);override;
@ -89,7 +87,10 @@ begin
end. end.
{ {
$Log$ $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 * use localalign info for alignment for locals and temps
* sparc fpu flags branching added * sparc fpu flags branching added
* moved powerpc copy_valye_openarray to generic * moved powerpc copy_valye_openarray to generic