paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:11:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: checked writeln

Browse Source 
git-svn-id: trunk@40495 -
This commit is contained in:
Mattias Gaertner 2018-12-07 17:16:14 +00:00
parent ca95175b1a
commit 1e15e35eab
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/pas2js/webfilecache.pp
View File

@ -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);