new

[r137]

diff --git a/ir/tr/tpop.h b/ir/tr/tpop.h
new file mode 100644 (file)
index 0000000..376c2a5
--- /dev/null
+++ b/ir/tr/tpop.h
@@ -0,0 +1,227 @@
+
+# ifndef _TYPEOP_H_
+# define _TYPEOP_H_
+
+#include "ident.h"
+
+/****h* libfirm/tpop
+ *
+ * NAME
+ *  file tpop.h
+ * COPYRIGHT
+ *   (C) 2001 by Universitaet Karlsruhe
+ * AUTHORS
+ *   Goetz Lindenmaier
+ * NOTES
+ *  This module specifies the kinds of types available in firm.  They are
+ *  called type opcodes. These include classes, structs, methods, unions,
+ *  arrays, enumerations, pointers and primitive types.
+ *****
+ */
+
+/****** tpop/typecode
+ *
+ * NAME
+ *   typecode -- an enum for the type kinds
+ * PURPOSE
+ *   For each type kind exists a typecode to identify it.
+ * SOURCE
+ */
+typedef enum {
+  tpo_class,
+  tpo_struct,
+  tpo_method,
+  tpo_union,
+  tpo_array,
+  tpo_enumeration,
+  tpo_pointer,
+  tpo_primitive
+} tp_opcode;
+/******/
+
+/****s* tpop/tp_op
+ *
+ * NAME
+ *   tp_op  - a structure containing information about a kind of type.
+ * PURPOSE
+ *   A structure containing information about a kind of type.  So far
+ *   this is only the kind name, an enum for case-switching and some
+ *   internal values.
+ * SEE ALSO
+ *   get_tpop_name, get_tpop_code, get_tpop_ident
+ * SOURCE
+ */
+typedef struct tp_op tp_op;
+/******/
+
+
+/****f* tpop/get_tpop_name
+ *
+ * NAME
+ *   get_tpop_name - Returns the string for the type opcode.
+ * SYNOPSIS
+ *   const char *get_tpop_name (tp_op *op)
+ * INPUTS
+ *   op - The type opcode to get the string from.
+ * RESULT
+ *   a string.  (@@@ Null terminated???)
+ ***
+ */
+const char *get_tpop_name (tp_op *op);
+
+/****f* tpop/get_tpop_code
+ *
+ * NAME
+ *   get_tpop_code - Returns an enum for the type opcode.
+ * SYNOPSIS
+ *   tp_opcode get_tpop_code (tp_op *op);
+ * INPUTS
+ *   op - The type opcode to get the enum from.
+ * RESULT
+ *   the enum.
+ ***
+ */
+tp_opcode get_tpop_code (tp_op *op);
+
+/****f* tpop/get_tpop_ident
+ *
+ * NAME
+ *   get_tpop_ident - Returns the ident for the type opcode.
+ * SYNOPSIS
+ *   ident *get_tpop_ident (tp_op *op);
+ * INPUTS
+ *   op - The type opcode to get the ident from.
+ * RESULT
+ *   The ident.
+ ***
+ */
+ident *get_tpop_ident (tp_op *op);
+
+/****d* tpop/type_class
+ *
+ * NAME
+ *   type_class  -
+ * PURPOSE
+ *   This type opcode marks that the corresponding type is a class type.
+ *   Consequently the type refers to supertypes, subtypes and entities.
+ *   Entities can be any fields, but also methods.
+ *   @@@ value class or not???
+ * NOTES
+ *   This struct is dynamically allocated but constant for the lifetime
+ *   of the library.
+ * SOURCE
+ */
+extern tp_op *type_class;
+/******/
+
+/****d* tpop/type_struct
+ *
+ * NAME
+ *   type_struct
+ * PURPOSE
+ *   This type opcode marks that the corresponding type is a compound type
+ *   as a struct in C.  Consequently the type refers to a list of entities
+ *   which may not be methods (but pointers to methods).
+ * NOTES
+ *   This struct is dynamically allocated but constant for the lifetime
+ *   of the library.
+ * SOURCE
+ */
+extern tp_op *type_struct;
+/******/
+
+/****d* tpop/type_method
+ *
+ * NAME
+ *   type_method
+ * PURPOSE
+ *   This type opcode marks that the corresponding type is a method type.
+ *   Consequently it refers to a list of arguments and results.
+ * NOTES
+ *   This struct is dynamically allocated but constant for the lifetime
+ *   of the library.
+ * SOURCE
+ */
+extern tp_op *type_method;
+/******/
+
+/****d* tpop/type_union
+ *
+ * NAME
+ *   type_union
+ * PURPOSE
+ *   This type opcode marks that the corresponding type is a union type.
+ *   Consequently it refers to a list of unioned types.
+ * NOTES
+ *   This struct is dynamically allocated but constant for the lifetime
+ *   of the library.
+ * SOURCE
+ */
+extern tp_op *type_union;
+/******/
+
+/****d* tpop/type_array
+ *
+ * NAME
+ *   type_array
+ * PURPOSE
+ *   This type opcode marks that the corresponding type is an array type.
+ *   Consequently it contains a list of dimensions (lower and upper bounds)
+ *   and an element type.
+ * NOTES
+ *   This struct is dynamically allocated but constant for the lifetime
+ *   of the library.
+ * SOURCE
+ */
+extern tp_op *type_array;
+/******/
+
+/****d* tpop/type_enumeration
+ *
+ * NAME
+ *   type_enumeration
+ * PURPOSE
+ *   This type opcode marks that the corresponding type is an enumeration type.
+ *   Consequently it contains a list of idents for the enumeration identifiers
+ *   and a list of tarbet values that are the constants used to implement
+ *   the enumerators.
+ * NOTES
+ *   This struct is dynamically allocated but constant for the lifetime
+ *   of the library.
+ * SOURCE
+ */
+extern tp_op *type_enumeration;
+/******/
+
+/****d* tpop/type_pointer
+ *
+ * NAME
+ *   type_pointer
+ * PURPOSE
+ *   This type opcode marks that the corresponding type is a pointer type.
+ *   It contains a reference to the type the pointer points to.
+ * NOTES
+ *   This struct is dynamically allocated but constant for the lifetime
+ *   of the library.
+ * SOURCE
+ */
+extern tp_op *type_pointer;
+/******/
+
+/****d* tpop/type_primitive
+ *
+ * NAME
+ *   type_primitive
+ * PURPOSE
+ *   This type opcode marks that the corresponding type is a primitive type.
+ *   Primitive types are types that are directly mapped to target machine
+ *   modes.
+ * NOTES
+ *   This struct is dynamically allocated but constant for the lifetime
+ *   of the library.
+ * SOURCE
+ */
+extern tp_op *type_primitive;
+/******/
+
+# endif /*_TYPEOP_H_ */