GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-27 03:38:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

better debugging output in the allocator

Browse Source
This commit is contained in:
Krasimir Angelov
2022-05-20 20:21:22 +02:00
parent 3c1a3fb899
commit 9cd5634873
1 changed files with 25 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
src/runtime/c/pgf/db.cxx
View File

@@ -469,6 +469,8 @@ void PgfDB::unregister_revision(object o)
} }
} }
fprintf(stderr, "minimal revision %ld\n", ms->min_txn_id);
#ifndef _WIN32 #ifndef _WIN32
pthread_mutex_unlock(&ms->mutex); pthread_mutex_unlock(&ms->mutex);
#else #else
@@ -978,23 +980,23 @@ fit:
PGF_INTERNAL void PgfDB::dump_free_blocks(object map) PGF_INTERNAL void PgfDB::dump_free_blocks(object map)
{ {
if (map == 0) { if (map == 0) {
printf("."); fprintf(stderr, ".");
return; return;
} }
block_descr *descr = ptr(block_descr, map); block_descr *descr = ptr(block_descr, map);
if (descr->left != 0 || descr->right != 0) { if (descr->left != 0 || descr->right != 0) {
printf("("); fprintf(stderr, "(");
dump_free_blocks(descr->left); dump_free_blocks(descr->left);
printf(" "); fprintf(stderr, " ");
} }
printf("[%016lx %ld %ld]", descr->o, descr->block_size, descr->block_txn_id); fprintf(stderr, "[%016lx %ld %ld]", descr->o, descr->block_size, descr->block_txn_id);
if (descr->left != 0 || descr->right != 0) { if (descr->left != 0 || descr->right != 0) {
printf(" "); fprintf(stderr, " ");
dump_free_blocks(descr->right); dump_free_blocks(descr->right);
printf(")"); fprintf(stderr, ")");
} }
} }
#endif #endif
@@ -1002,6 +1004,10 @@ PGF_INTERNAL void PgfDB::dump_free_blocks(object map)
PGF_INTERNAL PGF_INTERNAL
object PgfDB::malloc_internal(size_t bytes) object PgfDB::malloc_internal(size_t bytes)
{ {
#ifdef DEBUG_MEMORY_ALLOCATOR
fprintf(stderr, "malloc_internal(%ld)\n", bytes);
#endif
size_t block_size = request2size(bytes); size_t block_size = request2size(bytes);
object o; object o;
@@ -1014,10 +1020,15 @@ object PgfDB::malloc_internal(size_t bytes)
#ifdef DEBUG_MEMORY_ALLOCATOR #ifdef DEBUG_MEMORY_ALLOCATOR
dump_free_blocks(free_blocks); dump_free_blocks(free_blocks);
printf("\n"); fprintf(stderr, "\n");
fprintf(stderr, "recycled %016lx\n", o);
#endif #endif
return o; return o;
} else {
#ifdef DEBUG_MEMORY_ALLOCATOR
fprintf(stderr, "allocated from top %016lx\n", top);
#endif
} }
size_t free_size = mmap_size - top; size_t free_size = mmap_size - top;
@@ -1061,6 +1072,8 @@ object PgfDB::realloc_internal(object oldo, size_t old_bytes, size_t new_bytes)
// If the object is at the end of the allocation area // If the object is at the end of the allocation area
top += nb; top += nb;
fprintf(stderr, "realloc_internal(%016lx,%ld,%ld)\n", oldo, old_bytes, new_bytes);
return oldo; return oldo;
} }
@@ -1101,6 +1114,10 @@ object PgfDB::insert_block_descriptor(object map, object o, size_t size)
PGF_INTERNAL PGF_INTERNAL
void PgfDB::free_internal(object o, size_t bytes) void PgfDB::free_internal(object o, size_t bytes)
{ {
#ifdef DEBUG_MEMORY_ALLOCATOR
fprintf(stderr, "free_internal(%016lx,%ld)\n", o, bytes);
#endif
if (o == 0) if (o == 0)
return; return;
@@ -1118,7 +1135,7 @@ void PgfDB::free_internal(object o, size_t bytes)
#ifdef DEBUG_MEMORY_ALLOCATOR #ifdef DEBUG_MEMORY_ALLOCATOR
dump_free_blocks(free_blocks); dump_free_blocks(free_blocks);
printf("\n"); fprintf(stderr, "\n");
#endif #endif
} }