paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 13:59:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* two function references are equal to each other as long as their signatures match

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-02-06 13:09:01 +01:00
parent 6fe9a15094
commit 9b9ae2db1a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/defcmp.pas
View File

@ -1867,6 +1867,14 @@ implementation
doconv:=tc_char_2_string;
eq:=te_convert_l2
end
else if is_funcref(def_to) and
is_funcref(def_from) and
not (cdo_equal_check in cdoptions) then
begin
eq:=funcref_equal(tobjectdef(def_from),tobjectdef(def_to));
if eq>=te_equal then
doconv:=tc_equal;
end
else
{ specific to implicit pointer object types }
if is_implicit_pointer_object_type(def_to) then