|
@@ -1283,33 +1283,6 @@ implementation
|
|
|
float(intvalue) will convert rather than re-interpret the value) }
|
|
|
end;
|
|
|
|
|
|
-{$ifndef nounsupported}
|
|
|
- { 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_class_2_intf,
|
|
|
- tc_array_2_dynarray] then
|
|
|
- begin
|
|
|
- result:=false;
|
|
|
- exit;
|
|
|
- end;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { Todo:
|
|
|
- * int to set and vice versa
|
|
|
- * set to float and vice versa (via int) (maybe)
|
|
|
- * regular array of primitive to primitive and vice versa (maybe)
|
|
|
- * packed record to primitive and vice versa (maybe)
|
|
|
- Definitely not:
|
|
|
- * unpacked record to anything and vice versa (no alignment rules
|
|
|
- for Java)
|
|
|
- }
|
|
|
{ anything not explicitly handled is a problem }
|
|
|
result:=true;
|
|
|
CGMessage2(type_e_illegal_type_conversion,left.resultdef.typename,resultdef.typename);
|