elna/gcc/elna-tree.cc

#include "elna/gcc/elna-tree.h"

#include "stor-layout.h"

tree elna_global_trees[ELNA_TI_MAX];

namespace elna
{
namespace gcc
{
    void init_ttree()
    {
        elna_char_type_node = make_unsigned_type(8);
        elna_string_type_node = build_pointer_type(
                build_qualified_type(char_type_node, TYPE_QUAL_CONST)); /* const char* */
        TYPE_STRING_FLAG(elna_char_type_node) = 1;
    }

    bool is_string_type(tree type)
    {
        gcc_assert(TYPE_P(type));
        return TREE_CODE(type) == POINTER_TYPE
            && TYPE_MAIN_VARIANT(TREE_TYPE(type)) == char_type_node;
    }
}
}