diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-04-28 17:52:06 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-04-28 17:52:06 +0000 |
commit | fa855a370954e4537b2e98f4d4ccf11ba18d5dfd (patch) | |
tree | cd615b87df8c29149016038d1ac3c24dfe10cefa /compiler/cgutils.pas | |
parent | 2edfb4251d4ddfb2eb75d378d1c6b5fb3e66ee1e (diff) | |
download | fpc-fa855a370954e4537b2e98f4d4ccf11ba18d5dfd.tar.gz |
* tlocation.value reverted back to longint on non 64-bit archs. This fixes the tset5.pp and tset5a.pp regressions on powerpc and probably other 32-bit platforms.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@24359 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/cgutils.pas')
-rw-r--r-- | compiler/cgutils.pas | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/compiler/cgutils.pas b/compiler/cgutils.pas index d15819fd66..a5fd081cc6 100644 --- a/compiler/cgutils.pas +++ b/compiler/cgutils.pas @@ -105,7 +105,15 @@ unit cgutils; {$endif cpuflags} LOC_CONSTANT : ( case longint of - 1 : (value : TCGInt); +{$ifdef cpu64bitalu} + 1 : (value : Int64); +{$else cpu64bitalu} + {$ifdef FPC_BIG_ENDIAN} + 1 : (_valuedummy,value : longint); + {$else FPC_BIG_ENDIAN} + 1 : (value : longint); + {$endif FPC_BIG_ENDIAN} +{$endif cpu64bitalu} 2 : (value64 : Int64); ); LOC_CREFERENCE, |