Return to signal.s CVS log

Up to [CSRG BSD Unix] / 41BSD / lib / libjobs

Annotation of 41BSD/lib/libjobs/signal.s, revision 1.1

1.1     ! root        1: # C library -- sigsys
        !             2: 
        !             3: # sigsys(n, SIG_DFL);          /* default action on signal(n) */
        !             4: # sigsys(n, SIG_HOLD);         /* block signal temporarily */
        !             5: # sigsys(n, SIG_IGN);          /* ignore signal(n) */
        !             6: # sigsys(n, label);            /* goto label on signal(n) */
        !             7: # sigsys(n, DEFERSIG(label));  /* goto label with signal SIG_HOLD */
        !             8: 
        !             9: # returns old label, only one level.
        !            10: 
        !            11:        .set    SIGDORTI,0x200
        !            12: 
        !            13:        .set    signal,48
        !            14: .globl _sigsys
        !            15: .globl  cerror
        !            16: 
        !            17:        .align  1
        !            18: _sigsys:
        !            19:        .word   0x0000
        !            20:        chmk    $signal
        !            21:        bcc     noerror
        !            22:        jmp     cerror
        !            23: noerror:
        !            24:        ret
        !            25: 
        !            26: #
        !            27: # sigpeel(n, newact)
        !            28: #
        !            29: # when called from routine which was called by system, peels
        !            30: # back frames to the last one, then calls the system to reenable
        !            31: # the signal with newact, arranging to clean the stack before the
        !            32: # signal can happen again
        !            33: #
        !            34: .globl _sigpeel
        !            35:        .align  1
        !            36: _sigpeel:
        !            37:        .word   0x0000
        !            38:        .set    RETOFF,16       # offset of return address in frame
        !            39: # get signal number value to set
        !            40:        movl    4(ap),r0
        !            41:        movl    8(ap),r1
        !            42:        movab   unw1,RETOFF(fp)
        !            43:        ret                     # peel off our frame
        !            44: # top frame is now frame of routine signal action called
        !            45: unw1:
        !            46:        movab   unw2,RETOFF(fp)
        !            47:        ret
        !            48: # now frame from callg of ``locore.s/sigcode()'' is gone
        !            49: # if no value to set, can just ret now to go back to old code
        !            50: # with an ret->rei, else must make the frame passed to us into a
        !            51: # signal call frame by putting the new signal code in the
        !            52: # second word, and call the kernel which will pop off the frame.
        !            53: unw2:
        !            54:        tstl    r1
        !            55:        bneq    unw3
        !            56:        ret                     # easy
        !            57: # mark dorti wanted, and reenable signal
        !            58: unw3:
        !            59:        bisl3   $SIGDORTI,r0,4(ap)
        !            60: ###    movl    r0,4(ap)        ### for testing on old system
        !            61:        movl    r1,8(ap)
        !            62:        chmk    $signal
        !            63:        halt                    # can't happen
        !            64: 
        !            65: ### for testing on old system
        !            66: ###    ret                     # and then rei, natch

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