xref: /csrg-svn/usr.bin/pascal/pdx/tahoe/cerror.s (revision 30831)
  • Home
  • History
  • Annotate Annotate
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1*30831Smckusick#
2*30831Smckusick# Copyright (c) 1987 Regents of the University of California.
3*30831Smckusick# All rights reserved.  The Berkeley software License Agreement
4*30831Smckusick# specifies the terms and conditions for redistribution.
5*30831Smckusick#
6*30831Smckusick#	@(#)cerror.s	5.1 (Berkeley) 04/07/87
7*30831Smckusick#
8*30831Smckusick# modified version of cerror
9*30831Smckusick#
10*30831Smckusick# The idea is that every time an error occurs in a system call
11*30831Smckusick# I want a special function "syserr" called.  This function will
12*30831Smckusick# either print a message and exit or do nothing depending on
13*30831Smckusick# defaults and use of "onsyserr".
14*30831Smckusick#
15*30831Smckusick
16*30831Smckusick.globl	cerror
17*30831Smckusick.comm	_errno,4
18*30831Smckusick
19*30831Smckusickcerror:
20*30831Smckusick	movl	r0,_errno
21*30831Smckusick	callf	$4,_syserr	# new code
22*30831Smckusick	mnegl	$1,r0
23*30831Smckusick	ret
24

served by {OpenGrok

Last Index Update: Wed Jan 29 22:40:09 GMT 2025