paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed typo in method comparing

Browse Source
This commit is contained in:
peter 2002-11-27 02:35:28 +00:00
parent 26fcfc6b6f
commit 0da515f669
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecsub.pas
View File

@ -227,7 +227,7 @@ implementation
{ check the types for procedures only }
if not is_procvar then
begin
if compare_defs(tt.def,procinfo._class,nothingn)>=te_equal then
if compare_defs(tt.def,procinfo._class,nothingn)=te_incompatible then
CGMessage2(type_e_incompatible_types,tt.def.typename,procinfo._class.typename);
end;
end
@ -2057,7 +2057,10 @@ const
end.
{
$Log$
Revision 1.82 2002-11-25 17:43:21 peter
Revision 1.83 2002-11-27 02:35:28 peter
* fixed typo in method comparing
Revision 1.82 2002/11/25 17:43:21 peter
* splitted defbase in defutil,symutil,defcmp
* merged isconvertable and is_equal into compare_defs(_ext)
* made operator search faster by walking the list only once