Repatch (from linux) of OSX IRAF

1 files changed, 32 insertions, 0 deletions

diff --git a/unix/as.ssol/zsvjmp.s b/unix/as.ssol/zsvjmp.s
new file mode 100644
index 00000000..b4d03439
--- /dev/null
+++ b/unix/as.ssol/zsvjmp.s
@@ -0,0 +1,32 @@
+!# 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 procedures.
+!#
+!# (SUN/UNIX sparc version)
+ 
+        .seg	"text"
+        .global	zsvjmp_
+
+	!# The following has nothing to do with ZSVJMP, and is included here
+	!# only because this assembler module is loaded with every process.
+	!# This code sets the value of the symbol MEM (the Mem common) to zero,
+	!# setting the origin for IRAF pointers to zero rather than some
+	!# arbitrary value, and ensuring that the MEM common is aligned for
+	!# all datatypes as well as page aligned.  A further advantage is that
+	!# references to NULL pointers will cause a memory violation.
+
+	.global	_mem_
+	_mem_	=	0
+
+	.proc	0
+zsvjmp_:
+	st	%o1, [%o0]		! save &status in jmpbuf[0]
+	clr	%o2
+	st	%o2, [%o1]		! zero the value of status
+	add	%o0, 0x4, %o0
+	set	setjmp, %o1
+	jmp	%o1
+	nop
+	.seg	"data"