add passing Reals using foreign export

3131b74b · John van Groningen · 2450dc18 · 3131b74b
Commit 3131b74b authored Jan 10, 2007 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

backendC/CleanCompilerSources/instructions.c backendC/CleanCompilerSources/instructions.c +3 -0

No files found.
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -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;