parser3/src/include/pa_memory.h - diff

Return to pa_memory.h CVS log

Up to [parser3project] / parser3 / src / include

Diff for /parser3/src/include/pa_memory.h between versions 1.1.2.9.2.12 and 1.9

version 1.1.2.9.2.12, 2003/03/25 09:34:53	version 1.9, 2004/01/29 13:50:21
Line 9	Line 9
#ifndef PA_MEMORY_H	#ifndef PA_MEMORY_H
#define PA_MEMORY_H	#define PA_MEMORY_H

static const char* IDENT_MEMORY_H="$Date$";	static const char * const IDENT_MEMORY_H="$Date$";

#define PA_DEBUG_REFERENCES

// include	// include

#include "pa_config_includes.h"	#include "pa_config_includes.h"

	/// to debug backtrace pointers switch this on:
	#ifdef _DEBUG
	#define GC_DEBUG
	#endif
#include "gc.h"	#include "gc.h"

	// defines

#ifdef XML	//#define PA_DEBUG_GC_MEMORY
# include "gdome.h"
// for xmlChar	#ifdef PA_DEBUG_GC_MEMORY
# include "libxml/tree.h"	void* pa_gc_malloc(size_t size);
	void* pa_gc_malloc_atomic(size_t size);
	void* pa_gc_realloc(void* ptr, size_t size);
	void pa_gc_free(void* ptr);
	#else
	inline void* pa_gc_malloc(size_t size) { return GC_MALLOC(size); }
	inline void* pa_gc_malloc_atomic(size_t size) { return GC_MALLOC_ATOMIC(size); }
	inline void* pa_gc_realloc(void* ptr, size_t size) { return GC_REALLOC(ptr, size); }
	inline void pa_gc_free(void* ptr) { GC_FREE(ptr); }
#endif	#endif


// forwards	// forwards

void pa_fail_alloc(const char what, size_t size);	void pa_fail_alloc(const char what, size_t size);
Line 32 void pa_fail_alloc(const char what, si	Line 45 void pa_fail_alloc(const char what, si
// inlines	// inlines

inline void *pa_malloc(size_t size) {	inline void *pa_malloc(size_t size) {
if(void *result=GC_MALLOC(size))	if(void *result=pa_gc_malloc(size))
return result;	return result;

return pa_fail_alloc("allocate", size);	return pa_fail_alloc("allocate", size);
}	}

inline void *pa_malloc_atomic(size_t size) {	inline void *pa_malloc_atomic(size_t size) {
if(void *result=GC_MALLOC_ATOMIC(size))	if(void *result=pa_gc_malloc_atomic(size))
return result;	return result;

return pa_fail_alloc("allocate clean", size);	return pa_fail_alloc("allocate clean", size);
}	}
/// @a length may be null, which mean "autocalc it"	/// @a length may be null, which mean "autocalc it"
inline char pa_strdup(const char auto_variable_never_null, size_t length=0) {	inline char pa_strdup(const char auto_variable_never_null, size_t helper_length=0) {
if(!length)	size_t known_length=(helper_length?helper_length:strlen(auto_variable_never_null));
length=strlen(auto_variable_never_null);
	if(char result=static_cast<char>(pa_gc_malloc_atomic(known_length+1))) {
size_t size=length+1;	memcpy(result, auto_variable_never_null, known_length);
if(char result=static_cast<char>(GC_MALLOC_ATOMIC(size))) {	result[known_length]=0;
memcpy(result, auto_variable_never_null, length);
result[length]=0;
return result;	return result;
}	}

Line 60 inline char pa_strdup(const char auto_	Line 71 inline char pa_strdup(const char auto_
}	}

inline void pa_free(void *ptr) {	inline void pa_free(void *ptr) {
GC_FREE(ptr);	pa_gc_free(ptr);
}	}

inline void pa_realloc(void ptr, size_t size) {	inline void pa_realloc(void ptr, size_t size) {
if(void *result=GC_REALLOC(ptr, size))	if(void *result=pa_gc_realloc(ptr, size))
return result;	return result;

return pa_fail_alloc("reallocate to", size);	return pa_fail_alloc("reallocate to", size);
}	}

//{@ these operators are disabled, one should explicitely specify either new(UseGC) or new(PointerFreeGC)	//{@ these operators are disabled, one should explicitely specify either new(UseGC) or new(PointerFreeGC)
inline void *operator new(size_t size) { abort(); } // disabled	inline void *operator new(size_t) { abort(); } // disabled
inline void operator delete (void *ptr) { abort(); } // disabled	inline void *operator new[] (size_t) { abort(); } // disabled
inline void *operator new[] (size_t size) { abort(); } // disabled
//}@	//}@

#define UseGC ((int)1)	#define UseGC ((int)1)
#define PointerFreeGC (true)	#define PointerFreeGC (true)

	//{@ Array-oriented
inline void *operator new[] (size_t size, int) { // UseGC	inline void *operator new[] (size_t size, int) { // UseGC
return pa_malloc(size);	return pa_malloc(size);
}	}
Line 88 inline void *operator new[] (size_t size	Line 99 inline void *operator new[] (size_t size
inline void operator delete[] (void *ptr) {	inline void operator delete[] (void *ptr) {
pa_free(ptr);	pa_free(ptr);
}	}
	//}@

	//{@ Structure-oriented
	inline void *operator new (size_t size, int) { // UseGC
	return pa_malloc(size);
	}
	inline void *operator new (size_t size, bool) { // PointerFreeGC
	return pa_malloc_atomic(size);
	}
	inline void operator delete(void *ptr) {
	pa_free(ptr);
	}
	//}@

/// memory allocation/dallocation goes via pa_malloc/pa_free.	/// memory allocation/dallocation goes via pa_malloc/pa_free.
class PA_Allocated {	class PA_Allocated {
Line 105 public:	Line 129 public:
static void *malloc_atomic(size_t size) {	static void *malloc_atomic(size_t size) {
return pa_malloc_atomic(size);	return pa_malloc_atomic(size);
}	}
static char strdup(const char auto_variable_never_null, size_t length=0) {	static char strdup(const char auto_variable_never_null, size_t helper_length=0) {
return pa_strdup(auto_variable_never_null, length);	return pa_strdup(auto_variable_never_null, helper_length);
}	}
static void free(void *ptr) {	static void free(void *ptr) {
pa_free(ptr);	pa_free(ptr);
Line 122 private: // disabled from accidental use	Line 146 private: // disabled from accidental use

};	};

	/// Those who want their destructor called during finalization, must derive from this class [also]
	class PA_Cleaned {
	#ifndef PA_DEBUG_DISABLE_GC
	static void cleanup( void* obj, void* displ ) {
	((PA_Cleaned) ((char) obj + (ptrdiff_t) displ))->~PA_Cleaned();
	}

	public:
	PA_Cleaned() {
	GC_finalization_proc oldProc;
	void* oldData;
	void* base = GC_base( (void *) this );
	if (0 != base) {
	// Don't call the debug version, since this is a real base address.
	GC_register_finalizer_ignore_self(
	base, (GC_finalization_proc)cleanup, (void) ((char) this - (char*) base),
	&oldProc, &oldData );
	if (0 != oldProc) {
	GC_register_finalizer_ignore_self( base, oldProc, oldData, 0, 0 );
	}
	}
	}

	virtual ~PA_Cleaned() {
	GC_REGISTER_FINALIZER_IGNORE_SELF( GC_base(this), 0, 0, 0, 0 );
	}
	#endif
	};

/// Base for all Parser classes	/// Base for all Parser classes
typedef PA_Allocated PA_Object;	typedef PA_Allocated PA_Object;

E-mail:

Removed from v.1.1.2.9.2.12
changed lines
	Added in v.1.9