From bdb6cf5561170bc251839b43dfafd13fd42060df Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:08:34 +0000
Subject: [PATCH]   * fixed uninitialised var-parameters in isrecordconv

git-svn-id: branches/jvmbackend@18538 -
---
 compiler/jvm/njvmcnv.pas | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/compiler/jvm/njvmcnv.pas b/compiler/jvm/njvmcnv.pas
index 0a10a54527..751c5d225d 100644
--- a/compiler/jvm/njvmcnv.pas
+++ b/compiler/jvm/njvmcnv.pas
@@ -654,14 +654,21 @@ implementation
     function isrecordconv(var res: boolean): boolean;
       begin
         if is_record(realtodef) then
-          result:=
-            (realfromdef=java_jlobject) or
-            (realfromdef=java_fpcbaserecordtype)
+          begin
+            result:=true;
+            res:=
+              (realfromdef=java_jlobject) or
+              (realfromdef=java_fpcbaserecordtype);
+          end
         else if is_record(realfromdef) then
-          result:=
-            (realtodef=java_jlobject) or
-            (realtodef=java_fpcbaserecordtype)
+          begin
+            result:=true;
+            res:=
+              (realtodef=java_jlobject) or
+              (realtodef=java_fpcbaserecordtype)
+          end
         else
+          result:=false;
       end;
 
     function isstringconv(var res: boolean): boolean;