Blame src/functional/setjmp.c

Szabolcs Nagy 0c5fb5
#include <string.h>
Szabolcs Nagy 0c5fb5
#include <signal.h>
Szabolcs Nagy 0c5fb5
#include <setjmp.h>
Szabolcs Nagy 0c5fb5
#include "test.h"
Szabolcs Nagy 0c5fb5
Szabolcs Nagy cfa23c
#define TEST(c, ...) ((c) ? 1 : (t_error(#c" failed: " __VA_ARGS__),0))
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
int main(void)
Szabolcs Nagy 0c5fb5
{
Szabolcs Nagy 0c5fb5
	volatile int x = 0, r;
Szabolcs Nagy 0c5fb5
	jmp_buf jb;
Szabolcs Nagy 0c5fb5
	sigjmp_buf sjb;
Szabolcs Nagy 0c5fb5
	volatile sigset_t oldset;
Szabolcs Nagy 0c5fb5
	sigset_t set;
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	if (!setjmp(jb)) {
Szabolcs Nagy 0c5fb5
		x = 1;
Szabolcs Nagy 0c5fb5
		longjmp(jb, 1);
Szabolcs Nagy 0c5fb5
	}
Szabolcs Nagy 0c5fb5
	TEST(x==1, "setjmp/longjmp seems to have been bypassed\n");
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	x = 0;
Szabolcs Nagy 0c5fb5
	r = setjmp(jb);
Szabolcs Nagy 0c5fb5
	if (!x) {
Szabolcs Nagy 0c5fb5
		x = 1;
Szabolcs Nagy 0c5fb5
		longjmp(jb, 0);
Szabolcs Nagy 0c5fb5
	}
Szabolcs Nagy 0c5fb5
	TEST(r==1, "longjmp(jb, 0) caused setjmp to return %d\n", r);
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	sigemptyset(&set);
Szabolcs Nagy 0c5fb5
	sigaddset(&set, SIGUSR1);
Szabolcs Nagy 0c5fb5
	sigprocmask(SIG_UNBLOCK, &set, &set);
Szabolcs Nagy 0c5fb5
	oldset = set;
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	/* Improve the chances of catching failure of sigsetjmp to
Szabolcs Nagy 0c5fb5
	 * properly save the signal mask in the sigjmb_buf. */
Szabolcs Nagy 0c5fb5
	memset(&sjb, -1, sizeof sjb);
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	if (!sigsetjmp(sjb, 1)) {
Szabolcs Nagy 0c5fb5
		sigemptyset(&set);
Szabolcs Nagy 0c5fb5
		sigaddset(&set, SIGUSR1);
Szabolcs Nagy 0c5fb5
		sigprocmask(SIG_BLOCK, &set, 0);
Szabolcs Nagy 0c5fb5
		siglongjmp(sjb, 1);
Szabolcs Nagy 0c5fb5
	}
Szabolcs Nagy 0c5fb5
	set = oldset;
Szabolcs Nagy 0c5fb5
	sigprocmask(SIG_SETMASK, &set, &set);
Szabolcs Nagy 0c5fb5
	TEST(sigismember(&set, SIGUSR1)==0, "siglongjmp failed to restore mask\n");
Szabolcs Nagy 0c5fb5
Szabolcs Nagy cfa23c
	return t_status;
Szabolcs Nagy 0c5fb5
}