anchor.diff:    arg0 : ShortInt;
     arg1 : Integer;
     arg2 : Int64;
  -  multiDict : IThriftDictionary<SmallInt, string>;
  +  arg3 : IThriftDictionary<SmallInt, string>;
     arg4 : TNumberz;
     arg5 : Int64;
     StartTick : Cardinal;
     k : Integer;
     proc : TThreadProcedure;
  +  hello, goodbye : IXtruct;
  +  crazy : IInsanity;
  +  looney : IInsanity;
  +  first_map : IThriftDictionary<TNumberz, IInsanity>;
  +  second_map : IThriftDictionary<TNumberz, IInsanity>;
   
   begin
     client := TThriftTest.TClient.Create( FProtocol);
  
positive.code:   truck.I64_thing := 8;
    insane.Xtructs := TThriftListImpl<IXtruct>.Create;
    insane.Xtructs.Add( truck );
    Console.Write('testInsanity()');
    whoa := client.testInsanity( insane );
    Console.Write(' = {');
    for key64 in whoa.Keys do
  
negative.code:   end;
  
  implementation
  
  function BoolToString( b : Boolean) : string;
  // overrides global BoolToString()
  begin
    if b
    then result := 'true'
    else result := 'false';
  end;
  
  
  { TTestClient }
  