[unix-history] / usr / src / old / dbx / cerror.tahoe.s

#
# Copyright (c) 1985 Regents of the University of California.
# All rights reserved.  The Berkeley software License Agreement
# specifies the terms and conditions for redistribution.
#
#	@(#)cerror.tahoe.s	5.1 (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	$0,_syserr	# new code
	mnegl	$1,r0
	ret

.globl	__mycerror		# clumsy way to get this loaded

__mycerror:
	.word	0
	ret
Commit	Line	Data
2265b224 SL	1	#
	2	# Copyright (c) 1985 Regents of the University of California.
	3	# All rights reserved. The Berkeley software License Agreement
	4	# specifies the terms and conditions for redistribution.
	5	#
acb2acd8	6	# @(#)cerror.tahoe.s 5.1 (Berkeley) %G%
2265b224 SL	7	#
	8	#
	9	# modified version of cerror
	10	#
	11	# The idea is that every time an error occurs in a system call
	12	# I want a special function "syserr" called. This function will
	13	# either print a message and exit or do nothing depending on
	14	# defaults and use of "onsyserr".
	15	#
	16
	17	.globl cerror
	18	.comm _errno,4
	19
	20	cerror:
	21	movl r0,_errno
	22	callf $0,_syserr # new code
	23	mnegl $1,r0
	24	ret
	25
	26	.globl __mycerror # clumsy way to get this loaded
	27
	28	__mycerror:
	29	.word 0
	30	ret