Mercurial > cgi-bin > hgwebdir.cgi > VMS > C_Libraries > ListOfArrays
diff ListOfArrays.c @ 8:0e6cc9d9ec67
on MC_shared brch, changed VMS__malloc to VMS_int__malloc and added .hgeol
| author | Some Random Person <seanhalle@yahoo.com> |
|---|---|
| date | Fri, 09 Mar 2012 22:14:24 -0800 |
| parents | 94a5b324bc29 |
| children | 5df9392eca1a |
line diff
1.1 --- a/ListOfArrays.c Fri Mar 09 18:22:54 2012 -0800 1.2 +++ b/ListOfArrays.c Fri Mar 09 22:14:24 2012 -0800 1.3 @@ -3,7 +3,7 @@ 1.4 #include "VMS_impl/vmalloc.h" 1.5 1.6 ListOfArrays* makeListOfArrays(size_t entry_size, int num_entries_per_block){ 1.7 - ListOfArrays* newLoA = (ListOfArrays*) VMS__malloc(sizeof(ListOfArrays)); 1.8 + ListOfArrays* newLoA = (ListOfArrays*) VMS_int__malloc(sizeof(ListOfArrays)); 1.9 newLoA->dim1info = makePrivDynArrayOfSize(&(newLoA->dim1),8); 1.10 1.11 newLoA->entry_size = entry_size; 1.12 @@ -32,15 +32,15 @@ 1.13 } 1.14 1.15 void freeListOfArrays(ListOfArrays* list){ 1.16 - freeDynArrayDeep(list->dim1info,&VMS__free); 1.17 - VMS__free((void*)list); 1.18 + freeDynArrayDeep(list->dim1info,&VMS_int__free); 1.19 + VMS_int__free((void*)list); 1.20 } 1.21 1.22 /* 1.23 void addToListOfArraysDependency(Dependency value, ListOfArrays* list){ 1.24 int offset_in_fragment = list->next_free_index % list->num_entries_per_fragment; 1.25 if(offset_in_fragment == 0){ 1.26 - void* newBlock = VMS__malloc(list->entry_size * list->num_entries_per_fragment); 1.27 + void* newBlock = VMS_int__malloc(list->entry_size * list->num_entries_per_fragment); 1.28 addToDynArray(newBlock,list->dim1info); 1.29 } 1.30 Dependency* typedFragment = (Dependency*) ((list->dim1)[list->dim1info->numInArray -1]); 1.31 @@ -51,7 +51,7 @@ 1.32 void addToListOfArraysUnit(Unit value, ListOfArrays* list){ 1.33 int offset_in_fragment = list->next_free_index % list->num_entries_per_fragment; 1.34 if(offset_in_fragment == 0){ 1.35 - void* newBlock = VMS__malloc(list->entry_size * list->num_entries_per_fragment); 1.36 + void* newBlock = VMS_int__malloc(list->entry_size * list->num_entries_per_fragment); 1.37 addToDynArray(newBlock,list->dim1info); 1.38 } 1.39 Unit* typedFragment = (Unit*) ((list->dim1)[list->dim1info->numInArray -1]);
