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

* fixed compilation with -dnounsupported

Browse Source 
git-svn-id: branches/jvmbackend@18619 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:15:48 +00:00
parent 297f3d087d
commit d64f5d14d6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/jvm/njvmcnv.pas
View File

@ -917,8 +917,9 @@ implementation
{$ifndef nounsupported} {$ifndef nounsupported}
if checkdef.typ=procvardef then if checkdef.typ=procvardef then
checkdef:=java_jlobject checkdef:=java_jlobject
else
{$endif} {$endif}
else if is_wide_or_unicode_string(checkdef) then if is_wide_or_unicode_string(checkdef) then
checkdef:=java_jlstring checkdef:=java_jlstring
else if is_ansistring(checkdef) then else if is_ansistring(checkdef) then
checkdef:=java_ansistring checkdef:=java_ansistring