From 4ec83f8276d50257139a9e2969eab7f34570c129 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 10 Jan 2007 15:29:41 +0000
Subject: add passing Reals using foreign export

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1634 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/instructions.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'backendC/CleanCompilerSources')

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;
 			
-- 
cgit v1.2.3