12 #include "streaming.h"
13 #include "thread-utils.h"
15 static const char index_pack_usage
[] =
16 "git index-pack [-v] [-o <index-file>] [--keep | --keep=<msg>] [--verify] [--strict] (<pack-file> | --stdin [--fix-thin] [<pack-file>])";
19 struct pack_idx_entry idx
;
21 unsigned char hdr_size
;
23 signed char real_type
;
32 unsigned char sha1
[20];
37 struct base_data
*base
;
38 struct base_data
*child
;
39 struct object_entry
*obj
;
42 int ref_first
, ref_last
;
43 int ofs_first
, ofs_last
;
50 struct base_data
*base_cache
;
51 size_t base_cache_used
;
56 * Even if sizeof(union delta_base) == 24 on 64-bit archs, we really want
57 * to memcmp() only the first 20 bytes.
59 #define UNION_BASE_SZ 20
61 #define FLAG_LINK (1u<<20)
62 #define FLAG_CHECKED (1u<<21)
65 union delta_base base
;
69 static struct object_entry
*objects
;
70 static struct object_stat
*obj_stat
;
71 static struct delta_entry
*deltas
;
72 static struct thread_local nothread_data
;
73 static int nr_objects
;
75 static int nr_resolved_deltas
;
76 static int nr_threads
;
78 static int from_stdin
;
80 static int do_fsck_object
;
83 static int check_self_contained_and_connected
;
85 static struct progress
*progress
;
87 /* We always read in 4kB chunks. */
88 static unsigned char input_buffer
[4096];
89 static unsigned int input_offset
, input_len
;
90 static off_t consumed_bytes
;
91 static unsigned deepest_delta
;
92 static git_SHA_CTX input_ctx
;
93 static uint32_t input_crc32
;
94 static int input_fd
, output_fd
;
95 static const char *curr_pack
;
99 static struct thread_local
*thread_data
;
100 static int nr_dispatched
;
101 static int threads_active
;
103 static pthread_mutex_t read_mutex
;
104 #define read_lock() lock_mutex(&read_mutex)
105 #define read_unlock() unlock_mutex(&read_mutex)
107 static pthread_mutex_t counter_mutex
;
108 #define counter_lock() lock_mutex(&counter_mutex)
109 #define counter_unlock() unlock_mutex(&counter_mutex)
111 static pthread_mutex_t work_mutex
;
112 #define work_lock() lock_mutex(&work_mutex)
113 #define work_unlock() unlock_mutex(&work_mutex)
115 static pthread_mutex_t deepest_delta_mutex
;
116 #define deepest_delta_lock() lock_mutex(&deepest_delta_mutex)
117 #define deepest_delta_unlock() unlock_mutex(&deepest_delta_mutex)
119 static pthread_mutex_t type_cas_mutex
;
120 #define type_cas_lock() lock_mutex(&type_cas_mutex)
121 #define type_cas_unlock() unlock_mutex(&type_cas_mutex)
123 static pthread_key_t key
;
125 static inline void lock_mutex(pthread_mutex_t
*mutex
)
128 pthread_mutex_lock(mutex
);
131 static inline void unlock_mutex(pthread_mutex_t
*mutex
)
134 pthread_mutex_unlock(mutex
);
138 * Mutex and conditional variable can't be statically-initialized on Windows.
140 static void init_thread(void)
143 init_recursive_mutex(&read_mutex
);
144 pthread_mutex_init(&counter_mutex
, NULL
);
145 pthread_mutex_init(&work_mutex
, NULL
);
146 pthread_mutex_init(&type_cas_mutex
, NULL
);
148 pthread_mutex_init(&deepest_delta_mutex
, NULL
);
149 pthread_key_create(&key
, NULL
);
150 thread_data
= xcalloc(nr_threads
, sizeof(*thread_data
));
151 for (i
= 0; i
< nr_threads
; i
++) {
152 thread_data
[i
].pack_fd
= open(curr_pack
, O_RDONLY
);
153 if (thread_data
[i
].pack_fd
== -1)
154 die_errno(_("unable to open %s"), curr_pack
);
160 static void cleanup_thread(void)
166 pthread_mutex_destroy(&read_mutex
);
167 pthread_mutex_destroy(&counter_mutex
);
168 pthread_mutex_destroy(&work_mutex
);
169 pthread_mutex_destroy(&type_cas_mutex
);
171 pthread_mutex_destroy(&deepest_delta_mutex
);
172 for (i
= 0; i
< nr_threads
; i
++)
173 close(thread_data
[i
].pack_fd
);
174 pthread_key_delete(key
);
181 #define read_unlock()
183 #define counter_lock()
184 #define counter_unlock()
187 #define work_unlock()
189 #define deepest_delta_lock()
190 #define deepest_delta_unlock()
192 #define type_cas_lock()
193 #define type_cas_unlock()
198 static int mark_link(struct object
*obj
, int type
, void *data
)
203 if (type
!= OBJ_ANY
&& obj
->type
!= type
)
204 die(_("object type mismatch at %s"), sha1_to_hex(obj
->sha1
));
206 obj
->flags
|= FLAG_LINK
;
210 /* The content of each linked object must have been checked
211 or it must be already present in the object database */
212 static unsigned check_object(struct object
*obj
)
217 if (!(obj
->flags
& FLAG_LINK
))
220 if (!(obj
->flags
& FLAG_CHECKED
)) {
222 int type
= sha1_object_info(obj
->sha1
, &size
);
224 die(_("did not receive expected object %s"),
225 sha1_to_hex(obj
->sha1
));
226 if (type
!= obj
->type
)
227 die(_("object %s: expected type %s, found %s"),
228 sha1_to_hex(obj
->sha1
),
229 typename(obj
->type
), typename(type
));
230 obj
->flags
|= FLAG_CHECKED
;
237 static unsigned check_objects(void)
239 unsigned i
, max
, foreign_nr
= 0;
241 max
= get_max_object_index();
242 for (i
= 0; i
< max
; i
++)
243 foreign_nr
+= check_object(get_indexed_object(i
));
248 /* Discard current buffer used content. */
249 static void flush(void)
253 write_or_die(output_fd
, input_buffer
, input_offset
);
254 git_SHA1_Update(&input_ctx
, input_buffer
, input_offset
);
255 memmove(input_buffer
, input_buffer
+ input_offset
, input_len
);
261 * Make sure at least "min" bytes are available in the buffer, and
262 * return the pointer to the buffer.
264 static void *fill(int min
)
266 if (min
<= input_len
)
267 return input_buffer
+ input_offset
;
268 if (min
> sizeof(input_buffer
))
269 die(Q_("cannot fill %d byte",
270 "cannot fill %d bytes",
275 ssize_t ret
= xread(input_fd
, input_buffer
+ input_len
,
276 sizeof(input_buffer
) - input_len
);
280 die_errno(_("read error on input"));
284 display_throughput(progress
, consumed_bytes
+ input_len
);
285 } while (input_len
< min
);
289 static void use(int bytes
)
291 if (bytes
> input_len
)
292 die(_("used more bytes than were available"));
293 input_crc32
= crc32(input_crc32
, input_buffer
+ input_offset
, bytes
);
295 input_offset
+= bytes
;
297 /* make sure off_t is sufficiently large not to wrap */
298 if (signed_add_overflows(consumed_bytes
, bytes
))
299 die(_("pack too large for current definition of off_t"));
300 consumed_bytes
+= bytes
;
303 static const char *open_pack_file(const char *pack_name
)
308 static char tmp_file
[PATH_MAX
];
309 output_fd
= odb_mkstemp(tmp_file
, sizeof(tmp_file
),
310 "pack/tmp_pack_XXXXXX");
311 pack_name
= xstrdup(tmp_file
);
313 output_fd
= open(pack_name
, O_CREAT
|O_EXCL
|O_RDWR
, 0600);
315 die_errno(_("unable to create '%s'"), pack_name
);
316 nothread_data
.pack_fd
= output_fd
;
318 input_fd
= open(pack_name
, O_RDONLY
);
320 die_errno(_("cannot open packfile '%s'"), pack_name
);
322 nothread_data
.pack_fd
= input_fd
;
324 git_SHA1_Init(&input_ctx
);
328 static void parse_pack_header(void)
330 struct pack_header
*hdr
= fill(sizeof(struct pack_header
));
332 /* Header consistency check */
333 if (hdr
->hdr_signature
!= htonl(PACK_SIGNATURE
))
334 die(_("pack signature mismatch"));
335 if (!pack_version_ok(hdr
->hdr_version
))
336 die(_("pack version %"PRIu32
" unsupported"),
337 ntohl(hdr
->hdr_version
));
339 nr_objects
= ntohl(hdr
->hdr_entries
);
340 use(sizeof(struct pack_header
));
343 static NORETURN
void bad_object(unsigned long offset
, const char *format
,
344 ...) __attribute__((format (printf
, 2, 3)));
346 static NORETURN
void bad_object(unsigned long offset
, const char *format
, ...)
351 va_start(params
, format
);
352 vsnprintf(buf
, sizeof(buf
), format
, params
);
354 die(_("pack has bad object at offset %lu: %s"), offset
, buf
);
357 static inline struct thread_local
*get_thread_data(void)
361 return pthread_getspecific(key
);
362 assert(!threads_active
&&
363 "This should only be reached when all threads are gone");
365 return ¬hread_data
;
369 static void set_thread_data(struct thread_local
*data
)
372 pthread_setspecific(key
, data
);
376 static struct base_data
*alloc_base_data(void)
378 struct base_data
*base
= xcalloc(1, sizeof(struct base_data
));
384 static void free_base_data(struct base_data
*c
)
389 get_thread_data()->base_cache_used
-= c
->size
;
393 static void prune_base_data(struct base_data
*retain
)
396 struct thread_local
*data
= get_thread_data();
397 for (b
= data
->base_cache
;
398 data
->base_cache_used
> delta_base_cache_limit
&& b
;
400 if (b
->data
&& b
!= retain
)
405 static void link_base_data(struct base_data
*base
, struct base_data
*c
)
410 get_thread_data()->base_cache
= c
;
415 get_thread_data()->base_cache_used
+= c
->size
;
419 static void unlink_base_data(struct base_data
*c
)
421 struct base_data
*base
= c
->base
;
425 get_thread_data()->base_cache
= NULL
;
429 static int is_delta_type(enum object_type type
)
431 return (type
== OBJ_REF_DELTA
|| type
== OBJ_OFS_DELTA
);
434 static void *unpack_entry_data(unsigned long offset
, unsigned long size
,
435 enum object_type type
, unsigned char *sha1
)
437 static char fixed_buf
[8192];
445 if (!is_delta_type(type
)) {
446 hdrlen
= sprintf(hdr
, "%s %lu", typename(type
), size
) + 1;
448 git_SHA1_Update(&c
, hdr
, hdrlen
);
451 if (type
== OBJ_BLOB
&& size
> big_file_threshold
)
454 buf
= xmallocz(size
);
456 memset(&stream
, 0, sizeof(stream
));
457 git_inflate_init(&stream
);
458 stream
.next_out
= buf
;
459 stream
.avail_out
= buf
== fixed_buf
? sizeof(fixed_buf
) : size
;
462 unsigned char *last_out
= stream
.next_out
;
463 stream
.next_in
= fill(1);
464 stream
.avail_in
= input_len
;
465 status
= git_inflate(&stream
, 0);
466 use(input_len
- stream
.avail_in
);
468 git_SHA1_Update(&c
, last_out
, stream
.next_out
- last_out
);
469 if (buf
== fixed_buf
) {
470 stream
.next_out
= buf
;
471 stream
.avail_out
= sizeof(fixed_buf
);
473 } while (status
== Z_OK
);
474 if (stream
.total_out
!= size
|| status
!= Z_STREAM_END
)
475 bad_object(offset
, _("inflate returned %d"), status
);
476 git_inflate_end(&stream
);
478 git_SHA1_Final(sha1
, &c
);
479 return buf
== fixed_buf
? NULL
: buf
;
482 static void *unpack_raw_entry(struct object_entry
*obj
,
483 union delta_base
*delta_base
,
487 unsigned long size
, c
;
492 obj
->idx
.offset
= consumed_bytes
;
493 input_crc32
= crc32(0, NULL
, 0);
498 obj
->type
= (c
>> 4) & 7;
505 size
+= (c
& 0x7f) << shift
;
512 hashcpy(delta_base
->sha1
, fill(20));
516 memset(delta_base
, 0, sizeof(*delta_base
));
520 base_offset
= c
& 127;
523 if (!base_offset
|| MSB(base_offset
, 7))
524 bad_object(obj
->idx
.offset
, _("offset value overflow for delta base object"));
528 base_offset
= (base_offset
<< 7) + (c
& 127);
530 delta_base
->offset
= obj
->idx
.offset
- base_offset
;
531 if (delta_base
->offset
<= 0 || delta_base
->offset
>= obj
->idx
.offset
)
532 bad_object(obj
->idx
.offset
, _("delta base offset is out of bound"));
540 bad_object(obj
->idx
.offset
, _("unknown object type %d"), obj
->type
);
542 obj
->hdr_size
= consumed_bytes
- obj
->idx
.offset
;
544 data
= unpack_entry_data(obj
->idx
.offset
, obj
->size
, obj
->type
, sha1
);
545 obj
->idx
.crc32
= input_crc32
;
549 static void *unpack_data(struct object_entry
*obj
,
550 int (*consume
)(const unsigned char *, unsigned long, void *),
553 off_t from
= obj
[0].idx
.offset
+ obj
[0].hdr_size
;
554 unsigned long len
= obj
[1].idx
.offset
- from
;
555 unsigned char *data
, *inbuf
;
559 data
= xmallocz(consume
? 64*1024 : obj
->size
);
560 inbuf
= xmalloc((len
< 64*1024) ? len
: 64*1024);
562 memset(&stream
, 0, sizeof(stream
));
563 git_inflate_init(&stream
);
564 stream
.next_out
= data
;
565 stream
.avail_out
= consume
? 64*1024 : obj
->size
;
568 ssize_t n
= (len
< 64*1024) ? len
: 64*1024;
569 n
= xpread(get_thread_data()->pack_fd
, inbuf
, n
, from
);
571 die_errno(_("cannot pread pack file"));
573 die(Q_("premature end of pack file, %lu byte missing",
574 "premature end of pack file, %lu bytes missing",
579 stream
.next_in
= inbuf
;
582 status
= git_inflate(&stream
, 0);
585 status
= git_inflate(&stream
, 0);
586 if (consume(data
, stream
.next_out
- data
, cb_data
)) {
591 stream
.next_out
= data
;
592 stream
.avail_out
= 64*1024;
593 } while (status
== Z_OK
&& stream
.avail_in
);
595 } while (len
&& status
== Z_OK
&& !stream
.avail_in
);
597 /* This has been inflated OK when first encountered, so... */
598 if (status
!= Z_STREAM_END
|| stream
.total_out
!= obj
->size
)
599 die(_("serious inflate inconsistency"));
601 git_inflate_end(&stream
);
610 static void *get_data_from_pack(struct object_entry
*obj
)
612 return unpack_data(obj
, NULL
, NULL
);
615 static int compare_delta_bases(const union delta_base
*base1
,
616 const union delta_base
*base2
,
617 enum object_type type1
,
618 enum object_type type2
)
620 int cmp
= type1
- type2
;
623 return memcmp(base1
, base2
, UNION_BASE_SZ
);
626 static int find_delta(const union delta_base
*base
, enum object_type type
)
628 int first
= 0, last
= nr_deltas
;
630 while (first
< last
) {
631 int next
= (first
+ last
) / 2;
632 struct delta_entry
*delta
= &deltas
[next
];
635 cmp
= compare_delta_bases(base
, &delta
->base
,
636 type
, objects
[delta
->obj_no
].type
);
648 static void find_delta_children(const union delta_base
*base
,
649 int *first_index
, int *last_index
,
650 enum object_type type
)
652 int first
= find_delta(base
, type
);
654 int end
= nr_deltas
- 1;
661 while (first
> 0 && !memcmp(&deltas
[first
- 1].base
, base
, UNION_BASE_SZ
))
663 while (last
< end
&& !memcmp(&deltas
[last
+ 1].base
, base
, UNION_BASE_SZ
))
665 *first_index
= first
;
669 struct compare_data
{
670 struct object_entry
*entry
;
671 struct git_istream
*st
;
673 unsigned long buf_size
;
676 static int compare_objects(const unsigned char *buf
, unsigned long size
,
679 struct compare_data
*data
= cb_data
;
681 if (data
->buf_size
< size
) {
683 data
->buf
= xmalloc(size
);
684 data
->buf_size
= size
;
688 ssize_t len
= read_istream(data
->st
, data
->buf
, size
);
690 die(_("SHA1 COLLISION FOUND WITH %s !"),
691 sha1_to_hex(data
->entry
->idx
.sha1
));
693 die(_("unable to read %s"),
694 sha1_to_hex(data
->entry
->idx
.sha1
));
695 if (memcmp(buf
, data
->buf
, len
))
696 die(_("SHA1 COLLISION FOUND WITH %s !"),
697 sha1_to_hex(data
->entry
->idx
.sha1
));
704 static int check_collison(struct object_entry
*entry
)
706 struct compare_data data
;
707 enum object_type type
;
710 if (entry
->size
<= big_file_threshold
|| entry
->type
!= OBJ_BLOB
)
713 memset(&data
, 0, sizeof(data
));
715 data
.st
= open_istream(entry
->idx
.sha1
, &type
, &size
, NULL
);
718 if (size
!= entry
->size
|| type
!= entry
->type
)
719 die(_("SHA1 COLLISION FOUND WITH %s !"),
720 sha1_to_hex(entry
->idx
.sha1
));
721 unpack_data(entry
, compare_objects
, &data
);
722 close_istream(data
.st
);
727 static void sha1_object(const void *data
, struct object_entry
*obj_entry
,
728 unsigned long size
, enum object_type type
,
729 const unsigned char *sha1
)
731 void *new_data
= NULL
;
732 int collision_test_needed
;
734 assert(data
|| obj_entry
);
737 collision_test_needed
= has_sha1_file(sha1
);
740 if (collision_test_needed
&& !data
) {
742 if (!check_collison(obj_entry
))
743 collision_test_needed
= 0;
746 if (collision_test_needed
) {
748 enum object_type has_type
;
749 unsigned long has_size
;
751 has_type
= sha1_object_info(sha1
, &has_size
);
752 if (has_type
!= type
|| has_size
!= size
)
753 die(_("SHA1 COLLISION FOUND WITH %s !"), sha1_to_hex(sha1
));
754 has_data
= read_sha1_file(sha1
, &has_type
, &has_size
);
757 data
= new_data
= get_data_from_pack(obj_entry
);
759 die(_("cannot read existing object %s"), sha1_to_hex(sha1
));
760 if (size
!= has_size
|| type
!= has_type
||
761 memcmp(data
, has_data
, size
) != 0)
762 die(_("SHA1 COLLISION FOUND WITH %s !"), sha1_to_hex(sha1
));
768 if (type
== OBJ_BLOB
) {
769 struct blob
*blob
= lookup_blob(sha1
);
771 blob
->object
.flags
|= FLAG_CHECKED
;
773 die(_("invalid blob object %s"), sha1_to_hex(sha1
));
777 void *buf
= (void *) data
;
779 assert(data
&& "data can only be NULL for large _blobs_");
782 * we do not need to free the memory here, as the
783 * buf is deleted by the caller.
785 obj
= parse_object_buffer(sha1
, type
, size
, buf
, &eaten
);
787 die(_("invalid %s"), typename(type
));
788 if (do_fsck_object
&&
789 fsck_object(obj
, buf
, size
, 1,
790 fsck_error_function
))
791 die(_("Error in object"));
792 if (fsck_walk(obj
, mark_link
, NULL
))
793 die(_("Not all child objects of %s are reachable"), sha1_to_hex(obj
->sha1
));
795 if (obj
->type
== OBJ_TREE
) {
796 struct tree
*item
= (struct tree
*) obj
;
800 if (obj
->type
== OBJ_COMMIT
) {
801 struct commit
*commit
= (struct commit
*) obj
;
802 if (detach_commit_buffer(commit
, NULL
) != data
)
803 die("BUG: parse_object_buffer transmogrified our buffer");
805 obj
->flags
|= FLAG_CHECKED
;
814 * This function is part of find_unresolved_deltas(). There are two
815 * walkers going in the opposite ways.
817 * The first one in find_unresolved_deltas() traverses down from
818 * parent node to children, deflating nodes along the way. However,
819 * memory for deflated nodes is limited by delta_base_cache_limit, so
820 * at some point parent node's deflated content may be freed.
822 * The second walker is this function, which goes from current node up
823 * to top parent if necessary to deflate the node. In normal
824 * situation, its parent node would be already deflated, so it just
825 * needs to apply delta.
827 * In the worst case scenario, parent node is no longer deflated because
828 * we're running out of delta_base_cache_limit; we need to re-deflate
829 * parents, possibly up to the top base.
831 * All deflated objects here are subject to be freed if we exceed
832 * delta_base_cache_limit, just like in find_unresolved_deltas(), we
833 * just need to make sure the last node is not freed.
835 static void *get_base_data(struct base_data
*c
)
838 struct object_entry
*obj
= c
->obj
;
839 struct base_data
**delta
= NULL
;
840 int delta_nr
= 0, delta_alloc
= 0;
842 while (is_delta_type(c
->obj
->type
) && !c
->data
) {
843 ALLOC_GROW(delta
, delta_nr
+ 1, delta_alloc
);
844 delta
[delta_nr
++] = c
;
848 c
->data
= get_data_from_pack(obj
);
850 get_thread_data()->base_cache_used
+= c
->size
;
853 for (; delta_nr
> 0; delta_nr
--) {
855 c
= delta
[delta_nr
- 1];
857 base
= get_base_data(c
->base
);
858 raw
= get_data_from_pack(obj
);
859 c
->data
= patch_delta(
865 bad_object(obj
->idx
.offset
, _("failed to apply delta"));
866 get_thread_data()->base_cache_used
+= c
->size
;
874 static void resolve_delta(struct object_entry
*delta_obj
,
875 struct base_data
*base
, struct base_data
*result
)
877 void *base_data
, *delta_data
;
880 int i
= delta_obj
- objects
;
881 int j
= base
->obj
- objects
;
882 obj_stat
[i
].delta_depth
= obj_stat
[j
].delta_depth
+ 1;
883 deepest_delta_lock();
884 if (deepest_delta
< obj_stat
[i
].delta_depth
)
885 deepest_delta
= obj_stat
[i
].delta_depth
;
886 deepest_delta_unlock();
887 obj_stat
[i
].base_object_no
= j
;
889 delta_data
= get_data_from_pack(delta_obj
);
890 base_data
= get_base_data(base
);
891 result
->obj
= delta_obj
;
892 result
->data
= patch_delta(base_data
, base
->size
,
893 delta_data
, delta_obj
->size
, &result
->size
);
896 bad_object(delta_obj
->idx
.offset
, _("failed to apply delta"));
897 hash_sha1_file(result
->data
, result
->size
,
898 typename(delta_obj
->real_type
), delta_obj
->idx
.sha1
);
899 sha1_object(result
->data
, NULL
, result
->size
, delta_obj
->real_type
,
900 delta_obj
->idx
.sha1
);
902 nr_resolved_deltas
++;
907 * Standard boolean compare-and-swap: atomically check whether "*type" is
908 * "want"; if so, swap in "set" and return true. Otherwise, leave it untouched
911 static int compare_and_swap_type(signed char *type
,
912 enum object_type want
,
913 enum object_type set
)
915 enum object_type old
;
926 static struct base_data
*find_unresolved_deltas_1(struct base_data
*base
,
927 struct base_data
*prev_base
)
929 if (base
->ref_last
== -1 && base
->ofs_last
== -1) {
930 union delta_base base_spec
;
932 hashcpy(base_spec
.sha1
, base
->obj
->idx
.sha1
);
933 find_delta_children(&base_spec
,
934 &base
->ref_first
, &base
->ref_last
, OBJ_REF_DELTA
);
936 memset(&base_spec
, 0, sizeof(base_spec
));
937 base_spec
.offset
= base
->obj
->idx
.offset
;
938 find_delta_children(&base_spec
,
939 &base
->ofs_first
, &base
->ofs_last
, OBJ_OFS_DELTA
);
941 if (base
->ref_last
== -1 && base
->ofs_last
== -1) {
946 link_base_data(prev_base
, base
);
949 if (base
->ref_first
<= base
->ref_last
) {
950 struct object_entry
*child
= objects
+ deltas
[base
->ref_first
].obj_no
;
951 struct base_data
*result
= alloc_base_data();
953 if (!compare_and_swap_type(&child
->real_type
, OBJ_REF_DELTA
,
954 base
->obj
->real_type
))
955 die("BUG: child->real_type != OBJ_REF_DELTA");
957 resolve_delta(child
, base
, result
);
958 if (base
->ref_first
== base
->ref_last
&& base
->ofs_last
== -1)
959 free_base_data(base
);
965 if (base
->ofs_first
<= base
->ofs_last
) {
966 struct object_entry
*child
= objects
+ deltas
[base
->ofs_first
].obj_no
;
967 struct base_data
*result
= alloc_base_data();
969 assert(child
->real_type
== OBJ_OFS_DELTA
);
970 child
->real_type
= base
->obj
->real_type
;
971 resolve_delta(child
, base
, result
);
972 if (base
->ofs_first
== base
->ofs_last
)
973 free_base_data(base
);
979 unlink_base_data(base
);
983 static void find_unresolved_deltas(struct base_data
*base
)
985 struct base_data
*new_base
, *prev_base
= NULL
;
987 new_base
= find_unresolved_deltas_1(base
, prev_base
);
997 prev_base
= base
->base
;
1002 static int compare_delta_entry(const void *a
, const void *b
)
1004 const struct delta_entry
*delta_a
= a
;
1005 const struct delta_entry
*delta_b
= b
;
1007 /* group by type (ref vs ofs) and then by value (sha-1 or offset) */
1008 return compare_delta_bases(&delta_a
->base
, &delta_b
->base
,
1009 objects
[delta_a
->obj_no
].type
,
1010 objects
[delta_b
->obj_no
].type
);
1013 static void resolve_base(struct object_entry
*obj
)
1015 struct base_data
*base_obj
= alloc_base_data();
1016 base_obj
->obj
= obj
;
1017 base_obj
->data
= NULL
;
1018 find_unresolved_deltas(base_obj
);
1022 static void *threaded_second_pass(void *data
)
1024 set_thread_data(data
);
1028 display_progress(progress
, nr_resolved_deltas
);
1031 while (nr_dispatched
< nr_objects
&&
1032 is_delta_type(objects
[nr_dispatched
].type
))
1034 if (nr_dispatched
>= nr_objects
) {
1038 i
= nr_dispatched
++;
1041 resolve_base(&objects
[i
]);
1049 * - find locations of all objects;
1050 * - calculate SHA1 of all non-delta objects;
1051 * - remember base (SHA1 or offset) for all deltas.
1053 static void parse_pack_objects(unsigned char *sha1
)
1055 int i
, nr_delays
= 0;
1056 struct delta_entry
*delta
= deltas
;
1060 progress
= start_progress(
1061 from_stdin
? _("Receiving objects") : _("Indexing objects"),
1063 for (i
= 0; i
< nr_objects
; i
++) {
1064 struct object_entry
*obj
= &objects
[i
];
1065 void *data
= unpack_raw_entry(obj
, &delta
->base
, obj
->idx
.sha1
);
1066 obj
->real_type
= obj
->type
;
1067 if (is_delta_type(obj
->type
)) {
1072 /* large blobs, check later */
1073 obj
->real_type
= OBJ_BAD
;
1076 sha1_object(data
, NULL
, obj
->size
, obj
->type
, obj
->idx
.sha1
);
1078 display_progress(progress
, i
+1);
1080 objects
[i
].idx
.offset
= consumed_bytes
;
1081 stop_progress(&progress
);
1083 /* Check pack integrity */
1085 git_SHA1_Final(sha1
, &input_ctx
);
1086 if (hashcmp(fill(20), sha1
))
1087 die(_("pack is corrupted (SHA1 mismatch)"));
1090 /* If input_fd is a file, we should have reached its end now. */
1091 if (fstat(input_fd
, &st
))
1092 die_errno(_("cannot fstat packfile"));
1093 if (S_ISREG(st
.st_mode
) &&
1094 lseek(input_fd
, 0, SEEK_CUR
) - input_len
!= st
.st_size
)
1095 die(_("pack has junk at the end"));
1097 for (i
= 0; i
< nr_objects
; i
++) {
1098 struct object_entry
*obj
= &objects
[i
];
1099 if (obj
->real_type
!= OBJ_BAD
)
1101 obj
->real_type
= obj
->type
;
1102 sha1_object(NULL
, obj
, obj
->size
, obj
->type
, obj
->idx
.sha1
);
1106 die(_("confusion beyond insanity in parse_pack_objects()"));
1111 * - for all non-delta objects, look if it is used as a base for
1113 * - if used as a base, uncompress the object and apply all deltas,
1114 * recursively checking if the resulting object is used as a base
1115 * for some more deltas.
1117 static void resolve_deltas(void)
1124 /* Sort deltas by base SHA1/offset for fast searching */
1125 qsort(deltas
, nr_deltas
, sizeof(struct delta_entry
),
1126 compare_delta_entry
);
1129 progress
= start_progress(_("Resolving deltas"), nr_deltas
);
1133 if (nr_threads
> 1 || getenv("GIT_FORCE_THREADS")) {
1135 for (i
= 0; i
< nr_threads
; i
++) {
1136 int ret
= pthread_create(&thread_data
[i
].thread
, NULL
,
1137 threaded_second_pass
, thread_data
+ i
);
1139 die(_("unable to create thread: %s"),
1142 for (i
= 0; i
< nr_threads
; i
++)
1143 pthread_join(thread_data
[i
].thread
, NULL
);
1149 for (i
= 0; i
< nr_objects
; i
++) {
1150 struct object_entry
*obj
= &objects
[i
];
1152 if (is_delta_type(obj
->type
))
1155 display_progress(progress
, nr_resolved_deltas
);
1161 * - append objects to convert thin pack to full pack if required
1162 * - write the final 20-byte SHA-1
1164 static void fix_unresolved_deltas(struct sha1file
*f
, int nr_unresolved
);
1165 static void conclude_pack(int fix_thin_pack
, const char *curr_pack
, unsigned char *pack_sha1
)
1167 if (nr_deltas
== nr_resolved_deltas
) {
1168 stop_progress(&progress
);
1169 /* Flush remaining pack final 20-byte SHA1. */
1174 if (fix_thin_pack
) {
1176 unsigned char read_sha1
[20], tail_sha1
[20];
1177 struct strbuf msg
= STRBUF_INIT
;
1178 int nr_unresolved
= nr_deltas
- nr_resolved_deltas
;
1179 int nr_objects_initial
= nr_objects
;
1180 if (nr_unresolved
<= 0)
1181 die(_("confusion beyond insanity"));
1182 REALLOC_ARRAY(objects
, nr_objects
+ nr_unresolved
+ 1);
1183 memset(objects
+ nr_objects
+ 1, 0,
1184 nr_unresolved
* sizeof(*objects
));
1185 f
= sha1fd(output_fd
, curr_pack
);
1186 fix_unresolved_deltas(f
, nr_unresolved
);
1187 strbuf_addf(&msg
, _("completed with %d local objects"),
1188 nr_objects
- nr_objects_initial
);
1189 stop_progress_msg(&progress
, msg
.buf
);
1190 strbuf_release(&msg
);
1191 sha1close(f
, tail_sha1
, 0);
1192 hashcpy(read_sha1
, pack_sha1
);
1193 fixup_pack_header_footer(output_fd
, pack_sha1
,
1194 curr_pack
, nr_objects
,
1195 read_sha1
, consumed_bytes
-20);
1196 if (hashcmp(read_sha1
, tail_sha1
) != 0)
1197 die(_("Unexpected tail checksum for %s "
1198 "(disk corruption?)"), curr_pack
);
1200 if (nr_deltas
!= nr_resolved_deltas
)
1201 die(Q_("pack has %d unresolved delta",
1202 "pack has %d unresolved deltas",
1203 nr_deltas
- nr_resolved_deltas
),
1204 nr_deltas
- nr_resolved_deltas
);
1207 static int write_compressed(struct sha1file
*f
, void *in
, unsigned int size
)
1211 unsigned char outbuf
[4096];
1213 memset(&stream
, 0, sizeof(stream
));
1214 git_deflate_init(&stream
, zlib_compression_level
);
1215 stream
.next_in
= in
;
1216 stream
.avail_in
= size
;
1219 stream
.next_out
= outbuf
;
1220 stream
.avail_out
= sizeof(outbuf
);
1221 status
= git_deflate(&stream
, Z_FINISH
);
1222 sha1write(f
, outbuf
, sizeof(outbuf
) - stream
.avail_out
);
1223 } while (status
== Z_OK
);
1225 if (status
!= Z_STREAM_END
)
1226 die(_("unable to deflate appended object (%d)"), status
);
1227 size
= stream
.total_out
;
1228 git_deflate_end(&stream
);
1232 static struct object_entry
*append_obj_to_pack(struct sha1file
*f
,
1233 const unsigned char *sha1
, void *buf
,
1234 unsigned long size
, enum object_type type
)
1236 struct object_entry
*obj
= &objects
[nr_objects
++];
1237 unsigned char header
[10];
1238 unsigned long s
= size
;
1240 unsigned char c
= (type
<< 4) | (s
& 15);
1243 header
[n
++] = c
| 0x80;
1249 sha1write(f
, header
, n
);
1251 obj
[0].hdr_size
= n
;
1253 obj
[0].real_type
= type
;
1254 obj
[1].idx
.offset
= obj
[0].idx
.offset
+ n
;
1255 obj
[1].idx
.offset
+= write_compressed(f
, buf
, size
);
1256 obj
[0].idx
.crc32
= crc32_end(f
);
1258 hashcpy(obj
->idx
.sha1
, sha1
);
1262 static int delta_pos_compare(const void *_a
, const void *_b
)
1264 struct delta_entry
*a
= *(struct delta_entry
**)_a
;
1265 struct delta_entry
*b
= *(struct delta_entry
**)_b
;
1266 return a
->obj_no
- b
->obj_no
;
1269 static void fix_unresolved_deltas(struct sha1file
*f
, int nr_unresolved
)
1271 struct delta_entry
**sorted_by_pos
;
1275 * Since many unresolved deltas may well be themselves base objects
1276 * for more unresolved deltas, we really want to include the
1277 * smallest number of base objects that would cover as much delta
1278 * as possible by picking the
1279 * trunc deltas first, allowing for other deltas to resolve without
1280 * additional base objects. Since most base objects are to be found
1281 * before deltas depending on them, a good heuristic is to start
1282 * resolving deltas in the same order as their position in the pack.
1284 sorted_by_pos
= xmalloc(nr_unresolved
* sizeof(*sorted_by_pos
));
1285 for (i
= 0; i
< nr_deltas
; i
++) {
1286 if (objects
[deltas
[i
].obj_no
].real_type
!= OBJ_REF_DELTA
)
1288 sorted_by_pos
[n
++] = &deltas
[i
];
1290 qsort(sorted_by_pos
, n
, sizeof(*sorted_by_pos
), delta_pos_compare
);
1292 for (i
= 0; i
< n
; i
++) {
1293 struct delta_entry
*d
= sorted_by_pos
[i
];
1294 enum object_type type
;
1295 struct base_data
*base_obj
= alloc_base_data();
1297 if (objects
[d
->obj_no
].real_type
!= OBJ_REF_DELTA
)
1299 base_obj
->data
= read_sha1_file(d
->base
.sha1
, &type
, &base_obj
->size
);
1300 if (!base_obj
->data
)
1303 if (check_sha1_signature(d
->base
.sha1
, base_obj
->data
,
1304 base_obj
->size
, typename(type
)))
1305 die(_("local object %s is corrupt"), sha1_to_hex(d
->base
.sha1
));
1306 base_obj
->obj
= append_obj_to_pack(f
, d
->base
.sha1
,
1307 base_obj
->data
, base_obj
->size
, type
);
1308 find_unresolved_deltas(base_obj
);
1309 display_progress(progress
, nr_resolved_deltas
);
1311 free(sorted_by_pos
);
1314 static void final(const char *final_pack_name
, const char *curr_pack_name
,
1315 const char *final_index_name
, const char *curr_index_name
,
1316 const char *keep_name
, const char *keep_msg
,
1317 unsigned char *sha1
)
1319 const char *report
= "pack";
1320 char name
[PATH_MAX
];
1326 fsync_or_die(output_fd
, curr_pack_name
);
1327 err
= close(output_fd
);
1329 die_errno(_("error while closing pack file"));
1333 int keep_fd
, keep_msg_len
= strlen(keep_msg
);
1336 keep_fd
= odb_pack_keep(name
, sizeof(name
), sha1
);
1338 keep_fd
= open(keep_name
, O_RDWR
|O_CREAT
|O_EXCL
, 0600);
1341 if (errno
!= EEXIST
)
1342 die_errno(_("cannot write keep file '%s'"),
1343 keep_name
? keep_name
: name
);
1345 if (keep_msg_len
> 0) {
1346 write_or_die(keep_fd
, keep_msg
, keep_msg_len
);
1347 write_or_die(keep_fd
, "\n", 1);
1349 if (close(keep_fd
) != 0)
1350 die_errno(_("cannot close written keep file '%s'"),
1351 keep_name
? keep_name
: name
);
1356 if (final_pack_name
!= curr_pack_name
) {
1357 if (!final_pack_name
) {
1358 snprintf(name
, sizeof(name
), "%s/pack/pack-%s.pack",
1359 get_object_directory(), sha1_to_hex(sha1
));
1360 final_pack_name
= name
;
1362 if (move_temp_to_file(curr_pack_name
, final_pack_name
))
1363 die(_("cannot store pack file"));
1364 } else if (from_stdin
)
1365 chmod(final_pack_name
, 0444);
1367 if (final_index_name
!= curr_index_name
) {
1368 if (!final_index_name
) {
1369 snprintf(name
, sizeof(name
), "%s/pack/pack-%s.idx",
1370 get_object_directory(), sha1_to_hex(sha1
));
1371 final_index_name
= name
;
1373 if (move_temp_to_file(curr_index_name
, final_index_name
))
1374 die(_("cannot store index file"));
1376 chmod(final_index_name
, 0444);
1379 printf("%s\n", sha1_to_hex(sha1
));
1382 int len
= snprintf(buf
, sizeof(buf
), "%s\t%s\n",
1383 report
, sha1_to_hex(sha1
));
1384 write_or_die(1, buf
, len
);
1387 * Let's just mimic git-unpack-objects here and write
1388 * the last part of the input buffer to stdout.
1391 err
= xwrite(1, input_buffer
+ input_offset
, input_len
);
1395 input_offset
+= err
;
1400 static int git_index_pack_config(const char *k
, const char *v
, void *cb
)
1402 struct pack_idx_option
*opts
= cb
;
1404 if (!strcmp(k
, "pack.indexversion")) {
1405 opts
->version
= git_config_int(k
, v
);
1406 if (opts
->version
> 2)
1407 die(_("bad pack.indexversion=%"PRIu32
), opts
->version
);
1410 if (!strcmp(k
, "pack.threads")) {
1411 nr_threads
= git_config_int(k
, v
);
1413 die(_("invalid number of threads specified (%d)"),
1416 if (nr_threads
!= 1)
1417 warning(_("no threads support, ignoring %s"), k
);
1422 return git_default_config(k
, v
, cb
);
1425 static int cmp_uint32(const void *a_
, const void *b_
)
1427 uint32_t a
= *((uint32_t *)a_
);
1428 uint32_t b
= *((uint32_t *)b_
);
1430 return (a
< b
) ? -1 : (a
!= b
);
1433 static void read_v2_anomalous_offsets(struct packed_git
*p
,
1434 struct pack_idx_option
*opts
)
1436 const uint32_t *idx1
, *idx2
;
1439 /* The address of the 4-byte offset table */
1440 idx1
= (((const uint32_t *)p
->index_data
)
1441 + 2 /* 8-byte header */
1443 + 5 * p
->num_objects
/* 20-byte SHA-1 table */
1444 + p
->num_objects
/* CRC32 table */
1447 /* The address of the 8-byte offset table */
1448 idx2
= idx1
+ p
->num_objects
;
1450 for (i
= 0; i
< p
->num_objects
; i
++) {
1451 uint32_t off
= ntohl(idx1
[i
]);
1452 if (!(off
& 0x80000000))
1454 off
= off
& 0x7fffffff;
1458 * The real offset is ntohl(idx2[off * 2]) in high 4
1459 * octets, and ntohl(idx2[off * 2 + 1]) in low 4
1460 * octets. But idx2[off * 2] is Zero!!!
1462 ALLOC_GROW(opts
->anomaly
, opts
->anomaly_nr
+ 1, opts
->anomaly_alloc
);
1463 opts
->anomaly
[opts
->anomaly_nr
++] = ntohl(idx2
[off
* 2 + 1]);
1466 if (1 < opts
->anomaly_nr
)
1467 qsort(opts
->anomaly
, opts
->anomaly_nr
, sizeof(uint32_t), cmp_uint32
);
1470 static void read_idx_option(struct pack_idx_option
*opts
, const char *pack_name
)
1472 struct packed_git
*p
= add_packed_git(pack_name
, strlen(pack_name
), 1);
1475 die(_("Cannot open existing pack file '%s'"), pack_name
);
1476 if (open_pack_index(p
))
1477 die(_("Cannot open existing pack idx file for '%s'"), pack_name
);
1479 /* Read the attributes from the existing idx file */
1480 opts
->version
= p
->index_version
;
1482 if (opts
->version
== 2)
1483 read_v2_anomalous_offsets(p
, opts
);
1486 * Get rid of the idx file as we do not need it anymore.
1487 * NEEDSWORK: extract this bit from free_pack_by_name() in
1488 * sha1_file.c, perhaps? It shouldn't matter very much as we
1489 * know we haven't installed this pack (hence we never have
1490 * read anything from it).
1492 close_pack_index(p
);
1496 static void show_pack_info(int stat_only
)
1498 int i
, baseobjects
= nr_objects
- nr_deltas
;
1499 unsigned long *chain_histogram
= NULL
;
1502 chain_histogram
= xcalloc(deepest_delta
, sizeof(unsigned long));
1504 for (i
= 0; i
< nr_objects
; i
++) {
1505 struct object_entry
*obj
= &objects
[i
];
1507 if (is_delta_type(obj
->type
))
1508 chain_histogram
[obj_stat
[i
].delta_depth
- 1]++;
1511 printf("%s %-6s %lu %lu %"PRIuMAX
,
1512 sha1_to_hex(obj
->idx
.sha1
),
1513 typename(obj
->real_type
), obj
->size
,
1514 (unsigned long)(obj
[1].idx
.offset
- obj
->idx
.offset
),
1515 (uintmax_t)obj
->idx
.offset
);
1516 if (is_delta_type(obj
->type
)) {
1517 struct object_entry
*bobj
= &objects
[obj_stat
[i
].base_object_no
];
1518 printf(" %u %s", obj_stat
[i
].delta_depth
, sha1_to_hex(bobj
->idx
.sha1
));
1524 printf_ln(Q_("non delta: %d object",
1525 "non delta: %d objects",
1528 for (i
= 0; i
< deepest_delta
; i
++) {
1529 if (!chain_histogram
[i
])
1531 printf_ln(Q_("chain length = %d: %lu object",
1532 "chain length = %d: %lu objects",
1533 chain_histogram
[i
]),
1535 chain_histogram
[i
]);
1539 int cmd_index_pack(int argc
, const char **argv
, const char *prefix
)
1541 int i
, fix_thin_pack
= 0, verify
= 0, stat_only
= 0;
1542 const char *curr_index
;
1543 const char *index_name
= NULL
, *pack_name
= NULL
;
1544 const char *keep_name
= NULL
, *keep_msg
= NULL
;
1545 struct strbuf index_name_buf
= STRBUF_INIT
,
1546 keep_name_buf
= STRBUF_INIT
;
1547 struct pack_idx_entry
**idx_objects
;
1548 struct pack_idx_option opts
;
1549 unsigned char pack_sha1
[20];
1550 unsigned foreign_nr
= 1; /* zero is a "good" value, assume bad */
1552 if (argc
== 2 && !strcmp(argv
[1], "-h"))
1553 usage(index_pack_usage
);
1555 check_replace_refs
= 0;
1557 reset_pack_idx_option(&opts
);
1558 git_config(git_index_pack_config
, &opts
);
1559 if (prefix
&& chdir(prefix
))
1560 die(_("Cannot come back to cwd"));
1562 for (i
= 1; i
< argc
; i
++) {
1563 const char *arg
= argv
[i
];
1566 if (!strcmp(arg
, "--stdin")) {
1568 } else if (!strcmp(arg
, "--fix-thin")) {
1570 } else if (!strcmp(arg
, "--strict")) {
1573 } else if (!strcmp(arg
, "--check-self-contained-and-connected")) {
1575 check_self_contained_and_connected
= 1;
1576 } else if (!strcmp(arg
, "--verify")) {
1578 } else if (!strcmp(arg
, "--verify-stat")) {
1581 } else if (!strcmp(arg
, "--verify-stat-only")) {
1585 } else if (!strcmp(arg
, "--keep")) {
1587 } else if (starts_with(arg
, "--keep=")) {
1589 } else if (starts_with(arg
, "--threads=")) {
1591 nr_threads
= strtoul(arg
+10, &end
, 0);
1592 if (!arg
[10] || *end
|| nr_threads
< 0)
1593 usage(index_pack_usage
);
1595 if (nr_threads
!= 1)
1596 warning(_("no threads support, "
1597 "ignoring %s"), arg
);
1600 } else if (starts_with(arg
, "--pack_header=")) {
1601 struct pack_header
*hdr
;
1604 hdr
= (struct pack_header
*)input_buffer
;
1605 hdr
->hdr_signature
= htonl(PACK_SIGNATURE
);
1606 hdr
->hdr_version
= htonl(strtoul(arg
+ 14, &c
, 10));
1608 die(_("bad %s"), arg
);
1609 hdr
->hdr_entries
= htonl(strtoul(c
+ 1, &c
, 10));
1611 die(_("bad %s"), arg
);
1612 input_len
= sizeof(*hdr
);
1613 } else if (!strcmp(arg
, "-v")) {
1615 } else if (!strcmp(arg
, "-o")) {
1616 if (index_name
|| (i
+1) >= argc
)
1617 usage(index_pack_usage
);
1618 index_name
= argv
[++i
];
1619 } else if (starts_with(arg
, "--index-version=")) {
1621 opts
.version
= strtoul(arg
+ 16, &c
, 10);
1622 if (opts
.version
> 2)
1623 die(_("bad %s"), arg
);
1625 opts
.off32_limit
= strtoul(c
+1, &c
, 0);
1626 if (*c
|| opts
.off32_limit
& 0x80000000)
1627 die(_("bad %s"), arg
);
1629 usage(index_pack_usage
);
1634 usage(index_pack_usage
);
1638 if (!pack_name
&& !from_stdin
)
1639 usage(index_pack_usage
);
1640 if (fix_thin_pack
&& !from_stdin
)
1641 die(_("--fix-thin cannot be used without --stdin"));
1642 if (!index_name
&& pack_name
) {
1644 if (!strip_suffix(pack_name
, ".pack", &len
))
1645 die(_("packfile name '%s' does not end with '.pack'"),
1647 strbuf_add(&index_name_buf
, pack_name
, len
);
1648 strbuf_addstr(&index_name_buf
, ".idx");
1649 index_name
= index_name_buf
.buf
;
1651 if (keep_msg
&& !keep_name
&& pack_name
) {
1653 if (!strip_suffix(pack_name
, ".pack", &len
))
1654 die(_("packfile name '%s' does not end with '.pack'"),
1656 strbuf_add(&keep_name_buf
, pack_name
, len
);
1657 strbuf_addstr(&keep_name_buf
, ".idx");
1658 keep_name
= keep_name_buf
.buf
;
1662 die(_("--verify with no packfile name given"));
1663 read_idx_option(&opts
, index_name
);
1664 opts
.flags
|= WRITE_IDX_VERIFY
| WRITE_IDX_STRICT
;
1667 opts
.flags
|= WRITE_IDX_STRICT
;
1671 nr_threads
= online_cpus();
1672 /* An experiment showed that more threads does not mean faster */
1678 curr_pack
= open_pack_file(pack_name
);
1679 parse_pack_header();
1680 objects
= xcalloc(nr_objects
+ 1, sizeof(struct object_entry
));
1682 obj_stat
= xcalloc(nr_objects
+ 1, sizeof(struct object_stat
));
1683 deltas
= xcalloc(nr_objects
, sizeof(struct delta_entry
));
1684 parse_pack_objects(pack_sha1
);
1686 conclude_pack(fix_thin_pack
, curr_pack
, pack_sha1
);
1689 foreign_nr
= check_objects();
1692 show_pack_info(stat_only
);
1694 idx_objects
= xmalloc((nr_objects
) * sizeof(struct pack_idx_entry
*));
1695 for (i
= 0; i
< nr_objects
; i
++)
1696 idx_objects
[i
] = &objects
[i
].idx
;
1697 curr_index
= write_idx_file(index_name
, idx_objects
, nr_objects
, &opts
, pack_sha1
);
1701 final(pack_name
, curr_pack
,
1702 index_name
, curr_index
,
1703 keep_name
, keep_msg
,
1708 strbuf_release(&index_name_buf
);
1709 strbuf_release(&keep_name_buf
);
1710 if (pack_name
== NULL
)
1711 free((void *) curr_pack
);
1712 if (index_name
== NULL
)
1713 free((void *) curr_index
);
1716 * Let the caller know this pack is not self contained
1718 if (check_self_contained_and_connected
&& foreign_nr
)