5 File name: ir/ana/pto_util.c
6 Purpose: Utilitites for PTO
9 Created: Sat Nov 13 19:35:27 CET 2004
11 Copyright: (c) 1999-2004 Universität Karlsruhe
12 Licence: This file is protected by the GPL - GNU GENERAL PUBLIC LICENSE.
20 pto_util: Utilitites for PTO
23 # include "pto_util.h"
28 # include "pto_debug.h"
32 /* Local Data Types: */
34 /* Local Variables: */
36 /* Local Prototypes: */
38 /* ===================================================
40 =================================================== */
43 /* ===================================================
44 Exported Implementation:
45 =================================================== */
46 /* Get the entity of a ptr */
47 entity *get_ptr_ent (ir_node *ptr)
50 const opcode ptr_op = get_irn_opcode (ptr);
53 ent = get_Sel_entity (ptr);
56 case (iro_SymConst): {
57 ent = get_SymConst_entity (ptr);
61 fprintf (stderr, "%s: no ent for ptr=%s[%ld]\n",
63 get_op_name (get_irn_op (ptr)),
64 get_irn_node_nr (ptr));
77 Revision 1.6 2004/11/18 16:37:07 liekweg