Implement named blocks

1 files changed, 15 insertions, 0 deletions

diff --git a/boot/symbol.cc b/boot/symbol.cc
index 55f91ea..58524ad 100644
--- a/boot/symbol.cc
+++ b/boot/symbol.cc
@@ -310,6 +310,11 @@ namespace elna::boot
         return nullptr;
     }
 
+    std::shared_ptr<label_info> info::is_label()
+    {
+        return nullptr;
+    }
+
     type_info::type_info(const type& symbol)
         : symbol(symbol), owner(symbol.get<alias_type>())
     {
@@ -346,6 +351,16 @@ namespace elna::boot
         return std::static_pointer_cast<variable_info>(shared_from_this());
     }
 
+    label_info::label_info(std::size_t defer_depth)
+        : defer_depth(defer_depth)
+    {
+    }
+
+    std::shared_ptr<label_info> label_info::is_label()
+    {
+        return std::static_pointer_cast<label_info>(shared_from_this());
+    }
+
     static void builtin_integers(const std::shared_ptr<symbol_table>& symbols,
             const std::array<type_properties, target_integer_count>& properties,
             const std::string& integer_name)