Fixed 'inline' lossage --flo

[libfirm] / ir / ir / old_fctnames.h

diff --git a/ir/ir/old_fctnames.h b/ir/ir/old_fctnames.h
index 56522df..649e49f 100644 (file)
--- a/ir/ir/old_fctnames.h
+++ b/ir/ir/old_fctnames.h
@@ -1,13 +1,15 @@
+/*
+ * 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.
+ */
 
-/* Copyright (C) 2001 by Universitaet Karlsruhe
-** All rights reserved.
-**
-** Authors: Goetz Lindenmaier
-**
-** Some makros supporting old function names.
-*/
-
-/* $Id$ */
 
 #ifndef __OLD_FCTNAMES_H__
 #define __OLD_FCTNAMES_H__
@@ -30,6 +32,7 @@
 #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_)
@@ -41,4 +44,13 @@
 
 #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
+
 #endif