libc/sysdeps/linux/hppa/syscall.c

   1 /* Copyright (C) 1997, 1998, 2001, 2003 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 <errno.h>
  20 #include <sys/syscall.h>
  21 #include <unistd.h>
  22
  23 /* HPPA implements syscall() in 'C'; the assembler version would
  24    typically be in syscall.S. Also note that we have INLINE_SYSCALL,
  25    INTERNAL_SYSCALL, and all the generated pure assembly syscall wrappers.
  26    How often the function is used is unknown. */
  27
  28 long int
  29 syscall (long int __sysno, ...)
  30 {
  31   /* FIXME: Keep this matching INLINE_SYSCALL for hppa */
  32   va_list args;
  33   long int arg0, arg1, arg2, arg3, arg4, arg5;
  34   long int __sys_res;
  35
  36   /* Load varargs */
  37   va_start (args, __sysno);
  38   arg0 = va_arg (args, long int);
  39   arg1 = va_arg (args, long int);
  40   arg2 = va_arg (args, long int);
  41   arg3 = va_arg (args, long int);
  42   arg4 = va_arg (args, long int);
  43   arg5 = va_arg (args, long int);
  44   va_end (args);
  45
  46   {
  47     register unsigned long int __res __asm__("r28");
  48     K_LOAD_ARGS_6 (arg0, arg1, arg2, arg3, arg4, arg5)
  49     __asm__ __volatile__ (K_STW_ASM_PIC
  50                   "     ble  0x100(%%sr2, %%r0) \n"
  51                   "     copy %1, %%r20          \n"
  52                   K_LDW_ASM_PIC
  53                   : "=r" (__res)
  54                   : "r" (__sysno) K_ASM_ARGS_6
  55                   : "memory", K_CALL_CLOB_REGS K_CLOB_ARGS_6);
  56     __sys_res = __res;
  57   }
  58   if ((unsigned long int) __sys_res >= (unsigned long int) -4095)
  59     {
  60       __set_errno (-__sys_res);
  61       __sys_res = -1;
  62     }
  63   return __sys_res;
  64 }