Added walker to walk entities within a type
[libfirm] / ir / tr / type.h
index a73cf48..2b5ba80 100644 (file)
@@ -1,4 +1,4 @@
-/****h* libfirm/type
+/****h* libfirm/type6 2002/03/19 13:08:33
  *
  * NAME
  *   file type.h - datastructure to hold type information.
@@ -39,6 +39,7 @@
 # include "irmode.h"
 # include "bool.h"
 
+
 #ifndef _ENTITY_TYPEDEF_
 #define _ENTITY_TYPEDEF_
 /* to resolve recursion between entity.h and type.h */
@@ -93,6 +94,7 @@ typedef struct ir_node ir_node;
  *               A fixed layout for enumeration types means that each enumeration
  *               is associated with an implementation value.
  *  visit        A counter for walks of the type information.
+ *  link         A void* to associate some additional information with the type.
  *
  *  These fields can only be accessed via access functions.
  *
@@ -104,47 +106,56 @@ typedef struct ir_node ir_node;
  */
 typedef struct type type;
 
-void*       get_type_link(type *tp);
-void        set_type_link(type *tp, void *l);
+# include "type_or_entity.h"
+
+/* Frees the memory used by the type.   Does not free the entities
+   belonging to the type, except for the array element entity.  */
+void        free_type(type *tp);
+
 tp_op*      get_type_tpop(type *tp);
 ident*      get_type_tpop_nameid(type *tp);
 const char* get_type_tpop_name(type *tp);
 tp_opcode   get_type_tpop_code(type *tp);
 
-ir_mode*    get_type_mode(type *tp);
-void        set_type_mode(type *tp, ir_mode* m);
-
 ident*      get_type_ident(type *tp);
 void        set_type_ident(type *tp, ident* id);
 const char* get_type_name(type *tp);
 
-int         get_type_size(type *tp);
-/* For primitives and pointer types the size is always fixed.
-   This call is legal but has no effect. */
-void        set_type_size(type *tp, int size);
-
 typedef enum {
   layout_undefined,    /* The layout of this type is not defined.
                          Address computation to access fields is not
-                         possible, fields must be accessed by Sel nodes.
-                         This is the default value except for pointer and
-                         primitive types. */
+                         possible, fields must be accessed by Sel
+                         nodes.  This is the default value except for
+                         pointer, primitive and method types. */
   layout_fixed         /* The layout is fixed, all component/member entities
                          have an offset assigned.  Size of the type is known.
                          Arrays can be accessed by explicit address
-                         computation. Default for pointer and primitive types.
-                      */
+                         computation. Default for pointer, primitive ane method
+                         types.  */
 } type_state;
-
 type_state  get_type_state(type *tp);
-/* For primitives and pointer types the layout is always fixed.
+/* For primitives, pointer and method types the layout is always fixed.
    This call is legal but has no effect. */
 void        set_type_state(type *tp, type_state state);
 
+/* Returns NULL for all non atomic types. */
+ir_mode*    get_type_mode(type *tp);
+/* Only has an effect on primitive and enumeration types */
+void        set_type_mode(type *tp, ir_mode* m);
+
+int         get_type_size(type *tp);
+/* For primitive, enumeration, pointer and method types the size
+   is always fixed. This call is legal but has no effect. */
+void        set_type_size(type *tp, int size);
+
+
 unsigned long get_type_visited(type *tp);
 void        set_type_visited(type *tp, unsigned long num);
 /* Sets visited field in type to type_visited. */
 void        mark_type_visited(type *tp);
+
+void*       get_type_link(type *tp);
+void        set_type_link(type *tp, void *l);
 /*****/
 
 /****v* type/visited
@@ -178,6 +189,86 @@ extern unsigned long type_visited;
  */
 int is_type            (void *thing);
 
+/****f* type/equal_types
+ *
+ * NAME
+ *   equal_type - Checks whether two types are structural equal.
+ * SYNOPSIS
+ *   bool equal_types   (type *typ1, type *typ2);
+ * INPUTS
+ *   two pointer types
+ * RESULT
+ *   true if the types are equal, else false.
+ *   Types are equal if
+ *    - they are the same type kind
+ *    - they have the same name
+ *    - they have the same mode (if applicable)
+ *    - they have the same type_state and, ev., the same size
+ *    - they are class types and have
+ *      - the same members (see same_entity in entity.h)
+ *      - the same supertypes -- the C-pointers are compared --> no recursive call.
+ *      - the same number of subtypes.  Subtypes are not compared,
+ *        as this could cause a cyclic test.
+ *      - the same peculiarity
+ *    - they are structure types and have the same members
+ *    - they are method types and have
+ *      - the same parameter types
+ *      - the same result types
+ *    - they are union types and have the same members
+ *    - they are array types and have
+ *      - the same number of dimensions
+ *      - the same dimension bounds
+ *      - the same dimension order
+ *      - the same element type
+ *    - they are enumeration types and have the same enumerator names
+ *    - they are pointer types and have the identical points_to type
+ *      (i.e., the same C-struct to represent the type, type_id is skipped.
+ *       This is to avoid endless recursions; with pointer types circlic
+ *       type graphs are possible.)
+ *
+ ***
+ */
+bool equal_type(type *tpy1, type *typ2);
+
+/****f* type/smaller_type
+ *
+ * NAME
+ *   smaller_type - Checks whether two types are structural comparable.
+ * SYNOPSIS
+ *   bool smaller_type   (type *st, type *lt);
+ * INPUTS
+ *   two pointer type
+ * RESULT
+ *   true if type st is smaller than type lt, i.e. whenever
+ *   lt is expected a st can be used.
+ *   This is true if
+ *    - they are the same type kind
+ *    - mode(st) < mode (lt)  (if applicable)
+ *    - they are class types and st is (transitive) subtype of lt,
+ *    - they are structure types and
+ *       - the members of st have exactly one counterpart in lt with the same name,
+ *       - the counterpart has a bigger type.
+ *    - they are method types and have
+ *      - the same number of parameter and result types,
+ *      - the parameter types of st are smaller than those of lt,
+ *      - the result types of st are smaller than those of lt
+ *    - they are union types and have the members of st have exactly one
+ *      counterpart in lt and the type is smaller
+ *    - they are array types and have
+ *      - the same number of dimensions
+ *      - all bounds of lt are bound of st
+ *      - the same dimension order
+ *      - the same element type
+ *      or
+ *      - the element type of st is smaller than that of lt
+ *      - the element types have the same size and fixed layout.
+ *    - they are enumeration types and have the same enumerator names
+ *    - they are pointer types and have the points_to type of st is
+ *      smaller than the points_to type of lt.
+ ***
+ */
+bool smaller_type (type *st, type *lt);
+
 /****** type/class
  * NAME
  *  Representation of a class type.
@@ -199,6 +290,16 @@ int is_type            (void *thing);
  *
  *  These are dynamic lists that can be grown with an "add_" function,
  *  but not shrinked.
+ *
+ *  peculiarity The peculiarity of this class.  If the class is of peculiarity
+ *             "description" it only is a description of requirememts to a class,
+ *             as, e.g., a Java interface.  The class will never be allocated.
+ *             Peculiatity inherited is only possible for entities.  An entity
+ *             is of peculiarity inherited if the compiler generated the entity
+ *             to explicitly resolve inheritance.  An inherited method entity has
+ *             no value for irg.
+ *             Values: description, existent, inherited.  Default: existent.
+ *
  * SOURCE
  */
 /* create a new class type */
@@ -208,14 +309,20 @@ type   *new_type_class (ident *name);
 /* Adds the entity as member of the class.  */
 void    add_class_member   (type *clss, entity *member);
 /* Returns the number of members of this class. */
-int     get_class_n_member (type *clss);
+int     get_class_n_members (type *clss);
 /* Returns the member at position pos, 0 <= pos < n_member */
 entity *get_class_member   (type *clss, int pos);
 /* Overwrites the member at position pos, 0 <= pos < n_member with
    the passed entity. */
 void    set_class_member   (type *clss, entity *member, int pos);
-/* Finds member in the list of members and overwrites it with NULL
- @@@ Doesn't work properly. */
+/* Replaces complete member list in class type by the list passed.  Copies the
+   list passed. This function is necessary to reduce the number of members.
+   members is an array of entities, num the size of this array.  Sets all
+   owners of the members passed to clss. */
+void    set_class_members  (type *clss, entity **members, int arity);
+/* Finds member in the list of members and removes it.
+   Shrinks the member list, so iterate from the end!!!
+   Does not deallocate the entity.  */
 void    remove_class_member(type *clss, entity *member);
 
 
@@ -224,15 +331,14 @@ void    remove_class_member(type *clss, entity *member);
    adds also clss as supertype to subtype.  */
 void    add_class_subtype   (type *clss, type *subtype);
 /* Returns the number of subtypes */
-int     get_class_n_subtype (type *clss);
+int     get_class_n_subtypes (type *clss);
 /* Gets the subtype at position pos, 0 <= pos < n_subtype. */
 type   *get_class_subtype   (type *clss, int pos);
 /* Sets the subtype at positioin pos, 0 <= pos < n_subtype.  Does not
    set the corresponding supertype relation for subtype: this might
    be a different position! */
 void    set_class_subtype   (type *clss, type *subtype, int pos);
-/* Finds subtype in the list of subtypes and overwrites it with NULL
- @@@ Doesn't work properly. */
+/* Finds subtype in the list of subtypes and removes it  */
 void    remove_class_subtype(type *clss, type *subtype);
 
 
@@ -241,19 +347,42 @@ void    remove_class_subtype(type *clss, type *subtype);
    adds also clss as subtype to supertype.  */
 void    add_class_supertype   (type *clss, type *supertype);
 /* Returns the number of supertypes */
-int     get_class_n_supertype (type *clss);
+int     get_class_n_supertypes (type *clss);
 /* Gets the supertype at position pos,  0 <= pos < n_supertype. */
 type   *get_class_supertype   (type *clss, int pos);
 /* Sets the supertype at postition pos, 0 <= pos < n_subtype.  Does not
    set the corresponding subtype relation for supertype: this might
    be a different position! */
 void    set_class_supertype   (type *clss, type *supertype, int pos);
-/* Finds supertype in the list of supertypes and overwrites it with NULL
- @@@ Doesn't work properly. */
+/* Finds supertype in the list of supertypes and removes it */
 void    remove_class_supertype(type *clss, type *supertype);
 
+/* This enumeration flags the peculiarity of entities and types. */
+typedef enum peculiarity {
+  description,     /* Represents only a description.  The entity/type is never
+                     allocated, no code/data exists for this entity/type. */
+  inherited,       /* Describes explicitly that other entities are inherited
+                         to the owner of this entity.  Overwrites must refer to
+                         at least one other entity.  If this is a method entity
+                         there exists no irg for this entity, only for one of
+                         the overwritten ones. */
+  existent         /* The entity/type (can) exist. */
+} peculiarity;
+
+/* The peculiarity of the class.  The enumeration peculiarity is defined
+   in entity.h */
+INLINE peculiarity get_class_peculiarity (type *clss);
+INLINE void        set_class_peculiarity (type *clss, peculiarity pec);
+
+/* Set and get a class' dfn --
+   @@@ This is an undocumented field, subject to change! */
+void set_class_dfn (type*, int);
+int  get_class_dfn (type*);
+
 /* typecheck */
-bool    is_class_type(type *clss);
+bool is_class_type(type *clss);
+/* Returns true if low is subclass of high. */
+bool is_subclass_of(type *low, type *high);
 /*****/
 
 /****** type/struct
@@ -278,11 +407,10 @@ type   *new_type_struct (ident *name);
 
 /* manipulate private fields of struct */
 void    add_struct_member   (type *strct, entity *member);
-int     get_struct_n_member (type *strct);
+int     get_struct_n_members (type *strct);
 entity *get_struct_member   (type *strct, int pos);
 void    set_struct_member   (type *strct, int pos, entity *member);
-/* Finds member in the list of memberss and overwrites it with NULL
- @@@ Doesn't work properly. */
+/* Finds member in the list of memberss and removees it */
 void    remove_struct_member (type *strct, entity *member);
 
 /* typecheck */
@@ -328,7 +456,7 @@ int   get_method_n_params  (type *method);
 type *get_method_param_type(type *method, int pos);
 void  set_method_param_type(type *method, int pos, type* type);
 
-int   get_method_n_res   (type *method);
+int   get_method_n_ress   (type *method);
 type *get_method_res_type(type *method, int pos);
 void  set_method_res_type(type *method, int pos, type* type);
 
@@ -356,8 +484,7 @@ int     get_union_n_members      (type *uni);
 void    add_union_member (type *uni, entity *member);
 entity *get_union_member (type *uni, int pos);
 void    set_union_member (type *uni, int pos, entity *member);
-/* Finds member in the list of members and overwrites it with NULL
-   @@@ Doesn't work properly. */
+/* Finds member in the list of members and removes it. */
 void    remove_union_member (type *uni, entity *member);
 
 /* typecheck */
@@ -380,6 +507,8 @@ void   set_union_delim_nameid (type *uni, int pos, ident *id);
  *   Representation of an array type.
  * NOTE
  *   The array type represents rectangular multi dimensional arrays.
+ *   The constants representing the bounds must be allocated to
+ *   get_const_code_irg() by setting current_ir_graph accordingly.
  * ATTRIBUTES
  *   n_dimensions     Number of array dimensions.
  *   *lower_bound     Lower bounds of dimensions.  Usually all 0.
@@ -393,20 +522,30 @@ void   set_union_delim_nameid (type *uni, int pos, ident *id);
  * SOURCE
  */
 /* create a new type array --
-   Set dimension sizes after call to constructor with set_* routines.
-   Entity for array elements is built automatically. */
+   Sets n_dimension to dimension and all dimension entries to NULL.
+   Initializes order to the order of the dimensions.
+   The entity for array elements is built automatically.
+   Set dimension sizes after call to constructor with set_* routines. */
 type *new_type_array         (ident *name, int n_dimensions,
                              type *element_type);
 
 /* manipulate private fields of array type */
 int   get_array_n_dimensions (type *array);
+/* Allocates Const nodes of mode_I for the array dimensions */
+void  set_array_bounds_int   (type *array, int dimension, int lower_bound,
+                                                          int upper_bound);
 void  set_array_bounds       (type *array, int dimension, ir_node *lower_bound,
                                                           ir_node *upper_bound);
 void  set_array_lower_bound  (type *array, int dimension, ir_node *lower_bound);
+void  set_array_lower_bound_int (type *array, int dimension, int lower_bound);
 void  set_array_upper_bound  (type *array, int dimension, ir_node *upper_bound);
+void  set_array_upper_bound_int (type *array, int dimension, int lower_bound);
 ir_node * get_array_lower_bound  (type *array, int dimension);
 ir_node * get_array_upper_bound  (type *array, int dimension);
 
+void set_array_order (type *array, int dimension, int order);
+int  get_array_order (type *array, int dimension);
+
 void  set_array_element_type (type *array, type *type);
 type *get_array_element_type (type *array);
 
@@ -485,4 +624,34 @@ type *new_type_primitive (ident *name, ir_mode *mode);
 bool  is_primitive_type  (type *primitive);
 /*****/
 
+
+
+/****f* type/is_atomic_type
+ *
+ * NAME
+ *   is_atomic_type - Checks whether a type is atomic.
+ * SYNOPSIS
+ *   int is_atomic_type(type *tp);
+ * INPUTS
+ *   tp - any type
+ * RESULT
+ *   true if type is primitive, pointer or enumeration
+ ***
+ */
+int is_atomic_type(type *tp);
+
+/****f* type/is_compound_type
+ *
+ * NAME
+ *   is_compound_type - Checks whether a type is compound.
+ * SYNOPSIS
+ *   int is_compound_type(type *tp)
+ * INPUTS
+ *   tp - any type
+ * RESULT
+ *   true if the type is class, structure, union or array type.
+ ***
+ */
+int is_compound_type(type *tp);
+
 # endif /* _TYPE_H_ */