|
@@ -1239,7 +1239,10 @@ let rec gen_expression ctx retval expression =
|
|
if (retval) then begin
|
|
if (retval) then begin
|
|
gen_expression ctx true condition;
|
|
gen_expression ctx true condition;
|
|
output " ? ";
|
|
output " ? ";
|
|
- let type_str = (type_string expression.etype) in
|
|
|
|
|
|
+ let type_str = match (type_string expression.etype) with
|
|
|
|
+ | "Void" -> "Dynamic"
|
|
|
|
+ | other -> other
|
|
|
|
+ in
|
|
if ( true (*(type_string if_expr.etype) <> type_str*) ) then begin
|
|
if ( true (*(type_string if_expr.etype) <> type_str*) ) then begin
|
|
output (type_str ^ "( ");
|
|
output (type_str ^ "( ");
|
|
gen_expression ctx true if_expr;
|
|
gen_expression ctx true if_expr;
|