ports/sysdeps/unix/sysv/linux/hppa/sysdep.c

   1 /* Copyright (C) 1997, 1998, 2001, 2003, 2007
   2    Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library.  If not, see
  17    <http://www.gnu.org/licenses/>.  */
  18
  19 #include <stdarg.h>
  20 #include <sysdep.h>
  21 #include <errno.h>
  22
  23 extern int __syscall_error(int err_no);
  24 extern long int syscall (long int __sysno, ...) __THROW;
  25
  26 /* This routine is jumped to by all the syscall handlers, to stash
  27    an error number into errno.  */
  28 int
  29 __syscall_error (int err_no)
  30 {
  31   __set_errno (err_no);
  32   return -1;
  33 }
  34
  35
  36 /* HPPA implements syscall() in 'C'; the assembler version would
  37    typically be in syscall.S. Also note that we have INLINE_SYSCALL,
  38    INTERNAL_SYSCALL, and all the generated pure assembly syscall wrappers.
  39    How often the function is used is unknown. */
  40
  41 long int
  42 syscall (long int __sysno, ...)
  43 {
  44   /* FIXME: Keep this matching INLINE_SYSCALL for hppa */
  45   va_list args;
  46   long int arg0, arg1, arg2, arg3, arg4, arg5;
  47   long int __sys_res;
  48
  49   /* Load varargs */
  50   va_start (args, __sysno);
  51   arg0 = va_arg (args, long int);
  52   arg1 = va_arg (args, long int);
  53   arg2 = va_arg (args, long int);
  54   arg3 = va_arg (args, long int);
  55   arg4 = va_arg (args, long int);
  56   arg5 = va_arg (args, long int);
  57   va_end (args);
  58
  59   {
  60     register unsigned long int __res asm("r28");
  61     PIC_REG_DEF
  62     LOAD_ARGS_6 (arg0, arg1, arg2, arg3, arg4, arg5)
  63     asm volatile (SAVE_ASM_PIC
  64                   "     ble  0x100(%%sr2, %%r0) \n"
  65                   "     copy %1, %%r20          \n"
  66                   LOAD_ASM_PIC
  67                   : "=r" (__res)
  68                   : "r" (__sysno) PIC_REG_USE ASM_ARGS_6
  69                   : "memory", CALL_CLOB_REGS CLOB_ARGS_6);
  70     __sys_res = __res;
  71   }
  72   if ((unsigned long int) __sys_res >= (unsigned long int) -4095)
  73     {
  74       __set_errno (-__sys_res);
  75       __sys_res = -1;
  76     }
  77   return __sys_res;
  78 }
  79