Diff for /parser3/src/main/pa_globals.C between versions 1.172 and 1.183

version 1.172, 2004/02/13 14:01:08 version 1.183, 2008/08/15 15:30:21
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 18  extern "C" { Line 18  extern "C" {
 };  };
 #endif  #endif
   
 #include "pcre.h"  
   
 #include "pa_globals.h"  #include "pa_globals.h"
 #include "pa_string.h"  #include "pa_string.h"
 #include "pa_sapi.h"  #include "pa_sapi.h"
Line 29  extern "C" { Line 27  extern "C" {
   
 #include "pa_cache_managers.h"  #include "pa_cache_managers.h"
   
   #include "pcre.h"
   
 // defines  // defines
   
 //#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];
   
 #ifdef XML  
 GdomeDOMImplementation *domimpl;  
 #endif  
   
 static void setup_hex_value() {  static void setup_hex_value() {
         memset(hex_value, 0, sizeof(hex_value));          memset(hex_value, 0, sizeof(hex_value));
         hex_value['0'] = 0;               hex_value['0'] = 0;     
Line 77  Request& pa_thread_request() { Line 79  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;                 
         }          }
 };  };
   
Line 135  const char* xmlGenericErrors() { Line 136  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 144  const char* xmlGenericErrors() { Line 147  const char* xmlGenericErrors() {
 #endif  #endif
   
 void pa_globals_destroy(void *) {  void pa_globals_destroy(void *) {
   /*
         try {          try {
 #ifdef XML  #ifdef XML
                 GdomeException exc;  
                 gdome_di_unref (domimpl, &exc);  
                 // uncomment SAPI::abort below if adding potential-throw code here  
 #endif  #endif
         } catch(const Exception& e) {          } catch(.../*const Exception& e* /) {
 //              SAPI::abort("pa_globals_destroy failed: %s", e.comment());  //              SAPI::abort("pa_globals_destroy failed: %s", e.comment());
         }          }
   */
 }  }
   
   
Line 175  static char *pa_GC_strdup(const char *s) Line 177  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 224  static void* pa_gc_malloc_nonull(size_t Line 242  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 254  static void gc_substitute_memory_managem Line 287  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 263  static void gc_substitute_memory_managem Line 296  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 297  void pa_globals_init() { Line 330  void pa_globals_init() {
 #ifdef XML  #ifdef XML
         // initializing xml libs          // initializing xml libs
   
         /* First get a DOMImplementation reference */  
         domimpl = gdome_di_mkref ();  
         /*          /*
         * Register the EXSLT extensions and the test module          * Register the EXSLT extensions and the test module
         */          */
Line 347  void pa_globals_init() { Line 378  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 359  void pa_globals_init() { Line 394  void pa_globals_init() {
   
 #endif  #endif
   
 #ifdef XML  #define GNOME_LIBS "../../../../win32/gnome"
 #       define GNOME_LIBS "../../../../win32/gnome"  
   #ifdef WITH_MAILRECEIVE
 #       pragma comment(lib, GNOME_LIBS "/glib/lib/libglib-1.3-11.lib")  #       pragma comment(lib, GNOME_LIBS "/glib/lib/libglib-1.3-11.lib")
   #endif
   
   #ifdef XML
 #       ifdef _DEBUG  #       ifdef _DEBUG
   
 #               ifdef LIBXML_STATIC  #               ifdef LIBXML_STATIC
Line 381  void pa_globals_init() { Line 420  void pa_globals_init() {
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/debug/lib/libexslt.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/debug/lib/libexslt.lib")
 #               endif  #               endif
   
 #               ifdef LIBGDOME_STATIC  
 #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/DebugStatic/libgdome.lib")  
 #               else  
 #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/DebugDynamic/libgdome.lib")  
 #               endif  
   
 #else  #else
   
 #               ifdef LIBXML_STATIC  #               ifdef LIBXML_STATIC
Line 406  void pa_globals_init() { Line 439  void pa_globals_init() {
 #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/release/lib/libexslt.lib")  #                       pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/release/lib/libexslt.lib")
 #               endif  #               endif
   
 #               ifdef LIBGDOME_STATIC  
 #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/ReleaseStatic/libgdome.lib")  
 #               else  
 #                       pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/ReleaseDynamic/libgdome.lib")  
 #               endif  
   
 #       endif  #       endif
 #endif  #endif
   

Removed from v.1.172  
changed lines
  Added in v.1.183


E-mail: