1

2 #include "ListOfArrays.h"

3 #include "VMS_impl/Services_Offered_by_VMS/Memory_Handling/vmalloc.h"

4

5 ListOfArrays* makeListOfArrays(size_t entry_size, int num_entries_per_block){

6 ListOfArrays* newLoA = (ListOfArrays*) VMS_int__malloc(sizeof(ListOfArrays));

7 newLoA->dim1info = makePrivDynArrayOfSize(&(newLoA->dim1),8);

8

9 newLoA->entry_size = entry_size;

10 newLoA->num_entries_per_fragment = num_entries_per_block;

11 newLoA->next_free_index = 0;

12

13 return newLoA;

14 }

15

16 void forAllInListOfArraysDo(ListOfArrays* list, ListOfArraysFnPtr fnPtr){

17 int n;

18 uintptr_t p;

19 int num_full = list->next_free_index / list->num_entries_per_fragment; //!\\ != list->dim1info->numInArray-1

20 for(n=0;n<num_full; n++){

21 for(p = (uintptr_t) (list->dim1)[n]; p < (uintptr_t) (list->dim1)[n] + list->num_entries_per_fragment * list->entry_size; p += list->entry_size){

22 (*fnPtr)((void*)p);

23 }

24 }

25 int offset_in_last = list->next_free_index % list->num_entries_per_fragment;

26 if (n < list->dim1info->numInArray){

27 for(p = (uintptr_t)(list->dim1)[n]; p < (uintptr_t)(list->dim1)[n] + offset_in_last * list->entry_size; p += list->entry_size){

28 (*fnPtr)((void*)p);

29 }

30 }

31 }

32

33 void clearListOfArrays(ListOfArrays* list){

34 list->next_free_index = 0;

35 }

36

37 void freeListOfArrays(ListOfArrays* list){

38 freeDynArrayDeep(list->dim1info,&VMS_int__free);

39 VMS_int__free((void*)list);

40 }

41

42 /*

43 void addToListOfArraysDependency(Dependency value, ListOfArrays* list){

44 int offset_in_fragment = list->next_free_index % list->num_entries_per_fragment;

45 if(offset_in_fragment == 0){

46 void* newBlock = VMS_int__malloc(list->entry_size * list->num_entries_per_fragment);

47 addToDynArray(newBlock,list->dim1info);

48 }

49 Dependency* typedFragment = (Dependency*) ((list->dim1)[list->dim1info->numInArray -1]);

50 typedFragment[offset_in_fragment] = value;

51 list->next_free_index++;

52 }

53

54 void addToListOfArraysUnit(Unit value, ListOfArrays* list){

55 int offset_in_fragment = list->next_free_index % list->num_entries_per_fragment;

56 if(offset_in_fragment == 0){

57 void* newBlock = VMS_int__malloc(list->entry_size * list->num_entries_per_fragment);

58 addToDynArray(newBlock,list->dim1info);

59 }

60 Unit* typedFragment = (Unit*) ((list->dim1)[list->dim1info->numInArray -1]);

61 typedFragment[offset_in_fragment] = value;

62 list->next_free_index++;

63 }

64 */

65