test/library/usereltest.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/dos.h>
   8 #include <proto/pertask.h>
   9 #include <proto/userel.h>
  10
  11 #include "pertaskvalue.h"
  12
  13 int main (int argc, char ** argv)
  14 {
  15     ULONG vec[3] = {1, 2, 0};
  16     VOID *parent;
  17
  18     vec[2] = DummyAdd(vec[0], vec[1]);
  19
  20     Printf("%ld+%ld=%ld\n",vec[0], vec[1], vec[2]);
  21
  22     parent = PertaskGetParentBase();
  23
  24     Printf("ParentBase = %p\n",parent);
  25
  26     Printf("104 205 306 407:\n");
  27     DummyPrint4(101, 202, 303, 404);
  28
  29     pertaskvalue = 1;
  30     Printf("\n1 == %ld ?\n", PertaskGetValue());
  31     Printf("1 == %ld ?\n", GetChildValue());
  32
  33     PertaskSetValue(2);
  34     Printf("\n2 == %ld ?\n", GetChildValue());
  35
  36     Flush (Output ());
  37
  38     return 0;
  39 }