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

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1636 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/check.icl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'frontend')

diff --git a/frontend/check.icl b/frontend/check.icl
index 5545db6..7611b84 100644
--- a/frontend/check.icl
+++ b/frontend/check.icl
@@ -2870,6 +2870,8 @@ checkForeignExportedFunctionTypes error_admin [{fe_fd_index}:icl_foreign_exports
 
 		check_foreign_export_type (TB BT_Int)
 			= True
+		check_foreign_export_type (TB BT_Real)
+			= True
 		check_foreign_export_type (TAS {type_arity,type_index={glob_object,glob_module}} arguments strictness)
 			= glob_module==cPredefinedModuleIndex && glob_object==PD_Arity2TupleTypeIndex+(type_arity-2)
 				&& first_n_are_strict type_arity strictness && check_foreign_export_types arguments
-- 
cgit v1.2.3