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

* fixed fake ansistring length() support

Browse Source 
git-svn-id: branches/jvmbackend@18514 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:06:14 +00:00
parent 50dd6489c4
commit 77707a447e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/jvm/njvminl.pas
View File

@ -557,6 +557,7 @@ implementation
{$ifndef nounsupported}
else if left.resultdef.typ=stringdef then
begin
result:=nil;
end
{$endif}
else
@ -578,7 +579,9 @@ implementation
{$ifndef nounsupported}
else if left.resultdef.typ=stringdef then
begin
thlcgjvm(hlcg).a_load_const_stack(current_asmdata.CurrAsmList,java_jlobject,0,R_ADDRESSREGISTER);
location_reset(location,LOC_REGISTER,OS_S32);
location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,s32inttype);
thlcgjvm(hlcg).a_load_const_reg(current_asmdata.CurrAsmList,s32inttype,0,location.register);
end
{$endif}
else