add batch-mode script

[IRC.git] / Robust / src / Runtime / mem.c

diff --git a/Robust/src/Runtime/mem.c b/Robust/src/Runtime/mem.c
index ce47feb47863db36e3b3ab93a6e8c832cabc54c8..80caa39228eeeab4645cdfd751faae86188eadcd 100644 (file)
--- a/Robust/src/Runtime/mem.c
+++ b/Robust/src/Runtime/mem.c
@@ -2,86 +2,96 @@
 
 #ifdef MULTICORE
 #include "runtime.h"
+#include <stdio.h>
+
+#if defined(MULTICORE_GC)||defined(PMC_GC)
+#include "multicoreruntime.h"
+#include "bambooalign.h"
 #include "runtime_arch.h"
+#include "methodheaders.h"
+#endif
 
 #ifdef MULTICORE_GC
-void * mycalloc_share(struct garbagelist * stackptr, 
-                             int m, 
-                                         int size) {
-       void * p = NULL;
-  //int isize = 2*BAMBOO_CACHE_LINE_SIZE-4+(size-1)&(~BAMBOO_CACHE_LINE_MASK);
-  int isize = (size & (~(BAMBOO_CACHE_LINE_MASK))) + (BAMBOO_CACHE_LINE_SIZE);
-       int hasgc = 0;
-memalloc:
-  BAMBOO_ENTER_RUNTIME_MODE_FROM_CLIENT();
-  p = BAMBOO_SHARE_MEM_CALLOC_I(m, isize); // calloc(m, isize);
-  if(p == NULL) {
-               // no more global shared memory
-               BAMBOO_ENTER_CLIENT_MODE_FROM_RUNTIME();
-               if(hasgc < 5) {
-                   // start gc
-                       if(gc(stackptr)) {
-                         hasgc++;
-                       }
-               } else {
-                       // no more global shared memory
-                       BAMBOO_EXIT(0xc001);
-               }
+#include "multicoremem.h"
+#include "multicoregarbage.h"
+#endif
+#ifdef PMC_GC
+#include "multicoregc.h"
+#include "pmc_garbage.h"
+#endif
 
-               // try to malloc again
-               goto memalloc;
+#if defined(MULTICORE_GC)||defined(PMC_GC)
+extern volatile bool gcflag;
+void * mycalloc_share(struct garbagelist * stackptr, int size) {
+  void * p = NULL;
+  int isize = ((size-1)&(~(ALIGNMENTSIZE-1)))+ALIGNMENTSIZE;
+  int hasgc = 0;
+  int loopcount = 0;
+
+  while(true) {
+    p = BAMBOO_SHARE_MEM_CALLOC(isize); // calloc(m, isize);
+
+    if(p != NULL) 
+      return p;
+    
+    // no more global shared memory
+    if(hasgc < 30) {
+      // start gc
+      if(gcflag) {
+       gc(stackptr);
+       hasgc++;
+      }
+    } else {
+      // no more global shared memory
+      printf("Did %u collections without getting memory\n", hasgc);
+      BAMBOO_EXIT();
+    }
+    loopcount++;
+    if (loopcount>10000000)
+      tprintf("Loopcount in mycalloc_share hit %u\n",loopcount);
   }
-  BAMBOO_ENTER_CLIENT_MODE_FROM_RUNTIME();
-       void * alignedp = 
-               (void *)(BAMBOO_CACHE_LINE_SIZE+((int)p-1)&(~BAMBOO_CACHE_LINE_MASK));
-       BAMBOO_MEMSET_WH(p, -2, (alignedp - p));
-  BAMBOO_MEMSET_WH(alignedp + size, -2, p + isize - alignedp - size);
-       return alignedp;
+
+  BAMBOO_EXIT();
+  return NULL;
 }
+
 #else
-void * mycalloc_share(int m, 
-                                 int size) {
-  void * p = NULL;
-  //int isize = 2*BAMBOO_CACHE_LINE_SIZE-4+(size-1)&(~BAMBOO_CACHE_LINE_MASK);
-  int isize = (size & (~(BAMBOO_CACHE_LINE_MASK))) + (BAMBOO_CACHE_LINE_SIZE);
-  BAMBOO_ENTER_RUNTIME_MODE_FROM_CLIENT();
-  p = BAMBOO_SHARE_MEM_CALLOC_I(m, isize); // calloc(m, isize);
+void * mycalloc_share(int size) {
+  int isize = ((size-1)&(~(BAMBOO_CACHE_LINE_MASK)))+(BAMBOO_CACHE_LINE_SIZE);
+  void * p = BAMBOO_SHARE_MEM_CALLOC(isize); // calloc(m, isize);
   if(p == NULL) {
-               // no more global shared memory
-               BAMBOO_EXIT(0xc002);
+    // no more global shared memory
+    BAMBOO_EXIT();
   }
-  BAMBOO_ENTER_CLIENT_MODE_FROM_RUNTIME();
-  return 
-               (void *)(BAMBOO_CACHE_LINE_SIZE+((int)p-1)&(~BAMBOO_CACHE_LINE_MASK));
+  return (void *)(BAMBOO_CACHE_LINE_SIZE+((int)p-1)&(~BAMBOO_CACHE_LINE_MASK));
 }
 #endif
 
-void * mycalloc(int m, 
-                       int size) {
-  void * p = NULL;
-  int isize = size; 
+void * mycalloc(int size, char * file, int line) {
   BAMBOO_ENTER_RUNTIME_MODE_FROM_CLIENT();
-  p = BAMBOO_LOCAL_MEM_CALLOC(m, isize); // calloc(m, isize);
-  if(p == NULL) {
-         BAMBOO_EXIT(0xc003);
-  }
+  void * p = mycalloc_i(size, file, line);
   BAMBOO_ENTER_CLIENT_MODE_FROM_RUNTIME();
   return p;
 }
 
 
-void * mycalloc_i(int m, 
-                         int size) {
-  void * p = NULL;
-  int isize = size; 
-  p = BAMBOO_LOCAL_MEM_CALLOC(m, isize); // calloc(m, isize);
+void * mycalloc_i(int size, char * file, int line) {
+  void * p = BAMBOO_LOCAL_MEM_CALLOC(size);
   if(p == NULL) {
-       BAMBOO_EXIT(0xc004);
+    tprintf("mycalloc_i %s %d \n", file, line);
+    BAMBOO_EXIT();
   }
   return p;
 }
 
 void myfree(void * ptr) {
+  BAMBOO_ENTER_RUNTIME_MODE_FROM_CLIENT();
+  BAMBOO_LOCAL_MEM_FREE(ptr);
+  BAMBOO_ENTER_CLIENT_MODE_FROM_RUNTIME();
+  return;
+}
+
+void myfree_i(void * ptr) {
   BAMBOO_LOCAL_MEM_FREE(ptr);
   return;
 }