anchor.diff:     git_oid_mkstr(@entry_id, tree_oid);
      for i := 0 to entry_count - 1 do
      begin
  -      filename := Format('file%d.txt', [i]);
  +      filename := AnsiString(Format('file%d.txt', [i]));
         must_pass(git_tree_add_entry(tree, @entry_id, PAnsiChar(filename), OctalToInt('040000')));
      end;
   
  
positive.code:    TArray6 = array[0..5] of Integer;
  const
     commit_head = 'a4a7dce85cf63874e984719f4fdd239f5145052f';
     commit_ids: array[0..5] of string = (
        'a4a7dce85cf63874e984719f4fdd239f5145052f', { 0 }
        '9fd738e8f7967c078dceed8190330fc8648ee56a', { 1 }
        '4a202b346bb0fb0db7eff3cffeb3c70babbd2045', { 2 }
  
negative.code: 
  procedure TTestsFromLibGit2.index_load_test_0601;
  var
     path: AnsiString;
     index: Pgit_index;
     i, offset: Integer;
     entries: PPgit_index_entry;
     e: Pgit_index_entry;
  begin
     path := AnsiString(StringReplace(ExtractFilePath(ParamStr(0)) + TEST_INDEX_PATH, '/', '\', [rfReplaceAll]));
  
     must_pass(git_index_open_bare(index, PAnsiChar(path)));
  
  