Jelajahi Sumber

* make proc_to_funcref_conv publicly available

Sven/Sarah Barth 3 tahun lalu
induk
melakukan
4361e36ce0
1 mengubah file dengan 3 tambahan dan 3 penghapusan
  1. 3 3
      compiler/defcmp.pas

+ 3 - 3
compiler/defcmp.pas

@@ -157,6 +157,9 @@ interface
     { True if a function can be assigned to a function reference }
     function proc_to_funcref_equal(def1:tabstractprocdef;def2:tobjectdef):tequaltype;
 
+    { returns the equality between a function and a function reference }
+    function proc_to_funcref_conv(def1:tabstractprocdef;def2:tobjectdef):tequaltype;
+
     { Checks if an funcref interface can be assigned to the other }
     function funcref_equal(def1,def2:tobjectdef):tequaltype;
 
@@ -205,9 +208,6 @@ implementation
       end;
 
 
-    function proc_to_funcref_conv(def1:tabstractprocdef;def2:tobjectdef):tequaltype;forward;
-
-
     function compare_defs_ext(def_from,def_to : tdef;
                               fromtreetype : tnodetype;
                               var doconv : tconverttype;