X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Fold_fctnames.h;h=649e49fa8d8d925028360d0c85b9a677146629c6;hb=e570f00fb465d212dde403160e97ab45d36d1d7e;hp=4160e7fe7c46608b2f5e89181022043b6d36dc0c;hpb=4c917994f1fe6a41dc9f93fa3f9225f41633f4fc;p=libfirm

diff --git a/ir/ir/old_fctnames.h b/ir/ir/old_fctnames.h
index 4160e7fe7..649e49fa8 100644
--- 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__
@@ -44,7 +46,11 @@
 
 /* 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)
+#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