NetBSD/gnu/usr.bin/ld/ns32k/md-static-funcs.c

39 lines
938 B
C

/*
* $Id: md-static-funcs.c,v 1.1 1994/04/07 19:44:46 pk 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