aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2007-01-10 15:29:41 +0000
committerjohnvg2007-01-10 15:29:41 +0000
commit4ec83f8276d50257139a9e2969eab7f34570c129 (patch)
tree490990c2ddae522ff42917e5e1871428c4418d46 /backendC/CleanCompilerSources/instructions.c
parentremove //1.3 //3.1 (diff)
add passing Reals using foreign export
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1634 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index b1a07f1..603f9b8 100644
--- 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;