anchor.diff:      begin
         TypeInfo := ParamList.FindNode(sTYPE);
         ParamKind := ParamList.GetAttribute('kind');
  +      ParamExpr := ParamList.FindNode(sEXPRESSION);
  +
         for Param in ParamList.ChildNodes do
         begin
           if not SameText(Param.Name, sNAME) then
  
positive.code:         FStack.AddChild(Param.Clone);
          if Assigned(TypeInfo) then
            FStack.AddChild(TypeInfo.Clone);
  
          FStack.Pop;
        end;
  
negative.code: procedure TPasSyntaxTreeBuilder.FormalParameterList;
  var
    Params: TSyntaxNode;
    ParamList, Param, TypeInfo, ParamExpr: TSyntaxNode;
    ParamKind: string;
    Position: TTokenPoint;
  begin
  