X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Ftv%2Ftv_t.h;h=4554c74097f953187c60a93925dca0c37ef9aac0;hb=32ea6ea0320f551448bb66e534e3351977464d42;hp=328d257df2282e14860e5bbba70b50671283869d;hpb=4316c00364a6ec0ac7f7aef14af3667b12f96cf3;p=libfirm diff --git a/ir/tv/tv_t.h b/ir/tv/tv_t.h index 328d257df..4554c7409 100644 --- a/ir/tv/tv_t.h +++ b/ir/tv/tv_t.h @@ -1,5 +1,5 @@ /* - * Copyright (C) 1995-2007 University of Karlsruhe. All right reserved. + * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved. * * This file is part of libFirm. * @@ -28,7 +28,7 @@ #ifndef FIRM_TV_TV_T_H #define FIRM_TV_TV_T_H -#include "firm_config.h" +#include "firm_common.h" #include #include "irmode.h" @@ -36,10 +36,12 @@ /** Debugging aid for the firmEvaluator: Marks for reserved tarvals values. */ enum reserved_id { - 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_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. */ }; /** @@ -47,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. @@ -77,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 * +static inline ir_mode * _get_tarval_mode(const tarval *tv) { - assert(tv); - return tv->mode; + assert(tv); + return tv->mode; } -static INLINE tarval * +static inline tarval * _get_tarval_bad(void) { - return tarval_bad; + return tarval_bad; } -static INLINE tarval * +static inline tarval * _get_tarval_undefined(void) { - return tarval_undefined; + return tarval_undefined; } -static INLINE tarval * +static inline tarval * _get_tarval_b_false(void) { - return tarval_b_false; + return tarval_b_false; } -static INLINE tarval * +static inline tarval * _get_tarval_b_true(void) { - return tarval_b_true; + return tarval_b_true; } -#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() +static inline tarval * +_get_tarval_reachable(void) { + return tarval_reachable; +} + +static inline tarval * +_get_tarval_unreachable(void) { + return tarval_unreachable; +} + +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_unreachable() _get_tarval_unreachable() +#define get_tarval_reachable() _get_tarval_reachable() +#define is_tarval(thing) _is_tarval(thing) #endif /* FIRM_TV_TV_T_H */