* allow some more valid type conversions

git-svn-id: branches/jvmbackend@18546 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:09:16 +00:00
parent b60e50b2b0
commit 17db9ed895

View File

@ -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: