initial import of NetBSD tree

4 files changed, 766 insertions, 0 deletions

diff --git a/gnu/usr.bin/ld/ns32k/md-static-funcs.c b/gnu/usr.bin/ld/ns32k/md-static-funcs.c
new file mode 100644
index 00000000000..9d28cf555a1
--- /dev/null
+++ b/gnu/usr.bin/ld/ns32k/md-static-funcs.c
@@ -0,0 +1,38 @@
+/*
+ *	$Id: md-static-funcs.c,v 1.1 1995/10/18 08:40:57 deraadt Exp $
+ *
+ * Called by ld.so when onanating.
+ * This *must* be a static function, so it is not called through a jmpslot.
+ */
+
+#include <sys/syscall.h>
+#define write(fd, s, n)		__syscall(SYS_write, (fd), (s), (n))
+#define _exit(n)		__syscall(SYS_exit, (n))
+
+asm("___syscall:");
+asm("	movd tos,r1");		/* return address */
+asm("	movd tos,r0");		/* syscall number */
+asm("	movd r1,tos");
+asm("	svc");			/* do system call */
+asm("	bcc 1f");		/* check error */
+asm("	movqd -1,r0");
+asm("1:	jump 0(0(sp))");	/* return */
+
+static void
+md_relocate_simple(r, relocation, addr)
+struct relocation_info	*r;
+long			relocation;
+char			*addr;
+{
+    if (r->r_relative) {
+    	if (r->r_disp != 2) {
+    		write(2, "Illegal runtime relocation for ld.so",
+		      sizeof("Illegal runtime relocation for ld.so") - 1);
+		_exit(1);
+    	}
+	*(long *)addr += relocation;
+    }
+}
+
+#undef _exit
+#undef write
diff --git a/gnu/usr.bin/ld/ns32k/md.c b/gnu/usr.bin/ld/ns32k/md.c
new file mode 100644
index 00000000000..0d3f1d0b951
--- /dev/null
+++ b/gnu/usr.bin/ld/ns32k/md.c
@@ -0,0 +1,517 @@
+/*	$NetBSD: md.c,v 1.6 1994/11/30 06:20:42 phil Exp $  */
+/*
+ * Copyright (c) 1993 Paul Kranenburg
+ * All rights reserved.
+ *
+ * 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 Paul Kranenburg.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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 <fcntl.h>
+#include <a.out.h>
+#include <stab.h>
+#include <string.h>
+
+#include "ld.h"
+
+/*
+ * Put little endian VAL of size N at ADDR
+ */
+static void
+put_num(addr, val, n)
+unsigned char	*addr;
+long		val;
+char		n;
+{
+	while (n--) {
+		*addr++ = val;
+		val >>= 8;
+	}
+}
+
+/*
+ * Get little endian of size N at ADDR
+ */
+static unsigned long
+get_num(addr, n)
+unsigned char	*addr;
+int		n;
+{
+	int val = 0;
+
+	addr += (n - 1);
+	while (n--)
+		val = val * 256 + *addr--;
+
+	return val;
+}
+
+/*
+ * Put big endian VAL of size N at ADDR
+ */
+static void
+put_imm(addr, val, n)
+unsigned char	*addr;
+unsigned long	val;
+char    	n;
+{
+	addr += (n - 1);
+	while (n--) {
+		*addr-- = val;
+		val >>= 8;
+	}
+}
+
+/*
+ * Get big endian of size N at ADDR
+ */
+static unsigned long
+get_imm(addr, n)
+unsigned char	*addr;
+int 		n;
+{
+	int val = 0;
+
+	while (n--)
+  		val = val * 256 + *addr++;
+
+	return val;
+}
+
+/*
+ * Displacements are big endian with the size
+ * encoded in the two top bits:
+ * Byte:	0xxxxxxx
+ * Word:	10xxxxxx xxxxxxxx
+ * Double word:	11xxxxxx xxxxxxxx xxxxxxxx xxxxxxxx
+ */
+
+/*
+ * Signextend VAL from bit N
+ */
+static long
+sign_extend(val, n)
+int	val, n;
+{
+	val = val & ((1 << n) - 1);
+	return (val & (1 << (n - 1))?
+			val | (~((1 << n) - 1))
+		:
+			val
+		);
+}
+
+/*
+ * Put ns32k displacement VAL of size N at ADDR
+ */
+static void
+put_disp(addr, val, n)
+unsigned char	*addr;
+long		val;
+char		n;
+{
+	switch (n) {
+	case 1:
+		if (val < -64 || val > 63)
+			warnx("Byte displacement %d, out of range.", val);
+		val &= 0x7f;
+		*addr++ = val;
+		break;
+	case 2:
+		if (val < -8192 || val > 8191)
+			warnx("Word displacement %d, out of range.", val);
+		val &= 0x3fff;
+		val |= 0x8000;
+		*addr++ = (val >> 8);
+		*addr++ = val;
+		break;
+	case 4:
+#if 1
+		if (val < -0x1f000000 || val >= 0x20000000)
+#else
+		if (val < -0x20000000 || val >= 0x20000000)
+#endif
+			warnx("Double word displacement %d, out of range", val);
+		val |= 0xc0000000;
+		*addr++ = (val >> 24);
+		*addr++ = (val >> 16);
+		*addr++ = (val >> 8);
+		*addr++ = val;
+		break;
+	default:
+		errx(1, "internal error: putdisp: n = %d", n);
+	}
+}
+
+/*
+ * Get ns32k displacement size N at ADDR
+ */
+static unsigned long
+get_disp(addr, n)
+unsigned char	*addr;
+int		n;
+{
+	unsigned long Ivalue;
+
+	Ivalue = *addr++ & 0xff;
+	if (n == 0) {
+		if (Ivalue & 0x80) {
+			if (Ivalue & 0x40)
+				n = 4;
+			else
+				n = 2;
+		} else
+			n = 1;
+	}
+
+	switch (n) {
+	case 1:
+		Ivalue = sign_extend(Ivalue, 7);
+		break;
+	case 2:
+		Ivalue = sign_extend(Ivalue, 6);
+		Ivalue = (Ivalue << 8) | *addr;
+		break;
+	case 4:
+		Ivalue = sign_extend (Ivalue, 6);
+		Ivalue = (Ivalue << 8) | *addr++;
+		Ivalue = (Ivalue << 8) | *addr++;
+		Ivalue = (Ivalue << 8) | *addr;
+		break;
+	default:
+		errx(1, "get_disp: invalid argument %d\n", n);
+	}
+	return Ivalue;
+}
+
+/*
+ * Get relocation addend corresponding to relocation record RP
+ * from address ADDR
+ */
+long
+md_get_addend(rp, addr)
+struct relocation_info	*rp;
+unsigned char		*addr;
+{
+	int bytes = 1 << RELOC_TARGET_SIZE(rp);
+
+	switch (rp->r_disp) {
+	case 0:
+		return get_imm(addr, bytes);
+	case 1:
+		return get_disp(addr, bytes);
+	case 2:
+		return get_num(addr, bytes);
+	}
+}
+
+/*
+ * 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 bytes = 1 << RELOC_TARGET_SIZE(rp);
+
+	switch (rp->r_disp) {
+	case 0:
+		return put_imm(addr, relocation, bytes);
+	case 1:
+		return put_disp(addr, relocation, bytes);
+	case 2:
+		return put_num(addr, relocation, bytes);
+	}
+#ifdef RTLD
+	_cachectl (addr, bytes); /* maintain cache coherency */
+#endif
+}
+
+/*
+ * 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;
+
+	/* Data type */
+	r->r_disp = rp->r_disp;
+
+	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 ns32k machines, a long branch offset is relative to
+	 * the address of the branch instruction.
+	 */
+
+	put_num(sp->code, BSR, 2);
+	put_disp(sp->code + 2, -offset - 1, 4);
+	sp->reloc_index = index;
+#ifdef RTLD
+	_cachectl (sp->code, 6);	/* 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 ns32k, we use the BR instruction which is PC relative, so no
+ * further RRS relocations will be necessary for such a jmpslot.
+ */
+void
+md_fix_jmpslot(sp, offset, addr)
+jmpslot_t	*sp;
+long		offset;
+u_long		addr;
+{
+	put_num(sp->code, BR, 2);
+	put_disp(sp->code + 2, addr - offset - 1, 4);
+	sp->reloc_index = 0;
+#ifdef RTLD
+	_cachectl (sp->code, 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++;
+
+	/* Relocation size */
+	r->r_length = 2;
+
+	/* Data type */
+	r->r_disp = 1;
+
+	/* 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;
+
+	/* Data type */
+	r->r_disp = 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;
+
+	/* Data type */
+	r->r_disp = 2;
+
+	r->r_copy = 1;
+}
+
+void
+md_set_breakpoint(where, savep)
+long	where;
+long	*savep;
+{
+	*savep = *(long *)where;
+	*(short *)where = BPT;
+}
+
+#ifndef RTLD
+/*
+ * 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;
+}
+#endif /* RTLD */
+
+
+#ifdef NEED_SWAP
+/*
+ * Byte swap routines for cross-linking.
+ */
+
+void
+md_swapin_exec_hdr(h)
+struct exec *h;
+{
+	int skip = 0;
+
+	if (!N_BADMAG(*h))
+		skip = 1;
+
+	swap_longs((long *)h + skip, sizeof(*h)/sizeof(long) - skip);
+}
+
+void
+md_swapout_exec_hdr(h)
+struct exec *h;
+{
+	/* NetBSD: Always leave magic alone */
+	int skip = 1;
+#if 0
+	if (N_GETMAGIC(*h) == OMAGIC)
+		skip = 0;
+#endif
+
+	swap_longs((long *)h + skip, sizeof(*h)/sizeof(long) - skip);
+}
+
+
+void
+md_swapin_reloc(r, n)
+struct relocation_info *r;
+int n;
+{
+	int	bits;
+
+	for (; n; n--, r++) {
+		r->r_address = md_swap_long(r->r_address);
+		bits = ((int *)r)[1];
+		r->r_symbolnum = md_swap_long(bits) & 0xffffff;
+		bits = ((unsigned char *)r)[7];
+		r->r_pcrel = ((bits >> 7) & 1);
+		r->r_length = ((bits >> 5) & 3);
+		r->r_extern = ((bits >> 4) & 1);
+		r->r_baserel = ((bits >> 3) & 1);
+		r->r_jmptable = ((bits >> 2) & 1);
+		r->r_relative = ((bits >> 1) & 1);
+#ifdef N_SIZE
+		r->r_copy = (bits & 1);
+#endif
+	}
+}
+
+void
+md_swapout_reloc(r, n)
+struct relocation_info *r;
+int n;
+{
+	int	bits;
+
+	for (; n; n--, r++) {
+		r->r_address = md_swap_long(r->r_address);
+		((int *)r)[1] = md_swap_long(r->r_symbolnum & 0xffffff00);
+		bits = ((r->r_pcrel << 7) & 0x80);
+		bits |= ((r->r_length << 5) & 0x60);
+		bits |= ((r->r_extern << 4) & 0x10);
+		bits |= ((r->r_baserel << 3) & 8);
+		bits |= ((r->r_jmptable << 2) & 4);
+		bits |= ((r->r_relative << 1) & 2);
+#ifdef N_SIZE
+		bits |= (r->r_copy & 1);
+#endif
+		((unsigned char *)r)[7] = bits;
+	}
+}
+
+void
+md_swapout_jmpslot(j, n)
+jmpslot_t	*j;
+int		n;
+{
+	for (; n; n--, j++) {
+		j->opcode = md_swap_short(j->opcode);
+		j->addr[0] = md_swap_short(j->addr[0]);
+		j->addr[1] = md_swap_short(j->addr[1]);
+		j->reloc_index = md_swap_short(j->reloc_index);
+	}
+}
+
+#endif /* NEED_SWAP */
diff --git a/gnu/usr.bin/ld/ns32k/md.h b/gnu/usr.bin/ld/ns32k/md.h
new file mode 100644
index 00000000000..ae726abe5fd
--- /dev/null
+++ b/gnu/usr.bin/ld/ns32k/md.h
@@ -0,0 +1,137 @@
+/*	$NetBSD: md.h,v 1.2 1994/11/30 06:20:43 phil Exp $  */
+
+/*
+ *	- ns32k dependent definitions
+ */
+
+#if defined(CROSS_LINKER) && defined(XHOST) && (XHOST==m68k || XHOST==sparc)
+#define NEED_SWAP
+#endif
+
+#define	MAX_ALIGNMENT		(sizeof (long))
+
+#define PAGSIZ			__LDPGSZ
+
+#define N_SET_FLAG(ex,f)	N_SETMAGIC(ex,N_GETMAGIC(ex), MID_MACHINE, \
+						N_GETFLAG(ex)|(f))
+
+#define N_IS_DYNAMIC(ex)	((N_GETFLAG(ex) & EX_DYNAMIC))
+
+#define N_BADMID(ex) \
+	(N_GETMID(ex) != 0 && N_GETMID(ex) != MID_MACHINE)
+
+/*
+ * Should be handled by a.out.h ?
+ */
+#define N_ADJUST(ex)		(((ex).a_entry < PAGSIZ) ? -PAGSIZ : 0)
+#define TEXT_START(ex)		(N_TXTADDR(ex) + N_ADJUST(ex))
+#define DATA_START(ex)		(N_DATADDR(ex) + N_ADJUST(ex))
+
+#define RELOC_STATICS_THROUGH_GOT_P(r)	(1)
+#define JMPSLOT_NEEDS_RELOC		(0)
+
+#define md_got_reloc(r)			(0)
+
+#define md_get_rt_segment_addend(r,a)	md_get_addend(r,a)
+
+/* Width of a Global Offset Table entry */
+#define GOT_ENTRY_SIZE	4
+typedef long	got_t;
+
+typedef struct jmpslot {
+	u_char	code[6];
+	u_short	reloc_index;
+#define JMPSLOT_RELOC_MASK		0xffff
+} jmpslot_t;
+
+#define	NOP	0xa2		/* NOP opcode */
+#define BSR	0x02a2		/* NOP BSR opcode */
+#define BR	0xeaa2		/* NOP BR opcode */
+#define BPT	0xf2		/* BPT opcode */
+
+#define _cachectl(addr, len) ({ \
+   register void *_addr __asm__("r0") = addr; \
+   register int _len __asm__("r1") = len; \
+   _addr = addr; _len = len; \
+   __asm__ __volatile__("bispsrb 0x20; flag" \
+	: /* No outputs */ \
+	: "r" (_addr), "r" (_len) \
+	: "r0", "cc" \
+   ); });
+
+/*
+ * Byte swap defs for cross linking
+ */
+
+#if !defined(NEED_SWAP)
+# define md_swapin_exec_hdr(h)
+# define md_swapout_exec_hdr(h)
+# define md_swapin_symbols(s,n)
+# define md_swapout_symbols(s,n)
+# define md_swapin_zsymbols(s,n)
+# define md_swapout_zsymbols(s,n)
+# define md_swapin_reloc(r,n)
+# define md_swapout_reloc(r,n)
+# define md_swapin__dynamic(l)
+# define md_swapout__dynamic(l)
+# define md_swapin_section_dispatch_table(l)
+# define md_swapout_section_dispatch_table(l)
+# define md_swapin_so_debug(d)
+# define md_swapout_so_debug(d)
+# define md_swapin_rrs_hash(f,n)
+# define md_swapout_rrs_hash(f,n)
+# define md_swapin_sod(l,n)
+# define md_swapout_sod(l,n)
+# define md_swapout_jmpslot(j,n)
+# define md_swapout_got(g,n)
+# define md_swapin_ranlib_hdr(h,n)
+# define md_swapout_ranlib_hdr(h,n)
+#endif /* NEED_SWAP */
+
+#ifdef CROSS_LINKER
+# ifdef NEED_SWAP
+
+/* Define IO byte swapping routines */
+
+void	md_swapin_exec_hdr __P((struct exec *));
+void	md_swapout_exec_hdr __P((struct exec *));
+void	md_swapin_reloc __P((struct relocation_info *, int));
+void	md_swapout_reloc __P((struct relocation_info *, int));
+void	md_swapout_jmpslot __P((jmpslot_t *, int));
+
+#  define md_swapin_symbols(s,n)		swap_symbols(s,n)
+#  define md_swapout_symbols(s,n)		swap_symbols(s,n)
+#  define md_swapin_zsymbols(s,n)		swap_zsymbols(s,n)
+#  define md_swapout_zsymbols(s,n)		swap_zsymbols(s,n)
+#  define md_swapin__dynamic(l)			swap__dynamic(l)
+#  define md_swapout__dynamic(l)		swap__dynamic(l)
+#  define md_swapin_section_dispatch_table(l)	swap_section_dispatch_table(l)
+#  define md_swapout_section_dispatch_table(l)	swap_section_dispatch_table(l)
+#  define md_swapin_so_debug(d)			swap_so_debug(d)
+#  define md_swapout_so_debug(d)		swap_so_debug(d)
+#  define md_swapin_rrs_hash(f,n)		swap_rrs_hash(f,n)
+#  define md_swapout_rrs_hash(f,n)		swap_rrs_hash(f,n)
+#  define md_swapin_sod(l,n)			swapin_link_object(l,n)
+#  define md_swapout_sod(l,n)			swapout_link_object(l,n)
+#  define md_swapout_got(g,n)			swap_longs((long*)(g),n)
+#  define md_swapin_ranlib_hdr(h,n)		swap_ranlib_hdr(h,n)
+#  define md_swapout_ranlib_hdr(h,n)		swap_ranlib_hdr(h,n)
+
+#  define md_swap_short(x) ( (((x) >> 8) & 0xff) | (((x) & 0xff) << 8) )
+
+#  define md_swap_long(x) ( (((x) >> 24) & 0xff    ) | (((x) >> 8 ) & 0xff00    ) | \
+			    (((x) << 8 ) & 0xff0000) | (((x) << 24) & 0xff000000) )
+
+# else	/* We need not swap, but must pay attention to alignment: */
+
+#  define md_swap_short(x)	(x)
+#  define md_swap_long(x)	(x)
+
+# endif /* NEED_SWAP */
+
+#else	/* Not a cross linker: use native */
+
+# define md_swap_short(x)	(x)
+# define md_swap_long(x)	(x)
+
+#endif /* CROSS_LINKER */
diff --git a/gnu/usr.bin/ld/ns32k/mdprologue.S b/gnu/usr.bin/ld/ns32k/mdprologue.S
new file mode 100644
index 00000000000..13b43a9b9af
--- /dev/null
+++ b/gnu/usr.bin/ld/ns32k/mdprologue.S
@@ -0,0 +1,74 @@
+/*
+ * Copyright (c) 1994 Matthias Pfaller.
+ * All rights reserved.
+ *
+ * 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 Matthias Pfaller.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
+ *
+ *	$Id: mdprologue.S,v 1.1 1995/10/18 08:40:57 deraadt Exp $
+ */
+
+/*
+ * Run-time link editor entry points for ns32k architecture.
+ */
+
+	.text
+	.globl	_rtld_entry, _binder_entry, _binder
+
+/*
+ * _rtld_entry(int version, struct crt_ldso *crtp)
+ */
+
+_rtl_entry:
+	enter	[],0
+	sprd	sb,tos
+	addr	__GLOBAL_OFFSET_TABLE_(pc),r0
+	lprd	sb,r0			/* PIC function prologue	*/
+	movd	12(fp),r0		/* -> crt_ldso structure	*/
+	movd	0(r0),r1 		/* base address 		*/
+					/* 1st entry in GOT		*/
+					/* + ld.so base address 	*/
+	addr	0(0(sb))[r1:b],tos	/* gives address of __DYNAMIC	*/
+	movd	r0,tos			/* crt_ldso pointer		*/
+	movd	8(fp),tos		/* version			*/
+	jsr	0(_rtld(sb))[r1:b]	/* call _rtld function		*/
+	lprd	sb,-4(fp)
+	exit	[]
+	ret	0
+
+/*
+ * First call to a procedure generally comes through here for
+ * binding.
+ */
+
+_binder_entry:
+	movd	tos,r1			/* grab return address (within PLT) */
+	movd	r0,tos			/* save r0 (for cerror)		*/
+	movzwd	0(r1),tos		/* get function index		*/
+	addr	-6(r1),tos		/* point to PLT slot		*/
+	bsr	_binder			/* relocate function address	*/
+	movd	r0,tos			/* prepare for jump		*/
+	movd	12(sp),r0		/* restore r0			*/
+	ret	12			/* jump into function		*/