PDP-10 Archive: c/lib5/ljerr.c from SRI_NIC_PERM_FS_1

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/lib5/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()
{
    write(2, LONGJMPERRMSG, sizeof(LONGJMPERRMSG)-1);
}