Browse Source

* fixed uninitialised var-parameters in isrecordconv

git-svn-id: branches/jvmbackend@18538 -
Jonas Maebe 14 years ago
parent
commit
bdb6cf5561
1 changed files with 13 additions and 6 deletions
  1. 13 6
      compiler/jvm/njvmcnv.pas

+ 13 - 6
compiler/jvm/njvmcnv.pas

@@ -654,14 +654,21 @@ implementation
     function isrecordconv(var res: boolean): boolean;
     function isrecordconv(var res: boolean): boolean;
       begin
       begin
         if is_record(realtodef) then
         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
         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
         else
+          result:=false;
       end;
       end;
 
 
     function isstringconv(var res: boolean): boolean;
     function isstringconv(var res: boolean): boolean;