Fixed incorrect use of mvcle introduced by 2001-07-12 change.
[kopensolaris-gnu/glibc.git] / sysdeps / powerpc / dl-machine.c
index 96f928a..c9c4fe0 100644 (file)
@@ -1,29 +1,30 @@
 /* Machine-dependent ELF dynamic relocation functions.  PowerPC version.
-   Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
+   Copyright (C) 1995,96,97,98,99,2000,2001 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
 
    The GNU C Library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Library General Public License as
-   published by the Free Software Foundation; either version 2 of the
-   License, or (at your option) any later version.
+   modify it under the terms of the GNU Lesser General Public
+   License as published by the Free Software Foundation; either
+   version 2.1 of the License, or (at your option) any later version.
 
    The GNU C Library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-   Library General Public License for more details.
+   Lesser General Public License for more details.
 
-   You should have received a copy of the GNU Library General Public
-   License along with the GNU C Library; see the file COPYING.LIB.  If not,
-   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA.  */
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, write to the Free
+   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+   02111-1307 USA.  */
 
 #include <unistd.h>
 #include <string.h>
 #include <sys/param.h>
 #include <link.h>
-#include <dl-machine.h>
-#include <elf/ldsodefs.h>
+#include <ldsodefs.h>
 #include <elf/dynamic-link.h>
+#include <dl-machine.h>
+#include <stdio-common/_itoa.h>
 
 /* Because ld.so is now versioned, these functions can be in their own file;
    no relocations need to be done to call them.
 #define OPCODE_SLWI(ra,rs,sh) OPCODE_RLWINM(ra,rs,sh,0,31-sh)
 
 
-#define PPC_DCBST(where) asm ("dcbst 0,%0" : : "r"(where) : "memory")
-#define PPC_SYNC asm ("sync" : : : "memory")
+#define PPC_DCBST(where) asm volatile ("dcbst 0,%0" : : "r"(where) : "memory")
+#define PPC_SYNC asm volatile ("sync" : : : "memory")
 #define PPC_ISYNC asm volatile ("sync; isync" : : : "memory")
-#define PPC_ICBI(where) asm ("icbi 0,%0" : : "r"(where) : "memory")
+#define PPC_ICBI(where) asm volatile ("icbi 0,%0" : : "r"(where) : "memory")
 #define PPC_DIE asm volatile ("tweq 0,0")
 
 /* Use this when you've modified some code, but it won't be in the
@@ -118,7 +119,11 @@ __elf_preferred_address(struct link_map *loader, size_t maplength,
       mapend = l->l_map_end | (_dl_pagesize - 1);
       assert (mapend > mapstart);
 
-      if (mapend >= high && high >= mapstart)
+      /* Prefer gaps below the main executable, note that l ==
+        _dl_loaded does not work for static binaries loading
+        e.g. libnss_*.so.  */
+      if ((mapend >= high || l->l_type == lt_executable)
+         && high >= mapstart)
        high = mapstart;
       else if (mapend >= low && low >= mapstart)
        low = mapend;
@@ -203,7 +208,7 @@ __elf_machine_runtime_setup (struct link_map *map, int lazy, int profile)
   if (map->l_info[DT_JMPREL])
     {
       Elf32_Word i;
-      Elf32_Word *plt = (Elf32_Word *) map->l_info[DT_PLTGOT]->d_un.d_val;
+      Elf32_Word *plt = (Elf32_Word *) D_PTR (map, l_info[DT_PLTGOT]);
       Elf32_Word num_plt_entries = (map->l_info[DT_PLTRELSZ]->d_un.d_val
                                    / sizeof (Elf32_Rela));
       Elf32_Word rel_offset_words = PLT_DATA_START_WORDS (num_plt_entries);
@@ -234,11 +239,11 @@ __elf_machine_runtime_setup (struct link_map *map, int lazy, int profile)
            /* This is the object we are looking for.  Say that we really
               want profiling and the timers are started.  */
            _dl_profile_map = map;
-         
+
          /* For the long entries, subtract off data_words.  */
          tramp[0] = OPCODE_ADDIS_HI (11, 11, -data_words);
          tramp[1] = OPCODE_ADDI (11, 11, -data_words);
-         
+
          /* Multiply index of entry by 3 (in r11).  */
          tramp[2] = OPCODE_SLWI (12, 11, 1);
          tramp[3] = OPCODE_ADD (11, 12, 11);
@@ -247,7 +252,7 @@ __elf_machine_runtime_setup (struct link_map *map, int lazy, int profile)
              /* Load address of link map in r12.  */
              tramp[4] = OPCODE_LI (12, (Elf32_Word) map);
              tramp[5] = OPCODE_ADDIS_HI (12, 12, (Elf32_Word) map);
-             
+
              /* Call _dl_runtime_resolve.  */
              tramp[6] = OPCODE_BA (dlrr);
            }
@@ -257,15 +262,15 @@ __elf_machine_runtime_setup (struct link_map *map, int lazy, int profile)
              tramp[4] = OPCODE_LI (12, dlrr);
              tramp[5] = OPCODE_ADDIS_HI (12, 12, dlrr);
              tramp[6] = OPCODE_MTCTR (12);
-             
+
              /* Load address of link map in r12.  */
              tramp[7] = OPCODE_LI (12, (Elf32_Word) map);
              tramp[8] = OPCODE_ADDIS_HI (12, 12, (Elf32_Word) map);
-             
+
              /* Call _dl_runtime_resolve.  */
              tramp[9] = OPCODE_BCTR ();
            }
-         
+
          /* Set up the lazy PLT entries.  */
          offset = PLT_INITIAL_ENTRY_WORDS;
          i = 0;
@@ -299,8 +304,7 @@ __elf_machine_runtime_setup (struct link_map *map, int lazy, int profile)
         there may be a little overlap at the start and the end.
 
         Assumes that dcbst and icbi apply to lines of 16 bytes or
-        more.  At present, all PowerPC processors have line sizes of
-        16 or 32 bytes.  */
+        more.  Current known line sizes are 16, 32, and 128 bytes.  */
 
       size_modified = lazy ? rel_offset_words : 6;
       for (i = 0; i < size_modified; i += 4)
@@ -315,7 +319,7 @@ __elf_machine_runtime_setup (struct link_map *map, int lazy, int profile)
   return lazy;
 }
 
-void
+Elf32_Addr
 __elf_machine_fixup_plt(struct link_map *map, const Elf32_Rela *reloc,
                        Elf32_Addr *reloc_addr, Elf32_Addr finaladdr)
 {
@@ -328,10 +332,10 @@ __elf_machine_fixup_plt(struct link_map *map, const Elf32_Rela *reloc,
     {
       Elf32_Word *plt, *data_words;
       Elf32_Word index, offset, num_plt_entries;
-      
+
       num_plt_entries = (map->l_info[DT_PLTRELSZ]->d_un.d_val
                         / sizeof(Elf32_Rela));
-      plt = (Elf32_Word *) map->l_info[DT_PLTGOT]->d_un.d_val;
+      plt = (Elf32_Word *) D_PTR (map, l_info[DT_PLTGOT]);
       offset = reloc_addr - plt;
       index = (offset - PLT_INITIAL_ENTRY_WORDS)/2;
       data_words = plt + PLT_DATA_START_WORDS (num_plt_entries);
@@ -342,7 +346,7 @@ __elf_machine_fixup_plt(struct link_map *map, const Elf32_Rela *reloc,
        {
          data_words[index] = finaladdr;
          PPC_SYNC;
-         *reloc_addr = OPCODE_B ((PLT_LONGBRANCH_ENTRY_WORDS - (offset+1)) 
+         *reloc_addr = OPCODE_B ((PLT_LONGBRANCH_ENTRY_WORDS - (offset+1))
                                  * 4);
        }
       else
@@ -361,6 +365,33 @@ __elf_machine_fixup_plt(struct link_map *map, const Elf32_Rela *reloc,
        }
     }
   MODIFIED_CODE (reloc_addr);
+  return finaladdr;
+}
+
+static void
+dl_reloc_overflow (struct link_map *map,
+                  const char *name,
+                  Elf32_Addr *const reloc_addr,
+                  const Elf32_Sym *sym,
+                  const Elf32_Sym *refsym)
+{
+  char buffer[128];
+  char *t;
+  const Elf32_Sym *errsym = sym ?: refsym;
+  t = stpcpy (buffer, name);
+  t = stpcpy (t, " relocation at 0x00000000");
+  _itoa_word ((unsigned) reloc_addr, t, 16, 0);
+  if (errsym)
+    {
+      const char *strtab;
+
+      strtab = (const void *) D_PTR (map, l_info[DT_STRTAB]);
+      t = stpcpy (t, " for symbol `");
+      t = stpcpy (t, strtab + errsym->st_name);
+      t = stpcpy (t, "'");
+    }
+  t = stpcpy (t, " out of range");
+  _dl_signal_error (0, map->l_name, buffer);
 }
 
 void
@@ -386,16 +417,14 @@ __process_machine_rela (struct link_map *map,
 
     case R_PPC_ADDR24:
       if (finaladdr > 0x01fffffc && finaladdr < 0xfe000000)
-       _dl_signal_error (0, map->l_name,
-                         "R_PPC_ADDR24 relocation out of range");
+       dl_reloc_overflow (map,  "R_PPC_ADDR24", reloc_addr, sym, refsym);
       *reloc_addr = (*reloc_addr & 0xfc000003) | (finaladdr & 0x3fffffc);
       break;
 
     case R_PPC_ADDR16:
     case R_PPC_UADDR16:
       if (finaladdr > 0x7fff && finaladdr < 0x8000)
-       _dl_signal_error (0, map->l_name,
-                         "R_PPC_ADDR16 relocation out of range");
+       dl_reloc_overflow (map,  "R_PPC_ADDR16", reloc_addr, sym, refsym);
       *(Elf32_Half*) reloc_addr = finaladdr;
       break;
 
@@ -415,8 +444,7 @@ __process_machine_rela (struct link_map *map,
     case R_PPC_ADDR14_BRTAKEN:
     case R_PPC_ADDR14_BRNTAKEN:
       if (finaladdr > 0x7fff && finaladdr < 0x8000)
-       _dl_signal_error (0, map->l_name,
-                         "R_PPC_ADDR14 relocation out of range");
+       dl_reloc_overflow (map,  "R_PPC_ADDR14", reloc_addr, sym, refsym);
       *reloc_addr = (*reloc_addr & 0xffff0003) | (finaladdr & 0xfffc);
       if (rinfo != R_PPC_ADDR14)
        *reloc_addr = ((*reloc_addr & 0xffdfffff)
@@ -428,8 +456,7 @@ __process_machine_rela (struct link_map *map,
       {
        Elf32_Sword delta = finaladdr - (Elf32_Word) reloc_addr;
        if (delta << 6 >> 6 != delta)
-         _dl_signal_error (0, map->l_name,
-                           "R_PPC_REL24 relocation out of range");
+         dl_reloc_overflow (map,  "R_PPC_REL24", reloc_addr, sym, refsym);
        *reloc_addr = (*reloc_addr & 0xfc000003) | (delta & 0x3fffffc);
       }
       break;
@@ -444,11 +471,11 @@ __process_machine_rela (struct link_map *map,
        {
          const char *strtab;
 
-         strtab = (const void *) map->l_info[DT_STRTAB]->d_un.d_ptr;
-         _dl_sysdep_error (_dl_argv[0] ?: "<program name unknown>",
-                           ": Symbol `", strtab + refsym->st_name,
-                           "' has different size in shared object, "
-                           "consider re-linking\n", NULL);
+         strtab = (const void *) D_PTR (map, l_info[DT_STRTAB]);
+         _dl_error_printf ("\
+%s: Symbol `%s' has different size in shared object, onsider re-linking\n",
+                           _dl_argv[0] ?: "<program name unknown>",
+                           strtab + refsym->st_name);
        }
       memcpy (reloc_addr, (char *) finaladdr, MIN (sym->st_size,
                                                   refsym->st_size));
@@ -473,8 +500,8 @@ __process_machine_rela (struct link_map *map,
          {
            Elf32_Word *plt, *data_words;
            Elf32_Word index, offset, num_plt_entries;
-           
-           plt = (Elf32_Word *) map->l_info[DT_PLTGOT]->d_un.d_val;
+
+           plt = (Elf32_Word *) D_PTR (map, l_info[DT_PLTGOT]);
            offset = reloc_addr - plt;
 
            if (offset < PLT_DOUBLE_SIZE*2 + PLT_INITIAL_ENTRY_WORDS)
@@ -485,8 +512,8 @@ __process_machine_rela (struct link_map *map,
                data_words = plt + PLT_DATA_START_WORDS (num_plt_entries);
                data_words[index] = finaladdr;
                reloc_addr[0] = OPCODE_LI (11, index * 4);
-               reloc_addr[1] = OPCODE_B ((PLT_LONGBRANCH_ENTRY_WORDS 
-                                          - (offset+1)) 
+               reloc_addr[1] = OPCODE_B ((PLT_LONGBRANCH_ENTRY_WORDS
+                                          - (offset+1))
                                          * 4);
                MODIFIED_CODE_NOQUEUE (reloc_addr + 1);
              }