Commit 55392d81 authored by John van Groningen's avatar John van Groningen
Browse files

add support for strings in foreign export

parent 72a3840a
......@@ -3679,6 +3679,14 @@ static void print_foreign_export_type (TypeNode type)
} else if (symbol_p->symb_kind==real_type){
FPrintF (OutFile,"R");
return;
} else if (symbol_p->symb_kind==unboxed_array_type){
TypeNode type_node_p;
type_node_p=type->type_node_arguments->type_arg_node;
if (!type_node_p->type_node_is_var && type_node_p->type_node_symbol->symb_kind==char_type){
FPrintF (OutFile,"S");
return;
}
} else if (symbol_p->symb_kind==tuple_type){
TypeArgs type_arg_p;
......
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