From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 unix/os/zdojmp.c | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 unix/os/zdojmp.c

(limited to 'unix/os/zdojmp.c')

diff --git a/unix/os/zdojmp.c b/unix/os/zdojmp.c
new file mode 100644
index 00000000..2b825cde
--- /dev/null
+++ b/unix/os/zdojmp.c
@@ -0,0 +1,38 @@
+/* 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)
+{
+#ifdef DOJMP_ORIG
+	register int stat = *status ? *status : 1;
+	register long *jb = (long *)jmpbuf;
+
+	*((int *)jb[0]) = stat;
+	longjmp (&jb[1], stat);
+
+#else
+	register int stat = *status ? *status : 1;
+        register XINT *status_ptr = ((XINT **)jmpbuf)[0];
+        register void *jb = (XINT **)jmpbuf+1;
+
+        *status_ptr = stat;
+#if (defined(LINUX) || defined(CYGWIN))
+        siglongjmp (jb, stat);
+#else
+        longjmp (jb, stat);
+#endif
+
+#endif
+}
-- 
cgit