From c02ecc35137ea615110d12b38c931bf60ad2a25c Mon Sep 17 00:00:00 2001 From: daniel Date: Sun, 12 Mar 2000 08:24:45 +0000 Subject: [PATCH] * Made check for message file TP compilable. --- compiler/verbose.pas | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/compiler/verbose.pas b/compiler/verbose.pas index db87bd144e..768327c4c7 100644 --- a/compiler/verbose.pas +++ b/compiler/verbose.pas @@ -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