some fixes for xml dumper / still buggy.
[libfirm] / ir / common / firm_common.c
index 755c6f2..bf19450 100644 (file)
@@ -1,10 +1,10 @@
 /* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
-** All rights reserved.
-**
-** Authors: Martin Trapp, Christian Schaefer &
-**          Goetz Lindenmaier
-**
-** firm_common.c:
+* All rights reserved.
+*
+* Authors: Martin Trapp, Christian Schaefer &
+*          Goetz Lindenmaier
+*
+* firm_common.c:
 */
 
 /* $Id$ */
@@ -18,7 +18,7 @@
 
 /* returns the kind of the thing */
 firm_kind
-get_kind (void *firm_thing) {
+get_kind (const void *firm_thing) {
   assert (firm_thing);
   return *(firm_kind *)firm_thing;
 }
@@ -27,19 +27,14 @@ get_kind (void *firm_thing) {
 const char* print_firm_kind(void *firm_thing) {
   assert (firm_thing);
   switch (*(firm_kind *)firm_thing) {
-    case k_entity: { return "k_enitity"; } break;
-    case k_type: { return "k_type"; } break;
-#if 0
-    case k_type_class: { return "k_type_class"; } break;
-    case k_type_strct: { return "k_type_strct:"; } break;
-    case k_type_method: { return "k_type_method:"; } break;
-    case k_type_union: { return "k_type_union"; } break;
-    case k_type_array: { return "k_type_array"; } break;
-    case k_type_enumeration: { return "k_type_enumeration"; } break;
-    case k_type_pointer: { return "k_type_pointer"; } break;
-    case k_type_primitive: { return "k_type_primitive"; } break;
-#endif
-    case k_ir_node: { return "k_ir_node"; } break;
+    case k_entity  : { return "k_entity"  ;} break;
+    case k_type    : { return "k_type"    ;} break;
+    case k_ir_graph: { return "k_ir_graph";} break;
+    case k_ir_node : { return "k_ir_node" ;} break;
+    case k_ir_mode : { return "k_ir_mode" ;} break;
+    case k_ir_op   : { return "k_ir_op"   ;} break;
+    case k_tarval  : { return "k_tarval"  ;} break;
+    case k_ir_loop : { return "k_ir_loop" ;} break;
   default: break;
   }
   return "";