Return to nogc.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

Annotation of OpenXM/src/kan96xx/Kan/nogc.c, Revision 1.1

1.1     ! maekawa     1: #include <stdio.h>
        !             2: static long Total = 0;
        !             3:
        !             4: void *GC_malloc(n)
        !             5: int n;
        !             6: {
        !             7:   void *p;
        !             8:   p = (void *)calloc(n,1);  /* clear the memory */
        !             9:
        !            10:   Total += n;
        !            11:   if (p == (void *)NULL) {
        !            12:     fprintf(stderr,"\nNo more memory. We have allocated %ld bytes of the memory.\n",Total);
        !            13:     return(p);
        !            14:   }
        !            15:   return(p);
        !            16: }
        !            17:
        !            18: void *GC_realloc(void *p,int n) {
        !            19:   void *p;
        !            20:   p = (void *)realloc(p,n);
        !            21:
        !            22:   Total += n;
        !            23:   if (p == (void *)NULL) {
        !            24:     fprintf(stderr,"\nNo more memory. We have allocated %ld bytes of the memory.\n",Total);
        !            25:     return(p);
        !            26:   }
        !            27:   return(p);
        !            28: }
        !            29:
        !            30: GC_free(void *p) {  ; }
        !            31:
        !            32: