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, 24, 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     HISTORY
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     /* Protection against erroneous programs */
  54     if (intHandle != NULL ||
  55         ((struct Interrupt *)intHandle) != &LowLevelBase->ll_VBlank)
  56     {
  57         return;
  58     }
  59
  60     ObtainSemaphore(&LowLevelBase->ll_Lock);
  61     RemIntServer(INTB_VERTB, &LowLevelBase->ll_VBlank);
  62     LowLevelBase->ll_VBlank.is_Code = NULL;
  63     LowLevelBase->ll_VBlank.is_Data = NULL;
  64     ReleaseSemaphore(&LowLevelBase->ll_Lock);
  65
  66     AROS_LIBFUNC_EXIT
  67 } /* RemVBlankInt */