paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 03:58:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unnecessary JVM-specific code

Browse Source 
git-svn-id: trunk@27151 -
This commit is contained in:
Jonas Maebe 2014-03-16 11:24:32 +00:00
parent d46c353849
commit d8e228e82d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgld.pas
View File

@ -1192,9 +1192,11 @@ implementation
be sure that location is valid (PFV) } be sure that location is valid (PFV) }
{ on the JVM platform, an array can have 0 elements; since the length { on the JVM platform, an array can have 0 elements; since the length
of the array is part of the array itself, make sure we allocate one of the array is part of the array itself, make sure we allocate one
of the proper length to avoid getting unexpected results later } of the proper length to avoid getting unexpected results later --
allocating a temp of size 0 also forces it to be size 4 on regular
targets }
if tarraydef(resultdef).highrange=-1 then if tarraydef(resultdef).highrange=-1 then
tg.gethltemp(current_asmdata.CurrAsmList,resultdef,{$ifdef jvm}0{$else}elesize{$endif},tt_normal,location.reference) tg.gethltemp(current_asmdata.CurrAsmList,resultdef,0,tt_normal,location.reference)
else else
tg.gethltemp(current_asmdata.CurrAsmList,resultdef,(tarraydef(resultdef).highrange+1)*elesize,tt_normal,location.reference); tg.gethltemp(current_asmdata.CurrAsmList,resultdef,(tarraydef(resultdef).highrange+1)*elesize,tt_normal,location.reference);
href:=location.reference; href:=location.reference;