101 lines
3.4 KiB
C++
101 lines
3.4 KiB
C++
/* Utilities to manipulate GCC trees.
|
|
Copyright (C) 2025 Free Software Foundation, Inc.
|
|
|
|
GCC is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3, or (at your option)
|
|
any later version.
|
|
|
|
GCC is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GCC; see the file COPYING3. If not see
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
#pragma once
|
|
|
|
#include <forward_list>
|
|
|
|
#include "config.h"
|
|
#include "system.h"
|
|
#include "coretypes.h"
|
|
#include "tree.h"
|
|
#include "tree-iterator.h"
|
|
#include "stringpool.h"
|
|
|
|
#include "elna/boot/ast.h"
|
|
#include "elna/boot/symbol.h"
|
|
#include "elna/gcc/elna1.h"
|
|
|
|
namespace elna::gcc
|
|
{
|
|
using symbol_table = boot::symbol_map<tree, tree, NULL_TREE>;
|
|
|
|
bool is_integral_type(tree type);
|
|
bool is_numeric_type(tree type);
|
|
bool is_array_type(tree type);
|
|
bool is_void_type(tree type);
|
|
|
|
/**
|
|
* \param type The type to evaluate.
|
|
* \return Whether this type can be converted to another type.
|
|
*/
|
|
bool is_castable_type(tree type);
|
|
|
|
/**
|
|
* \param lhs Left hand value.
|
|
* \param rhs Right hand value.
|
|
* \return Whether rhs can be assigned to lhs.
|
|
*/
|
|
bool are_compatible_pointers(tree lhs_type, tree rhs);
|
|
|
|
/**
|
|
* Prepares a value to be bound to a variable or parameter.
|
|
*
|
|
* If rvalue is a procedure declaration, builds a procedure pointer.
|
|
*
|
|
* \param rvalue Value to be assigned.
|
|
* \return Processed value.
|
|
*/
|
|
tree prepare_rvalue(tree rvalue);
|
|
|
|
/**
|
|
* \param assignee Assignee.
|
|
* \param assignee Assignment.
|
|
* \return Whether an expression assignment can be assigned to a variable of type assignee.
|
|
*/
|
|
bool is_assignable_from(tree assignee, tree assignment);
|
|
|
|
void append_statement(tree statement_tree);
|
|
void defer(tree statement_tree);
|
|
tree chain_defer();
|
|
|
|
tree do_pointer_arithmetic(boot::binary_operator binary_operator,
|
|
tree left, tree right, location_t expression_location);
|
|
tree build_binary_operation(bool condition, boot::binary_expression *expression,
|
|
tree_code operator_code, tree left, tree right, tree target_type);
|
|
tree build_arithmetic_operation(boot::binary_expression *expression,
|
|
tree_code operator_code, tree left, tree right);
|
|
tree build_field(location_t location, tree record_type, const std::string name, tree type);
|
|
tree find_field_by_name(location_t expression_location, tree type, const std::string& field_name);
|
|
tree build_global_pointer_type(tree type);
|
|
tree build_label_decl(const char *name, location_t loc);
|
|
|
|
tree extract_constant(tree expression);
|
|
|
|
template<typename... Args>
|
|
tree call_built_in(location_t call_location, const char *name, tree return_type, Args... arguments)
|
|
{
|
|
tree *builtin = elna_global_decls->get(name);
|
|
gcc_assert(builtin != nullptr);
|
|
|
|
tree fndecl_type = build_function_type(return_type, TYPE_ARG_TYPES(*builtin));
|
|
tree builtin_addr = build1_loc(call_location, ADDR_EXPR, build_pointer_type(fndecl_type), *builtin);
|
|
|
|
return build_call_nary(return_type, builtin_addr, sizeof...(Args), arguments...);
|
|
}
|
|
}
|