Browse Source

* fixed typo in method comparing

peter 23 years ago
parent
commit
0da515f669
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/pdecsub.pas

+ 5 - 2
compiler/pdecsub.pas

@@ -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