anchor.diff:       else raise Exception.CreateFmt('Unhandled condition (%0:s)', [Value]);
      end;
   begin
  -   CheckEquals(112, sizeof(git_commit),             'git_commit');
  +   CheckEquals( 88, sizeof(git_commit),             'git_commit');
   
      CheckEquals(  0, offsetof('object_'),           'object_');
  -   CheckEquals( 56, offsetof('parent_oids'),       'parent_oids');
  -   CheckEquals( 76, offsetof('tree_oid'),          'tree_oid');
  -   CheckEquals( 96, offsetof('author'),            'author');
  -   CheckEquals(100, offsetof('committer'),         'committer');
  -   CheckEquals(104, offsetof('message_'),          'message_');
  -   CheckEquals(108, offsetof('message_short'),     'message_short');
  +   CheckEquals( 32, offsetof('parent_oids'),       'parent_oids');
  +   CheckEquals( 52, offsetof('tree_oid'),          'tree_oid');
  +   CheckEquals( 72, offsetof('author'),            'author');
  +   CheckEquals( 76, offsetof('committer'),         'committer');
  +   CheckEquals( 80, offsetof('message_'),          'message_');
  +   CheckEquals( 84, offsetof('message_short'),     'message_short');
   end;
   
   procedure TTestGitRecords.Test_git_index;
  
positive.code:    CheckEquals( 48, sizeof(git_index),              'git_index');
     CheckEquals(  8, sizeof(git_hashtable_node),     'git_hashtable_node');
     CheckEquals( 28, sizeof(git_hashtable),          'git_hashtable');
     CheckEquals( 60, sizeof(git_repository),         'git_repository');
     CheckEquals( 32, sizeof(git_tree_entry),         'git_tree_entry');
     CheckEquals( 76, sizeof(git_tree),               'git_tree');
     CheckEquals(  8, sizeof(git_refcache),           'git_refcache');
  end;
  
  
negative.code:      else raise Exception.CreateFmt('Unhandled condition (%0:s)', [Value]);
     end;
  begin
     CheckEquals( 68, sizeof(git_tag),               'git_tag size');
  
     CheckEquals(  0, offsetof('object_'),           'object_');
     CheckEquals( 32, offsetof('target'),            'target');
     CheckEquals( 52, offsetof('type_'),             'type_');
     CheckEquals( 56, offsetof('tag_name'),          'tag_name');
     CheckEquals( 60, offsetof('tagger'),            'tagger');
     CheckEquals( 64, offsetof('message_'),          'message_');
  end;
  
  procedure TTestGitRecords.Test_git_time;
  