153
+ − 1 /*
+ − 2 * Copyright (c) 1995 by Sun Microsystems, Inc.
+ − 3 * All rights reserved.
+ − 4 *
+ − 5 * This source code is a product of Sun Microsystems, Inc. and is provided
+ − 6 * for unrestricted use provided that this legend is included on all tape
+ − 7 * media and as a part of the software program in whole or part. Users
+ − 8 * may copy or modify this source code without charge, but are not authorized
+ − 9 * to license or distribute it to anyone else except as part of a product or
+ − 10 * program developed by the user.
+ − 11 *
+ − 12 * THIS PROGRAM CONTAINS SOURCE CODE COPYRIGHTED BY SUN MICROSYSTEMS, INC.
+ − 13 * SUN MICROSYSTEMS, INC., MAKES NO REPRESENTATIONS ABOUT THE SUITABLITY
+ − 14 * OF SUCH SOURCE CODE FOR ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT
+ − 15 * EXPRESS OR IMPLIED WARRANTY OF ANY KIND. SUN MICROSYSTEMS, INC. DISCLAIMS
+ − 16 * ALL WARRANTIES WITH REGARD TO SUCH SOURCE CODE, INCLUDING ALL IMPLIED
+ − 17 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN
+ − 18 * NO EVENT SHALL SUN MICROSYSTEMS, INC. BE LIABLE FOR ANY SPECIAL, INDIRECT,
+ − 19 * INCIDENTAL, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+ − 20 * FROM USE OF SUCH SOURCE CODE, REGARDLESS OF THE THEORY OF LIABILITY.
+ − 21 *
+ − 22 * This source code is provided with no support and without any obligation on
+ − 23 * the part of Sun Microsystems, Inc. to assist in its use, correction,
+ − 24 * modification or enhancement.
+ − 25 *
+ − 26 * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
+ − 27 * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS
+ − 28 * SOURCE CODE OR ANY PART THEREOF.
+ − 29 *
+ − 30 * Sun Microsystems, Inc.
+ − 31 * 2550 Garcia Avenue
+ − 32 * Mountain View, California 94043
+ − 33 */
+ − 34
+ − 35 #pragma ident "@(#) $Id: _relocate.c,v 1.3 1997/05/29 04:23:02 steve Exp $ - SMI"
+ − 36
+ − 37 /* LINTLIBRARY */
+ − 38
+ − 39 #include <libelf.h>
+ − 40 #include <string.h>
+ − 41 #include <machdep.h>
+ − 42 #include "_dynodump.h"
+ − 43
+ − 44 void
+ − 45 update_reloc(Cache *ocache, Cache *_ocache,
+ − 46 Cache *icache, Cache *_icache,
+ − 47 Half shnum)
+ − 48 {
+ − 49 Shdr *shdr;
+ − 50 Rel *rels;
+ − 51 int reln, cnt;
+ − 52 Cache *orcache, *ircache;
+ − 53
+ − 54 /*
+ − 55 * Set up to readh the output relocation table.
+ − 56 */
+ − 57 shdr = _ocache->c_shdr;
+ − 58 rels = (Rel *) _ocache->c_data->d_buf;
+ − 59 reln = shdr->sh_size / shdr->sh_entsize;
+ − 60
+ − 61 /*
+ − 62 * Determine the section that is being relocated.
+ − 63 */
+ − 64 orcache = &ocache[shdr->sh_info];
+ − 65 shdr = _icache->c_shdr;
+ − 66 ircache = &icache[shdr->sh_info];
+ − 67
+ − 68 /*
+ − 69 * Determine the section that is being relocated. Note that for this
+ − 70 * stupid architecture the .rel.plt actually contains offsets into the
+ − 71 * .got.
+ − 72 */
+ − 73 if (strcmp(_ocache->c_name, ".rel.plt")) {
+ − 74 orcache = &ocache[shdr->sh_info];
+ − 75 shdr = _icache->c_shdr;
+ − 76 ircache = &icache[shdr->sh_info];
+ − 77 } else {
+ − 78 Half ndx;
+ − 79 Cache * __ocache = ocache;
+ − 80
+ − 81 for (__ocache++, ndx = 1; ndx != shnum; ndx++, __ocache++) {
+ − 82 if (strcmp(__ocache->c_name, ".got") == 0) {
+ − 83 orcache = __ocache;
+ − 84 ircache = &icache[ndx];
+ − 85 break;
+ − 86 }
+ − 87 }
+ − 88 }
+ − 89
+ − 90 /*
+ − 91 * Loop through the relocation table.
+ − 92 */
+ − 93 for (cnt = 0; cnt < reln; cnt++, rels++) {
+ − 94 unsigned char *iaddr, *oaddr;
+ − 95 Addr off;
+ − 96 unsigned char type = ELF_R_TYPE(rels->r_info);
+ − 97
+ − 98 /*
+ − 99 * Ignore some relocations as these can be safely carried out
+ − 100 * twice (they simply override any existing data). In fact,
+ − 101 * some relocations like __iob's copy relocation must be carried
+ − 102 * out each time the process restarts, otherwise stdio blows up.
+ − 103 */
+ − 104 if ((type == R_386_COPY) || (type == R_386_NONE))
+ − 105 continue;
+ − 106
+ − 107 /*
+ − 108 * If we are required to restore the relocation location
+ − 109 * to its value prior to relocation, then read the
+ − 110 * location's original contents from the input image and
+ − 111 * copy it to the output image.
+ − 112 */
+ − 113 off = rels->r_offset - ircache->c_shdr->sh_addr;
+ − 114 iaddr = (unsigned char *) ircache->c_data->d_buf + off;
+ − 115 oaddr = (unsigned char *) orcache->c_data->d_buf + off;
+ − 116 *(unsigned long *) oaddr = *(unsigned long *) iaddr;
+ − 117 }
+ − 118 }
