mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 20:39:58 +01:00
* fixed endian problem with tlocation.value/valueqword fields
This commit is contained in:
parent
df5e0bbfc6
commit
517e16dae7
@ -444,7 +444,11 @@ uses
|
||||
LOC_CREFERENCE,LOC_REFERENCE : (reference : treference);
|
||||
LOC_CONSTANT : (
|
||||
case longint of
|
||||
{$ifdef FPC_BIG_ENDIAN}
|
||||
1 : (_valuedummy,value : AWord);
|
||||
{$else FPC_BIG_ENDIAN}
|
||||
1 : (value : AWord);
|
||||
{$endif FPC_BIG_ENDIAN}
|
||||
{ can't do this, this layout depends on the host cpu. Use }
|
||||
{ lo(valueqword)/hi(valueqword) instead (JM) }
|
||||
{ 2 : (valuelow, valuehigh:AWord); }
|
||||
@ -852,7 +856,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.51 2003-05-16 16:26:05 jonas
|
||||
Revision 1.52 2003-05-24 16:02:01 jonas
|
||||
* fixed endian problem with tlocation.value/valueqword fields
|
||||
|
||||
Revision 1.51 2003/05/16 16:26:05 jonas
|
||||
* adapted for Peter's regvar fixes
|
||||
|
||||
Revision 1.50 2003/05/15 22:14:43 florian
|
||||
|
||||
Loading…
Reference in New Issue
Block a user