arch/.unmaintained/m68k-emul/semaphoreglue.s

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Semaphore glue functions
   6     Lang: english
   7 */
   8
   9 #include "machine.i"
  10
  11 /*
  12     The following functions are guaranteed to preserve
  13     all registers. But I don't want to write them completely
  14     in assembly - C is generally more readable.
  15     So I use those stubs to preserve the registers.
  16 */
  17
  18         .text
  19         .balign 16
  20         .globl  AROS_SLIB_ENTRY(_ObtainSemaphore,Exec)
  21         .type   AROS_SLIB_ENTRY(_ObtainSemaphore,Exec),@function
  22 AROS_SLIB_ENTRY(_ObtainSemaphore,Exec):
  23         movem.l %d0-%d1/%a0-%a1,-(%sp)
  24         move.l  24(%sp),-(%sp)
  25         move.l  24(%sp),-(%sp)
  26         bsr.l   AROS_SLIB_ENTRY(ObtainSemaphore,Exec)
  27         addq.w  #8,%sp
  28         movem.l (%sp)+,%d0-%d1/%a0-%a1
  29         rts
  30
  31         .globl  AROS_SLIB_ENTRY(_ReleaseSemaphore,Exec)
  32         .type   AROS_SLIB_ENTRY(_ReleaseSemaphore,Exec),@function
  33 AROS_SLIB_ENTRY(_ReleaseSemaphore,Exec):
  34         movem.l %d0-%d1/%a0-%a1,-(%sp)
  35         move.l  24(%sp),-(%sp)
  36         move.l  24(%sp),-(%sp)
  37         bsr.l   AROS_SLIB_ENTRY(ReleaseSemaphore,Exec)
  38         addq.w  #8,%sp
  39         movem.l (%sp)+,%d0-%d1/%a0-%a1
  40         rts
  41
  42         .globl  AROS_SLIB_ENTRY(_ObtainSemaphoreShared,Exec)
  43         .type   AROS_SLIB_ENTRY(_ObtainSemaphoreShared,Exec),@function
  44 AROS_SLIB_ENTRY(_ObtainSemaphoreShared,Exec):
  45         movem.l %d0-%d1/%a0-%a1,-(%sp)
  46         move.l  24(%sp),-(%sp)
  47         move.l  24(%sp),-(%sp)
  48         bsr.l   AROS_SLIB_ENTRY(ObtainSemaphoreShared,Exec)
  49         addq.w  #8,%sp
  50         movem.l (%sp)+,%d0-%d1/%a0-%a1
  51         rts
  52