test/taskstorage.c

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