Commit 3131b74b authored by John van Groningen's avatar John van Groningen
Browse files

add passing Reals using foreign export

parent 2450dc18
......@@ -3676,6 +3676,9 @@ static void print_foreign_export_type (TypeNode type)
if (symbol_p->symb_kind==int_type){
FPrintF (OutFile,"I");
return;
} else if (symbol_p->symb_kind==real_type){
FPrintF (OutFile,"R");
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