anchor.diff:  end;
   
   
  -procedure TJSONProtocolImpl.PushContext( aCtx : TJSONBaseContext);
  -begin
  -  FContextStack.Push( FContext);
  -  FContext := aCtx;
  -end;
  -
  -procedure TJSONProtocolImpl.PopContext;
  -begin
  -  FreeAndNil(FContext);
  -  FContext := FContextStack.Pop;
  -end;
  -
  -
   constructor TJSONProtocolImpl.Create( aTrans : ITransport);
   begin
     inherited Create( aTrans);
  
positive.code: destructor TJSONProtocolImpl.Destroy;
  begin
    try
      FreeAndNil( FReader);
      FreeAndNil( FContext);
      FreeAndNil( FContextStack);
    finally
      inherited Destroy;
    end;
  end;
  
  
  
negative.code: 
  procedure TJSONProtocolImpl.WriteMessageBegin( aMsg : IMessage);
  begin
    ResetContextStack;  // THRIFT-1473
  
    WriteJSONArrayStart;
    WriteJSONInteger(VERSION);
  
  