|
|
| version 1.173, 2004/02/16 11:20:05 | version 1.178, 2005/11/30 14:56:16 |
|---|---|
| Line 1 | Line 1 |
| /** @file | /** @file |
| Parser: globals. | Parser: globals. |
| Copyright (c) 2001-2004 ArtLebedev Group (http://www.artlebedev.com) | Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com) |
| Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru) | Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru) |
| */ | */ |
| Line 33 extern "C" { | Line 33 extern "C" { |
| //#define PA_DEBUG_XML_GC_MEMORY | //#define PA_DEBUG_XML_GC_MEMORY |
| //20051130 trying to remove this, author claims that fixed a lot there // 20040920 for now both workarounds needed. wait for new libxml/xsl versions | |
| // // there is a problem with testcase, it's unstable. | |
| // // see paf@six/bug20040920/cgi-bin/t for it-showed-bug-on-20040920-day | |
| // #define PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| // #define PA_WORKAROUND_BUGGY_MALLOCATOMIC_IN_LIBXML_GC_MEMORY | |
| // globals | // globals |
| short hex_value[0x100]; | short hex_value[0x100]; |
| Line 77 Request& pa_thread_request() { | Line 83 Request& pa_thread_request() { |
| return *thread_request.get(pa_get_thread_id()); | return *thread_request.get(pa_get_thread_id()); |
| } | } |
| #ifdef PA_RELEASE_ASSERTS | |
| void pa_release_assert(const char* str, const char* file, int line) { | |
| SAPI::die("%s at %s:%d", str, file, line); | |
| } | |
| #endif | |
| #ifdef XML | #ifdef XML |
| class XML_Generic_error_info { | class XML_Generic_error_info { |
| Line 169 static char *pa_GC_strdup(const char *s) | Line 182 static char *pa_GC_strdup(const char *s) |
| } | } |
| #ifdef PA_DEBUG_XML_GC_MEMORY | #ifdef PA_DEBUG_XML_GC_MEMORY |
| void *pa_look_for[]={(void*)0x8abe000,(void*)0x0,(void*)0x0,(void*)0x0, | void *pa_look_for[]={(void*)0x84ba980,(void*)0x8969460,(void*)0x0,(void*)0x0, |
| (void*)0x0,(void*)0x0,(void*)0x0,(void*)0x0}; | (void*)0x0,(void*)0x0,(void*)0x0,(void*)0x0}; |
| bool pa_looked(void*p) { | bool pa_looked(void*p) { |
| for(int i=0; i<8; i++) | for(int i=0; i<8; i++) |
| if(pa_look_for[i]==p) | if(pa_look_for[i]==p) { |
| __asm__("int $3"); | |
| return true; | return true; |
| } | |
| if((((int)p)&~0xFF)==0x89a7700) { | |
| __asm__("int $3"); | |
| return true; | |
| } | |
| return false; | return false; |
| } | } |
| static void* pa_gc_malloc_log(size_t size){ | static void* pa_gc_malloc_log(size_t size){ |
| void *p=pa_gc_malloc(size); | void *p=pa_gc_malloc(size); |
| fprintf(stderr, "pa_gc_malloc_log(%d)=0x%p\n", size, p); | fprintf(stderr, "pa_gc_malloc_log(%d)=0x%p\n", size, p); |
| // if(pa_looked(p)) | if(pa_looked(p)) |
| // fprintf(stderr,"catched debug malloc(%d)=0x%p\n", size, p); | fprintf(stderr,"catched debug malloc(%d)=0x%p\n", size, p); |
| return p; | return p; |
| } | } |
| static void* pa_gc_malloc_atomic_log(size_t size){ | static void* pa_gc_malloc_atomic_log(size_t size){ |
| #ifdef PA_WORKAROUND_BUGGY_MALLOCATOMIC_IN_LIBXML_GC_MEMORY | |
| void *p=pa_gc_malloc(size); | |
| fprintf(stderr, "pa_gc_malloc_atomicFAKE_log(%d)=0x%p\n", size, p); | |
| #else | |
| void *p=pa_gc_malloc_atomic(size); | void *p=pa_gc_malloc_atomic(size); |
| fprintf(stderr, "pa_gc_malloc_atomic_log(%d)=0x%p\n", size, p); | fprintf(stderr, "pa_gc_malloc_atomic_log(%d)=0x%p\n", size, p); |
| // if(pa_looked(p)) | #endif |
| // fprintf(stderr,"catched debug malloc atomic(%d)=0x%p\n", size, p); | if(pa_looked(p)) |
| fprintf(stderr,"catched debug malloc atomic(%d)=0x%p\n", size, p); | |
| return p; | return p; |
| } | } |
| static void* pa_gc_realloc_log(void *ptr, size_t size){ | static void* pa_gc_realloc_log(void *ptr, size_t size){ |
| void *p=pa_gc_realloc(ptr, size); | void *p=pa_gc_realloc(ptr, size); |
| fprintf(stderr, "pa_gc_realloc_log(0x%p, %d)=0x%p\n", ptr, size, p); | fprintf(stderr, "pa_gc_realloc_log(0x%p, %d)=0x%p\n", ptr, size, p); |
| // if(pa_looked(p)) | if(pa_looked(p)) |
| // fprintf(stderr,"catched debug realloc(%d)=0x%p\n", size, p); | fprintf(stderr,"catched debug realloc(%d)=0x%p\n", size, p); |
| return p; | return p; |
| } | } |
| //static void pa_gc_free_ignore(void *){} | |
| static void pa_gc_free_log(void *p){ | static void pa_gc_free_log(void *p){ |
| #ifdef PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| fprintf(stderr, "pa_gc_freeIGNORE_log(0x%p)\n", p); | |
| #else | |
| fprintf(stderr, "pa_gc_free_log(0x%p)\n", p); | fprintf(stderr, "pa_gc_free_log(0x%p)\n", p); |
| // if(pa_looked(p)) | #endif |
| // fprintf(stderr,"catched debug free(0x%p)\n", p); | if(pa_looked(p)) |
| fprintf(stderr,"catched debug free(0x%p)\n", p); | |
| #ifndef PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| pa_gc_free(p); | pa_gc_free(p); |
| #endif | |
| } | } |
| #else | #else |
| Line 218 static void* pa_gc_malloc_nonull(size_t | Line 247 static void* pa_gc_malloc_nonull(size_t |
| return check(pa_gc_malloc(size), "allocating XML compsite memory", size); | return check(pa_gc_malloc(size), "allocating XML compsite memory", size); |
| } | } |
| static void* pa_gc_malloc_atomic_nonull(size_t size) { | static void* pa_gc_malloc_atomic_nonull(size_t size) { |
| #ifdef PA_WORKAROUND_BUGGY_MALLOCATOMIC_IN_LIBXML_GC_MEMORY | |
| return check(pa_gc_malloc(size), "allocating XML composite memory (asked atomic)", size); | |
| #else | |
| return check(pa_gc_malloc_atomic(size), "allocating XML atomic memory", size); | return check(pa_gc_malloc_atomic(size), "allocating XML atomic memory", size); |
| #endif | |
| } | } |
| static void* pa_gc_realloc_nonull(void* ptr, size_t size) { | static void* pa_gc_realloc_nonull(void* ptr, size_t size) { |
| return check(pa_gc_realloc(ptr, size), "reallocating XML memory", size); | return check(pa_gc_realloc(ptr, size), "reallocating XML memory", size); |
| } | } |
| static void pa_gc_free_maybeignore( | |
| void* | |
| #ifndef PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| ptr | |
| #endif | |
| ) { | |
| #ifndef PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| pa_gc_free(ptr); | |
| #endif | |
| } | |
| #endif | #endif |
| #endif | #endif |
| Line 248 static void gc_substitute_memory_managem | Line 292 static void gc_substitute_memory_managem |
| /*xmlStrdupFunc */pa_GC_strdup); | /*xmlStrdupFunc */pa_GC_strdup); |
| #else | #else |
| xmlGcMemSetup( | xmlGcMemSetup( |
| /*xmlFreeFunc */pa_gc_free, | /*xmlFreeFunc */pa_gc_free_maybeignore, |
| /*xmlMallocFunc */pa_gc_malloc_nonull, | /*xmlMallocFunc */pa_gc_malloc_nonull, |
| /*xmlMallocFunc */pa_gc_malloc_atomic_nonull, | /*xmlMallocFunc */pa_gc_malloc_atomic_nonull, |
| /*xmlReallocFunc */pa_gc_realloc_nonull, | /*xmlReallocFunc */pa_gc_realloc_nonull, |
| Line 257 static void gc_substitute_memory_managem | Line 301 static void gc_substitute_memory_managem |
| #else | #else |
| xmlMemSetup( | xmlMemSetup( |
| /*xmlFreeFunc */pa_gc_free, | /*xmlFreeFunc */pa_gc_free_maybeignore, |
| /*xmlMallocFunc */pa_gc_malloc, | /*xmlMallocFunc */pa_gc_malloc, |
| /*xmlReallocFunc */pa_gc_realloc, | /*xmlReallocFunc */pa_gc_realloc, |
| /*xmlStrdupFunc */pa_GC_strdup); | /*xmlStrdupFunc */pa_GC_strdup); |
| Line 341 void pa_globals_init() { | Line 385 void pa_globals_init() { |
| #endif | #endif |
| } | } |
| void pa_globals_done() { | |
| delete cache_managers; cache_managers=0; | |
| } | |
| #ifdef _MSC_VER | #ifdef _MSC_VER |
| #ifndef PA_DEBUG_DISABLE_GC | #ifndef PA_DEBUG_DISABLE_GC |