Return to setjmp.s CVS log

Up to [Research Unix] / researchv10no / sys / ml

Annotation of researchv10no/sys/ml/setjmp.s, revision 1.1.1.1

1.1       root        1: 
                      2: /*
                      3:  * non-local goto's
                      4:  */
                      5: 
                      6: /*
                      7:  * the microvax constantly updates the ksp in the pcb block so
                      8:  * we can't trust a ldpctx to get the right sp for longjmps
                      9:  */
                     10:        .text
                     11: 
                     12:        .set    PCLOC,16        # location of pc in calls frame
                     13:        .set    APLOC,8         # location of ap,fp in calls frame
                     14: 
                     15:        .globl  _Longjmp
                     16: _Longjmp:
                     17:        movl    (r0)+,newfp     # must save parameters in memory as all
                     18:        movl    (r0),newpc      # registers may be clobbered.
                     19: 1:
                     20:        cmpl    fp,newfp        # are we there yet?
                     21:        bgequ   2f              # yes
                     22:        moval   1b,PCLOC(fp)    # redirect return pc to us!
                     23:        ret                     # pop next frame
                     24: 2:
                     25:        beql    3f              # did we miss our frame?
                     26:        pushab  4f              # yep ?!?
                     27:        calls   $1,_panic
                     28: 3:
                     29:        movl    newpc,r0        # all done, just return to the `setjmp'
                     30:        jmp     (r0)            # ``rsb''
                     31: 
                     32:        .data
                     33: newpc: .space  4
                     34: newfp: .space  4
                     35: 4:     .asciz  "longjmp"
                     36:        .text
                     37: /*
                     38:  * setjmp that saves all registers as the call frame may not
                     39:  * be available to recover them in the usual mannor by longjmp.
                     40:  * Called before swapping out the u. area, restored by resume()
                     41:  * below.
                     42:  */
                     43: 
                     44:        .globl  _savectx
                     45:        .align  1
                     46: _savectx:
                     47:        .word   0
                     48:        movl    4(ap),r0
                     49:        movq    r6,(r0)+
                     50:        movq    r8,(r0)+
                     51:        movq    r10,(r0)+
                     52:        movq    APLOC(fp),(r0)+ # save ap, fp
                     53:        addl3   $8,ap,(r0)+     # save sp
                     54:        movl    PCLOC(fp),(r0)  # save pc
                     55:        clrl    r0
                     56:        ret

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