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

* fixed tlocation record again for big endian

Browse Source 
* fixed (currently unused) saved_standard_registers array
This commit is contained in:
Jonas Maebe 2004-10-26 18:22:04 +00:00
parent c0b4a9026c
commit 0a32b9a526
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/powerpc/cpubase.pas
View File

@ -323,7 +323,11 @@ uses
LOC_CREFERENCE,LOC_REFERENCE : (reference : treference); LOC_CREFERENCE,LOC_REFERENCE : (reference : treference);
LOC_CONSTANT : ( LOC_CONSTANT : (
case longint of case longint of
1 : (value : AInt); {$ifdef FPC_BIG_ENDIAN}
1 : (_valuedummy,value : aint);
{$else FPC_BIG_ENDIAN}
1 : (value : aint);
{$endif FPC_BIG_ENDIAN}
{ can't do this, this layout depends on the host cpu. Use } { can't do this, this layout depends on the host cpu. Use }
{ lo(valueqword)/hi(valueqword) instead (JM) } { lo(valueqword)/hi(valueqword) instead (JM) }
{ overlay a complete 64 Bit value } { overlay a complete 64 Bit value }
@ -436,9 +440,10 @@ uses
This value can be deduced from CALLED_USED_REGISTERS array in the This value can be deduced from CALLED_USED_REGISTERS array in the
GCC source. GCC source.
} }
saved_standard_registers : array[0..16] of tsuperregister = ( saved_standard_registers : array[0..18] of tsuperregister = (
RS_R13,RS_R14,RS_R15,RS_R16,RS_R17,RS_R18,RS_R19, RS_R13,RS_R14,RS_R15,RS_R16,RS_R17,RS_R18,RS_R19,
RS_R20,RS_R21,RS_R22,RS_R23,RS_R24,RS_R25,RS_R26,RS_R27,RS_R28,RS_R29 RS_R20,RS_R21,RS_R22,RS_R23,RS_R24,RS_R25,RS_R26,RS_R27,RS_R28,RS_R29,
RS_R30,RS_R31
); );
{# Required parameter alignment when calling a routine declared as {# Required parameter alignment when calling a routine declared as
@ -637,7 +642,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.90 2004-10-25 15:36:47 peter Revision 1.91 2004-10-26 18:22:04 jonas
* fixed tlocation record again for big endian
* fixed (currently unused) saved_standard_registers array
Revision 1.90 2004/10/25 15:36:47 peter
* save standard registers moved to tcgobj * save standard registers moved to tcgobj
Revision 1.89 2004/06/20 08:55:32 florian Revision 1.89 2004/06/20 08:55:32 florian