paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 22:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use integer third arg for val in SetErrorFlags

Browse Source 
to allow compilation with Delphi
    reported by Kovacs Attila Zoltan
This commit is contained in:
pierre 2000-05-10 19:20:23 +00:00
parent 122f24022a
commit 8c9f14abcd
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/verbose.pas
View File

@ -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<x> 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
}
}