|
|
1.1 root 1: # Copyright (c) 1979 Regents of the University of California
2: #
3: # sccsid[] = "@(#)SETRACE.s 1.1 10/29/80";
4: #
5: # set trace bit in return frame of calling routine
6: # this will cause core dump at point of return
7: # unless running a debugger, in which case a breakpoint
8: # will occur at the error point
9: #
10: .globl _SETRACE
11: _SETRACE:
12: .word 0
13: movl FP(fp),r0 #r0 has ptr to callers frame
14: bisl2 $0x10,PSW(r0) #set trace bit
15: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.