/* Copyright (C) 1992 by Thomas Glen Smith.  All Rights Reserved. */
/* aplfree APL2 V1.0.0 *************************************************
* APL interface to free. Expedites debugging.                          *
***********************************************************************/
#define TGS_DEBUG 0
#define INCLUDES APLDEBUG+STDIO
#include "includes.h" 
#if APL_DEBUG
#define free mem_free
#endif
void aplfree(addr)
void *addr; /* pointer to storage to free */
{
#if APL_DEBUG
static int bugcnt=0;
void mem_check(void);
mem_check();
#if TGS_DEBUG
     if (
     addr == (void *)0x62490020
     ){
     	++bugcnt;
		printf("bug found in aplfree, bugcnt=%d\n",bugcnt);
          if (bugcnt == 1)
          	printf("big bug, aplfree\n");
     }
#endif
#endif
     free(addr);
}