Browse Source

* allow some more valid type conversions

git-svn-id: branches/jvmbackend@18546 -
Jonas Maebe 14 years ago
parent
commit
17db9ed895
1 changed files with 17 additions and 0 deletions
  1. 17 0
      compiler/jvm/njvmcnv.pas

+ 17 - 0
compiler/jvm/njvmcnv.pas

@@ -590,6 +590,23 @@ implementation
             result:=false;
             exit;
           end;
+
+        { non-literal type conversions }
+        if convtype in
+             [tc_char_2_string,
+              tc_char_2_chararray,
+              tc_string_2_string,
+              tc_string_2_chararray,
+              tc_real_2_real,
+              tc_proc_2_procvar,
+              tc_arrayconstructor_2_set,
+              tc_set_to_set,
+              tc_class_2_intf,
+              tc_array_2_dynarray] then
+          begin
+            result:=false;
+            exit;
+          end;
 {$endif}
 
         { Todo: