rom/graphics/waittof.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <exec/tasks.h>
  11 #include <graphics/gfxbase.h>
  12
  13 static int bug; /* Added because of bug in cxref */
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         AROS_LH0(VOID, WaitTOF,
  20
  21 /*  SYNOPSIS */
  22
  23 /*  LOCATION */
  24         struct GfxBase *, GfxBase, 45, Graphics)
  25
  26 /*  FUNCTION
  27
  28     Wait for vertical blank.
  29
  30     INPUTS
  31
  32     RESULT
  33
  34     Adds the task to the TOF queue; it will be signalled when the vertical
  35     blank interrupt occurs.
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47     HISTORY
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  53
  54     struct Node wait;  /* We cannot use the task's node here as that is
  55                           used to queue the task in Wait() */
  56
  57     wait.ln_Name = (char *)FindTask(NULL);
  58     SetSignal(0, SIGF_SINGLE);
  59
  60     Disable();
  61
  62     AddTail((struct List *)&GfxBase->TOF_WaitQ, (struct Node *)&wait);
  63     Wait(SIGF_SINGLE);
  64     Remove((struct Node *)&wait);
  65
  66     Enable();
  67
  68     AROS_LIBFUNC_EXIT
  69
  70 } /* WaitTOF */