1#!/bin/csh -f 2# 3# Copyright (c) 1983 Regents of the University of California. 4# All rights reserved. The Berkeley software License Agreement 5# specifies the terms and conditions for redistribution. 6# 7# @(#)cerror.vax.s 5.1 (Berkeley) 05/31/85 8# 9# static char rcsid[] = "$Header: cerror.s,v 1.5 84/12/26 10:38:33 linton Exp $"; 10# 11# modified version of cerror 12# 13# The idea is that every time an error occurs in a system call 14# I want a special function "syserr" called. This function will 15# either print a message and exit or do nothing depending on 16# defaults and use of "onsyserr". 17# 18 19.globl cerror 20.comm _errno,4 21 22cerror: 23 movl r0,_errno 24 calls $0,_syserr # new code 25 mnegl $1,r0 26 ret 27 28.globl __mycerror # clumsy way to get this loaded 29 30__mycerror: 31 .word 0 32 ret 33