added doxygen comments

[libfirm] / ir / ana2 / typalise.c

diff --git a/ir/ana2/typalise.c b/ir/ana2/typalise.c
index 71053ab..42e3e52 100644 (file)
--- a/ir/ana2/typalise.c
+++ b/ir/ana2/typalise.c
@@ -33,6 +33,7 @@
 # include "irnode_t.h"
 # include "irgwalk.h"
 # include "xmalloc.h"
+# include "gnu_ext.h"
 
 
 /*
@@ -52,19 +53,19 @@ static typalise_t *typalise_proj (ir_node*);
 */
 static typalise_t *ta_exact (type *tp)
 {
-  typalise_t *ta = (typalise_t*) xmalloc (sizeof (typalise_t));
+  typalise_t *ta = xmalloc (sizeof (typalise_t));
   ta->kind = type_exact;
   ta->res.type = tp;
   ta->id = ta_id ++;
 
-  assert (is_class_type (tp));
+  assert (is_Class_type (tp));
 
   return (ta);
 }
 
 static typalise_t *ta_types (lset_t *set)
 {
-  typalise_t *ta = (typalise_t*) xmalloc (sizeof (typalise_t));
+  typalise_t *ta = xmalloc (sizeof (typalise_t));
   ta->kind = type_types;
   ta->res.types = set;
   ta->id = ta_id ++;
@@ -74,12 +75,12 @@ static typalise_t *ta_types (lset_t *set)
 
 static typalise_t *ta_type (type *tp)
 {
-  typalise_t *ta = (typalise_t*) xmalloc (sizeof (typalise_t));
+  typalise_t *ta = xmalloc (sizeof (typalise_t));
   ta->kind = type_type;
   ta->res.type = tp;
   ta->id = ta_id ++;
 
-  assert (is_class_type (tp));
+  assert (is_Class_type (tp));
 
   return (ta);
 }
@@ -479,7 +480,7 @@ static typalise_t *typalise_proj (ir_node *proj)
       } else {
         /* ugh proj arg */
         type *tp = get_method_param_type (get_entity_type (meth), n);
-        if (is_pointer_type (tp)) {
+        if (is_Pointer_type (tp)) {
           tp = get_pointer_points_to_type (tp);
         }
 
@@ -553,10 +554,10 @@ typalise_t *typalise (ir_node *node)
     typalise_t *ta = NULL;
     type *tp = get_Cast_type (node);
 
-    if (is_pointer_type (tp)) {
+    if (is_Pointer_type (tp)) {
       tp = get_pointer_points_to_type (tp);
     }
-    assert (is_class_type (tp));
+    assert (is_Class_type (tp));
 
     ta = typalise (get_Cast_op (node));
 
@@ -595,24 +596,24 @@ typalise_t *typalise (ir_node *node)
     entity *ent = get_Sel_entity (node);
     type *tp = get_entity_type (ent);
 
-    if (is_method_type (tp)) {
+    if (is_Method_type (tp)) {
       tp = get_entity_type (ent);
       tp = get_method_res_type (tp, 0);
 
-      if (is_pointer_type (tp)) {
+      if (is_Pointer_type (tp)) {
         tp = get_pointer_points_to_type (tp);
       }
 
       res = ta_type (tp);
-    } else if (is_class_type (tp)) {
+    } else if (is_Class_type (tp)) {
       tp = get_entity_type (ent);
 
-      if (is_pointer_type (tp)) {
+      if (is_Pointer_type (tp)) {
         tp = get_pointer_points_to_type (tp);
       }
 
       res = ta_type (tp);
-    } else if (is_pointer_type (tp)) {
+    } else if (is_Pointer_type (tp)) {
       tp = get_pointer_points_to_type (tp);
       res = ta_type (tp);
     } else {
@@ -676,11 +677,12 @@ typalise_t *typalise (ir_node *node)
       entity *ent = get_SymConst_entity (node);
       type *tp = get_entity_type (ent);
       tp = get_pointer_points_to_type (tp);
-      assert (is_class_type (tp));
+      assert (is_Class_type (tp));
 
       res = ta_type (tp);       /* can't use ta_exact */
     } else {
-      fprintf (stdout, "can't handle SymConst %s?\n",
+      fprintf (stdout, "%s (%s:%i): can't handle SymConst %s?\n",
+               __FUNCTION__, __FILE__, __LINE__,
                get_op_name (get_irn_op (node)));
       res = NULL;
     }
@@ -706,6 +708,18 @@ typalise_t *typalise (ir_node *node)
 \f
 /*
   $Log$
+  Revision 1.8  2005/01/14 14:13:24  liekweg
+  fix gnu extension
+
+  Revision 1.7  2005/01/10 17:26:34  liekweg
+  fixup printfs, don't put environments on the stack
+
+  Revision 1.6  2005/01/05 14:25:54  beck
+  renames all is_x*_type() functions to is_X*_type() to prevent name clash with EDG fronten
+
+  Revision 1.5  2004/12/22 14:43:14  beck
+  made allocations C-like
+
   Revision 1.4  2004/12/21 15:50:18  beck
   removed C99 constructs