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

* fixed comparing pointers on the JVM target: typecast both to JLObject rather

Browse Source 
than to pchar, since all pointers are compatible with the former but not with
    the latter

git-svn-id: branches/jvmbackend@18908 -
This commit is contained in:
Jonas Maebe 2011-08-29 22:59:15 +00:00
parent 10c586146a
commit b570ddf010
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nadd.pas
View File

@ -1476,8 +1476,13 @@ implementation
{ a voidpointer of 8 bytes). A conversion to voidpointer would be }
{ optimized away, since the result already was a voidpointer, so }
{ use a charpointer instead (JM) }
{$ifndef jvm}
inserttypeconv_internal(left,charpointertype);
inserttypeconv_internal(right,charpointertype);
{$else jvm}
inserttypeconv_internal(left,java_jlobject);
inserttypeconv_internal(right,java_jlobject);
{$endif jvm}
end;
ltn,lten,gtn,gten:
begin