Don't now what changed...

:wq

[r150]

diff --git a/ir/ir/ircons.h b/ir/ir/ircons.h
index 8472af6..4cbdc3e 100644 (file)
--- a/ir/ir/ircons.h
+++ b/ir/ir/ircons.h
@@ -263,7 +263,7 @@
  *    To use the functionality of the comfortable interface correctly the Front
  *    End needs to follow certain protocols.  This is explained in the following.
  *    To build a correct IR with the other interfaces study the semantics of
- *    the firm node (See tech-reprot UKA 1999-44).  For the construction of
+ *    the firm node (See tech-reprot UKA 1999-14).  For the construction of
  *    types and entities see the documentation in those modules.
  *
  *    First the Frontend needs to decide which variables and values used in
@@ -327,13 +327,13 @@
  *    add_in_edge(this_block, cf_pred1);
  *    add_in_edge(this_block, cf_pred2);
  *    mature_block(this_block);
- *    a_val = get_value(17, mode_I);
+ *    a_val = get_value(42, mode_I);
  *    mem = get_store();
  *    div = new_Div(mem, a_val, a_val);
  *    mem = new_Proj(div, mode_M, 0);   * for the numbers for Proj see docu *
  *    res = new_Proj(div, mode_I, 2);
  *    set_store(mem);
- *    set_value(res, 17);
+ *    set_value(res, 42);
  *    cf_op = new_Jmp();
  *
  *    For further information look at the documentation of the nodes and

diff --git a/ir/ir/irdump.c b/ir/ir/irdump.c
index b9384b6..129d256 100644 (file)
--- a/ir/ir/irdump.c
+++ b/ir/ir/irdump.c
@@ -499,6 +499,7 @@ dump_type_info (type_or_ent *tore, void *env) {
     } break;
   case k_type:
     {
+      /* why can't I cast here??? @@@ */
       type *type = tore;
       xfprintf (F, "\"%I %I", get_type_tpop_nameid(type), get_type_nameid(type));
 
@@ -530,10 +531,10 @@ dump_type_info (type_or_ent *tore, void *env) {
       case tpo_union:
        {
          xfprintf (F, "\"}\n");
-         for (i = 0; i < get_union_n_types(type); i++)
+         for (i = 0; i < get_union_n_members(type); i++)
            xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
-                     "label: \"%I\"f" UNION_EDGE_ATTR "}\n",
-                     type, get_union_unioned_type(type, i), get_union_delim_nameid(type, i));
+                     "label: \"\"f" UNION_EDGE_ATTR "}\n",
+                     type, get_union_member(type, i));
        } break;
       case tpo_array:
        {

diff --git a/ir/ir/irmode.h b/ir/ir/irmode.h
index 09a1eca..08a838f 100644 (file)
--- a/ir/ir/irmode.h
+++ b/ir/ir/irmode.h
@@ -6,12 +6,12 @@
 irmode.h Modes for ir operators.
 
 This module specifies the modes that type the firm nodes.  See
-UKA tech report 1999-44 for more information about modes.
+UKA tech report 1999-14 for more information about modes.
 
 
 @@@ This file is at the level of the original fiasco.  It needs to be ported
-to the version of the tech report!!! This will be done with the reimplementation
-of the tarval module.
+to the version of the tech report!!! This will be done with the
+reimplementation of the tarval module.
 */
 
 # ifndef _IRMODE_H_
@@ -30,14 +30,14 @@ typedef struct tarval tarval;
 
 typedef enum { /* irm is short for `ir mode' */
   irm_T,                        /* former irm_N */
-  irm_f, irm_d,
-  irm_c, irm_C, irm_h, irm_H, irm_i, irm_I, irm_l, irm_L,
-  irm_B, irm_b,
+  irm_f, irm_d,                 /* 1, 2 */
+  irm_c, irm_C, irm_h, irm_H, irm_i, irm_I, irm_l, irm_L, /* 3 .. 10 */
+  irm_B, irm_b,                 /* 11, 12 */
   irm_p,
-  irm_s, irm_S,
+  irm_s, irm_S,                 /* 14, 15 */
   irm_X, irm_M, irm_R, irm_Z,
   irm_max
-  /*  according to tech report 1999-44:
+  /*  according to tech report 1999-14:
   irm_BB, irm_X,                 // basic block, execution
   irm_F, irm_D, irm_E,           // float, double, extended
   irm_B, irm_Bu, irm_H, irm_Hu, irm_I, irm_Iu, irm_L, irm_Lu,

diff --git a/ir/ir/irop.h b/ir/ir/irop.h
index 6ad92f6..96dddcf 100644 (file)
--- a/ir/ir/irop.h
+++ b/ir/ir/irop.h
@@ -7,7 +7,8 @@
 **  irop.h  operators of firm nodes
 **
 **  This module specifies the opcodes possible for ir nodes.  Their
-**  definition is close to the operations specified in UKA Tech-Report 1999-44
+**  definition is close to the operations specified in UKA Tech-Report
+**  1999-14
 **
 */