Make procedure pointers compatible with normal pointers

3 files changed, 3 insertions, 11 deletions

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);