[BACK]Return to pa_globals.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/pa_globals.C between versions 1.167 and 1.176

version 1.167, 2004/02/11 09:18:24 version 1.176, 2004/10/07 09:23:44
Line 1 Line 1
 /** @file  /** @file
         Parser: globals.          Parser: globals.
   
         Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2004 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
   
   // 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 {
 public:  public:/*internal, actually*/
         char buf[MAX_STRING*5];          char buf[MAX_STRING*5];
         size_t used;          size_t used;
 public:  public:
         XML_Generic_error_info() {          XML_Generic_error_info() {
                 reset();  
         }  
         void reset() {   
                 buf[used=0]=0;                  buf[used=0]=0;
         }          }
         const char* get_and_reset() {          const char* get() {
                 if(used) {                  return used? buf: 0;
                         char* result=pa_strdup(buf, used);  
                         reset();  
                         return result;  
                 } else  
                         return 0;                 
         }          }
 };  };
   
 Hash<pa_thread_t, XML_Generic_error_info*> xml_generic_error_infos;  static Hash<pa_thread_t, XML_Generic_error_info*> xml_generic_error_infos;
   
 static void xmlParserGenericErrorFunc(void *  /*ctx*/, const char* msg, ...) {   static void xmlParserGenericErrorFunc(void *  /*ctx*/, const char* msg, ...) { 
 //_asm int 3;  //_asm int 3;
         pa_thread_t thread_id=pa_get_thread_id();          pa_thread_t thread_id=pa_get_thread_id();
   
         // infinitely looking for free slot to fill it          XML_Generic_error_info* p;
         while(true) {          {
                 SYNCHRONIZED;  // find+fill blocked                  SYNCHRONIZED;  // find+fill blocked
   
                 // first try to get existing for this thread_id                  // first try to get existing for this thread_id
                 XML_Generic_error_info *p=xml_generic_error_infos.get(thread_id);                  p=xml_generic_error_infos.get(thread_id);
                 if(!p) // occupy empty one                  if(!p) // occupy empty one
                         xml_generic_error_infos.put(thread_id, (p=new(PointerFreeGC) XML_Generic_error_info));                          xml_generic_error_infos.put(thread_id, (p=new(PointerFreeGC) XML_Generic_error_info));
                   
                 va_list args;  
                 va_start(args, msg);  
                 p->used+=vsnprintf(p->buf+p->used, sizeof(p->buf)-p->used, msg, args);  
                 va_end(args);  
   
                 break;  
         }          }
                   
           va_list args;
           va_start(args, msg);
           p->used+=vsnprintf(p->buf+p->used, sizeof(p->buf)-p->used, msg, args);
           va_end(args);
 }  }
   
 bool xmlHaveGenericErrors() {  bool xmlHaveGenericErrors() {
Line 137  const char* xmlGenericErrors() { Line 140  const char* xmlGenericErrors() {
   
         SYNCHRONIZED;  // find+free blocked          SYNCHRONIZED;  // find+free blocked
   
         if(XML_Generic_error_info *p=xml_generic_error_infos.get(thread_id))          if(XML_Generic_error_info *p=xml_generic_error_infos.get(thread_id)) {
                 return p->get_and_reset();                  xml_generic_error_infos.remove(thread_id);
                   return p->get();
           }
   
         return 0; // no errors for our thread_id registered          return 0; // no errors for our thread_id registered
 }  }
Line 165  static char *pa_GC_strdup(const char *s) Line 170  static char *pa_GC_strdup(const char *s)
                 return 0;                  return 0;
   
         size_t size=strlen(s)+1;          size_t size=strlen(s)+1;
         char *result=(char *)GC_malloc_atomic(size);          char *result=(char *)GC_MALLOC_ATOMIC(size);
         if(!result)          if(!result)
                 SAPI::abort("out of memory (while duplicating XML string [size=%d])", size);                  SAPI::abort("out of memory (while duplicating XML string [size=%d])", size);
   
         memcpy(result, s, size);          memcpy(result, s, size);
   #ifdef PA_DEBUG_XML_GC_MEMORY
           fprintf(stderr, "pa_GC_strdup(%p=%s, length=%d)=0x%p\n", s, s, size, result);
   #endif
         return result;          return result;
 }  }
   
 #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 223  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 253  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 262  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 346  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
Line 364  void pa_globals_init() { Line 407  void pa_globals_init() {
 #       ifdef _DEBUG  #       ifdef _DEBUG
   
 #               ifdef LIBXML_STATIC  #               ifdef LIBXML_STATIC
 #                       pragma comment(lib, GNOME_LIBS "/libxml2-x.x.x/win32/binaries-debug/libxml2_a.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxml2-x.x.x/win32/debug/lib/libxml2_a.lib")
 #               else  #               else
 #                       pragma comment(lib, GNOME_LIBS "/libxml2-x.x.x/win32/binaries-debug/libxml2.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxml2-x.x.x/win32/debug/lib/libxml2.lib")
 #               endif  #               endif
   
 #               ifdef LIBXSLT_STATIC  #               ifdef LIBXSLT_STATIC
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/binaries-debug/libxslt_a.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/debug/lib/libxslt_a.lib")
 #               else  #               else
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/binaries-debug/libxslt.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/debug/lib/libxslt.lib")
 #               endif  #               endif
 #               ifdef LIBEXSLT_STATIC  #               ifdef LIBEXSLT_STATIC
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/binaries-debug/libexslt_a.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/debug/lib/libexslt_a.lib")
 #               else  #               else
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/binaries-debug/libexslt.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/debug/lib/libexslt.lib")
 #               endif  #               endif
   
 #               ifdef LIBGDOME_STATIC  #               ifdef LIBGDOME_STATIC
 #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/dsp/libgdome_DebugStatic/libgdome.lib")  #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/DebugStatic/libgdome.lib")
 #               else  #               else
 #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/dsp/libgdome_DebugDynamic/libgdome.lib")  #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/DebugDynamic/libgdome.lib")
 #               endif  #               endif
   
 #else  #else
   
 #               ifdef LIBXML_STATIC  #               ifdef LIBXML_STATIC
 #                       pragma comment(lib, GNOME_LIBS "/libxml2-x.x.x/win32/binaries-release/libxml2_a.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxml2-x.x.x/win32/release/lib/libxml2_a.lib")
 #               else  #               else
 #                       pragma comment(lib, GNOME_LIBS "/libxml2-x.x.x/win32/binaries-release/libxml2.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxml2-x.x.x/win32/release/lib/libxml2.lib")
 #               endif  #               endif
   
 #               ifdef LIBXSLT_STATIC  #               ifdef LIBXSLT_STATIC
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/binaries-release/libxslt_a.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/release/lib/libxslt_a.lib")
 #               else  #               else
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/binaries-release/libxslt.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/release/lib/libxslt.lib")
 #               endif  #               endif
 #               ifdef LIBEXSLT_STATIC  #               ifdef LIBEXSLT_STATIC
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/binaries-release/libexslt_a.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/release/lib/libexslt_a.lib")
 #               else  #               else
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/binaries-release/libexslt.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/release/lib/libexslt.lib")
 #               endif  #               endif
   
 #               ifdef LIBGDOME_STATIC  #               ifdef LIBGDOME_STATIC
 #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/dsp/libgdome_ReleaseStatic/libgdome.lib")  #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/ReleaseStatic/libgdome.lib")
 #               else  #               else
 #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/dsp/libgdome_ReleaseDynamic/libgdome.lib")  #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/ReleaseDynamic/libgdome.lib")
 #               endif  #               endif
   
 #       endif  #       endif
Removed from v.1.167  
changed lines
  Added in v.1.176

E-mail: