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

* Made check for message file TP compilable.

Browse Source
This commit is contained in:
daniel 2000-03-12 08:24:45 +00:00
parent e72ff5f936
commit c02ecc3513
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/verbose.pas
View File

@ -243,8 +243,16 @@ begin
if not(msg=nil) then
dispose(msg,Done);
msg:=new(pmessage,InitExtern(fn,ord(endmsgconst)));
{$IFDEF TP}
if msg=nil then
begin
writeln('Fatal: Cannot find error message file.');
halt(3);
end;
{$ELSE}
if msg=nil then
msg:=new(pmessage,Init(@msgtxt,ord(endmsgconst)));
{$ENDIF TP}
end;
@ -508,7 +516,10 @@ end.
{
$Log$
Revision 1.48 2000-03-01 22:29:18 peter
Revision 1.49 2000-03-12 08:24:45 daniel
* Made check for message file TP compilable.
Revision 1.48 2000/03/01 22:29:18 peter
* message files are check for amount of msgs found. If not correct a
line is written to stdout and switched to internal messages