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

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