summaryrefslogtreecommitdiffstats
path: root/byterun/rotatecursor.c
diff options
context:
space:
mode:
authorDamien Doligez <damien.doligez-inria.fr>1998-10-02 13:02:32 +0000
committerDamien Doligez <damien.doligez-inria.fr>1998-10-02 13:02:32 +0000
commit1785aa4ef9afce6807d5d810687b376620618cf9 (patch)
treee11f59bd40aa82a9cff2f63de8ee9e9e27a619be /byterun/rotatecursor.c
parent89074600b8f8425a829f253a27580b5548fd8193 (diff)
portage MacOS standalone: T=0
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2111 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/rotatecursor.c')
-rw-r--r--byterun/rotatecursor.c14
1 files changed, 8 insertions, 6 deletions
diff --git a/byterun/rotatecursor.c b/byterun/rotatecursor.c
index 36715b567..ad75c24c7 100644
--- a/byterun/rotatecursor.c
+++ b/byterun/rotatecursor.c
@@ -5,7 +5,7 @@
/* Damien Doligez, projet Para, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -20,6 +20,8 @@
#include "rotatecursor.h"
+int volatile have_to_interact;
+
typedef struct {
TMTask t;
int volatile *p1;
@@ -44,9 +46,9 @@ extern Xtmtask *getparam() ONEWORDINLINE(0x2009); /* MOVE.L A1, D0 */
static void mytimerproc (void)
{
register Xtmtask *p = getparam ();
-
- if (p->p1 != NULL && *(p->p1) == 0) *(p->p1) = 1;
- if (p->p2 != NULL && *(p->p2) == 0) *(p->p2) = 1;
+
+ if (p->p1 != NULL) *(p->p1) = 1;
+ if (p->p2 != NULL) *(p->p2) = 1;
}
#endif /* GENERATINGCFM */
@@ -57,14 +59,14 @@ static void remove_task (void)
RmvTime ((QElemPtr) &mytmtask);
}
-void rotatecursor_init (int volatile *p1, int volatile *p2)
+void rotatecursor_init (int volatile *p1)
{
InitCursorCtl (NULL);
mytmtask.t.tmAddr = NewTimerProc (mytimerproc);
mytmtask.t.tmWakeUp = 0;
mytmtask.t.tmReserved = 0;
mytmtask.p1 = p1;
- mytmtask.p2 = p2;
+ mytmtask.p2 = &have_to_interact;
InsTime ((QElemPtr) &mytmtask);
PrimeTime ((QElemPtr) &mytmtask, 1);
atexit (remove_task);