paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 19:39:31 +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) }
{ 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 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
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
tg.gethltemp(current_asmdata.CurrAsmList,resultdef,(tarraydef(resultdef).highrange+1)*elesize,tt_normal,location.reference);
href:=location.reference;