Repatch (from linux) of OSX IRAF

1 files changed, 170 insertions, 0 deletions

diff --git a/unix/as.linux64/zsvjmp_c b/unix/as.linux64/zsvjmp_c
new file mode 100644
index 00000000..2b42a0de
--- /dev/null
+++ b/unix/as.linux64/zsvjmp_c
@@ -0,0 +1,170 @@
+/*
+# ZSVJMP, ZDOJMP -- Set up a jump (non-local goto) by saving the processor
+# registers in the buffer jmpbuf.  A subsequent call to ZDOJMP restores
+# the registers, effecting a call in the context of the procedure which
+# originally called ZSVJMP, but with the new status code.  These are Fortran
+# callable procedusres.
+#
+#		zsvjmp (jmp_buf, status)	# (returns status)
+#		zdojmp (jmp_buf, status)	# (passes status to zsvjmp)
+#
+# These routines are directly comparable to the UNIX setjmp/longjmp, except
+# that they are Fortran callable kernel routines, i.e., trailing underscore,
+# call by reference, and no function returns.  ZSVJMP requires an assembler
+# jacket routine to avoid modifying the call stack, but relies upon setjmp
+# to do the real work.  ZDOJMP is implemented as a portable C routine in OS,
+# calling longjmp to do the restore.  In these routines, JMP_BUF consists
+# of one longword containing the address of the STATUS variable, followed
+# by the "jmp_buf" used by setjmp/longjmp.
+*/
+
+
+#ifdef I386
+
+/*
+asm("# Set the address of the MEM common to zero.");
+asm(".globl	mem_");
+asm("	mem_	=	0");
+*/
+
+/*
+#if defined(MACOSX)
+asm(".globl	_mem_");
+asm("	_mem_	=	0");
+#endif
+*/
+
+#if defined(LINUX)
+asm(".text");
+asm(".globl	zsvjmp_");
+asm("zsvjmp_:");
+asm("	movl	4(%esp), %ecx	# &jmpbuf to ECX");
+asm("	movl	8(%esp), %eax	# &status to EAX");
+asm("	movl	%eax, (%ecx)	# store &status in jmpbuf[0]");
+asm("	movl 	$0, (%eax)	# zero the value of status");
+asm("	addl	$4, %ecx	# change stack to point to &jmpbuf[1]");
+asm("	movl	%ecx, 4(%esp)	# 	...");
+asm("	movl	$0, 8(%esp)	# change arg2 to zero");
+asm("	jmp	__sigsetjmp	# let sigsetjmp do the rest");
+#endif	/* LINUX */
+
+#if (defined(CYGWIN) || defined(MACOSX))
+asm(".text");
+asm(".globl	_zsvjmp_");
+asm("_zsvjmp_:");
+asm("	movl	4(%esp), %ecx	# &jmpbuf to ECX");
+asm("	movl	8(%esp), %eax	# &status to EAX");
+asm("	movl	%eax, (%ecx)	# store &status in jmpbuf[0]");
+asm("	movl 	$0, (%eax)	# zero the value of status");
+asm("	addl	$4, %ecx	# change stack to point to &jmpbuf[1]");
+asm("	movl	%ecx, 4(%esp)	# 	...");
+asm("	movl	$0, 8(%esp)	# change arg2 to zero");
+asm("	jmp	_setjmp		# let setjmp do the rest");
+#endif	/* CYGWIN || MACOSX */
+
+#endif	/* I386 */
+
+
+#ifdef X86_64
+
+/*
+asm("# Set the address of the MEM common to zero.");
+asm(".globl	mem_");
+asm("	mem_	=	0");
+*/
+
+#ifdef SPP_LP64
+/* LP64-SPP */
+asm(".text");
+asm(".globl	zsvjmp_");
+asm("zsvjmp_:");
+asm("	# %rsi ... &status  %rdi ... &jumpbuf");
+asm("	movq	%rsi, (%rdi)	# store &status in jmpbuf[0]");
+asm("	movl	$0, (%rsi)	# zero the value of status");
+asm("	addq	$8, %rdi	# change point to &jmpbuf[1]");
+asm("	movl	$0, %esi	# change arg2 to zero");
+asm("	jmp	__sigsetjmp	# let sigsetjmp do the rest");
+#else
+/* ILP64-SPP */
+asm(".text");
+asm(".globl	zsvjmp_");
+asm("zsvjmp_:");
+asm("	# %rsi ... &status  %rdi ... &jumpbuf");
+asm("	movq	%rsi, (%rdi)	# store &status in jmpbuf[0]");
+asm("	movq	$0, (%rsi)	# zero the value of status");
+asm("	addq	$8, %rdi	# change point to &jmpbuf[1]");
+asm("	movl	$0, %esi	# change arg2 to zero");
+asm("	jmp	__sigsetjmp	# let sigsetjmp do the rest");
+#endif
+
+#endif	/* X86_64 */
+
+
+#ifdef POWERPC
+
+#if defined(LINUX)
+/*
+asm("	# Set the address of the MEM common to zero.");
+asm("	.globl   mem_");
+asm("	mem_ = 0");
+*/
+asm(".text");
+asm("	# ZSVJMP -- SPP callable SETJMP.");
+asm("	.align	 2");
+asm("	.globl	zsvjmp_");
+asm("	.type	zsvjmp_,@function");
+asm("zsvjmp_:");
+asm("	# R3 = buf, R4 = &status");
+asm("	li	r11,0		# r11 = 0");
+asm("	stw	r11,0(r4)	# set *status to zero");
+asm("	stw	r4,0(r3)	# store &status in buf[0]");
+asm("	addi	r3,r3,4		# reference buf[1] for sigsetjmp");
+asm("	li	r4,0		# zero signal mask for sigsetjmp");
+asm("	b	__sigsetjmp");
+#endif	/* LINUX */
+
+#if defined(MACOSX)
+/*
+asm("	# Set the address of the MEM common to zero.");
+asm("	.globl   _mem_");
+asm("	_mem_ = 0");
+*/
+asm(".text");
+asm("	# ZSVJMP -- SPP callable SETJMP.");
+asm("	.align	2");
+asm("	.globl	_zsvjmp_");
+asm("_zsvjmp_:");
+asm("	# R3 = buf, R4 = &status");
+asm("	li	r11,0		# r11 = 0");
+asm("	stw	r11,0(r4)	# set *status to zero");
+asm("	stw	r4,0(r3)	# store &status in buf[0]");
+asm("	addi	r3,r3,4		# reference buf[1] for setjmp");
+asm("	b	L_setjmp$stub");
+asm("L2:");
+asm("	lwz	r1,0(r1)");
+asm("	lwz	r0,8(r1)");
+asm("	mtlr	r0");
+asm("	lmw	r30,-8(r1)");
+asm("	blr");
+asm("");
+asm("	# The setjmp code is only available in a dynamic library on 10.1.");
+asm(".picsymbol_stub");
+asm("L_setjmp$stub:");
+asm("        .indirect_symbol _setjmp");
+asm("        mflr	r0");
+asm("        bcl	20,31,L1$pb");
+asm("L1$pb:");
+asm("        mflr	r11");
+asm("        addis	r11,r11,ha16(L1$lz-L1$pb)");
+asm("        mtlr	r0");
+asm("        lwz	r12,lo16(L1$lz-L1$pb)(r11)");
+asm("        mtctr	r12");
+asm("        addi	r11,r11,lo16(L1$lz-L1$pb)");
+asm("        bctr");
+asm(".lazy_symbol_pointer");
+asm("L1$lz:");
+asm("        .indirect_symbol _setjmp");
+asm("        .long dyld_stub_binding_helper");
+#endif	/* MACOSX */
+
+#endif	/* POWERPC */