blob: 45585060f47d241e6977451906e624a3d2d49d1e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
# XMJBUF -- Return a char pointer to the IRAF main interpreter context restart
# buffer (for ZDOJMP restarts).
procedure xmjbuf (bp)
pointer bp #O pointer to jumpbuf
int a_jb, a_mem
int jumpbuf[LEN_JUMPBUF]
common /JUMPCOM/ jumpbuf
begin
call zlocva (jumpbuf[1], a_jb)
call zlocva (Memc, a_mem)
bp = a_jb - a_mem + 1
end
|
