diff -ur rpm.org/file/src/readelf.c rpm/file/src/readelf.c
--- rpm.org/file/src/readelf.c 2004-06-14 16:30:54.607870936 +0200
-+++ rpm/file/src/readelf.c 2004-03-22 21:28:40.000000000 +0100
-@@ -1,25 +1,70 @@
--#include "system.h"
++++ rpm/file/src/readelf.c 2004-06-14 17:14:56.000000000 +0200
+@@ -1,3 +1,31 @@
+/*
+ * Copyright (c) Christos Zoulas 2003.
+ * All Rights Reserved.
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
-+#include "file.h"
+ #include "system.h"
#ifdef BUILTIN_ELF
--#include "file.h"
-+#include <string.h>
-+#include <ctype.h>
-+#include <stdlib.h>
-+#ifdef HAVE_UNISTD_H
-+#include <unistd.h>
-+#endif
-+
- #include "readelf.h"
--#include "debug.h"
-
--FILE_RCSID("@(#)Id: readelf.c,v 1.22 2002/07/03 18:26:38 christos Exp ")
-+#ifndef lint
-+FILE_RCSID("@(#)$Id$")
-+#endif
+@@ -8,6 +36,9 @@
+ FILE_RCSID("@(#)Id: readelf.c,v 1.22 2002/07/03 18:26:38 christos Exp ")
--/*@access fmagic @*/
-+#ifdef ELFCORE
-+private int dophn_core(struct magic_set *, int, int, int, off_t, int, size_t);
-+#endif
-+private int dophn_exec(struct magic_set *, int, int, int, off_t, int, size_t);
-+private int doshn(struct magic_set *, int, int, int, off_t, int, size_t);
-+private size_t donote(struct magic_set *, unsigned char *, size_t, size_t, int,
-+ int, size_t);
+ /*@access fmagic @*/
++static size_t donote(const fmagic fm, unsigned char *, size_t, size_t, int);
+
+#define ELF_ALIGN(a) ((((a) + align - 1) / align) * align)
-+
-+private uint16_t getu16(int, uint16_t);
-+private uint32_t getu32(int, uint32_t);
-+private uint64_t getu64(int, uint64_t);
-
--/*@-bounds@*/
--static uint16_t
--getu16(const fmagic fm, uint16_t value)
-- /*@*/
-+private uint16_t
-+getu16(int swap, uint16_t value)
- {
- union {
- uint16_t ui;
- char c[2];
- } retval, tmpval;
-
-- if (fm->swap) {
-+ if (swap) {
- tmpval.ui = value;
-
- retval.c[0] = tmpval.c[1];
-@@ -30,16 +75,15 @@
- return value;
- }
-
--static uint32_t
--getu32(const fmagic fm, uint32_t value)
-- /*@*/
-+private uint32_t
-+getu32(int swap, uint32_t value)
- {
- union {
- uint32_t ui;
- char c[4];
- } retval, tmpval;
-
-- if (fm->swap) {
-+ if (swap) {
- tmpval.ui = value;
-
- retval.c[0] = tmpval.c[3];
-@@ -52,16 +96,15 @@
- return value;
- }
-
--static uint64_t
--getu64(const fmagic fm, uint64_t value)
-- /*@*/
-+private uint64_t
-+getu64(int swap, uint64_t value)
- {
- union {
- uint64_t ui;
- char c[8];
- } retval, tmpval;
-
-- if (fm->swap) {
-+ if (swap) {
- tmpval.ui = value;
- retval.c[0] = tmpval.c[7];
-@@ -77,294 +120,65 @@
- } else
- return value;
- }
--/*@=bounds@*/
-
--#define sh_addr (fm->cls == ELFCLASS32 \
-+#define sh_addr (class == ELFCLASS32 \
- ? (void *) &sh32 \
- : (void *) &sh64)
--#define sh_size (fm->cls == ELFCLASS32 \
-+#define sh_size (class == ELFCLASS32 \
- ? sizeof sh32 \
- : sizeof sh64)
--#define shs_type (fm->cls == ELFCLASS32 \
-- ? getu32(fm, sh32.sh_type) \
-- : getu32(fm, sh64.sh_type))
+ /*@-bounds@*/
+ static uint16_t
+@@ -88,7 +119,6 @@
+ #define shs_type (fm->cls == ELFCLASS32 \
+ ? getu32(fm, sh32.sh_type) \
+ : getu32(fm, sh64.sh_type))
-
--#define ph_addr (fm->cls == ELFCLASS32 \
-+#define shs_type (class == ELFCLASS32 \
-+ ? getu32(swap, sh32.sh_type) \
-+ : getu32(swap, sh64.sh_type))
-+#define ph_addr (class == ELFCLASS32 \
+ #define ph_addr (fm->cls == ELFCLASS32 \
? (void *) &ph32 \
: (void *) &ph64)
--#define ph_size (fm->cls == ELFCLASS32 \
-+#define ph_size (class == ELFCLASS32 \
- ? sizeof ph32 \
- : sizeof ph64)
--#define ph_type (fm->cls == ELFCLASS32 \
-- ? getu32(fm, ph32.p_type) \
-- : getu32(fm, ph64.p_type))
--#define ph_offset (fm->cls == ELFCLASS32 \
-- ? getu32(fm, ph32.p_offset) \
-- : getu64(fm, ph64.p_offset))
+@@ -101,252 +131,27 @@
+ #define ph_offset (fm->cls == ELFCLASS32 \
+ ? getu32(fm, ph32.p_offset) \
+ : getu64(fm, ph64.p_offset))
-#define ph_align (fm->cls == ELFCLASS32 \
- ? (ph32.p_align ? getu32(fm, ph32.p_align) : 4) \
- : (ph64.p_align ? getu64(fm, ph64.p_align) : 4))
- ? getu32(fm, ph32.p_filesz) \
- : getu64(fm, ph64.p_filesz))
-
--#define nh_type (fm->cls == ELFCLASS32 \
++#define ph_align (int)((fm->cls == ELFCLASS32 \
++ ? (off_t) (ph32.p_align ? \
++ getu32(fm, ph32.p_align) : 4) \
++ : (off_t) (ph64.p_align ? \
++ getu64(fm, ph64.p_align) : 4)))
++#define nh_size (fm->cls == ELFCLASS32 \
++ ? sizeof nh32 \
++ : sizeof nh64)
+ #define nh_type (fm->cls == ELFCLASS32 \
- ? getu32(fm, nh32->n_type) \
- : getu32(fm, nh64->n_type))
--#define nh_namesz (fm->cls == ELFCLASS32 \
++ ? getu32(fm, nh32.n_type) \
++ : getu32(fm, nh64.n_type))
+ #define nh_namesz (fm->cls == ELFCLASS32 \
- ? getu32(fm, nh32->n_namesz) \
- : getu32(fm, nh64->n_namesz))
--#define nh_descsz (fm->cls == ELFCLASS32 \
++ ? getu32(fm, nh32.n_namesz) \
++ : getu32(fm, nh64.n_namesz))
+ #define nh_descsz (fm->cls == ELFCLASS32 \
- ? getu32(fm, nh32->n_descsz) \
- : getu32(fm, nh64->n_descsz))
--#define prpsoffsets(i) (fm->cls == ELFCLASS32 \
-+#define ph_type (class == ELFCLASS32 \
-+ ? getu32(swap, ph32.p_type) \
-+ : getu32(swap, ph64.p_type))
-+#define ph_offset (class == ELFCLASS32 \
-+ ? getu32(swap, ph32.p_offset) \
-+ : getu64(swap, ph64.p_offset))
-+#define ph_align (size_t)((class == ELFCLASS32 \
-+ ? (off_t) (ph32.p_align ? \
-+ getu32(swap, ph32.p_align) : 4) \
-+ : (off_t) (ph64.p_align ? \
-+ getu64(swap, ph64.p_align) : 4)))
-+#define nh_size (class == ELFCLASS32 \
-+ ? sizeof nh32 \
-+ : sizeof nh64)
-+#define nh_type (class == ELFCLASS32 \
-+ ? getu32(swap, nh32.n_type) \
-+ : getu32(swap, nh64.n_type))
-+#define nh_namesz (class == ELFCLASS32 \
-+ ? getu32(swap, nh32.n_namesz) \
-+ : getu32(swap, nh64.n_namesz))
-+#define nh_descsz (class == ELFCLASS32 \
-+ ? getu32(swap, nh32.n_descsz) \
-+ : getu32(swap, nh64.n_descsz))
-+#define prpsoffsets(i) (class == ELFCLASS32 \
++ ? getu32(fm, nh32.n_descsz) \
++ : getu32(fm, nh64.n_descsz))
+ #define prpsoffsets(i) (fm->cls == ELFCLASS32 \
? prpsoffsets32[i] \
: prpsoffsets64[i])
-/*@=bounds@*/
-
#ifdef ELFCORE
--/*@unchecked@*/ /*@observer@*/
--static size_t prpsoffsets32[] = {
-+size_t prpsoffsets32[] = {
- 8, /* FreeBSD */
- 28, /* Linux 2.0.36 */
- 32, /* Linux (I forget which kernel version) */
-- 84 /* SunOS 5.x */
-+ 84, /* SunOS 5.x */
- };
-
--/*@unchecked@*/ /*@observer@*/
--static size_t prpsoffsets64[] = {
-- 120 /* SunOS 5.x, 64-bit */
-+size_t prpsoffsets64[] = {
-+ 120, /* SunOS 5.x, 64-bit */
- };
-
- #define NOFFSETS32 (sizeof prpsoffsets32 / sizeof prpsoffsets32[0])
- #define NOFFSETS64 (sizeof prpsoffsets64 / sizeof prpsoffsets64[0])
-
--#define NOFFSETS (fm->cls == ELFCLASS32 ? NOFFSETS32 : NOFFSETS64)
-+#define NOFFSETS (class == ELFCLASS32 ? NOFFSETS32 : NOFFSETS64)
-
- /*
- * Look through the program headers of an executable image, searching
-@@ -391,46 +205,38 @@
- #define OS_STYLE_FREEBSD 1
- #define OS_STYLE_NETBSD 2
-
--/*@unchecked@*/ /*@observer@*/
--static const char *os_style_names[] = {
-+private const char *os_style_names[] = {
- "SVR4",
- "FreeBSD",
- "NetBSD",
- };
-
--/*@-bounds@*/
--static void
--dophn_core(fmagic fm, off_t off, int num, size_t size)
-- /*@globals fileSystem @*/
-- /*@modifies fm, fileSystem @*/
-+private int
-+dophn_core(struct magic_set *ms, int class, int swap, int fd, off_t off,
-+ int num, size_t size)
+ /*@unchecked@*/ /*@observer@*/
+ static size_t prpsoffsets32[] = {
+@@ -405,15 +210,10 @@
+ /*@modifies fm, fileSystem @*/
{
Elf32_Phdr ph32;
- Elf32_Nhdr *nh32 = NULL;
+ ssize_t bufsize;
if (size != ph_size) {
-- error(EXIT_FAILURE, 0, "corrupted program header size.\n");
-- /*@notreached@*/
-+ if (file_printf(ms, ", corrupted program header size") == -1)
-+ return -1;
-+ return 0;
- }
--
- /*
+ error(EXIT_FAILURE, 0, "corrupted program header size.\n");
+@@ -424,11 +224,11 @@
* Loop through all the program headers.
*/
for ( ; num; num--) {
- if (lseek(fm->fd, off, SEEK_SET) == -1) {
-- error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
-- /*@notreached@*/
-- }
++ if (lseek(fm->fd, off, SEEK_SET) == (off_t)-1) {
+ error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
+ /*@notreached@*/
+ }
- if (read(fm->fd, ph_addr, size) == -1) {
-- error(EXIT_FAILURE, 0, "read failed (%s).\n", strerror(errno));
-- /*@notreached@*/
-+ if (lseek(fd, off, SEEK_SET) == (off_t)-1) {
-+ file_badseek(ms);
-+ return -1;
-+ }
-+ if (read(fd, ph_addr, ph_size) == -1) {
-+ file_badread(ms);
-+ return -1;
++ if (read(fm->fd, ph_addr, ph_size) == -1) {
+ error(EXIT_FAILURE, 0, "read failed (%s).\n", strerror(errno));
+ /*@notreached@*/
}
- off += size;
- if (ph_type != PT_NOTE)
-@@ -440,192 +246,475 @@
+@@ -440,175 +240,390 @@
* This is a PT_NOTE section; loop through all the notes
* in the section.
*/
- if (lseek(fm->fd, (off_t) ph_offset, SEEK_SET) == -1) {
-- error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
-- /*@notreached@*/
-- }
++ if (lseek(fm->fd, (off_t) ph_offset, SEEK_SET) == (off_t)-1) {
+ error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
+ /*@notreached@*/
+ }
- nb = read(fm->fd, nbuf, BUFSIZ);
- if (nb == -1) {
-- error(EXIT_FAILURE, 0, ": " "read failed (%s).\n", strerror(errno));
-- /*@notreached@*/
-+ if (lseek(fd, (off_t) ph_offset, SEEK_SET) == (off_t)-1) {
-+ file_badseek(ms);
-+ return -1;
-+ }
-+ bufsize = read(fd, nbuf, BUFSIZ);
++ bufsize = read(fm->fd, nbuf, BUFSIZ);
+ if (bufsize == -1) {
-+ file_badread(ms);
-+ return -1;
+ error(EXIT_FAILURE, 0, ": " "read failed (%s).\n", strerror(errno));
+ /*@notreached@*/
}
offset = 0;
for (;;) {
- if (offset >= nb)
-- /*@innerbreak@*/ break;
++ if (offset >= (size_t)bufsize)
+ /*@innerbreak@*/ break;
- if (fm->cls == ELFCLASS32)
- nh32 = (Elf32_Nhdr *)&nbuf[offset];
- else
- nh64 = (Elf64_Nhdr *)&nbuf[offset];
- offset += 12;
-+ if (offset >= (size_t)bufsize)
-+ break;
-+ offset = donote(ms, nbuf, offset, (size_t)bufsize,
-+ class, swap, 4);
-+ if (offset == 0)
-+ break;
++ offset = donote(fm, nbuf, offset, (size_t)bufsize,
++ 4);
- /*
- * Check whether this note has the name "CORE" or
- * We're past the end of the buffer.
- */
- /*@innerbreak@*/ break;
+- }
+ }
+ }
-+ return 0;
+}
++/*@=bounds@*/
+#endif
-+
-+private size_t
-+donote(struct magic_set *ms, unsigned char *nbuf, size_t offset, size_t size,
-+ int class, int swap, size_t align)
+
+- nameoffset = offset;
+- offset += nh_namesz;
+- offset = ((offset + 3)/4)*4;
++/*@-bounds@*/
++static size_t
++donote(const fmagic fm, unsigned char *nbuf, size_t offset, size_t size,
++ int align)
+{
+ Elf32_Nhdr nh32;
+ Elf64_Nhdr nh64;
+#ifdef ELFCORE
+ int os_style = -1;
+#endif
-+ uint32_t namesz, descsz;
-+
-+ if (class == ELFCLASS32)
+
+- /*
+- * Sigh. The 2.0.36 kernel in Debian 2.1, at
+- * least, doesn't correctly implement name
+- * sections, in core dumps, as specified by
+- * the "Program Linking" section of "UNIX(R) System
+- * V Release 4 Programmer's Guide: ANSI C and
+- * Programming Support Tools", because my copy
+- * clearly says "The first 'namesz' bytes in 'name'
+- * contain a *null-terminated* [emphasis mine]
+- * character representation of the entry's owner
+- * or originator", but the 2.0.36 kernel code
+- * doesn't include the terminating null in the
+- * name....
+- */
+- if (os_style == -1) {
+- if ((nh_namesz == 4 &&
+- strncmp(&nbuf[nameoffset],
+- "CORE", 4) == 0) ||
+- (nh_namesz == 5 &&
+- strcmp(&nbuf[nameoffset],
+- "CORE") == 0)) {
+- os_style = OS_STYLE_SVR4;
+- } else
+- if ((nh_namesz == 8 &&
+- strcmp(&nbuf[nameoffset],
+- "FreeBSD") == 0)) {
+- os_style = OS_STYLE_FREEBSD;
+- } else
+- if ((nh_namesz >= 11 &&
+- strncmp(&nbuf[nameoffset],
+- "NetBSD-CORE", 11) == 0)) {
+- os_style = OS_STYLE_NETBSD;
+- } else
+- /*@innercontinue@*/ continue;
+- file_printf(fm, ", %s-style", os_style_names[os_style]);
++ if (fm->cls == ELFCLASS32)
+ memcpy(&nh32, &nbuf[offset], sizeof(nh32));
+ else
+ memcpy(&nh64, &nbuf[offset], sizeof(nh64));
+ offset += nh_size;
+
-+ namesz = nh_namesz;
-+ descsz = nh_descsz;
-+ if ((namesz == 0) && (descsz == 0)) {
++ if ((nh_namesz == 0) && (nh_descsz == 0)) {
+ /*
+ * We're out of note headers.
+ */
+ return offset;
+ }
+
-+ if (namesz & 0x80000000) {
-+ (void)file_printf(ms, ", bad note name size 0x%lx",
-+ (unsigned long)namesz);
-+ return offset;
-+ }
-+
-+ if (descsz & 0x80000000) {
-+ (void)file_printf(ms, ", bad note description size 0x%lx",
-+ (unsigned long)descsz);
-+ return offset;
-+ }
-+
-+
+ noff = offset;
-+ doff = ELF_ALIGN(offset + namesz);
++ doff = ELF_ALIGN(offset + nh_namesz);
+
-+ if (offset + namesz >= size) {
++ if (offset + nh_namesz >= size) {
+ /*
+ * We're past the end of the buffer.
+ */
+ return doff;
+ }
+
-+ offset = ELF_ALIGN(doff + descsz);
-+ if (offset + descsz >= size) {
++ offset = ELF_ALIGN(doff + nh_descsz);
++ if (offset + nh_descsz >= size)
+ return offset;
-+ }
+
-+ if (namesz == 4 && strcmp((char *)&nbuf[noff], "GNU") == 0 &&
-+ nh_type == NT_GNU_VERSION && descsz == 16) {
++ if (nh_namesz == 4 && strcmp((char *)&nbuf[noff], "GNU") == 0 &&
++ nh_type == NT_GNU_VERSION && nh_descsz == 16) {
+ uint32_t desc[4];
+ (void)memcpy(desc, &nbuf[doff], sizeof(desc));
+
-+ if (file_printf(ms, ", for GNU/") == -1)
-+ return size;
-+ switch (getu32(swap, desc[0])) {
++ file_printf(fm, ", for GNU/");
++ switch (getu32(fm, desc[0])) {
+ case GNU_OS_LINUX:
-+ if (file_printf(ms, "Linux") == -1)
-+ return size;
++ file_printf(fm, "Linux");
+ break;
+ case GNU_OS_HURD:
-+ if (file_printf(ms, "Hurd") == -1)
-+ return size;
++ file_printf(fm, "Hurd");
+ break;
+ case GNU_OS_SOLARIS:
-+ if (file_printf(ms, "Solaris") == -1)
-+ return size;
++ file_printf(fm, "Solaris");
+ break;
+ default:
-+ if (file_printf(ms, "<unknown>") == -1)
-+ return size;
++ file_printf(fm, "<unknown>");
+ }
-+ if (file_printf(ms, " %d.%d.%d", getu32(swap, desc[1]),
-+ getu32(swap, desc[2]), getu32(swap, desc[3])) == -1)
-+ return size;
++ file_printf(fm, " %d.%d.%d", getu32(fm, desc[1]),
++ getu32(fm, desc[2]), getu32(fm, desc[3]));
+ return size;
+ }
+
-+ if (namesz == 7 && strcmp((char *)&nbuf[noff], "NetBSD") == 0 &&
-+ nh_type == NT_NETBSD_VERSION && descsz == 4) {
++ if (nh_namesz == 7 && strcmp((char *)&nbuf[noff], "NetBSD") == 0 &&
++ nh_type == NT_NETBSD_VERSION && nh_descsz == 4) {
+ uint32_t desc;
+ (void)memcpy(&desc, &nbuf[doff], sizeof(desc));
-+ desc = getu32(swap, desc);
++ desc = getu32(fm, desc);
+
-+ if (file_printf(ms, ", for NetBSD") == -1)
-+ return size;
++ file_printf(fm, ", for NetBSD");
+ /*
+ * The version number used to be stuck as 199905, and was thus
+ * basically content-free. Newer versions of NetBSD have fixed
+ u_int ver_min = (desc / 1000000) % 100;
+ u_int ver_maj = desc / 100000000;
+
-+ if (file_printf(ms, " %u.%u", ver_maj, ver_min) == -1)
-+ return size;
++ file_printf(fm, " %u.%u", ver_maj, ver_min);
+ if (ver_rel == 0 && ver_patch != 0) {
-+ if (file_printf(ms, ".%u", ver_patch) == -1)
-+ return size;
++ file_printf(fm, ".%u", ver_patch);
+ } else if (ver_rel != 0) {
+ while (ver_rel > 26) {
-+ file_printf(ms, "Z");
++ file_printf(fm, "Z");
+ ver_rel -= 26;
+ }
-+ file_printf(ms, "%c", 'A' + ver_rel - 1);
++ file_printf(fm, "%c", 'A' + ver_rel - 1);
}
+ }
+ return size;
+ }
-- nameoffset = offset;
-- offset += nh_namesz;
-- offset = ((offset + 3)/4)*4;
-+ if (namesz == 8 && strcmp((char *)&nbuf[noff], "FreeBSD") == 0 &&
-+ nh_type == NT_FREEBSD_VERSION && descsz == 4) {
+- if (os_style == OS_STYLE_NETBSD &&
+- nh_type == NT_NETBSD_CORE_PROCINFO) {
+- uint32_t signo;
++ if (nh_namesz == 8 && strcmp((char *)&nbuf[noff], "FreeBSD") == 0 &&
++ nh_type == NT_FREEBSD_VERSION && nh_descsz == 4) {
+ uint32_t desc;
+ (void)memcpy(&desc, &nbuf[doff], sizeof(desc));
-+ desc = getu32(swap, desc);
-+ if (file_printf(ms, ", for FreeBSD") == -1)
-+ return size;
-
-- /*
-- * Sigh. The 2.0.36 kernel in Debian 2.1, at
-- * least, doesn't correctly implement name
-- * sections, in core dumps, as specified by
-- * the "Program Linking" section of "UNIX(R) System
-- * V Release 4 Programmer's Guide: ANSI C and
-- * Programming Support Tools", because my copy
-- * clearly says "The first 'namesz' bytes in 'name'
-- * contain a *null-terminated* [emphasis mine]
-- * character representation of the entry's owner
-- * or originator", but the 2.0.36 kernel code
-- * doesn't include the terminating null in the
-- * name....
-- */
-- if (os_style == -1) {
-- if ((nh_namesz == 4 &&
-- strncmp(&nbuf[nameoffset],
-- "CORE", 4) == 0) ||
-- (nh_namesz == 5 &&
-- strcmp(&nbuf[nameoffset],
-- "CORE") == 0)) {
-- os_style = OS_STYLE_SVR4;
-- } else
-- if ((nh_namesz == 8 &&
-- strcmp(&nbuf[nameoffset],
-- "FreeBSD") == 0)) {
-- os_style = OS_STYLE_FREEBSD;
-- } else
-- if ((nh_namesz >= 11 &&
-- strncmp(&nbuf[nameoffset],
-- "NetBSD-CORE", 11) == 0)) {
-- os_style = OS_STYLE_NETBSD;
-- } else
-- /*@innercontinue@*/ continue;
-- file_printf(fm, ", %s-style", os_style_names[os_style]);
++ desc = getu32(fm, desc);
++ file_printf(fm, ", for FreeBSD");
+ /*
-+ * Contents is __FreeBSD_version, whose relation to OS
-+ * versions is defined by a huge table in the Porters'
-+ * Handbook. For up to 5.x, the first three digits are
-+ * the version number. For 5.x and higher, the scheme
-+ * is: <major><two digit minor> <0 if release branch,
-+ * otherwise 1>xx
++ * Contents is __FreeBSD_version, whose relation to OS versions
++ * is defined by a huge table in the Porters' Handbook. Happily,
++ * the first three digits are the version number, at least in
++ * versions of FreeBSD that use this note.
+ */
-+ if (desc / 100000 < 5) {
-+ if (file_printf(ms, " %d.%d", desc / 100000,
-+ desc / 10000 % 10) == -1)
-+ return size;
-+ if (desc / 1000 % 10 > 0)
-+ if (file_printf(ms, ".%d", desc / 1000 % 10)
-+ == -1)
-+ return size;
-+ } else {
-+ if (file_printf(ms, " %d.%d", desc / 100000,
-+ desc / 1000 % 100) == -1)
-+ return size;
-+ desc %= 1000;
-+ if (desc > 100) {
-+ if (file_printf(ms, "-CURRENT (rev %d)",
-+ desc % 100) == -1)
-+ return size;
-+ } else if (desc != 0) {
-+ if (file_printf(ms, ".%d", desc / 10) == -1)
-+ return size;
- }
-+ }
++ file_printf(fm, " %d.%d", desc / 100000, desc / 10000 % 10);
++ if (desc / 1000 % 10 > 0)
++ file_printf(fm, ".%d", desc / 1000 % 10);
+ return size;
+ }
-- if (os_style == OS_STYLE_NETBSD &&
-- nh_type == NT_NETBSD_CORE_PROCINFO) {
-- uint32_t signo;
-+ if (namesz == 8 && strcmp((char *)&nbuf[noff], "OpenBSD") == 0 &&
-+ nh_type == NT_OPENBSD_VERSION && descsz == 4) {
-+ if (file_printf(ms, ", for OpenBSD") == -1)
-+ return size;
++ if (nh_namesz == 8 && strcmp((char *)&nbuf[noff], "OpenBSD") == 0 &&
++ nh_type == NT_OPENBSD_VERSION && nh_descsz == 4) {
++ file_printf(fm, ", for OpenBSD");
+ /* Content of note is always 0 */
+ return size;
+ }
-
++
+ /*
+ * Sigh. The 2.0.36 kernel in Debian 2.1, at
+ * least, doesn't correctly implement name
+ * doesn't include the terminating null in the
+ * name....
+ */
-+ if ((namesz == 4 && strncmp((char *)&nbuf[noff], "CORE", 4) == 0) ||
-+ (namesz == 5 && strcmp((char *)&nbuf[noff], "CORE") == 0)) {
++ if ((nh_namesz == 4 && strncmp((char *)&nbuf[noff], "CORE", 4) == 0) ||
++ (nh_namesz == 5 && strcmp((char *)&nbuf[noff], "CORE") == 0)) {
+ os_style = OS_STYLE_SVR4;
+ }
+
-+ if ((namesz == 8 && strcmp((char *)&nbuf[noff], "FreeBSD") == 0)) {
++ if ((nh_namesz == 8 && strcmp((char *)&nbuf[noff], "FreeBSD") == 0)) {
+ os_style = OS_STYLE_FREEBSD;
+ }
+
-+ if ((namesz >= 11 && strncmp((char *)&nbuf[noff], "NetBSD-CORE", 11)
++ if ((nh_namesz >= 11 && strncmp((char *)&nbuf[noff], "NetBSD-CORE", 11)
+ == 0)) {
+ os_style = OS_STYLE_NETBSD;
+ }
+
+#ifdef ELFCORE
+ if (os_style != -1)
-+ if (file_printf(ms, ", %s-style", os_style_names[os_style]) == -1)
-+ return size;
++ file_printf(fm, ", %s-style", os_style_names[os_style]);
+
+ if (os_style == OS_STYLE_NETBSD && nh_type == NT_NETBSD_CORE_PROCINFO) {
+ uint32_t signo;
+ * offset 0x7c, and is up to 32-bytes,
+ * including the terminating NUL.
+ */
-+ if (file_printf(ms, ", from '%.31s'", &nbuf[doff + 0x7c]) == -1)
-+ return size;
++ file_printf(fm, ", from '%.31s'", &nbuf[doff + 0x7c]);
+
+ /*
+ * Extract the signal number. It is at
+ */
+ memcpy(&signo, &nbuf[doff + 0x08],
+ sizeof(signo));
-+ if (file_printf(ms, " (signal %u)", getu32(swap, signo)) == -1)
-+ return size;
++ file_printf(fm, " (signal %u)", getu32(fm, signo));
+ return size;
+ } else if (os_style != OS_STYLE_NETBSD && nh_type == NT_PRPSINFO) {
+ size_t i, j;
- goto tryanother;
- }
- }
-+ if (reloffset >= descsz)
++ if (reloffset >= nh_descsz)
+ goto tryanother;
+ c = nbuf[noffset];
+ /*
+ * Well, that worked.
+ */
-+ if (file_printf(ms, ", from '%.16s'",
-+ &nbuf[doff + prpsoffsets(i)]) == -1)
-+ return size;
++ file_printf(fm, ", from '%.16s'",
++ &nbuf[doff + prpsoffsets(i)]);
+ return size;
+
+ tryanother:
}
+ return offset;
}
--}
--/*@=bounds@*/
- #endif
++#endif
+ return offset;
+}
-
--/*@-bounds@*/
--void
--fmagicE(fmagic fm)
-+private int
-+doshn(struct magic_set *ms, int class, int swap, int fd, off_t off, int num,
-+ size_t size)
++
++static void
++doshn(fmagic fm, off_t off, int num, size_t size)
++ /*@globals fileSystem @*/
++ /*@modifies fm, fileSystem @*/
+{
+ Elf32_Shdr sh32;
+ Elf64_Shdr sh64;
+
+ if (size != sh_size) {
-+ if (file_printf(ms, ", corrupted section header size") == -1)
-+ return -1;
-+ return 0;
++ error(EXIT_FAILURE, 0, "corrupted program header size.\n");
++ /*@notreached@*/
+ }
+
-+ if (lseek(fd, off, SEEK_SET) == (off_t)-1) {
-+ file_badseek(ms);
-+ return -1;
++ if (lseek(fm->fd, off, SEEK_SET) == (off_t)-1) {
++ error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
++ /*@notreached@*/
+ }
+
+ for ( ; num; num--) {
-+ if (read(fd, sh_addr, sh_size) == -1) {
-+ file_badread(ms);
-+ return -1;
++ if (read(fm->fd, sh_addr, sh_size) == -1) {
++ error(EXIT_FAILURE, 0, "read failed (%s).\n", strerror(errno));
++ /*@notreached@*/
+ }
+ if (shs_type == SHT_SYMTAB /* || shs_type == SHT_DYNSYM */) {
-+ if (file_printf(ms, ", not stripped") == -1)
-+ return -1;
-+ return 0;
++ file_printf(fm, ", not stripped");
++ return;
+ }
+ }
-+ if (file_printf(ms, ", stripped") == -1)
-+ return -1;
-+ return 0;
++ file_printf(fm, ", stripped");
+}
++/*@=bounds@*/
+
+/*
+ * Look through the program headers of an executable image, searching
+ * for a PT_INTERP section; if one is found, it's dynamically linked,
+ * otherwise it's statically linked.
+ */
-+private int
-+dophn_exec(struct magic_set *ms, int class, int swap, int fd, off_t off,
-+ int num, size_t size)
++/*@-bounds@*/
++static void
++dophn_exec(fmagic fm, off_t off, int num, size_t size)
++ /*@globals fileSystem @*/
++ /*@modifies fm, fileSystem @*/
+{
+ Elf32_Phdr ph32;
+ Elf64_Phdr ph64;
+ const char *shared_libraries = "";
+ unsigned char nbuf[BUFSIZ];
+ int bufsize;
-+ size_t offset, align;
++ size_t offset;
+ off_t savedoffset;
+
+ if (size != ph_size) {
-+ if (file_printf(ms, ", corrupted program header size") == -1)
-+ return -1;
-+ return 0;
++ error(EXIT_FAILURE, 0, "corrupted program header size.\n");
++ /*@notreached@*/
+ }
-+ if (lseek(fd, off, SEEK_SET) == (off_t)-1) {
-+ file_badseek(ms);
-+ return -1;
++
++ if (lseek(fm->fd, off, SEEK_SET) == (off_t)-1) {
++ error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
++ /*@notreached@*/
+ }
+
+ for ( ; num; num--) {
-+ if (read(fd, ph_addr, ph_size) == -1) {
-+ file_badread(ms);
-+ return -1;
++ if (read(fm->fd, ph_addr, ph_size) == -1) {
++ error(EXIT_FAILURE, 0, "read failed (%s).\n", strerror(errno));
++ /*@notreached@*/
+ }
-+ if ((savedoffset = lseek(fd, (off_t)0, SEEK_CUR)) == (off_t)-1) {
-+ file_badseek(ms);
-+ return -1;
++ if ((savedoffset = lseek(fm->fd, (off_t)0, SEEK_CUR)) == (off_t)-1) {
++ error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
++ /*@notreached@*/
+ }
+
+ switch (ph_type) {
+ case PT_DYNAMIC:
+ linking_style = "dynamically";
-+ break;
++ /*@switchbreak@*/ break;
+ case PT_INTERP:
+ shared_libraries = " (uses shared libs)";
-+ break;
++ /*@switchbreak@*/ break;
+ case PT_NOTE:
-+ if ((align = ph_align) & 0x80000000) {
-+ if (file_printf(ms,
-+ ", invalid note alignment 0x%lx",
-+ (unsigned long)align) == -1)
-+ return -1;
-+ align = 4;
-+ }
+ /*
+ * This is a PT_NOTE section; loop through all the notes
+ * in the section.
+ */
-+ if (lseek(fd, (off_t) ph_offset, SEEK_SET)
-+ == (off_t)-1) {
-+ file_badseek(ms);
-+ return -1;
++ if (lseek(fm->fd, (off_t) ph_offset, SEEK_SET) == -1) {
++ error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
++ /*@notreached@*/
+ }
-+ bufsize = read(fd, nbuf, sizeof(nbuf));
++ bufsize = read(fm->fd, nbuf, sizeof(nbuf));
+ if (bufsize == -1) {
-+ file_badread(ms);
-+ return -1;
++ error(EXIT_FAILURE, 0, ": " "read failed (%s).\n",
++ strerror(errno));
++ /*@notreached@*/
+ }
+ offset = 0;
+ for (;;) {
+ if (offset >= (size_t)bufsize)
-+ break;
-+ offset = donote(ms, nbuf, offset,
-+ (size_t)bufsize, class, swap, align);
-+ if (offset == 0)
-+ break;
++ /*@innerbreak@*/ break;
++ offset = donote(fm, nbuf, offset,
++ (size_t)bufsize, ph_align);
+ }
-+ if (lseek(fd, savedoffset + offset, SEEK_SET)
-+ == (off_t)-1) {
-+ file_badseek(ms);
-+ return -1;
++ if ((lseek(fm->fd, savedoffset + offset, SEEK_SET)) == (off_t)-1) {
++ error(EXIT_FAILURE, 0, "lseek failed (%s).\n", strerror(errno));
++ /*@notreached@*/
+ }
-+ break;
++ /*@switchbreak@*/ break;
+ }
+ }
-+ if (file_printf(ms, ", %s linked%s", linking_style, shared_libraries)
-+ == -1)
-+ return -1;
-+ return 0;
-+}
-+
-+
-+protected int
-+file_tryelf(struct magic_set *ms, int fd, const unsigned char *buf,
-+ size_t nbytes)
- {
--/*@-sizeoftype@*/
- union {
- int32_t l;
- char c[sizeof (int32_t)];
- } u;
--/*@=sizeoftype@*/
-+ int class;
-+ int swap;
-
- /*
-- * If we can't seek, it must be a pipe, socket or fifo.
-+ * If we cannot seek, it must be a pipe, socket or fifo.
- */
-- if((lseek(fm->fd, (off_t)0, SEEK_SET) == (off_t)-1) && (errno == ESPIPE))
-- fm->fd = file_pipe2file(fm->fd, fm->buf, fm->nb);
-+ if((lseek(fd, (off_t)0, SEEK_SET) == (off_t)-1) && (errno == ESPIPE))
-+ fd = file_pipe2file(ms, fd, buf, nbytes);
-
- /*
- * ELF executables have multiple section headers in arbitrary
-@@ -633,96 +722,101 @@
- * Instead we traverse thru all section headers until a symbol table
- * one is found or else the binary is stripped.
- */
-- if (fm->buf[EI_MAG0] != ELFMAG0
-- || (fm->buf[EI_MAG1] != ELFMAG1 && fm->buf[EI_MAG1] != OLFMAG1)
-- || fm->buf[EI_MAG2] != ELFMAG2 || fm->buf[EI_MAG3] != ELFMAG3)
-- return;
-+ if (buf[EI_MAG0] != ELFMAG0
-+ || (buf[EI_MAG1] != ELFMAG1 && buf[EI_MAG1] != OLFMAG1)
-+ || buf[EI_MAG2] != ELFMAG2 || buf[EI_MAG3] != ELFMAG3)
-+ return 0;
++ file_printf(fm, ", %s linked%s", linking_style, shared_libraries);
+ }
+ /*@=bounds@*/
+-#endif
-- fm->cls = fm->buf[EI_CLASS];
+ /*@-bounds@*/
+ void
+@@ -638,6 +653,7 @@
+ || fm->buf[EI_MAG2] != ELFMAG2 || fm->buf[EI_MAG3] != ELFMAG3)
+ return;
-- if (fm->cls == ELFCLASS32) {
-+ class = buf[4];
+
-+ if (class == ELFCLASS32) {
- Elf32_Ehdr elfhdr;
-- if (fm->nb <= sizeof (elfhdr))
-- return;
-+ if (nbytes <= sizeof (Elf32_Ehdr))
-+ return 0;
+ fm->cls = fm->buf[EI_CLASS];
-
- u.l = 1;
-- (void) memcpy(&elfhdr, fm->buf, sizeof elfhdr);
--/*@-sizeoftype@*/
-- fm->swap = (u.c[sizeof(int32_t) - 1] + 1) != elfhdr.e_ident[EI_DATA];
--/*@=sizeoftype@*/
-+ (void) memcpy(&elfhdr, buf, sizeof elfhdr);
-+ swap = (u.c[sizeof(int32_t) - 1] + 1) != elfhdr.e_ident[5];
-
-- if (getu16(fm, elfhdr.e_type) == ET_CORE)
-+ if (getu16(swap, elfhdr.e_type) == ET_CORE) {
- #ifdef ELFCORE
-- dophn_core(fm,
-- getu32(fm, elfhdr.e_phoff),
-- getu16(fm, elfhdr.e_phnum),
-- getu16(fm, elfhdr.e_phentsize));
-+ if (dophn_core(ms, class, swap, fd,
-+ (off_t)getu32(swap, elfhdr.e_phoff),
-+ getu16(swap, elfhdr.e_phnum),
-+ (size_t)getu16(swap, elfhdr.e_phentsize)) == -1)
-+ return -1;
- #else
- ;
- #endif
-- else {
-- if (getu16(fm, elfhdr.e_type) == ET_EXEC) {
-- dophn_exec(fm,
-- getu32(fm, elfhdr.e_phoff),
-- getu16(fm, elfhdr.e_phnum),
-- getu16(fm, elfhdr.e_phentsize));
-+ } else {
-+ if (getu16(swap, elfhdr.e_type) == ET_EXEC) {
-+ if (dophn_exec(ms, class, swap,
-+ fd, (off_t)getu32(swap, elfhdr.e_phoff),
-+ getu16(swap, elfhdr.e_phnum),
-+ (size_t)getu16(swap, elfhdr.e_phentsize))
-+ == -1)
-+ return -1;
- }
-- doshn(fm,
-- getu32(fm, elfhdr.e_shoff),
-- getu16(fm, elfhdr.e_shnum),
-- getu16(fm, elfhdr.e_shentsize));
-+ if (doshn(ms, class, swap, fd,
-+ (off_t)getu32(swap, elfhdr.e_shoff),
-+ getu16(swap, elfhdr.e_shnum),
-+ (size_t)getu16(swap, elfhdr.e_shentsize)) == -1)
-+ return -1;
- }
-- return;
-+ return 1;
- }
-
-- if (fm->cls == ELFCLASS64) {
-+ if (class == ELFCLASS64) {
- Elf64_Ehdr elfhdr;
-- if (fm->nb <= sizeof (elfhdr))
-- return;
-+ if (nbytes <= sizeof (Elf64_Ehdr))
-+ return 0;
-+
-
- u.l = 1;
-- (void) memcpy(&elfhdr, fm->buf, sizeof elfhdr);
--/*@-sizeoftype@*/
-- fm->swap = (u.c[sizeof(int32_t) - 1] + 1) != elfhdr.e_ident[EI_DATA];
--/*@=sizeoftype@*/
-+ (void) memcpy(&elfhdr, buf, sizeof elfhdr);
-+ swap = (u.c[sizeof(int32_t) - 1] + 1) != elfhdr.e_ident[5];
-
-- if (getu16(fm, elfhdr.e_type) == ET_CORE)
-+ if (getu16(swap, elfhdr.e_type) == ET_CORE) {
- #ifdef ELFCORE
-- dophn_core(fm,
-+ if (dophn_core(ms, class, swap, fd,
- #ifdef USE_ARRAY_FOR_64BIT_TYPES
-- getu32(fm, elfhdr.e_phoff[1]),
-+ (off_t)getu32(swap, elfhdr.e_phoff[1]),
- #else
-- getu64(fm, elfhdr.e_phoff),
-+ (off_t)getu64(swap, elfhdr.e_phoff),
- #endif
-- getu16(fm, elfhdr.e_phnum),
-- getu16(fm, elfhdr.e_phentsize));
-+ getu16(swap, elfhdr.e_phnum),
-+ (size_t)getu16(swap, elfhdr.e_phentsize)) == -1)
-+ return -1;
- #else
- ;
- #endif
-- else
-- {
-- if (getu16(fm, elfhdr.e_type) == ET_EXEC) {
-- dophn_exec(fm,
-+ } else {
-+ if (getu16(swap, elfhdr.e_type) == ET_EXEC) {
-+ if (dophn_exec(ms, class, swap, fd,
- #ifdef USE_ARRAY_FOR_64BIT_TYPES
-- getu32(fm, elfhdr.e_phoff[1]),
-+ (off_t)getu32(swap, elfhdr.e_phoff[1]),
- #else
-- getu64(fm, elfhdr.e_phoff),
-+ (off_t)getu64(swap, elfhdr.e_phoff),
- #endif
-- getu16(fm, elfhdr.e_phnum),
-- getu16(fm, elfhdr.e_phentsize));
-+ getu16(swap, elfhdr.e_phnum),
-+ (size_t)getu16(swap, elfhdr.e_phentsize))
-+ == -1)
-+ return -1;
- }
-- doshn(fm,
-+ if (doshn(ms, class, swap, fd,
- #ifdef USE_ARRAY_FOR_64BIT_TYPES
-- getu32(fm, elfhdr.e_shoff[1]),
-+ (off_t)getu32(swap, elfhdr.e_shoff[1]),
- #else
-- getu64(fm, elfhdr.e_shoff),
-+ (off_t)getu64(swap, elfhdr.e_shoff),
- #endif
-- getu16(fm, elfhdr.e_shnum),
-- getu16(fm, elfhdr.e_shentsize));
-+ getu16(swap, elfhdr.e_shnum),
-+ (size_t)getu16(swap, elfhdr.e_shentsize)) == -1)
-+ return -1;
- }
-- return;
-+ return 1;
- }
-+ return 0;
- }
--/*@=bounds@*/
--#endif /* BUILTIN_ELF */
-+#endif
+ if (fm->cls == ELFCLASS32) {