Source-Changes-HG archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Old Index]
[src/netbsd-1-4]: src/libexec/ld.aout_so/arch/m68k Allow reading SunOS/4.1.1 ...
details: https://anonhg.NetBSD.org/src/rev/a9d9bf3609fc
branches: netbsd-1-4
changeset: 468170:a9d9bf3609fc
user: gwr <gwr%NetBSD.org@localhost>
date: Mon Apr 12 00:52:45 1999 +0000
description:
Allow reading SunOS/4.1.1 object files. Fixes pr/7363
diffstat:
libexec/ld.aout_so/arch/m68k/md.c | 384 ++++++++++++++++++++++++++++++++++++++
1 files changed, 384 insertions(+), 0 deletions(-)
diffs (truncated from 388 to 300 lines):
diff -r bb4be71e12a8 -r a9d9bf3609fc libexec/ld.aout_so/arch/m68k/md.c
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/libexec/ld.aout_so/arch/m68k/md.c Mon Apr 12 00:52:45 1999 +0000
@@ -0,0 +1,384 @@
+/* $NetBSD: md.c,v 1.16.2.2 1999/04/12 00:52:45 gwr Exp $ */
+
+/*-
+ * Copyright (c) 1998 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Paul Kranenburg.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ * must display the following acknowledgement:
+ * This product includes software developed by the NetBSD
+ * Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ * contributors may be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <sys/param.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <err.h>
+#include <fcntl.h>
+#include <a.out.h>
+#include <stab.h>
+#include <string.h>
+
+#include "ld.h"
+#ifndef RTLD
+/* Pull in the ld(1) bits as well */
+#include "ld_i.h"
+#endif
+
+/*
+ * Get relocation addend corresponding to relocation record RP
+ * from address ADDR
+ */
+long
+md_get_addend(rp, addr)
+ struct relocation_info *rp;
+ unsigned char *addr;
+{
+ switch (RELOC_TARGET_SIZE(rp)) {
+ case 0:
+ return get_byte(addr);
+ case 1:
+ return get_short(addr);
+ case 2:
+ return get_long(addr);
+ default:
+ errx(1, "Unsupported relocation size: %x",
+ RELOC_TARGET_SIZE(rp));
+ }
+}
+
+/*
+ * Put RELOCATION at ADDR according to relocation record RP.
+ */
+void
+md_relocate(rp, relocation, addr, relocatable_output)
+ struct relocation_info *rp;
+ long relocation;
+ unsigned char *addr;
+ int relocatable_output;
+{
+ switch (RELOC_TARGET_SIZE(rp)) {
+ case 0:
+ put_byte(addr, relocation);
+ break;
+ case 1:
+ put_short(addr, relocation);
+ break;
+ case 2:
+ put_long(addr, relocation);
+ break;
+ default:
+ errx(1, "Unsupported relocation size: %x",
+ RELOC_TARGET_SIZE(rp));
+ }
+#ifdef RTLD
+ _cachectl (addr, RELOC_TARGET_SIZE(rp)); /* maintain cache coherency */
+#endif
+}
+
+/*
+ * Set up a "direct" transfer (ie. not through the run-time binder) from
+ * jmpslot at OFFSET to ADDR. Used by `ld' when the SYMBOLIC flag is on,
+ * and by `ld.so' after resolving the symbol.
+ * On the m68k, we use the BRA instruction which is PC relative, so no
+ * further RRS relocations will be necessary for such a jmpslot.
+ */
+void
+md_fix_jmpslot(sp, offset, addr, first)
+ jmpslot_t *sp;
+ long offset;
+ u_long addr;
+ int first;
+{
+ u_long fudge = addr - (sizeof(sp->opcode) + offset);
+
+ sp->opcode = BRAL;
+ sp->addr[0] = fudge >> 16;
+ sp->addr[1] = fudge;
+ sp->reloc_index = 0;
+#ifdef RTLD
+ _cachectl (sp, 6); /* maintain cache coherency */
+#endif
+}
+
+void
+md_set_breakpoint(where, savep)
+ long where;
+ long *savep;
+{
+ *savep = *(long *)where;
+ *(short *)where = BPT;
+}
+
+
+
+#ifndef RTLD
+/*
+ * Machine dependent part of claim_rrs_reloc().
+ * Set RRS relocation type.
+ */
+int
+md_make_reloc(rp, r, type)
+ struct relocation_info *rp, *r;
+ int type;
+{
+ /* Relocation size */
+ r->r_length = rp->r_length;
+
+ if (RELOC_PCREL_P(rp))
+ r->r_pcrel = 1;
+
+ if (type & RELTYPE_RELATIVE)
+ r->r_relative = 1;
+
+ if (type & RELTYPE_COPY)
+ r->r_copy = 1;
+
+ return 0;
+}
+
+/*
+ * Set up a transfer from jmpslot at OFFSET (relative to the PLT table)
+ * to the binder slot (which is at offset 0 of the PLT).
+ */
+void
+md_make_jmpslot(sp, offset, index)
+ jmpslot_t *sp;
+ long offset;
+ long index;
+{
+ /*
+ * On m68k machines, a long branch offset is relative to
+ * the address of the offset.
+ */
+ u_long fudge = - (sizeof(sp->opcode) + offset);
+
+ sp->opcode = BSRL;
+ sp->addr[0] = fudge >> 16;
+ sp->addr[1] = fudge;
+ sp->reloc_index = index;
+#ifdef RTLD
+ _cachectl (sp, 6); /* maintain cache coherency */
+#endif
+}
+
+/*
+ * Update the relocation record for a RRS jmpslot.
+ */
+void
+md_make_jmpreloc(rp, r, type)
+ struct relocation_info *rp, *r;
+ int type;
+{
+ jmpslot_t *sp;
+
+ /*
+ * Fix relocation address to point to the correct
+ * location within this jmpslot.
+ */
+ r->r_address += sizeof(sp->opcode);
+
+ /* Relocation size */
+ r->r_length = 2;
+
+ /* Set relocation type */
+ r->r_jmptable = 1;
+ if (type & RELTYPE_RELATIVE)
+ r->r_relative = 1;
+
+}
+
+/*
+ * Set relocation type for a RRS GOT relocation.
+ */
+void
+md_make_gotreloc(rp, r, type)
+ struct relocation_info *rp, *r;
+ int type;
+{
+ r->r_baserel = 1;
+ if (type & RELTYPE_RELATIVE)
+ r->r_relative = 1;
+
+ /* Relocation size */
+ r->r_length = 2;
+}
+
+/*
+ * Set relocation type for a RRS copy operation.
+ */
+void
+md_make_cpyreloc(rp, r)
+ struct relocation_info *rp, *r;
+{
+ /* Relocation size */
+ r->r_length = 2;
+
+ r->r_copy = 1;
+}
+
+/*
+ * Initialize (output) exec header such that useful values are
+ * obtained from subsequent N_*() macro evaluations.
+ */
+void
+md_init_header(hp, magic, flags)
+ struct exec *hp;
+ int magic, flags;
+{
+ if (oldmagic)
+ hp->a_midmag = oldmagic;
+ else
+ N_SETMAGIC((*hp), magic, MID_MACHINE, flags);
+
+ /* TEXT_START depends on the value of outheader.a_entry. */
+ if (!(link_mode & SHAREABLE))
+ hp->a_entry = PAGSIZ;
+}
+
+/*
+ * Check for acceptable foreign machine Ids
+ */
+int
+md_midcompat(hp)
+ struct exec *hp;
+{
+ int mid = N_GETMID(*hp);
+
+ if (mid == MID_M68K ||
+ mid == MID_M68K4K ||
+ mid == MID_HP300 ||
+ mid == MID_HPUX ||
+ mid == MID_HPUX800)
+ return 1;
+
+#ifdef MID_SUN020
+ mid = (md_swap_long(hp->a_midmag) & 0x00ff0000) >> 16;
+ if (mid == MID_SUN020)
+ return 1;
+#endif
+ return 0;
+}
+#endif /* RTLD */
+
+
+#ifdef NEED_SWAP
+/*
+ * Byte swap routines for cross-linking.
+ */
+
Home |
Main Index |
Thread Index |
Old Index