From 79521d91b2bb85652fd29f5c44279338d55c757f Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 7 Jul 2026 21:39:57 +0200
Subject: Allow multiple parameters with same type

---
 boot/ast.cc | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'boot/ast.cc')

diff --git a/boot/ast.cc b/boot/ast.cc
index 91b46a4..b7604e5 100644
--- a/boot/ast.cc
+++ b/boot/ast.cc
@@ -485,8 +485,10 @@ namespace elna::boot
         delete m_body;
     }
 
-    procedure_type_expression::procedure_type_expression(const struct position position, return_t return_type)
-        : node(position), return_type(return_type)
+    procedure_type_expression::procedure_type_expression(const struct position position,
+            std::vector<std::pair<std::vector<std::string>, std::shared_ptr<type_expression>>>&& parameters,
+            return_t return_type)
+        : node(position), return_type(return_type), parameters(std::move(parameters))
     {
     }
 
@@ -496,10 +498,6 @@ namespace elna::boot
         {
             delete return_type.proper_type;
         }
-        for (const type_expression *parameter : this->parameters)
-        {
-            delete parameter;
-        }
     }
 
     void procedure_type_expression::accept(parser_visitor *visitor)
-- 
cgit v1.2.3