mirror of
https://sourceware.org/git/glibc.git
synced 2024-11-28 15:51:07 +00:00
Initial revision
This commit is contained in:
Roland McGrath
parent
868236e8e9
commit
7d8d1a9564
45
sysdeps/unix/bsd/sun/m68k/sethostid.S
Normal file
45
sysdeps/unix/bsd/sun/m68k/sethostid.S
Normal file
@ -0,0 +1,45 @@
|
||||
/* Copyright (C) 1991 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.
|
||||
|
||||
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.
|
||||
|
||||
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., 675 Mass Ave,
|
||||
Cambridge, MA 02139, USA. */
|
||||
|
||||
#include <sysdep.h>
|
||||
|
||||
#ifdef SYS_sethostid
|
||||
|
||||
SYSCALL (sethostid)
|
||||
ret
|
||||
|
||||
#else
|
||||
|
||||
#include <gnu/errno.h>
|
||||
|
||||
.globl _sethostid
|
||||
.even
|
||||
_sethostid:
|
||||
movel #ENOSYS, ___errno
|
||||
moveq #-1, d0
|
||||
rts
|
||||
|
||||
#ifdef __GNU_STAB__
|
||||
|
||||
#include <gnu-stabs.h>
|
||||
|
||||
stub_warning(sethostid);
|
||||
|
||||
#endif
|
||||
|
||||
#endif
|
||||
96
sysdeps/vax/__longjmp.c
Normal file
96
sysdeps/vax/__longjmp.c
Normal file
@ -0,0 +1,96 @@
|
||||
/* Copyright (C) 1991 Free Software Foundation, Inc.
|
||||
Derived from @(#)_setjmp.s 5.7 (Berkeley) 6/27/88,
|
||||
Copyright (c) 1980 Regents of the University of California.
|
||||
|
||||
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.
|
||||
|
||||
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.
|
||||
|
||||
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., 675 Mass Ave,
|
||||
Cambridge, MA 02139, USA. */
|
||||
|
||||
#include <ansidecl.h>
|
||||
#include <setjmp.h>
|
||||
|
||||
|
||||
#define REI 02 /* Vax `rei' opcode. */
|
||||
|
||||
/* Jump to the position specified by ENV, causing the
|
||||
setjmp call there to return VAL, or 1 if VAL is 0. */
|
||||
__NORETURN
|
||||
void
|
||||
DEFUN(__longjmp, (env, val), CONST jmp_buf env AND int val)
|
||||
{
|
||||
register long int *fp asm("fp");
|
||||
long int *regsave;
|
||||
unsigned long int flags;
|
||||
|
||||
if (env.__fp == NULL)
|
||||
__libc_fatal("longjmp: Invalid ENV argument.\n");
|
||||
|
||||
if (val == 0)
|
||||
val = 1;
|
||||
|
||||
asm volatile("loop:");
|
||||
|
||||
flags = *(long int *) (6 + (char *) fp);
|
||||
regsave = (long int *) (20 + (char *) fp);
|
||||
if (flags & 1)
|
||||
/* R0 was saved by the caller.
|
||||
Store VAL where it will be restored from. */
|
||||
*regsave++ = val;
|
||||
if (flags & 2)
|
||||
/* R1 was saved by the caller.
|
||||
Store ENV where it will be restored from. */
|
||||
*regsave = env;
|
||||
|
||||
/* Was the FP saved in the last call the same one in ENV? */
|
||||
asm volatile("cmpl %0, 12(fp);"
|
||||
/* Yes, return to it. */
|
||||
"beql done;"
|
||||
/* The FP in ENV is less than the one saved in the last call.
|
||||
This means we have already returned from the function that
|
||||
called `setjmp' with ENV! */
|
||||
"blssu latejump;" : /* No outputs. */ : "g" (env.__fp));
|
||||
|
||||
/* We are more than one level below the state in ENV.
|
||||
Return to where we will pop another stack frame. */
|
||||
asm volatile("movl $loop, 16(fp);"
|
||||
"ret");
|
||||
|
||||
asm volatile("done:");
|
||||
{
|
||||
char return_insn asm("*16(fp)");
|
||||
if (return_insn == REI)
|
||||
/* We're returning with an `rei' instruction.
|
||||
Do a return with PSL-PC pop. */
|
||||
asm volatile("movab 0f, 16(fp)");
|
||||
else
|
||||
/* Do a standard return. */
|
||||
asm volatile("movab 1f, 16(fp)");
|
||||
|
||||
/* Return. */
|
||||
asm volatile("ret");
|
||||
}
|
||||
|
||||
asm volatile("0:" /* `rei' return. */
|
||||
/* Compensate for PSL-PC push. */
|
||||
"addl2 %0, sp;"
|
||||
"1:" /* Standard return. */
|
||||
/* Return to saved PC. */
|
||||
"jmp %1" : /* No outputs. */ :
|
||||
"g" (8), "g" (env.__pc));
|
||||
|
||||
/* Jump here when the FP saved in ENV points
|
||||
to a function that has already returned. */
|
||||
asm volatile("latejump:");
|
||||
__libc_fatal("longjmp: Attempt to jump to a function that has returned.\n");
|
||||
}
|
||||
60
sysdeps/vax/infnan.c
Normal file
60
sysdeps/vax/infnan.c
Normal file
@ -0,0 +1,60 @@
|
||||
/* Copyright (C) 1991 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.
|
||||
|
||||
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.
|
||||
|
||||
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., 675 Mass Ave,
|
||||
Cambridge, MA 02139, USA. */
|
||||
|
||||
#ifndef __GNUC__
|
||||
#include <../sysdeps/generic/infnan.c>
|
||||
#else
|
||||
|
||||
#include <ansidecl.h>
|
||||
#include <errno.h>
|
||||
#include <math.h>
|
||||
|
||||
/* Deal with an infinite or NaN result.
|
||||
If ERROR is ERANGE, result is +Inf;
|
||||
if ERROR is - ERANGE, result is -Inf;
|
||||
otherwise result is NaN.
|
||||
This will set `errno' to either ERANGE or EDOM,
|
||||
and may return an infinity or NaN, or may do something else. */
|
||||
double
|
||||
DEFUN(__infnan, (error), int error)
|
||||
{
|
||||
switch (error)
|
||||
{
|
||||
case ERANGE:
|
||||
errno = ERANGE;
|
||||
break;
|
||||
|
||||
case - ERANGE:
|
||||
errno = ERANGE;
|
||||
break;
|
||||
|
||||
default:
|
||||
errno = EDOM;
|
||||
break;
|
||||
}
|
||||
|
||||
/* Trigger a reserved operand fault. */
|
||||
{
|
||||
double result;
|
||||
asm volatile("emodd %1, %1, %2, %0, %0" : "=r" (result) :
|
||||
"i" (0), "i" (0x8000));
|
||||
return result;
|
||||
}
|
||||
}
|
||||
|
||||
#endif
|
||||
43
sysdeps/vax/memccpy.c
Normal file
43
sysdeps/vax/memccpy.c
Normal file
@ -0,0 +1,43 @@
|
||||
/* Copyright (C) 1991 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.
|
||||
|
||||
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.
|
||||
|
||||
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., 675 Mass Ave,
|
||||
Cambridge, MA 02139, USA. */
|
||||
|
||||
#include <ansidecl.h>
|
||||
#include <string.h>
|
||||
|
||||
|
||||
/* Copy no more than N bytes of SRC to DEST, stopping when C is found.
|
||||
Return the position in DEST one byte past where C was copied,
|
||||
or NULL if C was not found in the first NBYTES bytes of SRC. */
|
||||
PTR
|
||||
DEFUN(__memccpy, (dest, src, c, n),
|
||||
PTR dest AND CONST PTR src AND int c AND size_t nbytes)
|
||||
{
|
||||
/* Except when NBYTES > 65535, this is what a hand-coded version would
|
||||
do anyway. */
|
||||
|
||||
PTR found = memchr(src, c, n);
|
||||
|
||||
if (found == NULL)
|
||||
{
|
||||
(void) memcpy(dest, src, n);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
(void) memcpy(dest, src, (char *) found + 1 - (char *) src);
|
||||
return (PTR) ((char *) dest + ((char *) found + 1 - (char *) src));
|
||||
}
|
||||
33
sysdeps/vax/setjmp.c
Normal file
33
sysdeps/vax/setjmp.c
Normal file
@ -0,0 +1,33 @@
|
||||
/* Copyright (C) 1991 Free Software Foundation, Inc.
|
||||
Derived from @(#)_setjmp.s 5.7 (Berkeley) 6/27/88,
|
||||
Copyright (c) 1980 Regents of the University of California.
|
||||
|
||||
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.
|
||||
|
||||
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.
|
||||
|
||||
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., 675 Mass Ave,
|
||||
Cambridge, MA 02139, USA. */
|
||||
|
||||
#include <ansidecl.h>
|
||||
#include <setjmp.h>
|
||||
|
||||
|
||||
/* Save the current program position in ENV and return 0. */
|
||||
int
|
||||
DEFUN(__setjmp, (env), jmp_buf env)
|
||||
{
|
||||
/* Save our caller's FP and PC. */
|
||||
asm("movl 12(fp), %0" : "=g" (env[0].__fp));
|
||||
asm("movl 16(fp), %0" : "=g" (env[0].__pc));
|
||||
|
||||
return 0;
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user