paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-25 11:58:17 +02: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 if RaiseOnError then
Raise EFileNotFoundError.Create('File not loaded '+FileName) Raise EFileNotFoundError.Create('File not loaded '+FileName)
{$IFDEF VERBOSEWEBCACHE} {$IFDEF VERBOSEWEBCACHE}
else else Writeln('File not loaded '+FileName);
Writeln('File not loaded '+FileName);
{$ENDIF} {$ENDIF}
end; end;
@ -451,7 +450,9 @@ begin
for I:=0 to MS.Length-1 do for I:=0 to MS.Length-1 do
begin begin
v:=MS[i]; v:=MS[i];
{AllowWriteln}
Writeln('Char ',i,'(',v,') : ',TJSString.fromCharCode(v)); Writeln('Char ',i,'(',v,') : ',TJSString.fromCharCode(v));
{AllowWriteln-}
aContent:=aContent+TJSString.fromCharCode(MS[i]); aContent:=aContent+TJSString.fromCharCode(MS[i]);
end; end;
SetFileContent(FileName,aContent); SetFileContent(FileName,aContent);