Fixed 'inline' lossage --flo
[libfirm] / ir / ir / old_fctnames.h
index a7b61b4..649e49f 100644 (file)
@@ -1,17 +1,27 @@
-
-/* 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