usr/src/usr.bin/pascal/pdx/tahoe/cerror.s

# Copyright (c) 1987 The Regents of the University of California.
# All rights reserved.
#
# %sccs.include.redist.sh%
#
#       @(#)cerror.s    5.2 (Berkeley) %G%
#

# modified version of cerror
#
# The idea is that every time an error occurs in a system call
# I want a special function "syserr" called.  This function will
# either print a message and exit or do nothing depending on
# defaults and use of "onsyserr".
#

.globl  cerror
.comm   _errno,4

cerror:
        movl    r0,_errno
        callf   $4,_syserr      # new code
        mnegl   $1,r0
        ret