浏览代码

pas2js: marked allowed writeln

mattias 1 年之前
父节点
当前提交
92e960c49a
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      utils/pas2js/webidl2pas.pp

+ 2 - 0
utils/pas2js/webidl2pas.pp

@@ -127,7 +127,9 @@ procedure TWebIDLToPasApplication.DoRun;
 
 
   procedure E(const Msg: string);
   procedure E(const Msg: string);
   begin
   begin
+    {AllowWriteln}
     writeln('Error: ',Msg);
     writeln('Error: ',Msg);
+    {AllowWriteln-}
     Halt(1);
     Halt(1);
   end;
   end;