Hi,
On 04/01/18 10:22, Ole Streicher wrote:
> Dear MIPS specialists,
>
> I just got the "IRAF" package accepted into Debian [1]. Although the
> code is claimed to be portable, it needs a piece of assembler
> code for each platform that provides a (sort of) setjmp() to their
> Fortran variant.
>
> A "C" implementation for this looks like:
>
> #include <setjmp.h>
>
> int zsvjmp_( long *buf, long *status ) {
> *status = 0;
> ((long **)buf)[0] = status;
> return sigsetjmp ((void *)((long **)buf+1),0);
> }
>
> however this does not work, since the "sigsetjmp" call needs to be
> replaced by a jump to sigsetjmp instead.
>
> For the 32 bit platforms, I asked this already 3 years ago [2], and got
> an implementation by David Kuehling:
>
[...]
> The "zdojmp" counterpart is a portable C function.
>
> I created a small repository [3] that contains the assembler I collected
> so far as well as two test programs.
>
> However, I have no idea how to write the same for the 64-bit platform
> mips64el. Maybe someone could help me here? Preferably under the IRAF
> license [4], so that it can be included upstream later.I think the attached code will work for all MIPS variants (32-bit and 64-bit). To do this it uses some headers from glibc and therefore needs to be compiled using "gcc" instead of "as" (arguably userspace apps should never use "as" directly anyway). Thanks, James
#include <sys/asm.h>
#include <sys/regdef.h>
/*
* Copyright (c) 2018 James Cowgill <jcowgill AT debian TOD org>
* Distributable under the same license as IRAF
*/
.file "zsvjmp.s"
.text
LEAF(zsvjmp_)
SETUP_GP /* Load gp (needed for PTR_LA) */
SETUP_GP64(v0, zsvjmp_)
PTR_S a1, 0(a0) /* buf[0] = status */
LONG_S zero, 0(a1) /* *status = 0 */
PTR_ADDIU a0, a0, PTRSIZE /* a0 = &buf[1], 1st arg for sigsetjmp
*/
move a1, zero /* a1 = 0, 2nd arg */
PTR_LA t9, __sigsetjmp /* t9 = address of sigsetjmp */
RESTORE_GP64 /* Restore gp */
jr t9 /* Tail call sigsetjmp */
END(zsvjmp_)
.section .note.GNU-stack,"",@progbits
signature.asc
Description: OpenPGP digital signature
