arch/i386-all/exec/execstubs.s

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Stubs to call C functions while preserving all registers
   6     Lang: english
   7 */
   8         #include "aros/i386/asm.h"
   9
  10 /*
  11     Macros:
  12         PUSH - Save all registers on the stack
  13         POP - Restore all registers from the stack
  14
  15         STUB_ARG0(name) - Call a function preserving all registers
  16                     which gets no arguments
  17         STUB_ARG1(name) - Call a function preserving all registers
  18                     which gets a single argument
  19         STUB_ARG2(name) - Call a function preserving all registers
  20                     which gets two arguments
  21 */
  22
  23
  24 #define NUM_REGS    3
  25 #define FIRST_ARG   ((NUM_REGS+2)*4)
  26 #define SECOND_ARG  (FIRST_ARG+4)
  27
  28 #define PUSH                          \
  29         pushl %eax                  ; \
  30         pushl %ecx                  ; \
  31         pushl %edx                  ; \
  32
  33 #define POP                           \
  34         popl  %edx                  ; \
  35         popl  %ecx                  ; \
  36         popl  %eax
  37
  38 #define STUB_ARG0(name)               \
  39         pushl %ebp                  ; \
  40         movl  %esp,%ebp             ; \
  41         PUSH                        ; \
  42         call  name                  ; \
  43         POP                         ; \
  44         leave
  45         ret
  46
  47 #define STUB_ARG1(name)               \
  48         pushl %ebp                  ; \
  49         movl  %esp,%ebp             ; \
  50         PUSH                        ; \
  51         movl  FIRST_ARG(%esp),%eax  ; \
  52         pushl %eax                  ; \
  53         call  name                  ; \
  54         addl  $4,%esp               ; \
  55         POP                         ; \
  56         leave                       ; \
  57         ret
  58
  59 #define STUB_ARG2(name)               \
  60         pushl %ebp                  ; \
  61         movl  %esp,%ebp             ; \
  62         PUSH                        ; \
  63         movl  SECOND_ARG(%esp),%eax ; \
  64         pushl %eax                  ; \
  65         movl  SECOND_ARG(%esp),%eax ; \
  66         pushl %eax                  ; \
  67         call  name                  ; \
  68         addl  $8,%esp               ; \
  69         POP                         ; \
  70         leave                       ; \
  71         ret
  72
  73 /* To save typing work */
  74 #define STUB0(cname,name)             \
  75         .globl  cname               ; \
  76         _FUNCTION(cname)            ; \
  77 cname:                              ; \
  78         STUB_ARG0(name)
  79
  80 #define STUB1(cname,name)             \
  81         .globl  cname               ; \
  82         _FUNCTION(cname)            ; \
  83 cname:                              ; \
  84         STUB_ARG1(name)
  85
  86
  87 #define STUB2(cname,name)             \
  88         .globl  cname               ; \
  89         _FUNCTION(cname)            ; \
  90 cname:                              ; \
  91         STUB_ARG2(name)
  92
  93         .text
  94         _ALIGNMENT
  95
  96         /* Call functions and preserve registers */
  97 #ifdef  UseExecstubs
  98         STUB1(AROS_SLIB_ENTRY(Forbid,Exec),AROS_CSYMNAME(_Exec_Forbid))
  99         STUB1(AROS_SLIB_ENTRY(Permit,Exec),AROS_CSYMNAME(_Exec_Permit))
 100         STUB1(AROS_SLIB_ENTRY(Disable,Exec),AROS_CSYMNAME(_Exec_Disable))
 101         STUB1(AROS_SLIB_ENTRY(Enable,Exec),AROS_CSYMNAME(_Exec_Enable))
 102
 103         STUB2(AROS_SLIB_ENTRY(ObtainSemaphore,Exec),AROS_CSYMNAME(_Exec_ObtainSemaphore))
 104         STUB2(AROS_SLIB_ENTRY(ReleaseSemaphore,Exec),AROS_CSYMNAME(_Exec_ReleaseSemaphore))
 105         STUB2(AROS_SLIB_ENTRY(ObtainSemaphoreShared,Exec),AROS_CSYMNAME(_Exec_ObtainSemaphoreShared))
 106 #endif
 107