Ver Fonte

* Check for nil

git-svn-id: trunk@27475 -
michael há 11 anos atrás
pai
commit
e05b77e759
1 ficheiros alterados com 3 adições e 0 exclusões
  1. 3 0
      packages/fcl-js/src/jswriter.pp

+ 3 - 0
packages/fcl-js/src/jswriter.pp

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