test/exec/taskstorage.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/dos.h>
   8
   9 #include <assert.h>
  10
  11 static BPTR out;
  12 static LONG slot1, slot2, slot3;
  13
  14 static void printslot1(void)
  15 {
  16     FPrintf(out, "Value slot %ld: %ld\n", slot1, GetTaskStorageSlot(slot1));
  17 }
  18
  19 int main(void)
  20 {
  21     out = Output();
  22
  23     slot1 = AllocTaskStorageSlot();
  24     FPrintf(out, "Got slot %ld\n", slot1);
  25
  26     slot2 = AllocTaskStorageSlot();
  27     FPrintf(out, "Got slot %ld\n", slot2);
  28
  29     FreeTaskStorageSlot(slot2);
  30     FPrintf(out, "Freed slot %ld\n", slot2);
  31
  32     slot2 = AllocTaskStorageSlot();
  33     FPrintf(out, "Got slot %ld\n", slot2);
  34
  35     slot3 = AllocTaskStorageSlot();
  36     FPrintf(out, "Got slot %ld\n", slot3);
  37
  38     SetTaskStorageSlot(slot1, 69);
  39     FPrintf(out, "Stored value 69 in slot %ld\n", slot1);
  40
  41     FPrintf(out, "Checking value in subtask\n");
  42     struct Process *proc =
  43         CreateNewProcTags(
  44             NP_Entry, printslot1, NP_Name, "Check slot1",
  45             NP_Synchronous, TRUE, TAG_DONE
  46         );
  47     assert(proc != NULL);
  48
  49     FreeTaskStorageSlot(slot1);
  50     FPrintf(out, "Freed slot %ld\n", slot1);
  51
  52     slot1 = AllocTaskStorageSlot();
  53     FPrintf(out, "Got slot %ld\n", slot1);
  54
  55     FreeTaskStorageSlot(slot2);
  56     FPrintf(out, "Freed slot %ld\n", slot2);
  57
  58     FreeTaskStorageSlot(slot1);
  59     FPrintf(out, "Freed slot %ld\n", slot1);
  60
  61     FreeTaskStorageSlot(slot3);
  62     FPrintf(out, "Freed slot %ld\n", slot3);
  63
  64     return 0;
  65 }
  66