From f547dae96d770cc7bc27d3790d0d87bb8e37963d Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 7 Oct 2026 10:15:16 +0200 Subject: Make procedure pointers compatible with normal pointers --- include/elna/boot/name_analysis.h | 1 + include/elna/boot/symbol.h | 4 ++-- include/elna/gcc/elna-tree.h | 9 --------- 3 files changed, 3 insertions(+), 11 deletions(-) (limited to 'include') diff --git a/include/elna/boot/name_analysis.h b/include/elna/boot/name_analysis.h index 4e13df1..d3f6f10 100644 --- a/include/elna/boot/name_analysis.h +++ b/include/elna/boot/name_analysis.h @@ -130,6 +130,7 @@ namespace elna::boot { array_position, duplicate, + constant_procedure, module_entry }; struct not_initialized diff --git a/include/elna/boot/symbol.h b/include/elna/boot/symbol.h index 705cb29..0d07b88 100644 --- a/include/elna/boot/symbol.h +++ b/include/elna/boot/symbol.h @@ -820,8 +820,8 @@ namespace elna::boot /** * Checks whether the given type is a pointer type. * - * A pointer type is considered to be a variable pointer, a procedure - * pointer, or a built-in Pointer. + * A pointer type is considered to be a typed pointer, including a pointer + * to a procedure, or a built-in Pointer. * * \param checked The type to check. * \return Whether the type is a pointer type. diff --git a/include/elna/gcc/elna-tree.h b/include/elna/gcc/elna-tree.h index a3a9106..6dd3616 100644 --- a/include/elna/gcc/elna-tree.h +++ b/include/elna/gcc/elna-tree.h @@ -38,15 +38,6 @@ namespace elna::gcc bool is_integral_type(tree type); bool is_unique_type(tree type); - /** - * Prepares a value to be bound to a variable or parameter. - * - * If rvalue is a procedure declaration, builds a procedure pointer. - * - * \param rvalue Value to be assigned. - * \return Processed value. - */ - tree prepare_rvalue(tree rvalue); void append_statement(tree statement_tree); void defer(tree statement_tree); -- cgit v1.2.3