1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include <setjmp.h>
#include <stdio.h>
#define import_spp
#define import_kernel
#define import_knames
#include <iraf.h>
/* ZDOJMP -- Restore the saved processor context (non-local goto). See also
* as$zsvjmp.s, where most of the work is done.
*/
void
ZDOJMP (XINT *jmpbuf, XINT *status)
{
register int stat = *status ? *status : 1;
register XINT *status_ptr = ((XINT **)jmpbuf)[0];
register void *jb = (XINT **)jmpbuf+1;
*status_ptr = stat;
siglongjmp (jb, stat);
}
|
