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

* small optimization for g_getarraylen

Browse Source 
git-svn-id: branches/jvmbackend@18648 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:21:10 +00:00
parent b65422cd59
commit 5ad5a6f326
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/jvm/hlcgcpu.pas
View File

@ -692,10 +692,8 @@ implementation
a_load_loc_stack(list,java_jlobject,arrloc); a_load_loc_stack(list,java_jlobject,arrloc);
list.concat(taicpu.op_none(a_dup)); list.concat(taicpu.op_none(a_dup));
incstack(list,1); incstack(list,1);
list.concat(taicpu.op_none(a_aconst_null)); list.concat(taicpu.op_sym(a_ifnull,nillab));
incstack(list,1); decstack(list,1);
list.concat(taicpu.op_sym(a_if_acmpeq,nillab));
decstack(list,2);
{ ... then result:=arraylength(arr) ... } { ... then result:=arraylength(arr) ... }
list.concat(taicpu.op_none(a_arraylength)); list.concat(taicpu.op_none(a_arraylength));