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

Move the marker down the stack so that gcc's aggressive inline won't scupper it.

Browse source 
Copied from Perforce
 Change: 185524
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2014-04-14 18:37:31 +01:00
parent 27aab67497
commit 06ea755daf
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
mps/code/airtest.c
View file

@ -90,14 +90,13 @@ static mps_gen_param_s obj_gen_params[] = {
{ 170, 0.45 }
};
static void test_main(int interior, int stack)
static void test_main(void *marker, int interior, int stack)
{
mps_res_t res;
mps_chain_t obj_chain;
mps_fmt_t obj_fmt;
mps_thr_t thread;
mps_root_t reg_root = NULL;
void *marker = ▮
res = mps_arena_create_k(&scheme_arena, mps_arena_class_vm(), mps_args_none);
if (res != MPS_RES_OK) error("Couldn't create arena");
@ -145,12 +144,14 @@ static void test_main(int interior, int stack)
int main(int argc, char *argv[])
{
void *marker = ▮
testlib_init(argc, argv);
test_main(TRUE, TRUE);
test_main(TRUE, FALSE);
/* not test_main(FALSE, TRUE) -- see .fail.lii6ll. */
test_main(FALSE, FALSE);
test_main(marker, TRUE, TRUE);
test_main(marker, TRUE, FALSE);
/* not test_main(marker, FALSE, TRUE) -- see .fail.lii6ll. */
test_main(marker, FALSE, FALSE);
printf("%s: Conclusion: Failed to find any defects.\n", argv[0]);
return 0;