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

Generate record IR

Browse Source
This commit is contained in:
Eugen Wissner
2025-01-09 22:40:39 +01:00
parent cf4b6b7ccc
commit 954425f4bd
4 changed files with 68 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
gcc/elna-generic.cc
View File

@ -7,6 +7,8 @@
#include "stringpool.h"
#include "diagnostic.h"
#include "realmpfr.h"
#include "stor-layout.h"
#include <set>
namespace elna
{
@ -357,6 +359,38 @@ namespace gcc
return build_array_type(base_type, range_type);
}
else if (source::record_type_expression *record_type = type.is_record())
{
std::set<std::string> field_names;
tree record_type_node = make_node(RECORD_TYPE);
tree_chain record_chain;
for (auto& field : record_type->fields())
{
if (field_names.find(field.first) != field_names.cend())
{
error_at(get_location(&field.second->position()), "repeated field name");
return error_mark_node;
}
field_names.insert(field.first);
tree field_type = build_type(*field.second);
if (field_type == NULL_TREE || field_type == error_mark_node)
{
return field_type;
}
tree field_declaration = build_decl(get_location(&field.second->position()),
FIELD_DECL, get_identifier(field.first.c_str()), field_type);
TREE_ADDRESSABLE(field_declaration) = 1;
DECL_CONTEXT(field_declaration) = record_type_node;
record_chain.append(field_declaration);
}
TYPE_FIELDS(record_type_node) = record_chain.head();
layout_type(record_type_node);
return record_type_node;
}
return NULL_TREE;
}