suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

replace 3m hardwired 1-GB memory limit with hardwired 2^(8*sizeof(long))-1 limit

Browse Source 
svn: r5753
This commit is contained in:
Matthew Flatt 2007-03-08 01:56:44 +00:00
parent ed188cbf51
commit eb8e3c7d18
3 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/gc2/newgc.c
View File

@ -367,8 +367,6 @@ static size_t round_to_apage_size(size_t sizeb)
static unsigned long custodian_single_time_limit(int set); static unsigned long custodian_single_time_limit(int set);
inline static int thread_get_owner(void *p); inline static int thread_get_owner(void *p);
static int atomic_counter = 0;
/* the core allocation functions */ /* the core allocation functions */
static void *allocate_big(size_t sizeb, int type) static void *allocate_big(size_t sizeb, int type)
{ {

2
src/mzscheme/gc2/rlimit_heapsize.c
View File

@ -16,7 +16,7 @@ static size_type determine_max_heap_size(void)
getrlimit(RLIMIT_DATA, &rlim); getrlimit(RLIMIT_DATA, &rlim);
# endif # endif
return (rlim.rlim_cur == RLIM_INFINITY) ? (1024 * 1024 * 1024) : rlim.rlim_cur; return (rlim.rlim_cur == RLIM_INFINITY) ? (unsigned long)-1 : rlim.rlim_cur;
} }
#endif #endif

2
src/mzscheme/gc2/vm_osx.c
View File

@ -207,7 +207,7 @@ static unsigned long determine_max_heap_size()
getrlimit(RLIMIT_RSS, rlim); getrlimit(RLIMIT_RSS, rlim);
retval = rlim->rlim_cur; free(rlim); retval = rlim->rlim_cur; free(rlim);
return (retval == RLIM_INFINITY) ? (1024 * 1024 * 1024) : retval; return (retval == RLIM_INFINITY) ? (unsigned long)-1 : retval;
} }
#endif #endif