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

* truncate indices into arrays from 64 to 32 bit on 32 bit

Browse Source 
platforms so that their code generators don't get 64 bit
    operands (fixes internalerrors on at least ppc32  after r20108)

git-svn-id: trunk@20132 -
This commit is contained in:
Jonas Maebe 2012-01-20 22:43:55 +00:00
parent 77197cdc39
commit ab9b52a003
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nmem.pas
View File

@ -849,7 +849,16 @@ implementation
(tarraydef(left.resultdef).highrange<>torddef(htype).high)) then
{Convert array indexes to low_bound..high_bound.}
begin
if right.resultdef.typ=orddef then
if (right.resultdef.typ=orddef)
{$ifndef cpu64bitaddr}
{ do truncate 64 bit values on 32 bit cpus, since
a) the arrays cannot be > 32 bit anyway
b) their code generators can't directly handle 64 bit
loads
}
and not is_64bit(right.resultdef)
{$endif not cpu64bitaddr}
then
newordtyp:=Torddef(right.resultdef).ordtype
else
newordtyp:=torddef(ptrsinttype).ordtype;