Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove job4014 machinery, which is no longer needed.

Browse source 
Copied from Perforce
 Change: 195211
This commit is contained in:
Alistair Turnbull 2018-10-08 17:25:22 +01:00
parent 766aee0567
commit 779380b40d
1 changed files with 10 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
mps/code/fotest.c
View file

@ -67,29 +67,18 @@ static Bool is_failure_our_problem = FALSE;
static Res oomAlloc(Addr *pReturn, Pool pool, Size size)
{
MFS mfs = MustBeA(MFSPool, pool);
UNUSED(pReturn);
UNUSED(size);
if (mfs->extendSelf) {
/* This is the MFS block pool belonging to the CBS belonging to
* the MVFF or MVT pool under test. */
if (is_failure_our_problem) {
/* Simulate a failure to enforce the fail-over behaviour. */
switch (rnd() % 3) {
case 0:
return ResRESOURCE;
case 1:
return ResMEMORY;
default:
return ResCOMMIT_LIMIT;
}
} else {
/* Failure here is allowed, so succeed (see job004104). */
return mfs_alloc(pReturn, pool, size);
if (is_failure_our_problem) {
/* Simulate a failure to enforce the fail-over behaviour. */
switch (rnd() % 3) {
case 0:
return ResRESOURCE;
case 1:
return ResMEMORY;
default:
return ResCOMMIT_LIMIT;
}
} else {
/* This is the MFS block pool belonging to the arena's free land,
* so succeed here (see job004041). */
/* Failure here is allowed, so succeed (see job4041 and job004104). */
return mfs_alloc(pReturn, pool, size);
}
}