Commit 88c77f14 authored by John van Groningen's avatar John van Groningen
Browse files

implement tuple result for foreign export / centry

parent ea619f25
......@@ -3547,6 +3547,14 @@ static void print_foreign_export_type (TypeNode type)
error_in_function ("print_foreign_export_type");
}
static void print_foreign_export_result_type (TypeNode type)
{
if (!type->type_node_is_var && type->type_node_symbol->symb_kind==tuple_type)
FPrintF (OutFile,"V");
print_foreign_export_type (type);
}
void GenerateForeignExports (struct foreign_export_list *foreign_export_list)
{
struct foreign_export_list *foreign_export_p;
......@@ -3567,7 +3575,7 @@ void GenerateForeignExports (struct foreign_export_list *foreign_export_list)
FPrintF (OutFile,":");
print_foreign_export_type (rule_type_p->type_alt_rhs);
print_foreign_export_result_type (rule_type_p->type_alt_rhs);
FPrintF (OutFile,"\"");
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment