belka/elna
1
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Implement elsif do

Browse Source
This commit is contained in:
Eugen Wissner
2025-02-17 19:36:25 +01:00
parent 994b91e0e5
commit 39750f4656
8 changed files with 46 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
gcc/elna-generic.cc
View File

@ -38,7 +38,7 @@ namespace elna
{
namespace gcc
{
generic_visitor::generic_visitor(std::shared_ptr<boot::symbol_table<tree>> symbol_table)
generic_visitor::generic_visitor(std::shared_ptr<symbol_table> symbol_table)
{
this->symbol_map = symbol_table;
}
@ -310,7 +310,7 @@ namespace gcc
void generic_visitor::enter_scope()
{
this->symbol_map = std::make_shared<boot::symbol_table<tree>>(this->symbol_map);
this->symbol_map = std::make_shared<symbol_table>(this->symbol_map);
// Chain the binding levels.
struct binding_level *new_level = ggc_cleared_alloc<binding_level>();
@ -1071,7 +1071,7 @@ namespace gcc
{
branch.prerequisite().accept(this);
if (TREE_TYPE(this->current_expression) != boolean_type_node)
if (TREE_TYPE(this->current_expression) != elna_bool_type_node)
{
error_at(get_location(&branch.prerequisite().position()),
"expected expression of boolean type but its type is %s",
@ -1116,55 +1116,19 @@ namespace gcc
void generic_visitor::visit(boot::while_statement *statement)
{
statement->body().prerequisite().accept(this);
if (TREE_TYPE(this->current_expression) != boolean_type_node)
{
error_at(get_location(&statement->body().prerequisite().position()),
"expected expression of boolean type but its type is %s",
print_type(TREE_TYPE(this->current_expression)).c_str());
this->current_expression = error_mark_node;
return;
}
enter_scope();
auto prerequisite_location = get_location(&statement->body().prerequisite().position());
auto body_location = get_location(&statement->position());
auto prerequisite_label_decl = build_label_decl("while_check", prerequisite_location);
auto prerequisite_label_expr = build1_loc(prerequisite_location, LABEL_EXPR,
void_type_node, prerequisite_label_decl);
append_statement(prerequisite_label_expr);
auto body_label_decl = build_label_decl("while_body", body_location);
auto end_label_decl = build_label_decl("end_while", UNKNOWN_LOCATION);
auto goto_body = build1_loc(prerequisite_location, GOTO_EXPR,
void_type_node, body_label_decl);
auto goto_end = build1_loc(prerequisite_location, GOTO_EXPR,
void_type_node, end_label_decl);
auto cond_expr = build3_loc(prerequisite_location, COND_EXPR,
void_type_node, this->current_expression, goto_body, goto_end);
append_statement(cond_expr);
auto body_label_expr = build1_loc(body_location, LABEL_EXPR,
void_type_node, body_label_decl);
append_statement(body_label_expr);
for (const auto body_statement : statement->body().statements)
{
body_statement->accept(this);
}
tree mapping = leave_scope();
append_statement(mapping);
auto goto_check = build1(GOTO_EXPR, void_type_node, prerequisite_label_decl);
append_statement(goto_check);
auto endif_label_expr = build1(LABEL_EXPR, void_type_node, end_label_decl);
append_statement(endif_label_expr);
append_statement(prerequisite_label_expr);
make_if_branch(statement->body(), goto_check);
for (const auto branch : statement->branches)
{
make_if_branch(*branch, goto_check);
}
this->current_expression = NULL_TREE;
}