From 207fe1048bbf5c97f180e003bb2ed6484b4edd6e Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Mon, 21 Feb 2011 17:40:55 +0100
Subject: [PATCH] Directives: WARNING directive change.

---
 Units/MMLAddon/mmlpsthread.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas
index d00049c..0079dbd 100644
--- a/Units/MMLAddon/mmlpsthread.pas
+++ b/Units/MMLAddon/mmlpsthread.pas
@@ -495,15 +495,15 @@ begin
     if (DirectiveArgs <> '') then
     begin
       Result := True;
-      if FileName = '' then
+      {if FileName = '' then
         psWriteln(format('Error: In %s: at row: %d, col: %d, pos %d: %s',
                                ['Main script', Parser.row, Parser.col,
                                Parser.pos, DirectiveArgs]))
       else
         psWriteln(format('Error: In file %s: at row: %d, col: %d, pos %d: %s',
                              [FileName, Parser.row, Parser.col,
-                             Parser.pos, DirectiveArgs]));
-      HandleError(Parser.Row + 1, Parser.Col, Parser.Pos, 'Error at ' + DirectiveArgs, errCompile, FileName);
+                             Parser.pos, DirectiveArgs])); }
+      HandleError(Parser.Row + 1, Parser.Col, Parser.Pos, 'Error: ' + DirectiveArgs, errCompile, FileName);
       raise EPSPreProcessor.Create('ERROR directive found');
     end;
   end else