test/exceptiontest.c

   1 /*
   2     Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <aros/libcall.h>
   8 #include <clib/exec_protos.h>
   9 #include <exec/execbase.h>
  10 #include <stdio.h>
  11
  12 ULONG s;
  13
  14 /* Function prototype needed on Linux-M68K*/
  15 AROS_LD2(ULONG,handler,
  16     AROS_LDA(ULONG,signals,D0),
  17     AROS_LDA(APTR,exceptData,A1),
  18     struct ExecBase *,SysBase,0,Test);
  19
  20 AROS_LH2(ULONG,handler,
  21     AROS_LHA(ULONG,signals,D0),
  22     AROS_LHA(APTR,exceptData,A1),
  23     struct ExecBase *,SysBase,0,Test)
  24 {
  25     AROS_LIBFUNC_INIT
  26     exceptData=0;
  27     s=SetSignal(0,0);
  28     return signals;
  29     AROS_LIBFUNC_EXIT
  30 }
  31
  32 int main(void)
  33 {
  34     int s1,s2;
  35     APTR oldexc;
  36
  37     s1=AllocSignal(-1);
  38     if(s1>=0)
  39     {
  40         printf("sig1: %d\n",s1);
  41         s2=AllocSignal(-1);
  42         if(s2>=0)
  43         {
  44             printf("sig2: %d\n",s2);
  45             oldexc=SysBase->ThisTask->tc_ExceptCode;
  46             SysBase->ThisTask->tc_ExceptCode=&AROS_SLIB_ENTRY(handler,Test,0);
  47             SetExcept(1<<s2,1<<s2);
  48             Signal(SysBase->ThisTask,(1<<s2)|(1<<s1));
  49             SetExcept(0,1<<s2);
  50             SysBase->ThisTask->tc_ExceptCode=oldexc;
  51             printf("got: %08lx\n",(unsigned long)s);
  52             FreeSignal(s2);
  53         }
  54         FreeSignal(s1);
  55     }
  56     return 0;
  57 }