workbench/libs/lowlevel/remvblankint.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include "lowlevel_intern.h"
   9
  10 #include <aros/libcall.h>
  11 #include <exec/types.h>
  12 #include <libraries/lowlevel.h>
  13 #include <hardware/intbits.h>
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19       AROS_LH1(VOID, RemVBlankInt,
  20
  21 /*  SYNOPSIS */
  22       AROS_LHA(APTR, intHandle, A1),
  23
  24 /*  LOCATION */
  25       struct LowLevelBase *, LowLevelBase, 19, LowLevel)
  26
  27 /*  FUNCTION
  28
  29     Remove a vertical blank interrupt routine previously added by a call to
  30     AddVBlankInt().
  31
  32     INPUTS
  33
  34     intHandle  --  return value from AddVBlankInt(); may be NULL in which case
  35                    this function is a no-op.
  36
  37     RESULT
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     AddVBlankInt()
  44
  45     INTERNALS
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     /* Protection against erroneous programs */
  52     if (intHandle != NULL ||
  53         ((struct Interrupt *)intHandle) != &LowLevelBase->ll_VBlank)
  54     {
  55         return;
  56     }
  57
  58     ObtainSemaphore(&LowLevelBase->ll_Lock);
  59     RemIntServer(INTB_VERTB, &LowLevelBase->ll_VBlank);
  60     LowLevelBase->ll_VBlank.is_Code = NULL;
  61     LowLevelBase->ll_VBlank.is_Data = NULL;
  62     ReleaseSemaphore(&LowLevelBase->ll_Lock);
  63
  64     AROS_LIBFUNC_EXIT
  65 } /* RemVBlankInt */