Return to setjmp.s CVS log

Up to [Research Unix] / researchv9 / sys / sun3

Annotation of researchv9/sys/sun3/setjmp.s, revision 1.1

1.1     ! root        1:        .data
        !             2:        .asciz  "@(#)setjmp.s 1.1 86/02/03 Copyr 1984 Sun Micro"
        !             3:        .even
        !             4:        .text
        !             5: 
        !             6: |      Copyright (c) 1984 by Sun Microsystems, Inc.
        !             7: 
        !             8: #include "../machine/asm_linkage.h"
        !             9: 
        !            10: | Longjmp and setjmp implement non-local gotos
        !            11: | using state vectors of type label_t (13 longs).
        !            12: | Registers saved are the PC, d2-d7, and a2-a7.
        !            13: SAVREGS = 0xFCFC
        !            14: 
        !            15:        ENTRY(setjmp)
        !            16:        movl    sp@(4),a1               | get label_t address
        !            17:        moveml  #SAVREGS,a1@(4)         | save data/address regs
        !            18:        movl    sp@,a1@                 | save PC of caller
        !            19:        clrl    d0                      | return zero
        !            20:        rts
        !            21: 
        !            22:        ENTRY(longjmp)
        !            23:        movl    sp@(4),a1               | get label_t address
        !            24:        moveml  a1@(4),#SAVREGS         | restore data/address regs
        !            25: | Note: we just changed stacks
        !            26:        movl    a1@,sp@                 | restore PC
        !            27:        movl    #1,d0                   | return one
        !            28:        rts     
        !            29: 
        !            30: | syscall_setjmp just saves a6 and sp
        !            31: | it is called from syscall, where speed is important
        !            32: 
        !            33:        ENTRY(syscall_setjmp)
        !            34:        movl    sp@(4),a1               | get label_t address
        !            35:        movl    a6,a1@(4+(10*4))        | save a6
        !            36:        movl    sp,a1@(4+(11*4))        | save sp
        !            37:        movl    sp@,a1@                 | save PC of caller
        !            38:        clrl    d0                      | return zero
        !            39:        rts

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.