moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 23:00:18 -05:00
Code Issues Releases Wiki Activity

Directives: WARNING directive change.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-02-21 17:40:55 +01:00
parent 45b215efd9
commit 207fe1048b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Units/MMLAddon/mmlpsthread.pas
View File

@ -495,15 +495,15 @@ begin
if (DirectiveArgs <> '') then if (DirectiveArgs <> '') then
begin begin
Result := True; Result := True;
if FileName = '' then {if FileName = '' then
psWriteln(format('Error: In %s: at row: %d, col: %d, pos %d: %s', psWriteln(format('Error: In %s: at row: %d, col: %d, pos %d: %s',
['Main script', Parser.row, Parser.col, ['Main script', Parser.row, Parser.col,
Parser.pos, DirectiveArgs])) Parser.pos, DirectiveArgs]))
else else
psWriteln(format('Error: In file %s: at row: %d, col: %d, pos %d: %s', psWriteln(format('Error: In file %s: at row: %d, col: %d, pos %d: %s',
[FileName, Parser.row, Parser.col, [FileName, Parser.row, Parser.col,
Parser.pos, DirectiveArgs])); Parser.pos, DirectiveArgs])); }
HandleError(Parser.Row + 1, Parser.Col, Parser.Pos, 'Error at ' + DirectiveArgs, errCompile, FileName); HandleError(Parser.Row + 1, Parser.Col, Parser.Pos, 'Error: ' + DirectiveArgs, errCompile, FileName);
raise EPSPreProcessor.Create('ERROR directive found'); raise EPSPreProcessor.Create('ERROR directive found');
end; end;
end else end else