Mercurial > cgi-bin > hgwebdir.cgi > VMS > C_Libraries > ListOfArrays

annotate ListOfArrays.c @ 1:fd441e4d0908

find changesets by author, revision, files, or words in the commit message
bugfix
author Nina Engelhardt <nengel@mailbox.tu-berlin.de>
date Mon, 19 Dec 2011 17:11:22 +0100
parents bc4b3434367f
children ef1712d6d7d8
rev   line source
nengel@0 1
nengel@0 2 #include "ListOfArrays.h"
nengel@0 3 #include "../vmalloc.h"
nengel@0 4
nengel@0 5 ListOfArrays* makeListOfArrays(size_t entry_size, int num_entries_per_block){
nengel@0 6 ListOfArrays* newLoA = (ListOfArrays*) VMS__malloc(sizeof(ListOfArrays));
nengel@0 7 newLoA->first = NULL;
nengel@0 8 newLoA->last = NULL;
nengel@0 9 newLoA->entry_size = entry_size;
nengel@0 10 newLoA->num_entries_per_fragment = num_entries_per_block;
nengel@0 11 newLoA->next_free_index = 0;
nengel@0 12
nengel@0 13 return newLoA;
nengel@0 14 }
nengel@0 15
nengel@0 16 void forAllInListOfArraysDo(ListOfArrays* list, ListOfArraysFnPtr fnPtr){
nengel@0 17 ArrayFragment* current = list->first;
nengel@1 18 int num_full_blocks = (list->next_free_index / list->num_entries_per_fragment);
nengel@1 19 uintptr_t p;
nengel@1 20 while(num_full_blocks > 0){
nengel@1 21 for(p = (uintptr_t)&(current->data); p < (uintptr_t) &(current->data) + list->num_entries_per_fragment * list->entry_size; p += list->entry_size){
nengel@1 22 (*fnPtr)((void*)p);
nengel@0 23 }
nengel@1 24 current = (ArrayFragment*) current->next;
nengel@1 25 num_full_blocks--;
nengel@0 26 }
nengel@0 27 //assert(current == list->last);
nengel@0 28 int offset_in_last = list->next_free_index % list->num_entries_per_fragment;
nengel@1 29
nengel@1 30 for(p = (uintptr_t)&(current->data); p < (uintptr_t)&(current->data) + offset_in_last * list->entry_size; p += list->entry_size){
nengel@1 31 (*fnPtr)((void*)p);
nengel@0 32 }
nengel@0 33 }