浏览代码

* fixed is_equal for proc -> procvar which didn't check the
callconvention and type anymore since the splitting of procoptions

peter 26 年之前
父节点
当前提交
78246cf227
共有 1 个文件被更改,包括 8 次插入2 次删除
  1. 8 2
      compiler/types.pas

+ 8 - 2
compiler/types.pas

@@ -876,7 +876,9 @@ implementation
                 { poassembler isn't important for compatibility }
                 { if a method is assigned to a methodpointer    }
                 { is checked before                             }
-                b:=((pprocvardef(def1)^.procoptions * po_compatibility_options)=
+                b:=(pprocvardef(def1)^.proctypeoption=pprocvardef(def2)^.proctypeoption) and
+                   (pprocvardef(def1)^.proccalloptions=pprocvardef(def2)^.proccalloptions) and
+                   ((pprocvardef(def1)^.procoptions * po_compatibility_options)=
                     (pprocvardef(def2)^.procoptions * po_compatibility_options)) and
                    is_equal(pprocvardef(def1)^.retdef,pprocvardef(def2)^.retdef);
                 { now evalute the parameters }
@@ -993,7 +995,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.88  1999-10-01 08:02:51  peter
+  Revision 1.89  1999-10-01 10:04:07  peter
+    * fixed is_equal for proc -> procvar which didn't check the
+      callconvention and type anymore since the splitting of procoptions
+
+  Revision 1.88  1999/10/01 08:02:51  peter
     * forward type declaration rewritten
 
   Revision 1.87  1999/09/15 22:09:27  florian