mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-25 08:12:11 -07:00
Code Issues Projects Releases Wiki Activity

Use three generations and 32 mb of address space.

Browse source 
Copied from Perforce
 Change: 180467
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2012-11-14 14:12:12 +00:00
parent 5321edb48b
commit 4b8601ff78
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mps/example/scheme/scheme-advanced.c
View file

@ -4459,8 +4459,9 @@ static void *start(void *p, size_t s)
*/
static mps_gen_param_s obj_gen_params[] = {
{ 6400, 0.85 },
{ 6400, 0.45 }
{ 6400, 0.80 },
{ 6400, 0.80 },
{ 6400, 0.80 }
};
@ -4481,7 +4482,7 @@ int main(int argc, char *argv[])
It holds all the MPS "global" state and is where everything happens. */
res = mps_arena_create(&arena,
mps_arena_class_vm(),
(size_t)(1024ul * 1024 * 1024));
(size_t)(32ul * 1024 * 1024));
if (res != MPS_RES_OK) error("Couldn't create arena");
/* Create the object format. */