소스 검색

* fixed uninitialised var-parameters in isrecordconv

git-svn-id: branches/jvmbackend@18538 -
Jonas Maebe 14 년 전
부모
커밋
bdb6cf5561
1개의 변경된 파일13개의 추가작업 그리고 6개의 파일을 삭제
  1. 13 6
      compiler/jvm/njvmcnv.pas

+ 13 - 6
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;