michael@0: # -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
michael@0: # 
michael@0: # This Source Code Form is subject to the terms of the Mozilla Public
michael@0: # License, v. 2.0. If a copy of the MPL was not distributed with this
michael@0: # file, You can obtain one at http://mozilla.org/MPL/2.0/.
michael@0: 
michael@0: .set r0,0; .set SP,1; .set RTOC,2; .set r3,3; .set r4,4
michael@0: .set r5,5; .set r6,6; .set r7,7; .set r8,8; .set r9,9
michael@0: .set r10,10; .set r11,11; .set r12,12; .set r13,13; .set r14,14
michael@0: .set r15,15; .set r16,16; .set r17,17; .set r18,18; .set r19,19
michael@0: .set r20,20; .set r21,21; .set r22,22; .set r23,23; .set r24,24
michael@0: .set r25,25; .set r26,26; .set r27,27; .set r28,28; .set r29,29
michael@0: .set r30,30; .set r31,31
michael@0: 
michael@0: 
michael@0:         .rename H.10.NO_SYMBOL{PR},""
michael@0:         .rename H.18.longjmp{TC},"longjmp"
michael@0: 
michael@0:         .lglobl H.10.NO_SYMBOL{PR}
michael@0:         .globl  .longjmp
michael@0:         .globl  longjmp{DS}
michael@0:         .extern .sigcleanup
michael@0:         .extern .jmprestfpr
michael@0: 
michael@0: # .text section
michael@0: 
michael@0:         .csect  H.10.NO_SYMBOL{PR}
michael@0: .longjmp:
michael@0:          mr   r13,r3
michael@0:          mr   r14,r4
michael@0:         stu   SP,-56(SP)
michael@0:          bl   .sigcleanup
michael@0:           l   RTOC,0x14(SP)
michael@0:         cal   SP,0x38(SP)
michael@0:          mr   r3,r13
michael@0:          mr   r4,r14
michael@0:           l   r5,0x8(r3)
michael@0:           l   SP,0xc(r3)
michael@0:           l   r7,0xf8(r3)
michael@0:          st   r7,0x0(SP)
michael@0:           l   RTOC,0x10(r3)
michael@0:          bl   .jmprestfpr
michael@0: # 1 == cr0 in disassembly
michael@0:        cmpi   1,r4,0x0  
michael@0:        mtlr   r5
michael@0:          lm   r13,0x14(r3)
michael@0:           l   r5,0x60(r3)
michael@0:       mtcrf   0x38,r5
michael@0:          mr   r3,r4
michael@0:         bne   __L1
michael@0:         lil   r3,0x1
michael@0: __L1:
michael@0:          br
michael@0: 
michael@0: # traceback table
michael@0:         .long   0x00000000
michael@0:         .byte   0x00                    # VERSION=0
michael@0:         .byte   0x00                    # LANG=TB_C
michael@0:         .byte   0x20                    # IS_GL=0,IS_EPROL=0,HAS_TBOFF=1
michael@0:                                         # INT_PROC=0,HAS_CTL=0,TOCLESS=0
michael@0:                                         # FP_PRESENT=0,LOG_ABORT=0
michael@0:         .byte   0x40                    # INT_HNDL=0,NAME_PRESENT=1
michael@0:                                         # USES_ALLOCA=0,CL_DIS_INV=WALK_ONCOND
michael@0:                                         # SAVES_CR=0,SAVES_LR=0
michael@0:         .byte   0x80                    # STORES_BC=1,FPR_SAVED=0
michael@0:         .byte   0x00                    # GPR_SAVED=0
michael@0:         .byte   0x02                    # FIXEDPARMS=2
michael@0:         .byte   0x01                    # FLOATPARMS=0,PARMSONSTK=1
michael@0:         .long   0x00000000              #
michael@0:         .long   0x00000014              # TB_OFFSET
michael@0:         .short  7                       # NAME_LEN
michael@0:         .byte   "longjmp"
michael@0:         .byte   0                       # padding
michael@0:         .byte   0                       # padding
michael@0:         .byte   0                       # padding
michael@0: # End of traceback table
michael@0:         .long   0x00000000              # "\0\0\0\0"
michael@0: 
michael@0: # .data section
michael@0: 
michael@0:         .toc                            # 0x00000038
michael@0: T.18.longjmp:
michael@0:         .tc     H.18.longjmp{TC},longjmp{DS}
michael@0: 
michael@0:         .csect  longjmp{DS}
michael@0:         .long   .longjmp                # "\0\0\0\0"
michael@0:         .long   TOC{TC0}                # "\0\0\0008"
michael@0:         .long   0x00000000              # "\0\0\0\0"
michael@0: # End   csect   longjmp{DS}
michael@0: 
michael@0: # .bss section