RomanYankovsky#250 record constants are not recorded correctly

This is esp. evident in the following example:
const
  OperatorsInfo: array [0..2] of TOperatorInfo =
    ((Typ: ntAddr;         AssocType: atRight),
     (Typ: ntDeref;        AssocType: atLeft),
     (Typ: ntGeneric;      AssocType: atRight));

All constants are incorrectly listed as one long list, instead of as separate records.

Author: jbontes

Source/DelphiAST.Consts.pas

@@ -116,6 +116,7 @@ interface
     ntProperty,
     ntRaise,
     ntRead,
+    ntRecordConstant,
     ntRecordConstraint,
     ntRecordVariant,
     ntRepeat,

Source/DelphiAST.pas

@@ -216,6 +216,7 @@   TPasSyntaxTreeBuilder = class(TmwSimplePasPar)
     procedure PropertyParameterList; override;
     procedure RaiseStatement; override;
     procedure RecordConstraint; override;
+    procedure RecordConstant; override;
     procedure RecordFieldConstant; override;
     procedure RecordType; override;
     procedure RecordVariant; override;
@@ -333,7 +334,7 @@     TStringStreamHelper = class helper for TStringStream
 // do not use const strings here to prevent allocating new strings every time
 
 type
-  TAttributeValue = (atAsm, atTrue, atFunction, atProcedure, atOperator, atClassOf, atClass,
+  TAttributeValue = (atAsm, atTrue, atFunction, atProcedure, atOperator, atClass_Of, atClass,
     atConst, atConstructor, atDestructor, atEnum, atInterface, atNil, atNumeric,
     atOut, atPointer, atName, atString, atSubRange, atVar, atType{ExplicitType},
     atObject, atSealed, atAbstract, atBegin, atOf_Object{procedure of object},
@@ -984,7 +985,7 @@ procedure TPasSyntaxTreeBuilder.ClassProperty;
 
 procedure TPasSyntaxTreeBuilder.ClassReferenceType;
 begin
-  FStack.Push(ntType).Attribute[anType]:= AttributeValues[atClassof];
+  FStack.Push(ntType).Attribute[anType]:= AttributeValues[atClass_of];
   try
     inherited;
   finally
@@ -1143,6 +1144,15 @@ procedure TPasSyntaxTreeBuilder.ConstructorConstraint;
   end;  
 end;
 
+procedure TPasSyntaxTreeBuilder.RecordConstant;
+begin
+  FStack.Push(ntRecordConstant);
+  try
+    inherited;
+  finally
+    FStack.Pop;
+  end;
+end;
 procedure TPasSyntaxTreeBuilder.RecordConstraint;
 begin
   FStack.Push(ntRecordConstraint);
@@ -2190,9 +2200,17 @@ procedure TPasSyntaxTreeBuilder.RecordFieldConstant;
 var
   Node: TSyntaxNode;
 begin
-  Node := FStack.PushValuedNode(ntField, Lexer.Token);
+  //A field in a record constant should have exactly the same layout
+  //as a field in a class.
+  //ntField (class)
+  //+-- ntName (anName = name)
+  //+-- ntType
+  //Recordconstant
+  //ntField (recordconstant)
+  //+-- ntName
+  //+-- ntExpression.
+  FStack.Push(ntField).AddChild(ntName).Attribute[anName]:= Lexer.Token;
   try
-    Node.Attribute[anType]:= AttributeValues[atName];
     inherited;
   finally
     FStack.Pop;