mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
83 lines
2.1 KiB
C
83 lines
2.1 KiB
C
#ifdef LOG_MEMORY
|
|
|
|
long malloc_balance_counter = 0;
|
|
bool log_memory_balance = false;
|
|
|
|
void *logged_malloc(size_t size) {
|
|
void *ptr = malloc(size);
|
|
if (log_memory_balance) { printf("MALLOC: %p (%ld bytes)\n", ptr, size); }
|
|
malloc_balance_counter++;
|
|
return ptr;
|
|
}
|
|
|
|
void logged_free(void *ptr) {
|
|
if (log_memory_balance) { printf("FREE: %p\n", ptr); }
|
|
free(ptr);
|
|
malloc_balance_counter--;
|
|
/* if(malloc_balance_counter == 0) { */
|
|
/* printf("malloc is balanced! (this should be the last thing you
|
|
* see)\n"); */
|
|
/* } */
|
|
/* else if(malloc_balance_counter < 0) { */
|
|
/* printf("malloc is %ld, that is bad!\n", malloc_balance_counter); */
|
|
/* } */
|
|
}
|
|
|
|
void Debug_log_MINUS_memory_MINUS_balance_BANG_(bool value) {
|
|
log_memory_balance = value;
|
|
}
|
|
|
|
#define CARP_MALLOC(size) logged_malloc(size)
|
|
#define CARP_FREE(ptr) logged_free(ptr)
|
|
#define CARP_REALLOC(ptr, size) realloc(ptr, size)
|
|
|
|
long Debug_memory_MINUS_balance() { return malloc_balance_counter; }
|
|
|
|
void Debug_reset_MINUS_memory_MINUS_balance_BANG_() {
|
|
malloc_balance_counter = 0;
|
|
}
|
|
|
|
#else
|
|
|
|
#ifdef CHECK_ALLOCATIONS
|
|
void* CARP_MALLOC(size_t size) {
|
|
void* res = malloc(size);
|
|
if (!res) abort();
|
|
return res;
|
|
}
|
|
void* CARP_REALLOC(void* ptr, size_t size) {
|
|
void* res = realloc(ptr, size);
|
|
if (!res) abort();
|
|
return res;
|
|
}
|
|
#else
|
|
#define CARP_MALLOC(size) malloc(size)
|
|
#define CARP_REALLOC(ptr, size) realloc(ptr, size)
|
|
#endif
|
|
|
|
#define CARP_FREE(ptr) free(ptr)
|
|
|
|
long Debug_memory_MINUS_balance() {
|
|
printf(
|
|
"Error - calling 'memory-balance' without compiling with LOG_MEMORY "
|
|
"enabled (--log-memory).\n");
|
|
exit(1);
|
|
return 0;
|
|
}
|
|
|
|
void Debug_reset_MINUS_memory_MINUS_balance_BANG_() {
|
|
printf(
|
|
"Error - calling 'reset-memory-balance!' without compiling with "
|
|
"LOG_MEMORY enabled (--log-memory).\n");
|
|
exit(1);
|
|
}
|
|
|
|
void Debug_log_MINUS_memory_MINUS_balance_BANG_(bool value) {
|
|
printf(
|
|
"Error - calling 'log-memory-balance!' without compiling with "
|
|
"LOG_MEMORY enabled (--log-memory).\n");
|
|
exit(1);
|
|
}
|
|
|
|
#endif
|