Преглед на файлове

* fix my stupid copy and paste bug

carl преди 23 години
родител
ревизия
e1b3ddc3fb
променени са 1 файла, в които са добавени 5 реда и са изтрити 2 реда
  1. 5 2
      compiler/defbase.pas

+ 5 - 2
compiler/defbase.pas

@@ -1895,7 +1895,7 @@ implementation
                   begin
                     s1:=def1.typename;
                     s2:=def2.typename;
-                    Message2(type_e_not_equal_types,def1^.typename,def2^.typename);
+                    Message2(type_e_not_equal_types,def1.typename,def2.typename);
                   end
                 else
                   CheckTypes := true;
@@ -1908,7 +1908,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.7  2002-09-06 19:58:31  carl
+  Revision 1.8  2002-09-07 09:16:55  carl
+    * fix my stupid copy and paste bug
+
+  Revision 1.7  2002/09/06 19:58:31  carl
    * start bugfix 1996
    * 64-bit typed constant now work correctly and fully (bugfix 2001)