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

* big endian first allocates high

Browse Source
This commit is contained in:
peter 2003-07-06 22:10:56 +00:00
parent d03fd8f7e0
commit 6cd9e5efc7
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/sparc/cpupara.pas
View File

@ -148,15 +148,16 @@ implementation
if NextIntReg<=RS_O5-ord(is_64bit) then
begin
paraloc.loc:=LOC_REGISTER;
paraloc.registerlow.enum:=R_INTREGISTER;
paraloc.registerlow.number:=NextIntReg shl 8;
inc(NextIntReg);
{ big endian }
if is_64bit then
begin
paraloc.registerhigh.enum:=R_INTREGISTER;
paraloc.registerhigh.number:=nextintreg shl 8;
inc(nextintreg);
end;
paraloc.registerlow.enum:=R_INTREGISTER;
paraloc.registerlow.number:=NextIntReg shl 8;
inc(NextIntReg);
end
else
begin
@ -187,9 +188,10 @@ implementation
hp.calleeparaloc:=paraloc;
if hp.calleeparaloc.loc=LOC_REGISTER then
begin
inc(hp.calleeparaloc.registerlow.number,(RS_I0-RS_O0) shl 8);
if is_64bit then
inc(hp.calleeparaloc.registerhigh.number,(RS_I0-RS_O0) shl 8);
{ big endian }
if is_64bit then
inc(hp.calleeparaloc.registerhigh.number,(RS_I0-RS_O0) shl 8);
inc(hp.calleeparaloc.registerlow.number,(RS_I0-RS_O0) shl 8);
end
else
begin
@ -276,7 +278,10 @@ begin
end.
{
$Log$
Revision 1.24 2003-07-06 17:58:22 peter
Revision 1.25 2003-07-06 22:10:56 peter
* big endian first allocates high
Revision 1.24 2003/07/06 17:58:22 peter
* framepointer fixes for sparc
* parent framepointer code more generic