paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wrong code not detected due a bug in FPC

Browse Source
This commit is contained in:
peter 2000-05-23 20:32:11 +00:00
parent ea13526914
commit 1a1ef88365
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/messages.pas
View File

@ -180,7 +180,7 @@ begin
ptxt^:=#0; ptxt^:=#0;
inc(ptxt); inc(ptxt);
s1:=upper(copy(s,1,i-1)); s1:=upper(copy(s,1,i-1));
crc:=UpdateCRC32(crc,@s1[1],length(s1)); crc:=UpdateCRC32(crc,s1[1],length(s1));
{$ifdef DEBUGCRC} {$ifdef DEBUGCRC}
Writeln(f2,s1); Writeln(f2,s1);
Writeln(f2,crc); Writeln(f2,crc);
@ -315,7 +315,10 @@ end;
end. end.
{ {
$Log$ $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 + calculate CRC value and check if consistant
Revision 1.12 2000/03/01 22:29:18 peter Revision 1.12 2000/03/01 22:29:18 peter