diff options
Diffstat (limited to 'private/ntos/rtl/alpha/setjmp.s')
| -rw-r--r-- | private/ntos/rtl/alpha/setjmp.s | 148 |
1 files changed, 148 insertions, 0 deletions
diff --git a/private/ntos/rtl/alpha/setjmp.s b/private/ntos/rtl/alpha/setjmp.s new file mode 100644 index 000000000..830f9465e --- /dev/null +++ b/private/ntos/rtl/alpha/setjmp.s @@ -0,0 +1,148 @@ +// TITLE("Set Jump") +//++ +// +// Copyright (c) 1993 Microsoft Corporation +// Copyright (c) 1993 Digital Equipment Corporation +// +// Module Name: +// +// setjmp.s +// +// Abstract: +// +// This module implements the Alpha acc compiler specific routine to +// provide SAFE handling of setjmp/longjmp with respect to structured +// exception handling. +// +// N.B. This function has been replaced by setjmp/setjmpex/longjmp in the +// C runtime library. It remains here for backwards compatibility of +// Beta 2 applications expecting setjmp and longjmp to be present in +// ntdll, or for new acc compiled applications that link with ntdll +// before libc. +// +// Author: +// +// David N. Cutler (davec) 2-Apr-1993 +// +// Environment: +// +// Any mode. +// +// Revision History: +// +// Thomas Van Baak (tvb) 22-Apr-1993 +// +// Adapted for Alpha AXP. +// +//-- + +#include "ksalpha.h" + + SBTTL("Set Jump") +//++ +// +// int +// setjmp ( +// IN jmp_buf JumpBuffer +// ) +// +// Routine Description: +// +// This function implements a safe setjmp. +// +// Arguments: +// +// JumpBuffer (a0) - Supplies the address of a jump buffer to store the +// jump information. +// +// N.B. This is an array of double's to force quadword alignment. +// +// Return Value: +// +// A value of zero is returned. +// +//-- + + .struct 0 +SjRa: .space 8 // saved return address +SjS0: .space 8 // saved integer register s0 +SjFl: .space 8 // InFunction flag variable +SjEf: .space 8 // EstablisherFrame(s) structure +SjCx: .space ContextFrameLength // context frame +SetjmpFrameLength: + + NESTED_ENTRY(setjmp, SetjmpFrameLength, zero) + + lda sp, -SetjmpFrameLength(sp) // allocate stack frame + stq ra, SjRa(sp) // save return address + stq s0, SjS0(sp) // save integer register s0 + + PROLOGUE_END + +// +// Save the nonvolatile machine state. +// + + lda t0, SjCx(sp) // address of context record + + .set noreorder + .set noat + stt f2, CxFltF2(t0) // save floating registers f2 - f9 + stt f3, CxFltF3(t0) // + stt f4, CxFltF4(t0) // + stt f5, CxFltF5(t0) // + stt f6, CxFltF6(t0) // + stt f7, CxFltF7(t0) // + stt f8, CxFltF8(t0) // + stt f9, CxFltF9(t0) // + + stq s0, CxIntS0(t0) // save integer registers s0 - fp/s6 + stq s1, CxIntS1(t0) // + stq s2, CxIntS2(t0) // + stq s3, CxIntS3(t0) // + stq s4, CxIntS4(t0) // + stq s5, CxIntS5(t0) // + stq fp, CxIntFp(t0) // + .set at + .set reorder + + stq gp, CxIntGp(t0) // save integer register gp + lda v0, SetjmpFrameLength(sp) // compute stack pointer of caller + stq v0, CxIntSp(t0) // save caller stack pointer + stq ra, CxIntRa(t0) // save return address + stq ra, CxFir(t0) // save continuation address + ldil t1, 2 // get acc safe setjmp flag + stl t1, JbType(a0) // set jump buffer context type + stl ra, JbPc(a0) // save target instruction address + mov a0, s0 // preserve jump buffer address + +// +// Perform unwind to determine the virtual frame pointer of the caller. +// + + subl ra, 4, a0 // compute control PC address + bsr RtlLookupFunctionEntry // lookup function table address + + ldq a0, SjRa(sp) // get return address + subl a0, 4, a0 // compute control PC address + mov v0, a1 // set address of function entry + lda a2, SjCx(sp) // address of context record + lda a3, SjFl(sp) // set address of in function variable + lda a4, SjEf(sp) // set frame pointers address + mov zero, a5 // set context pointer array address + bsr RtlVirtualUnwind // compute virtual frame pointer value + +// +// Set return value, restore registers, deallocate stack frame, and return. +// + + ldl t0, SjEf(sp) // get virtual frame pointer + stl t0, JbFp(s0) // save virtual frame pointer address + mov zero, v0 // set return value + + ldq s0, SjS0(sp) // restore integer register s0 + ldq ra, SjRa(sp) // restore return address + lda sp, SetjmpFrameLength(sp) // deallocate stack frame + ret zero, (ra) // return + + .end setjmp |