max/uclisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Enable more pedantic compiler flags

Browse Source
This commit is contained in:
Max Regan
2022-11-22 21:11:06 -05:00
parent e02d8433fa
commit 2510c7f36a
9 changed files with 39 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/arena.c
View File

@@ -42,7 +42,7 @@ void ucl_arena_map(struct ucl_arena *arena, void (*map_function)(struct ucl_aren
while (map) {
int bit_index = __builtin_ffs(map) - 1;
int index = bit_index + INT_BITS * i;
void *obj = arena->objects + (index * arena->object_size);
void *obj = (char *) arena->objects + (index * arena->object_size);
map_function(arena, obj);
map &= ~(1 << bit_index);
}
@@ -68,7 +68,7 @@ void *ucl_arena_get(struct ucl_arena *arena) {
}
arena->used_map[i] |= 1 << bit_index;
total_arena_gets++;
return arena->objects + (index * arena->object_size);
return (char *) arena->objects + (index * arena->object_size);
}
return NULL;
@@ -82,7 +82,7 @@ void ucl_arena_put(struct ucl_arena *arena, void *object) {
return;
}
ptrdiff_t offset = object - arena->objects;
ptrdiff_t offset = (char *) object - (char *) arena->objects;
unsigned int index = offset / arena->object_size;
unsigned int int_index = index / INT_BITS;
unsigned int bit_index = index % INT_BITS;