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 ULONG Test_handler();
  16
  17 AROS_LH2(ULONG,handler,
  18     AROS_LHA(ULONG,signals,D0),
  19     AROS_LHA(APTR,exceptData,A1),
  20     struct ExecBase *,SysBase,0,Test)
  21 {
  22     AROS_LIBFUNC_INIT
  23     exceptData=0;
  24     s=SetSignal(0,0);
  25     return signals;
  26     AROS_LIBFUNC_EXIT
  27 }
  28
  29 int main(void)
  30 {
  31     int s1,s2;
  32     APTR oldexc;
  33
  34     s1=AllocSignal(-1);
  35     if(s1>=0)
  36     {
  37         printf("sig1: %d\n",s1);
  38         s2=AllocSignal(-1);
  39         if(s2>=0)
  40         {
  41             printf("sig2: %d\n",s2);
  42             oldexc=SysBase->ThisTask->tc_ExceptCode;
  43             SysBase->ThisTask->tc_ExceptCode=&AROS_SLIB_ENTRY(handler,Test);
  44             SetExcept(1<<s2,1<<s2);
  45             Signal(SysBase->ThisTask,(1<<s2)|(1<<s1));
  46             SetExcept(0,1<<s2);
  47             SysBase->ThisTask->tc_ExceptCode=oldexc;
  48             printf("got: %08lx\n",s);
  49             FreeSignal(s2);
  50         }
  51         FreeSignal(s1);
  52     }
  53     return 0;
  54 }