/* Copyright (C) 1992 by Thomas Glen Smith.	All Rights Reserved. */
/* errinit APL2 V1.0.0 *************************************************
* Errinit is called to reset error indicators for arithmetic operations*
* and math functions.  These are not standardized by Kernighan &		 *
* Ritchie, so they may vary from one C compiler to the next.  This	 *
* subroutine was written for the ZORTECH C++ compiler.				 *
***********************************************************************/
#define INCLUDES APLDEBUG+ERRNO
#include "includes.h"
int errinit()
{
	extern int aplerr;

#if APL_DEBUG
void mem_check(void);
mem_check();
#endif
	errno=0;
	return(aplerr);
}