- removed some dataconstn remenants

git-svn-id: trunk@35314 -

compiler/htypechk.pas

@@ -1746,13 +1746,6 @@ implementation
                  mayberesettypeconvs;
                  exit;
                end;
-             dataconstn:
-               begin
-                 { only created internally, so no additional checks necessary }
-                 result:=true;
-                 mayberesettypeconvs;
-                 exit;
-               end;
              nothingn :
                begin
                  { generics can generate nothing nodes, just allow everything }

compiler/node.pas

@@ -108,7 +108,6 @@ interface
           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 }
           objcselectorn,    { node for an Objective-C message selector }
           objcprotocoln,    { node for an Objective-C @protocol() expression (returns metaclass associated with protocol) }
           specializen       { parser-only node to handle Delphi-mode inline specializations }
@@ -193,7 +192,6 @@ interface
           'guidconstn',
           'rttin',
           'loadparentfpn',
-          'dataconstn',
           'objcselectorn',
           'objcprotocoln',
           'specializen');
@@ -202,7 +200,6 @@ interface
       nodetype_const = [ordconstn,
                         pointerconstn,
                         stringconstn,
-                        dataconstn,
                         guidconstn,
                         realconstn];
 

compiler/optconstprop.pas

@@ -93,7 +93,7 @@ unit optconstprop;
           iterate manually here so we have full controll how all nodes are processed }
 
         { We cannot analyze beyond those nodes, so we terminate to be on the safe side }
-        if (n.nodetype in [addrn,derefn,dataconstn,asmn,withn,casen,whilerepeatn,labeln,continuen,breakn,
+        if (n.nodetype in [addrn,derefn,asmn,withn,casen,whilerepeatn,labeln,continuen,breakn,
                            tryexceptn,raisen,tryfinallyn,onn,loadparentfpn,loadvmtaddrn,guidconstn,rttin,addoptn,asn,goton,
                            objcselectorn,objcprotocoln]) then
           exit(false)

compiler/pass_2.pas

@@ -153,7 +153,6 @@ implementation
              'guidconstn',
              'rttin',
              'loadparentfpn',
-             'dataconstn',
              'objselectorn',
              'objcprotocoln',
              'specializen'

compiler/ppu.pas

@@ -43,7 +43,7 @@ type
 {$endif Test_Double_checksum}
 
 const
-  CurrentPPUVersion = 189;
+  CurrentPPUVersion = 190;
 
 { unit flags }
   uf_init                = $000001; { unit has initialization section }