workbench/libs/rexxsyslib/lockrexxbase.c

   1 /*
   2         Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "rexxsyslib_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <clib/rexxsyslib_protos.h>
  14
  15         AROS_LH1(VOID, LockRexxBase,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(ULONG, resource, D0),
  19
  20 /*  LOCATION */
  21         struct RxsLib *, RexxSysBase, 75, RexxSys)
  22
  23 /*  FUNCTION
  24
  25     INPUTS
  26
  27     RESULT
  28
  29     NOTES
  30
  31     EXAMPLE
  32
  33     BUGS
  34
  35     SEE ALSO
  36
  37     INTERNALS
  38
  39
  40 *****************************************************************************/
  41 {
  42     AROS_LIBFUNC_INIT
  43
  44     ObtainSemaphore(&RSBI(RexxSysBase)->semaphore);
  45
  46     ReturnVoid("LockRexxBase");
  47     AROS_LIBFUNC_EXIT
  48 } /* LockRexxBase */