Return to GOTO.s CVS log

Up to [CSRG BSD Unix] / 40BSD / lib / libpc

Annotation of 40BSD/lib/libpc/GOTO.s, revision 1.1

1.1     ! root        1: # Copyright (c) 1979 Regents of the University of California
        !             2: #
        !             3: # sccsid[] = "@(#)GOTO.s 1.1 10/29/80";
        !             4: #
        !             5:        .data
        !             6: jmplbl:
        !             7:        .long   0
        !             8: frame:
        !             9:        .long   0
        !            10:        .text
        !            11: 
        !            12:        .globl  _GOTO
        !            13:        .align  1
        !            14: _GOTO:
        !            15:        .word   0
        !            16:        movl    *4(ap),frame    #save parameters
        !            17:        movl    PC(fp),jmplbl
        !            18:        moval   unwind,PC(fp)   #begin unwinding
        !            19:        ret
        !            20: unwind:
        !            21:        tstl    (fp)            #check for exception vector
        !            22:        bneq    L1
        !            23:        cmpl    ap,__disply+8   #check for past global procedure
        !            24:        bgequ   egoto
        !            25:        moval   unwind,PC(fp)   #blow away this stack frame
        !            26:        ret
        !            27: L1:
        !            28:        cmpl    ap,frame        #check for requested frame
        !            29:        bgtru   egoto           #lost it somewhere
        !            30:        blssu   L2              #not there yet
        !            31:        jmp     *jmplbl         #proceed in this section
        !            32: L2:
        !            33:        pushl   -4(fp)          #level of this frame
        !            34:        calls   $1,*(fp)        #call the exception handler
        !            35:        movq    -12(fp),*-4(fp) #restore the display
        !            36:        moval   unwind,PC(fp)   #blow away this stack frame
        !            37:        ret
        !            38: egoto:
        !            39:        pushl   $EGOTO
        !            40:        calls   $1,_ERROR
        !            41:        ret

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