paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 06:21:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Check for nil

Browse Source 
git-svn-id: trunk@27475 -
This commit is contained in:
michael 2014-04-05 09:07:00 +00:00
parent 0c50662156
commit e05b77e759
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-js/src/jswriter.pp
View File

@ -154,6 +154,7 @@ implementation
Resourcestring
SErrUnknownJSClass = 'Unknown javascript element class : %s';
SErrNilNode = 'Nil node in Javascript';
{ TBufferWriter }
@ -1140,6 +1141,8 @@ begin
WriteFunctionDeclarationStatement(TJSFunctionDeclarationStatement(el))
else if (el is TJSSourceElements) then
WriteSourceElements(TJSSourceElements(el))
else if EL=Nil then
Error(SErrNilNode)
else
Error(SErrUnknownJSClass,[El.ClassName]);
// Write('/* '+EL.ClassName+' */');