-
-/* Copyright (C) 2001 by Universitaet Karlsruhe
-** All rights reserved.
-**
-** Authors: Goetz Lindenmaier
-**
-** Some makros supporting old function names.
-*/
-
+/*
+ * Project: libFIRM
+ * File name: ir/ir/old_fctnames.h
+ * Purpose: Some makros supporting old function names.
+ * Author: Goetz Lindenmaier
+ * Modified by:
+ * Created:
+ * CVS-ID: $Id$
+ * Copyright: (c) 1998-2003 Universität Karlsruhe
+ * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE.
+ */
+
+
+#ifndef __OLD_FCTNAMES_H__
+#define __OLD_FCTNAMES_H__
/* irgraph */
-#define get_irg_params get_irg_n_loc
+#define get_irg_params get_irg_n_locs
+#define get_irg_n_loc get_irg_n_locs
#define set_irg_params set_irg_n_loc
+/* irnode.h */
+#define get_Return_n_res get_Return_n_ress
+#define get_Sel_n_index get_Sel_n_indexs
/* irmode.h */
#define get_ident_of_mode get_mode_ident
#define get_null_of_mode get_mode_null
#define get_fsigned_of_mode get_mode_fsigned
#define get_ffloat_of_mode get_mode_ffloat
+#define get_mode_size(X) { assert(get_mode_size_bytes(X) != -1); get_mode_size_bytes(X); }
+
+/* type.h */
+#define get_type_nameid(_t_) get_type_ident(_t_)
+#define set_type_nameid(_t_,_i_) set_type_ident(_t_,_i_)
+#define get_class_n_member get_class_n_members
+#define get_class_n_subtype get_class_n_subtypes
+#define get_class_n_supertype get_class_n_supertypes
+#define get_struct_n_member get_struct_n_members
+
+#define get_method_n_res(X) get_method_n_ress(X)
+/* tarval.h */
+#define tarval_from_long(X, Y) new_tarval_from_long(Y, X)
+#define tarval_P_from_entity(X) new_tarval_from_entity(X, mode_P_mach)
+#define get_tarval_entity(X) tarval_to_entity(X)
+/* ident.h */ // @@@ Attention: still in ident.h
+//#define id_to_str get_id_str
+//#define id_to_strlen get_id_strlen
-#define
-#define
+#endif