--- parser3/src/include/pa_memory.h 2003/03/19 13:16:56 1.1.2.9.2.2 +++ parser3/src/include/pa_memory.h 2026/10/18 22:42:42 1.48 @@ -1,33 +1,30 @@ /** @file Parser: memory reference counting classes decls. - Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com) + Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com) - Author: Alexandr Petrosian (http://paf.design.ru) + Authors: Konstantin Morshnev , Alexandr Petrosian */ #ifndef PA_MEMORY_H #define PA_MEMORY_H -static const char* IDENT_MEMORY_H="$Date: 2003/03/19 13:16:56 $"; - -#define PA_DEBUG_REFERENCES +#define IDENT_PA_MEMORY_H "$Id: pa_memory.h,v 1.48 2026/10/18 22:42:42 moko Exp $" // include #include "pa_config_includes.h" -#include "gc.h" +#include +// define destructors use for Array, Hash and VMethodFrame +#define USE_DESTRUCTORS -#ifdef XML -# include "gdome.h" -// for xmlChar -# include "libxml/tree.h" -#endif +// std::basic_stringstream used in ^table.csv-string[] is compatible with delete usage check only under Debian 9/10, FreeBSD 12 +// #define CHECK_DELETE_USAGE // forwards -void *pa_fail_alloc(const char *what, size_t size); +void *pa_fail_alloc(const char* what, size_t size); // inlines @@ -44,6 +41,22 @@ inline void *pa_malloc_atomic(size_t siz return pa_fail_alloc("allocate clean", size); } + +/// length may be zero, and this is normal +inline char *pa_strdup(const char* auto_variable_never_null, size_t known_length) { + if(char *result=static_cast(GC_MALLOC_ATOMIC(known_length+1))) { + memcpy(result, auto_variable_never_null, known_length); + result[known_length]=0; + return result; + } + + return static_cast(pa_fail_alloc("allocate clean", known_length+1)); +} + +inline char *pa_strdup(const char* auto_variable_never_null) { + return pa_strdup(auto_variable_never_null, strlen(auto_variable_never_null)); +} + inline void pa_free(void *ptr) { GC_FREE(ptr); } @@ -55,62 +68,113 @@ inline void *pa_realloc(void *ptr, size_ return pa_fail_alloc("reallocate to", size); } -#define DECLARE_OBJECT_PTR(name) \ - typedef name* name##Ptr - -#define DECLARE_SMART_PTR(name) \ - typedef name* name##Ptr - -// defines - -#define override -#define rethrow throw - -// memory - -inline void *operator new[] (size_t size) { - return pa_malloc_atomic(size); -} -inline void operator delete[] (void *ptr) { - pa_free(ptr); -} -inline void operator delete (void *ptr) { - abort(); -} - /// memory allocation/dallocation goes via pa_malloc/pa_free. class PA_Allocated { public: /// the sole: instances allocated using our functions - static void *operator new(size_t size) { + static void *operator new(size_t size) { return pa_malloc(size); } static void operator delete(void *ptr) { pa_free(ptr); } - static void *malloc(size_t size) { + static void *operator new[](size_t size) { return pa_malloc(size); } - static void *malloc_atomic(size_t size) { - return pa_malloc_atomic(size); - } - static void free(void *ptr) { + static void operator delete[](void *ptr) { pa_free(ptr); } - static void *realloc(void *ptr, size_t size) { - return pa_realloc(ptr, size); - } +}; -private: // disabled from accidental use +// new(PointerFreeGC)/new(PointerGC) should be used to allocate types not inherited from PA_Allocated - /// use malloc instead [GC clears malloc result] - static void *calloc(size_t size); +#define PointerFreeGC (true) +#define PointerGC (false) -}; +inline void *operator new[] (size_t size, bool pointer_free) { + return pointer_free ? pa_malloc_atomic(size) : pa_malloc(size); +} + +inline void *operator new (size_t size, bool pointer_free) { + return pointer_free ? pa_malloc_atomic(size) : pa_malloc(size); +} /// Base for all Parser classes typedef PA_Allocated PA_Object; -// convinient types +// defines + +#define override +#define rethrow throw + +#if defined(_MSC_VER) || (__cplusplus>=201103L) +#define PA_THROW(what) +#else +#define PA_THROW(what) throw(what) +#endif + +#if defined(_MSC_VER) || defined(FREEBSD1X) || defined(__APPLE__) +// no checks for FreeBSD1X.X and OS X due to https://bugs.llvm.org/show_bug.cgi?id=40161 bug +#define PA_CHECK_REGULAR_ALLOC_UNAVAILABLE +#endif + +// #define PA_CHECK_REGULAR_ALLOC_UNAVAILABLE +#if !defined(PA_CHECK_REGULAR_ALLOC_UNAVAILABLE) +// regular new/delete are disabled from accidental use + +void *new_disabled(); +void delete_disabled(); + +inline void *operator new[] (std::size_t) PA_THROW(std::bad_alloc){ return new_disabled(); } +inline void operator delete[](void *) throw(){ delete_disabled(); } +inline void operator delete[](void *, std::size_t) throw(){ delete_disabled(); } + +inline void *operator new(std::size_t) PA_THROW(std::bad_alloc){ return new_disabled(); } +#ifdef CHECK_DELETE_USAGE +inline void operator delete(void *) throw(){ delete_disabled(); } +#endif + +#ifndef PA_DEBUG_DISABLE_GC +// other regular allocators as disabled from accidental use as well + +void *calloc_disabled(); +void *malloc_disabled(); +void *realloc_disabled(); +void free_disabled(); +char *strdup_disabled(); + +inline void *calloc(size_t) { return calloc_disabled(); } +inline void *malloc(size_t) { return malloc_disabled(); } +inline void *realloc(void *, size_t) { return realloc_disabled(); } +inline void free(void *) { free_disabled(); } +inline char *strdup(const char*, size_t){ return strdup_disabled(); } +#endif // PA_DEBUG_DISABLE_GC + +#endif // _MSC_VER + +void pa_gc_collect(bool forced=false); +void pa_gc_set_free_space_divisor(int); + +class String; + +/** + Keeps the pointer GC does not see and returns it. The first case is the exception: C++ runtime keeps the exception in flight + in malloc memory, which GC does not scan. To avoid collection, exception fields are passed through pa_gc_reference(). +*/ + +const String* pa_gc_reference(const String*); +const char* pa_gc_reference(const char*); + +/// for the pointers GC does not see: should be created on the stack at the very start of every thread and live until its end +class Temp_gc_references { + enum { SIZE=32 }; + const void* items[SIZE]; + unsigned index; + Temp_gc_references* previous; +public: + Temp_gc_references(); + ~Temp_gc_references(); + void keep(const void* data) { items[index++ % SIZE]=data; } +}; #endif