From 15d87543df61b1d718a0d5813aea6e16620814d4 Mon Sep 17 00:00:00 2001 From: nate Date: Fri, 23 Dec 1994 22:55:00 +0000 Subject: Subject: ranlib fix for odd length long final file names (PR #82) Submitted by: Peter Dufault --- usr.bin/ar/archive.c | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'usr.bin') diff --git a/usr.bin/ar/archive.c b/usr.bin/ar/archive.c index 8a6fe2f..cd704b9 100644 --- a/usr.bin/ar/archive.c +++ b/usr.bin/ar/archive.c @@ -276,6 +276,7 @@ copy_ar(cfp, size) CF *cfp; off_t size; { + int pad_odd_read; static char pad = '\n'; off_t sz; int from, nr, nw, off, to; @@ -299,8 +300,12 @@ copy_ar(cfp, size) error(cfp->rname); } - if (cfp->flags & RPAD && (size + chdr.lname) & 1 && - (nr = read(from, buf, 1)) != 1) { + if (already_written) + pad_odd_read = (cfp->flags & RPAD) && ((size + chdr.lname) & 1); + else + pad_odd_read = (cfp->flags & RPAD) && (size & 1); + + if (pad_odd_read && (nr = read(from, buf, 1)) != 1) { if (nr == 0) badfmt(); error(cfp->rname); -- cgit v1.1