From 8c9f14abcdc4294406b5b52781887b1f38ff49e5 Mon Sep 17 00:00:00 2001 From: pierre Date: Wed, 10 May 2000 19:20:23 +0000 Subject: [PATCH] * Use integer third arg for val in SetErrorFlags to allow compilation with Delphi reported by Kovacs Attila Zoltan --- compiler/verbose.pas | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/compiler/verbose.pas b/compiler/verbose.pas index 88b3d6f4b7..029a6132d3 100644 --- a/compiler/verbose.pas +++ b/compiler/verbose.pas @@ -315,7 +315,7 @@ end; procedure SetErrorFlags(const s:string); var - code : word; + code : integer; i,j,l : longint; begin { empty string means error count = 1 for backward compatibility (PFV) } @@ -580,7 +580,12 @@ end. { $Log$ - Revision 1.51 2000-05-10 13:40:19 peter + Revision 1.52 2000-05-10 19:20:23 pierre + * Use integer third arg for val in SetErrorFlags + to allow compilation with Delphi + reported by Kovacs Attila Zoltan + + Revision 1.51 2000/05/10 13:40:19 peter * -Se option extended to increase errorcount for warning,notes or hints @@ -619,4 +624,4 @@ end. * oldtp mode directives better supported * added some messages to errore.msg -} +} \ No newline at end of file