mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-06 05:30:57 +02:00
* use V_Error
* set status.verbosity
This commit is contained in:
parent
3d3d90a39a
commit
cca4b5a413
@ -14,14 +14,20 @@ uses
|
||||
|
||||
function Compile(const cmd:string):longint;
|
||||
begin
|
||||
do_comment(V_Info,'Fake Compiler');
|
||||
do_comment(V_Info,'Cmd = "'+cmd+'"');
|
||||
status.verbosity:=V_Default;
|
||||
status.maxerrorcount:=50;
|
||||
do_comment(V_Error,'Fake Compiler');
|
||||
do_comment(V_Error,'Cmd = "'+cmd+'"');
|
||||
end;
|
||||
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 1998-12-22 14:27:54 peter
|
||||
Revision 1.2 1998-12-28 15:44:59 peter
|
||||
* use V_Error
|
||||
* set status.verbosity
|
||||
|
||||
Revision 1.1 1998/12/22 14:27:54 peter
|
||||
* moved
|
||||
|
||||
Revision 1.1 1998/12/10 23:54:28 peter
|
||||
|
Loading…
Reference in New Issue
Block a user