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

Mps br/vmarenagrow:

Browse source 
mps_arena_vm_growth should give MPS_RES_PARAM is desired < minimum

Copied from Perforce
 Change: 164898
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2008-05-01 15:22:01 +01:00
parent 2e4e79bb81
commit 7dbf5d4ce5
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mps/code/amcss.c
View file

@ -295,8 +295,14 @@ int main(int argc, char **argv)
randomize(argc, argv);
/* /4 => too-small arena, to test arena growth */
die(mps_arena_create(&arena, mps_arena_class_vm(), testArenaSIZE/4),
die(mps_arena_create(&arena, mps_arena_class_vm(), testArenaSIZE/2),
"arena_create");
{
mps_res_t res;
/* May not desire an increment smaller than the minimum! */
res = mps_arena_vm_growth(arena, 16 * 0x1000, 17 * 0x1000);
cdie(res == MPS_RES_PARAM, "mps_arena_vm_growth should give MPS_RES_PARAM");
}
die(mps_arena_vm_growth(arena, 16 * 0x1000, 0),
"arena_vm_growth");

6
mps/code/arenavm.c
View file

@ -1718,6 +1718,12 @@ mps_res_t mps_arena_vm_growth(mps_arena_t mps_arena,
vmArena = Arena2VMArena(arena);
AVERT(VMArena, vmArena);
if(desired < minimum) {
/* May not desire an increment smaller than the minimum! */
ArenaLeave(arena);
return MPS_RES_PARAM;
}
vmArena->extendBy = desired;
vmArena->extendMin = minimum;