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

Introduce a procedure type

Browse Source
This commit is contained in:
Eugen Wissner
2024-05-19 00:43:59 +02:00
parent 8b6bf571cb
commit ce8af4028d
8 changed files with 128 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
source/symbol_table.cpp
View File

@ -55,8 +55,8 @@ namespace elna::source
return m_type;
}
constant_info::constant_info(const std::int32_t value)
: m_value(value)
constant_info::constant_info(const std::shared_ptr<const class type> type, const std::int32_t value)
: m_type(type), m_value(value)
{
}
@ -64,6 +64,11 @@ namespace elna::source
{
}
std::shared_ptr<const class type> constant_info::type() const noexcept
{
return m_type;
}
std::int32_t constant_info::value() const noexcept
{
return m_value;
@ -97,17 +102,27 @@ namespace elna::source
return m_type;
}
intrinsic_info::intrinsic_info(const class procedure_type& type)
: m_type(std::make_shared<procedure_type>(type))
{
}
intrinsic_info::~intrinsic_info()
{
}
std::size_t intrinsic_info::parameter_stack_size() const noexcept
std::shared_ptr<const class procedure_type> intrinsic_info::type() const noexcept
{
return this->parameter_infos.size() * sizeof(std::int32_t);
return m_type;
}
procedure_info::procedure_info(std::shared_ptr<symbol_table> outer_scope)
: local_table(std::make_shared<symbol_table>(outer_scope))
std::size_t intrinsic_info::parameter_stack_size() const noexcept
{
return type()->arguments.size() * sizeof(std::int32_t);
}
procedure_info::procedure_info(const class procedure_type& type, std::shared_ptr<symbol_table> outer_scope)
: intrinsic_info(type), local_table(std::make_shared<symbol_table>(outer_scope))
{
}