Răsfoiți Sursa

pastojs: checked writeln

git-svn-id: trunk@40495 -
Mattias Gaertner 6 ani în urmă
părinte
comite
1e15e35eab
1 a modificat fișierele cu 3 adăugiri și 2 ștergeri
  1. 3 2
      utils/pas2js/webfilecache.pp

+ 3 - 2
utils/pas2js/webfilecache.pp

@@ -211,8 +211,7 @@ begin
     if RaiseOnError then
       Raise EFileNotFoundError.Create('File not loaded '+FileName)
 {$IFDEF VERBOSEWEBCACHE}
-    else
-      Writeln('File not loaded '+FileName);
+    else Writeln('File not loaded '+FileName);
 {$ENDIF}
 end;
 
@@ -451,7 +450,9 @@ begin
   for I:=0 to MS.Length-1 do
     begin
     v:=MS[i];
+    {AllowWriteln}
     Writeln('Char ',i,'(',v,') : ',TJSString.fromCharCode(v));
+    {AllowWriteln-}
     aContent:=aContent+TJSString.fromCharCode(MS[i]);
     end;
   SetFileContent(FileName,aContent);