From 1a1ef88365e9066612b78e7bd3bcb6f3370da574 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 23 May 2000 20:32:11 +0000
Subject: [PATCH]   * fixed wrong code not detected due a bug in FPC

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

diff --git a/compiler/messages.pas b/compiler/messages.pas
index fd83600518..a02abdcee6 100644
--- a/compiler/messages.pas
+++ b/compiler/messages.pas
@@ -180,7 +180,7 @@ begin
            ptxt^:=#0;
            inc(ptxt);
            s1:=upper(copy(s,1,i-1));
-           crc:=UpdateCRC32(crc,@s1[1],length(s1));
+           crc:=UpdateCRC32(crc,s1[1],length(s1));
 {$ifdef DEBUGCRC}
            Writeln(f2,s1);
            Writeln(f2,crc);
@@ -315,7 +315,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.13  2000-05-15 14:07:33  pierre
+  Revision 1.14  2000-05-23 20:32:11  peter
+    * fixed wrong code not detected due a bug in FPC
+
+  Revision 1.13  2000/05/15 14:07:33  pierre
    + calculate CRC value and check if consistant
 
   Revision 1.12  2000/03/01 22:29:18  peter