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