From e1b3ddc3fbffaefbfbbadd04586dddeeb71e9692 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 7 Sep 2002 09:16:55 +0000
Subject: [PATCH]   * fix my stupid copy and paste bug

---
 compiler/defbase.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/defbase.pas b/compiler/defbase.pas
index 6721950617..e0c6428208 100644
--- a/compiler/defbase.pas
+++ b/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)