[BACK]Return to gc_risa.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/gc_risa.c between version 1.10 and 1.11

version 1.10, 2011/05/11 06:03:53 version 1.11, 2012/12/17 07:20:45
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2000/parse/gc_risa.c,v 1.9 2009/02/16 17:23:52 ohara Exp $ */  /* $OpenXM: OpenXM_contrib2/asir2000/parse/gc_risa.c,v 1.10 2011/05/11 06:03:53 ohara Exp $ */
   
 #if defined(VISUAL)  #if defined(VISUAL)
 #include "private/gcconfig.h"  #include "private/gcconfig.h"
Line 9 
Line 9 
 void error(char *);  void error(char *);
   
 int *StackBottom;  int *StackBottom;
   int in_gc, caught_intr;
   
 void *Risa_GC_malloc(size_t d)  void *Risa_GC_malloc(size_t d)
 {  {
         void *ret;          void *ret;
   
           in_gc = 1;
         ret = (void *)GC_malloc(d);          ret = (void *)GC_malloc(d);
           in_gc = 0;
           if ( caught_intr ) { caught_intr = 0; int_handler(); }
         if ( !ret )          if ( !ret )
                 error("GC_malloc : failed to allocate memory");                  error("GC_malloc : failed to allocate memory");
         return ret;          return ret;
Line 24  void *Risa_GC_malloc_atomic(size_t d)
Line 28  void *Risa_GC_malloc_atomic(size_t d)
 {  {
         void *ret;          void *ret;
   
           in_gc = 1;
         ret = (void *)GC_malloc_atomic(d);          ret = (void *)GC_malloc_atomic(d);
           in_gc = 0;
           if ( caught_intr ) { caught_intr = 0; int_handler(); }
         if ( !ret )          if ( !ret )
                 error("GC_malloc_atomic : failed to allocate memory");                  error("GC_malloc_atomic : failed to allocate memory");
         return ret;          return ret;
 }  }
   
   void *Risa_GC_malloc_atomic_ignore_off_page(size_t d)
   {
           void *ret;
   
           in_gc = 1;
           ret = (void *)GC_malloc_atomic_ignore_off_page(d);
           in_gc = 0;
           if ( caught_intr ) { caught_intr = 0; int_handler(); }
           if ( !ret )
                   error("GC_malloc_atomic_ignore_off_page : failed to allocate memory");
           return ret;
   }
   
 void *Risa_GC_realloc(void *p,size_t d)  void *Risa_GC_realloc(void *p,size_t d)
 {  {
         void *ret;          void *ret;
   
           in_gc = 1;
         ret = (void *)GC_realloc(p,d);          ret = (void *)GC_realloc(p,d);
           in_gc = 0;
           if ( caught_intr ) { caught_intr = 0; int_handler(); }
         if ( !ret )          if ( !ret )
                 error("GC_realloc : failed to reallocate memory");                  error("GC_realloc : failed to reallocate memory");
         return ret;          return ret;
 }  }
   
   void Risa_GC_free(void *p)
   {
           in_gc = 1;
           GC_free(p);
           in_gc = 0;
           if ( caught_intr ) { caught_intr = 0; int_handler(); }
   }
   
   
 int get_heapsize()  int get_heapsize()
 {  {
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>