Fix license and conformance with man page.

4 files changed, 369 insertions, 53 deletions

diff --git a/lib/libc/arch/m88k/gen/_setjmp.S b/lib/libc/arch/m88k/gen/_setjmp.S
index d7228f04ede..1bf589e19ec 100644
--- a/lib/libc/arch/m88k/gen/_setjmp.S
+++ b/lib/libc/arch/m88k/gen/_setjmp.S
@@ -1,7 +1,71 @@
+/*-
+ * Copyright (c) 2002 Steve Murphree, Jr.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *      This product includes software developed by Steve Murphree, Jr.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#if defined(LIBC_SCCS)
+	.text
+	.string "$OpenBSD: _setjmp.S,v 1.2 2002/09/18 05:03:54 smurph Exp $\0"
+#endif /* LIBC_SCCS */
+
 #include "SYS.h"
 
+/*
+ * C library -- _setjmp, _longjmp
+ *
+ *	_longjmp(a,v)
+ * will generate a "return(v)" from
+ * the last call to
+ *	_setjmp(a)
+ * by restoring registers from the stack,
+ * The previous signal state is NOT saved 
+ * or restored.
+ *
+ * For m88k, we define our jmp_buf length 
+ * to be the size of 22 longs.  <machine/setjmp.h>
+ * The buffer's usage is as follows:
+ * 
+ * jmp_buf[0]		return address
+ * jmp_buf[1]		signal set (if used)
+ * jmp_buf[2 to 19]	r14 to r31
+ * jmp_buf[20]		'used' flag
+ * jmp_buf[21]		setjmp type 
+ *
+ */
+
+#include <machine/setjmp.h>
+
+/*
+int _setjmp(jmp_buf env);
+ */
 ENTRY(_setjmp)
-	st	r1, r2,0
+	st	r1, r2,0	/* save registers to the environment buffer */
+	st	r0, r2,4	/* no signal set */
 	st	r14,r2,8
 	st	r15,r2,12
 	st	r16,r2,16
@@ -20,11 +84,27 @@ ENTRY(_setjmp)
 	st	r29,r2,68
 	st	r30,r2,72
 	st	r31,r2,76
-	jmp.n	r1
+	st	r0,r2,80	/* mark environment as NOT returned (0x0) */
+	or	r4,r0,0		/* clear r4 */
+	or	r4,r0,SETJMP_TYPE2	/* r4 now contains setjmp type */
+	st	r4,r2,84	/* setjmp type to _setjmp */
+	jmp.n	r1		/* retrun 0 */
 	or	r2,r0,0
-
+		
+/*
+void _longjmp(jmp_buf env, int val);
+ */
 ENTRY(_longjmp)
-	ld	r14,r2,8
+	cpm	r4,r2,0x0	/* check for bad envnvironment buffer address. */
+	bb1	eq,r4,2f	/* if == 0, abort. */
+	ld	r4,r2,80	/* check if environment buffer has */
+	cpm	r4,r4,0x0	/* already returned. */
+	bb1	ne,r4,2f	/* if != 0, abort. */
+	ld	r4,r2,84	/* check setjmp type. */
+	cpm	r4,r4,SETJMP_TYPE2	/* should be SETJMP_TYPE2 */
+	bb1	ne,r4,2f	/* if != SETJMP_TYPE2, abort. */
+	
+	ld	r14,r2,8	/* restore registers from the environment buffer */
 	ld	r15,r2,12
 	ld	r16,r2,16
 	ld	r17,r2,20
@@ -40,11 +120,23 @@ ENTRY(_longjmp)
 	ld	r27,r2,60
 	ld	r28,r2,64
 	ld	r29,r2,68
-	ld	r30,r2,72
-	ld	r31,r2,76
-	ld	r1,r2,0
-	bcnd.n	ne0,r3,dsrlbl
-	or	r2,r3,0
-	or	r2,r0,1
-     dsrlbl:
-	jmp	r1
+	ld	r30,r2,72		
+	ld	r31,r2,76		
+	or	r4,r0,1
+	st	r4,r2,80	/* mark environment buffer as returned */
+	ld	r1,r2,0		/* restore r1 */
+	cmp	r2,r3,0		/* test retval for 0 */
+	bb0	eq,r2,1f	/* if != 0, it's ok. */
+	jmp.n	r1		/* and jump to it */
+	or	r2,r0,r3	/* but first return r3 value */
+1:	jmp.n	r1              
+	or	r2,r0,1		/* return non-zero value. */
+2:
+	subu	r31,r31,32	/* get a temporary stack */
+	st	r1,r31,20	/* save r1 on stack (return address) */
+	bsr	_C_LABEL(longjmperror)
+	bsr	_C_LABEL(abort)	/* NO RETURN */
+	ld	r1,r31,20	/* restore r1 from stack */
+	addu	r31,r31,32	/* restore the stack */
+	jmp	r1	/* this should not happen but we are prepared */
+
diff --git a/lib/libc/arch/m88k/gen/fabs.S b/lib/libc/arch/m88k/gen/fabs.S
index 810ccf30ef3..0e9d540ff0a 100644
--- a/lib/libc/arch/m88k/gen/fabs.S
+++ b/lib/libc/arch/m88k/gen/fabs.S
@@ -1,3 +1,33 @@
+/*-
+ * Copyright (c) 1996 Nivas Madhur
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *      This product includes software developed by Nivas Madhur.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
 #include <machine/asm.h>
 /*
  * Will work only if the argument passed is in IEEE format!
diff --git a/lib/libc/arch/m88k/gen/setjmp.S b/lib/libc/arch/m88k/gen/setjmp.S
index 9fc8988311d..6b2dd7970b2 100644
--- a/lib/libc/arch/m88k/gen/setjmp.S
+++ b/lib/libc/arch/m88k/gen/setjmp.S
@@ -1,7 +1,69 @@
+/*-
+ * Copyright (c) 2002 Steve Murphree, Jr.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *      This product includes software developed by Steve Murphree, Jr.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#if defined(LIBC_SCCS)
+	.text
+	.string "$OpenBSD: setjmp.S,v 1.2 2002/09/18 05:03:54 smurph Exp $\0"
+#endif /* LIBC_SCCS */
+
 #include "SYS.h"
 
+/*
+ * C library -- setjmp, longjmp
+ *
+ *	longjmp(a,v)
+ * will generate a "return(v)" from
+ * the last call to
+ *	setjmp(a)
+ * by restoring registers from the stack,
+ * and a struct sigcontext, see <signal.h>
+ *
+ * For m88k, we define our jmp_buf length 
+ * to be the size of 22 longs.  <machine/setjmp.h>
+ * The buffer's usage is as follows:
+ * 
+ * jmp_buf[0]		return address
+ * jmp_buf[1]		signal set (if used)
+ * jmp_buf[2 to 19]	r14 to r31
+ * jmp_buf[20]		'used' flag
+ * jmp_buf[21]		setjmp type 
+ *
+ */
+
+#include <machine/setjmp.h>
+
+/*
+int setjmp(jmp_buf env);
+ */
 ENTRY(setjmp)
-	st	r1, r2,0
+	st	r1, r2,0	/* save registers to the environment buffer */
 	st	r14,r2,8
 	st	r15,r2,12
 	st	r16,r2,16
@@ -20,18 +82,33 @@ ENTRY(setjmp)
 	st	r29,r2,68
 	st	r30,r2,72
 	st	r31,r2,76
-	or	r15,r1,0	/* can use r15 */
-	or	r14,r2,0	/* can use r14 as it is already saved */
-	bsr.n	_sigblock
+	st	r0,r2,80	/* mark environment as NOT returned (0x0) */
+	or	r4,r0,0		/* clear r4 */
+	or	r4,r0,SETJMP_TYPE1	/* r4 now contains setjmp type */
+	st	r4,r2,84	/* setjmp type to _setjmp */
+	or	r15,r1,0	/* store return address in r15 */
+	or	r14,r2,0	/* store address of env in r14 */
+	bsr.n	_C_LABEL(sigblock) /* r2 = sigblock(0) */
 	or	r2,r0,0
-	st	r2,r14,4
-	jmp.n	r15
+	st	r2,r14,4	/* save signal set in offset 4 of env */
+	jmp.n	r15		/* return 0 */
 	or	r2,r0,0
 
+/*
+void longjmp(jmp_buf env, int retval);
+ */
 ENTRY(longjmp)
-	subu	r31,r31,32		/* get some temporary stack */
-
-	ld	r14,r2,8
+	cpm	r4,r2,0x0	/* check for bad envnvironment buffer address. */
+	bb1	eq,r4,2f	/* if == 0, abort. */
+	ld	r4,r2,80	/* check if environment buffer has */
+	cpm	r4,r4,0x0	/* already returned. */
+	bb1	ne,r4,2f	/* if != 0, abort. */
+	ld	r4,r2,84	/* check setjmp type. */
+	cpm	r4,r4,SETJMP_TYPE1	/* should be SETJMP_TYPE1 */
+	bb1	ne,r4,2f	/* if != SETJMP_TYPE1, abort. */
+	
+	subu	r31,r31,32	/* get a temporary stack */
+	ld	r14,r2,8	/* restore registers from the environment buffer */
 	ld	r15,r2,12
 	ld	r16,r2,16
 	ld	r17,r2,20
@@ -47,15 +124,30 @@ ENTRY(longjmp)
 	ld	r27,r2,60
 	ld	r28,r2,64
 	ld	r29,r2,68
-
-	st	r2,r31,24		/* save r2 on stack */
-	st	r3,r31,28		/* save r3 on stack */
-	bsr.n	_sigsetmask
+	
+	st	r2,r31,24	/* save r2 on stack (environment) */
+	st	r3,r31,28	/* save r3 on stack (return val) */
+	bsr.n	_C_LABEL(sigsetmask) /* restore the signal set */
 	ld	r2,r2,4
-	ld	r2,r31,24		/* restore r2 from stack */
-	ld	r3,r31,28		/* restore r3 from stack */
-	ld	r30,r2,72		/* restore r30 */
-	ld	r31,r2,76		/* restore r31 */
-	ld	r1,r2,0			/* restore r1 */
-	jmp.n	r1			/* and jump to it */
-	or	r2,r0,r3		/* but first return r3 value */
+	ld	r2,r31,24	/* restore r2 from stack */
+	ld	r3,r31,28	/* restore r3 from stack */
+	ld	r30,r2,72	/* restore r30 */
+	ld	r31,r2,76	/* restore r31 (sp)*/
+	or	r4,r0,1
+	st	r4,r2,80	/* mark environment buffer as returned */
+	ld	r1,r2,0		/* restore r1 */
+	cmp	r2,r3,0		/* test retval for 0 */
+	bb0	eq,r2,1f	/* if != 0, it's ok. */
+	jmp.n	r1		/* and jump to it */
+	or	r2,r0,r3	/* but first return r3 value */
+1:	jmp.n	r1
+	or	r2,r0,1		/* return non-zero value. */
+2:
+	subu	r31,r31,32	/* get a temporary stack */
+	st	r1,r31,20	/* save r1 on stack (return address) */
+	bsr	_C_LABEL(longjmperror)
+	bsr	_C_LABEL(abort)	/* NO RETURN */
+	ld	r1,r31,20	/* restore r1 from stack */
+	addu	r31,r31,32	/* restore the stack */
+	jmp	r1	/* this should not happen but we are prepared */
+
diff --git a/lib/libc/arch/m88k/gen/sigsetjmp.S b/lib/libc/arch/m88k/gen/sigsetjmp.S
index 44637c0c25a..f3c8b1161fd 100644
--- a/lib/libc/arch/m88k/gen/sigsetjmp.S
+++ b/lib/libc/arch/m88k/gen/sigsetjmp.S
@@ -1,11 +1,69 @@
+/*-
+ * Copyright (c) 2002 Steve Murphree, Jr.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *      This product includes software developed by Steve Murphree, Jr.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#if defined(LIBC_SCCS)
+	.text
+	.string "$OpenBSD: sigsetjmp.S,v 1.2 2002/09/18 05:03:54 smurph Exp $\0"
+#endif /* LIBC_SCCS */
+
 #include "SYS.h"
 
 /*
- * Need to write sigsetjmp version. But for now,
- * I am copying setjmp XXX nivas
+ * C library -- sigsetjmp, siglongjmp
+ *
+ *	siglongjmp(a,v)
+ * will generate a "return(v)" from
+ * the last call to
+ *	sigsetjmp(a,m)
+ * by restoring registers from the stack,
+ * The previous signal state is restored if 'm' was non-zero.
+ *
+ * For m88k, we define our jmp_buf length 
+ * to be the size of 22 longs.  <machine/setjmp.h>
+ * The buffer's usage is as follows:
+ * 
+ * jmp_buf[0]		return address
+ * jmp_buf[1]		signal set (if used)
+ * jmp_buf[2 to 19]	r14 to r31
+ * jmp_buf[20]		'used' flag
+ * jmp_buf[21]		setjmp type 
+ *
+ */
+
+#include <machine/setjmp.h>
+
+/*
+int sigsetjmp(jmp_buf env, int savemask);
  */
 ENTRY(sigsetjmp)
-	st	r1, r2,0
+	st	r1, r2,0	/* save registers to the environment buffer */
 	st	r14,r2,8
 	st	r15,r2,12
 	st	r16,r2,16
@@ -24,17 +82,41 @@ ENTRY(sigsetjmp)
 	st	r29,r2,68
 	st	r30,r2,72
 	st	r31,r2,76
-	or	r15,r1,0	/* can use r15 */
-	or	r14,r2,0	/* can use r14 as it is already saved */
-	bsr.n	_sigblock
-	or	r2,r0,0
-	st	r2,r14,4
-	jmp.n	r15
+	st	r0,r2,80	/* mark environment as NOT returned (0x0) */
+	or	r4,r0,0		/* clear r4 */
+	or	r4,r0,SETJMP_TYPE3	/* r4 now contains setjmp type */
+	st	r4,r2,84	/* setjmp type to _setjmp */
+	
+	or	r15,r1,0	/* store return address in r15 */
+	or	r14,r2,0	/* store address of env in r14 */
+	or	r13,r3,0	/* store savemask in r13 */
+	
+	cmp	r11,r13,0x0	/* see if sigmask == 0 */
+	bb1.n	eq,r1,1f	/* skip sig stuff */
+	st	r0,r14,4	/* but save 0 set in offset 4 of env first */
+	
+	bsr.n	_C_LABEL(sigblock) /* r2 = sigblock(savemask) */
+	or	r2,r0,r13
+	st	r2,r14,4	/* save signal set in offset 4 of env */
+1:
+	jmp.n	r15		/* return 0 */
 	or	r2,r0,0
 
+/*
+void siglongjmp(sigjmp_buf env, int val);
+ */
 ENTRY(siglongjmp)
-	subu	r31,r31,32		/* get some temporary stack */
-	ld	r14,r2,8
+	cpm	r4,r2,0x0	/* check for bad envnvironment buffer address. */
+	bb1	eq,r4,3f	/* if == 0, abort. */
+	ld	r4,r2,80	/* check if environment buffer has */
+	cpm	r4,r4,0x0	/* already returned. */
+	bb1	ne,r4,3f	/* if != 0, abort. */
+	ld	r4,r2,84	/* check setjmp type. */
+	cpm	r4,r4,SETJMP_TYPE3	/* should be SETJMP_TYPE3 */
+	bb1	ne,r4,3f	/* if != SETJMP_TYPE3, abort. */
+	
+	subu	r31,r31,32	/* get a temporary stack */
+	ld	r14,r2,8	/* restore registers from the environment buffer */
 	ld	r15,r2,12
 	ld	r16,r2,16
 	ld	r17,r2,20
@@ -50,15 +132,35 @@ ENTRY(siglongjmp)
 	ld	r27,r2,60
 	ld	r28,r2,64
 	ld	r29,r2,68
+	
+	ld	r4,r2,4		/* get the sinal set from env */
+	cpm	r4,r4,0x0	/* if r2 == 0 then skip signal stuff */
+	bb1	eq,r4,1f
 
-	st	r2,r31,24		/* save r2 on stack */
-	st	r3,r31,28		/* save r3 on stack */
-	bsr.n	_sigsetmask
+	st	r2,r31,24	/* save r2 on stack (environment) */
+	st	r3,r31,28	/* save r3 on stack (return val) */
+	bsr.n	_C_LABEL(sigsetmask) /* restore the signal set */
 	ld	r2,r2,4
-	ld	r2,r31,24		/* restore r2 from stack */
-	ld	r3,r31,28		/* restore r3 from stack */
-	ld	r30,r2,72		/* restore r30 */
-	ld	r31,r2,76		/* restore r31 */
-	ld	r1,r2,0			/* restore r1 */
-	jmp.n	r1			/* and jump to it */
-	or	r2,r0,r3		/* but first return r3 value */
+	ld	r2,r31,24	/* restore r2 from stack */
+	ld	r3,r31,28	/* restore r3 from stack */
+1:	
+	ld	r30,r2,72	/* restore r30 */
+	ld	r31,r2,76	/* restore r31 (sp)*/
+	or	r4,r0,1
+	st	r4,r2,80	/* mark environment buffer as returned */
+	ld	r1,r2,0		/* restore r1 */
+	cmp	r2,r3,0		/* test retval for 0 */
+	bb0	eq,r2,2f	/* if != 0, it's ok. */
+	jmp.n	r1		/* and jump to it */
+	or	r2,r0,r3	/* but first return r3 value */
+2:	jmp.n	r1
+	or	r2,r0,1		/* return non-zero value. */
+3:
+	subu	r31,r31,32	/* get a temporary stack */
+	st	r1,r31,20	/* save r1 on stack (return address) */
+	bsr	_C_LABEL(longjmperror)
+	bsr	_C_LABEL(abort)	/* NO RETURN */
+	ld	r1,r31,20	/* restore r1 from stack */
+	addu	r31,r31,32	/* restore the stack */
+	jmp	r1	/* this should not happen but we are prepared */
+