aboutsummaryrefslogtreecommitdiff
path: root/backendC
diff options
context:
space:
mode:
Diffstat (limited to 'backendC')
-rw-r--r--backendC/CleanCompilerSources/instructions.c8
1 files changed, 8 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index 603f9b8..b3a5f23 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -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;