anchor.diff:       else raise Exception.CreateFmt('Unhandled condition (%0:s)', [Value]);
      end;
   begin
  -   CheckEquals( 92, sizeof(git_tag),               'git_tag size');
  +   CheckEquals( 68, sizeof(git_tag),               'git_tag size');
   
      CheckEquals(  0, offsetof('object_'),           'object_');
  -   CheckEquals( 56, offsetof('target'),            'target');
  -   CheckEquals( 76, offsetof('type_'),             'type_');
  -   CheckEquals( 80, offsetof('tag_name'),          'tag_name');
  -   CheckEquals( 84, offsetof('tagger'),            'tagger');
  -   CheckEquals( 88, offsetof('message_'),          'message_');
  +   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;
  
positive.code:      else if Value = 'read'               then Result := Integer(@item.read) - Integer(@item)
       else if Value = 'read_header'        then Result := Integer(@item.read_header) - Integer(@item)
       else if Value = 'write'              then Result := Integer(@item.write) - Integer(@item)
       else if Value = 'exists'             then Result := Integer(@item.exists) - Integer(@item)
       else if Value = 'free'               then Result := Integer(@item.free) - Integer(@item)
       else raise Exception.CreateFmt('Unhandled condition (%0:s)', [Value]);
     end;
  begin
     CheckEquals( 24, sizeof(git_odb_backend),       'git_odb_backend size');
  
     CheckEquals(  0, offsetof('odb'),               'odb');
     CheckEquals(  4, offsetof('read'),              'read');
     CheckEquals(  8, offsetof('read_header'),       'read_header');
     CheckEquals( 12, offsetof('write'),             'write');
     CheckEquals( 16, offsetof('exists'),            'exists');
     CheckEquals( 20, offsetof('free'),              'free');
  end;
  
  procedure TTestGitRecords.Test_git_reference;
  
negative.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( 64, sizeof(git_repository),         'git_repository');
     CheckEquals( 32, sizeof(git_tree_entry),         'git_tree_entry');
     CheckEquals( 52, sizeof(git_tree),               'git_tree');
     CheckEquals(  8, sizeof(git_refcache),           'git_refcache');
  end;
  
  