X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Ftv%2Ftv_t.h;h=8f6fa3b5aea9ee65430880b9cca4492a1498f4b3;hb=c496fb7a06926c15967ea635fd95a9c78e74d6bc;hp=e525e339d462aa8e550846a436861cdf41f2e55e;hpb=db258b68687a63a2cdfb6dcb197a49f62b210d1d;p=libfirm

diff --git a/ir/tv/tv_t.h b/ir/tv/tv_t.h
index e525e339d..8f6fa3b5a 100644
--- a/ir/tv/tv_t.h
+++ b/ir/tv/tv_t.h
@@ -1,30 +1,47 @@
 /*
- * Project:     libFIRM
- * File name:   ir/tv/tv_t.h
- * Purpose:     Representation of and static computations on target machine
- *              values -- private header.
- * Author:      Mathias Heil
- * Modified by:
- * Created:
- * CVS-ID:      $Id$
- * Copyright:   (c) 2003 Universität Karlsruhe
- * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+ * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
+ *
+ * This file is part of libFirm.
+ *
+ * This file may be distributed and/or modified under the terms of the
+ * GNU General Public License version 2 as published by the Free Software
+ * Foundation and appearing in the file LICENSE.GPL included in the
+ * packaging of this file.
+ *
+ * Licensees holding valid libFirm Professional Edition licenses may use
+ * this file in accordance with the libFirm Commercial License.
+ * Agreement provided with the Software.
+ *
+ * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+ * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE.
+ */
+
+/**
+ * @file
+ * @brief    Representation of and static computations on target machine
+ *           values -- private header.
+ * @date     2003
+ * @author   Mathias Heil
+ * @version  $Id$
  */
-#ifndef _TV_T_H_
-#define _TV_T_H_
+#ifndef FIRM_TV_TV_T_H
+#define FIRM_TV_TV_T_H
 
-#include "firm_config.h"
+#include "firm_common.h"
 
 #include <assert.h>
 #include "irmode.h"
 #include "tv.h"
 
-/* debugging aid */
+/** Debugging aid for the firmEvaluator: Marks for reserved tarvals values. */
 enum reserved_id {
-  resid_tarval_bad       = 1,
-  resid_tarval_undefined = 2,
-  resid_tarval_b_false   = 3,
-  resid_tarval_b_true    = 4
+	resid_tarval_bad         = 1,  /**< tarval_bad marker. */
+	resid_tarval_undefined   = 2,  /**< tarval_undefined marker. */
+	resid_tarval_b_false     = 3,  /**< tarval_b_false marker. */
+	resid_tarval_b_true      = 4,  /**< tarval_b_true marker. */
+	resid_tarval_unreachable = 5,  /**< tarval_unreachable marker. */
+	resid_tarval_reachable   = 6   /**< tarval_reachable marker. */
 };
 
 /**
@@ -32,9 +49,12 @@ enum reserved_id {
  *
  * Call before init_mode().
  *
- * @param null_value  The reference mode NULL value, typical 0l
+ * @param null_value
+ *            The reference mode NULL value, typical 0l
+ * @param support_quad_precision
+ *            If non-zero, activate support for quad precision
  */
-void init_tarval_1(long null_value);
+void init_tarval_1(long null_value, int support_quad_precision);
 
 /**
  * Initialization of the tarval module.
@@ -62,47 +82,64 @@ void finish_tarval(void);
  *   irmode.h for predefined modes
  */
 struct tarval {
-  firm_kind kind;         /**< must be k_tarval */
-  ir_mode   *mode;        /**< the mode of the stored value */
-  const void *value;      /**< the value stored in an internal way... */
-  unsigned int length;    /**< the length of the stored value */
+	firm_kind kind;         /**< must be k_tarval */
+	ir_mode   *mode;        /**< the mode of the stored value */
+	const void *value;      /**< the value stored in an internal way... */
+	unsigned int length;    /**< the length of the stored value */
 };
 
 /* inline functions */
 /*
  * Access routines for tarval fields ========================================
  */
-static INLINE ir_mode *
-_get_tarval_mode(const tarval *tv) {
-  assert(tv);
-  return tv->mode;
+static inline ir_mode *_get_tarval_mode(const tarval *tv)
+{
+	assert(tv);
+	return tv->mode;
+}
+
+static inline tarval *_get_tarval_bad(void)
+{
+	return tarval_bad;
+}
+
+static inline tarval *_get_tarval_undefined(void)
+{
+	return tarval_undefined;
+}
+
+static inline tarval *_get_tarval_b_false(void)
+{
+	return tarval_b_false;
 }
 
-static INLINE tarval *
-_get_tarval_bad(void) {
-  return tarval_bad;
+static inline tarval *_get_tarval_b_true(void)
+{
+	return tarval_b_true;
 }
 
-static INLINE tarval *
-_get_tarval_undefined(void) {
-  return tarval_undefined;
+static inline tarval *_get_tarval_reachable(void)
+{
+	return tarval_reachable;
 }
 
-static INLINE tarval *
-_get_tarval_b_false(void) {
-  return tarval_b_false;
+static inline tarval *_get_tarval_unreachable(void)
+{
+	return tarval_unreachable;
 }
 
-static INLINE tarval *
-_get_tarval_b_true(void) {
-  return tarval_b_true;
+static inline int _is_tarval(const void *thing)
+{
+	return get_kind(thing) == k_tarval;
 }
 
-#define get_tarval_mode(tv)     _get_tarval_mode(tv)
-#define get_tarval_bad()        _get_tarval_bad()
-#define get_tarval_undefined()  _get_tarval_undefined()
-#define get_tarval_b_false()    _get_tarval_b_false()
-#define get_tarval_b_true()     _get_tarval_b_true()
-#define get_tarval_P_void()     _get_tarval_P_void()
+#define get_tarval_mode(tv)      _get_tarval_mode(tv)
+#define get_tarval_bad()         _get_tarval_bad()
+#define get_tarval_undefined()   _get_tarval_undefined()
+#define get_tarval_b_false()     _get_tarval_b_false()
+#define get_tarval_b_true()      _get_tarval_b_true()
+#define get_tarval_unreachable() _get_tarval_unreachable()
+#define get_tarval_reachable()   _get_tarval_reachable()
+#define is_tarval(thing)         _is_tarval(thing)
 
-#endif /* _TV_T_H_ */
+#endif /* FIRM_TV_TV_T_H */