From b575036fe804f14b78da74897a74b010cc94f730 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 16 Sep 2026 11:49:35 +0200
Subject: Implement named blocks

---
 boot/symbol.cc | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'boot/symbol.cc')

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)
-- 
cgit v1.2.3