diff --git a/extract.c b/extract.c index a0a4929..9ef80b3 100644 --- a/extract.c +++ b/extract.c @@ -2214,6 +2214,7 @@ static int test_compr_eb(__G__ eb, eb_size, compr_offset, test_uc_ebdata) ulg eb_ucsize; uch *eb_ucptr; int r; + ush method; if (compr_offset < 4) /* field is not compressed: */ return PK_OK; /* do nothing and signal OK */ @@ -2223,6 +2224,12 @@ static int test_compr_eb(__G__ eb, eb_size, compr_offset, test_uc_ebdata) eb_size <= (compr_offset + EB_CMPRHEADLEN))) return IZ_EF_TRUNC; /* no compressed data! */ + method = makeword(eb + (EB_HEADSIZE + compr_offset)); + if ((method == STORED) && (eb_size != compr_offset + EB_CMPRHEADLEN + eb_ucsize)) + return PK_ERR; /* compressed & uncompressed + * should match in STORED + * method */ + if ( #ifdef INT_16BIT (((ulg)(extent)eb_ucsize) != eb_ucsize) || ef='/guix/about/'>aboutsummaryrefslogtreecommitdiff
path: root/tests/guix-gc.sh
AgeCommit message (Expand)Author
2019-04-10guix gc: Add '--list-roots'....Ludovic Courtès
2018-03-27guix gc: Add '--derivers'....Ludovic Courtès
2017-12-18guix gc: '--verify=foo' is reported as an error....Ludovic Courtès
2017-11-13tests: 'guix-gc.sh' passes even when 'out' or 'drv' are defined as env vars....Ludovic Courtès