+ tdataconstnode, implemented for usage in dispatch stuff

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@5208 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 6 deletions

diff --git a/compiler/node.pas b/compiler/node.pas
index d28b680fc4..63101757b0 100644
--- a/compiler/node.pas
+++ b/compiler/node.pas
@@ -104,11 +104,12 @@ interface
           temprefn,         { references to temps }
           tempdeleten,      { for temps in the result/firstpass }
           addoptn,          { added for optimizations where we cannot suppress }
-          nothingn,         {NOP, Do nothing}
-          loadvmtaddrn,         {Load the address of the VMT of a class/object}
-          guidconstn,       {A GUID COM Interface constant }
-          rttin,             {Rtti information so they can be accessed in result/firstpass}
-          loadparentfpn  { Load the framepointer of the parent for nested procedures }
+          nothingn,         { NOP, Do nothing}
+          loadvmtaddrn,     { Load the address of the VMT of a class/object}
+          guidconstn,       { A GUID COM Interface constant }
+          rttin,            { Rtti information so they can be accessed in result/firstpass}
+          loadparentfpn,    { Load the framepointer of the parent for nested procedures }
+          dataconstn        { node storing some binary data }
        );
 
        tnodetypeset = set of tnodetype;
@@ -189,7 +190,8 @@ interface
           'loadvmtaddrn',
           'guidconstn',
           'rttin',
-          'loadparentfpn');
+          'loadparentfpn',
+          'dataconstn');
 
     type
        { all boolean field of ttree are now collected in flags }