Subversion Repositories scarts

/* Setjmp and longjmp for mmix.

   Copyright (C) 2001 Hans-Peter Nilsson

   Permission to use, copy, modify, and distribute this software is
   freely granted, provided that the above copyright notice, this notice
   and the following disclaimer are preserved with no changes.

   THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
   PURPOSE.

   jmp_buf[5]:
   0:   fp
   1:   rJ (return-address)
   2:   sp
   3:   rO *before* the setjmp call.
   4:   temporary storage.  Reserved between setjmp and longjmp.  */

#ifdef __MMIX_ABI_GNU__
#define arg1 $231
#define arg2 $232
#define outret $231
#define popval 0
#else
#define arg1 $0
#define arg2 $1
#define outret $0
#define popval 1
#endif

        .section .text.setjmp,"ax",@progbits
        .global setjmp
setjmp:
% Store fp, sp and return address.  Recycle the static-chain and
% structure-return registers as temporary register, since we need to keep
% the jmp_buf (parameter 1) and the return address across a "POP".
        SET  $251,arg1
        STOU $253,$251,0
        GET  $252,rJ
        STOU $252,$251,8
        STOU $254,$251,16
        SETL outret,0

% Jump through hoops to get the value of rO *before* the setjmp call.
        GETA $255,0f
        PUT  rJ,$255
        POP  popval,0
0:
        GET  $255,rO
        STOU $255,$251,24
        GO   $255,$252,0
        .size setjmp,.-setjmp

        .section .text.longjmp,"ax",@progbits
        .global longjmp
longjmp:
% Reset arg2 to 1 if it is 0 (see longjmp(2)) and store it in jmp_buf.
% Save arg1 in a global register, since it will be destroyed by the POPs
% (in the mmixware ABI).
        CSZ  arg2,arg2,1
        STOU arg2,arg1,32
        SET  $251,arg1

% Loop and "POP 0,0" until rO is the expected value, like
% the expansion of nonlocal_goto_receiver, except that we put the return
% value in the right register and make sure that the POP causes it to
% enter the right return-value register as seen by the caller.  For the
% GNU ABI, it is unnecessary to do this in the loop and perhaps the memory
% access can be hoisted outside the loop, but this is safe and simple and
% I see no need to optimize longjmps.
        GETA $255,0f
        PUT  rJ,$255
        LDOU $255,$251,24
0:
        GET  $252,rO
        CMPU $252,$252,$255
        BNP  $252,1f
        LDOU outret,$251,32
        POP  popval,0
1:
        LDOU $253,$251,0
        LDOU $255,$251,8
        LDOU $254,$251,16
        GO   $255,$255,0
        .size longjmp,.-longjmp