PDP-10 Archive: kcc-6/lib/gen/ljerr.c from SRI_NIC_PERM_FS_1

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - kcc-6/lib/gen/ljerr.c

There are 5 other files named ljerr.c in the archive. Click here to see a list.

/* LONGJMPERROR - Give error message for longjmp problems.
**
**	Copyright (c) 1987 by Ken Harrenstien, SRI International.
**
**	This is called by longjmp() whenever it detects that the jmp_buf
** contents have been trashed or it is about to make the stack bigger
** rather than smaller (implication is that the caller of setjmp() has
** already returned).
**	It is a separate routine in the library so that users can
** substitute their own function if desired.
*/

#include <setjmp.h>

#ifndef LONGJMPERRMSG
#define LONGJMPERRMSG "longjmp botch"
#endif

void
longjmperror()
{
    extern int write();		/* Syscall */

    write(2, LONGJMPERRMSG, sizeof(LONGJMPERRMSG)-1);
}