libelf: Correctly decode ar_mode as octal string

ar_mode is encoded as an octal ascii string, not decimal. Add a new
OCT_FIELD macro to decode it.

https://sourceware.org/bugzilla/show_bug.cgi?id=28729

Signed-off-by: Mark Wielaard <mark@klomp.org>

diff --git a/libelf/ChangeLog b/libelf/ChangeLog
index 35f4951..558d795 100644 (file)
--- a/libelf/ChangeLog
+++ b/libelf/ChangeLog
@@ -1,3 +1,8 @@
+2022-08-28  Mark Wielaard  <mark@klomp.org>
+
+       * elf_begin.c (__libelf_next_arhdr_wrlock): Add OCT_FIELD macro,
+       like INT_FIELD but use strtol with octal base 8. Use for ar_mode.
+
 2022-08-08  Andreas Schwab  <schwab@suse.de>
 
        * elf.h: Update from glibc.

diff --git a/libelf/elf_begin.c b/libelf/elf_begin.c
index 17d9b1f..71eb359 100644 (file)
--- a/libelf/elf_begin.c
+++ b/libelf/elf_begin.c
@@ -977,7 +977,8 @@ __libelf_next_arhdr_wrlock (Elf *elf)
      atoll depending on the size of the types.  We are also prepared
      for the case where the whole field in the `struct ar_hdr' is
      filled in which case we cannot simply use atol/l but instead have
-     to create a temporary copy.  */
+     to create a temporary copy.  Note that all fields use decimal
+     encoding, except ar_mode which uses octal.  */
 
 #define INT_FIELD(FIELD)                                                     \
   do                                                                         \
@@ -997,10 +998,30 @@ __libelf_next_arhdr_wrlock (Elf *elf)
     }                                                                        \
   while (0)
 
+#define OCT_FIELD(FIELD)                                                     \
+  do                                                                         \
+    {                                                                        \
+      char buf[sizeof (ar_hdr->FIELD) + 1];                                  \
+      const char *string = ar_hdr->FIELD;                                    \
+      if (ar_hdr->FIELD[sizeof (ar_hdr->FIELD) - 1] != ' ')                  \
+       {                                                                     \
+         *((char *) mempcpy (buf, ar_hdr->FIELD, sizeof (ar_hdr->FIELD)))  \
+           = '\0';                                                           \
+         string = buf;                                                       \
+       }                                                                     \
+      if (sizeof (elf_ar_hdr->FIELD) <= sizeof (long int))                   \
+       elf_ar_hdr->FIELD                                                     \
+         = (__typeof (elf_ar_hdr->FIELD)) strtol (string, NULL, 8);          \
+      else                                                                   \
+       elf_ar_hdr->FIELD                                                     \
+         = (__typeof (elf_ar_hdr->FIELD)) strtoll (string, NULL, 8);         \
+    }                                                                        \
+  while (0)
+
   INT_FIELD (ar_date);
   INT_FIELD (ar_uid);
   INT_FIELD (ar_gid);
-  INT_FIELD (ar_mode);
+  OCT_FIELD (ar_mode);
   INT_FIELD (ar_size);
 
   if (elf_ar_hdr->ar_size < 0)