From 88ee1c38186dffdf8c78e4166978d2517837c238 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 19 Dec 2008 11:51:27 +0000
Subject: add OverloadedCaseNode, integer_denot and rational_denot

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1709 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/syntaxtr.t | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/backendC/CleanCompilerSources/syntaxtr.t b/backendC/CleanCompilerSources/syntaxtr.t
index e0e01a2..0c1d4a9 100644
--- a/backendC/CleanCompilerSources/syntaxtr.t
+++ b/backendC/CleanCompilerSources/syntaxtr.t
@@ -58,9 +58,13 @@ typedef enum {
 	int_type, bool_type, char_type, real_type,
 	file_type, string_type,world_type, procid_type,
 	redid_type,
-	Nr_Of_Basic_Types,		
+#ifdef CLEAN2
+	rational_denot,
+#else
+	Nr_Of_Basic_Types,
+#endif
 	int_denot, bool_denot, char_denot, real_denot,
-	Nr_Of_Basic_Denots,
+/*	Nr_Of_Basic_Denots, */ integer_denot,
 	string_denot,
 	fun_type, array_type, strict_array_type, unboxed_array_type, list_type, tuple_type, empty_type,
 #ifdef CLEAN2
@@ -75,6 +79,10 @@ typedef enum {
 	erroneous_symb
 } SymbKind;
 
+#ifdef CLEAN2
+# define Nr_Of_Basic_Types rational_denot
+#endif
+
 STRUCT (state,State){
 	union {
 		struct state *				sd_args;		/* for TupleState and ArrayState */
@@ -396,8 +404,9 @@ STRUCT (if_node_contents,IfNodeContents){
 #define node_else_node_id_ref_counts node_contents.contents_if->if_else_u.u_node_id_ref_counts
 
 typedef enum {
-	IfNode, NormalNode, SelectorNode, NodeIdNode, UpdateNode, MatchNode,						/* normal nodes */
-	SwitchNode, CaseNode, DefaultNode, PushNode, GuardNode, TupleSelectorsNode, FillUniqueNode	/* nodes in codegen */
+	IfNode, NormalNode, SelectorNode, NodeIdNode, UpdateNode, MatchNode,
+	SwitchNode, CaseNode, DefaultNode, PushNode, GuardNode, OverloadedCaseNode,
+	TupleSelectorsNode, FillUniqueNode
 } NodeKind;
 
 #define SELECTOR_U 2
-- 
cgit v1.2.3