/*
 * POPstar: Acorn POP3 client / SMTP sender
 * Leak checker
 *
 *  Joseph Heenan, 1996-8
 *  Darren Salt, 2003-4
 *
 * $Id: leakcheck,v 1.5 2001/04/01 15:30:15 joseph Exp $
 *
 */


#include "syslog.h"
#include "wimplib.h"

#include "leakcheck.h"

#ifdef DEBUG

static int leak_slotsize = 0;

void leak__check( char *file, int line )
{
  int cur, next, free;

  wimp_slot_size( -1, -1, &cur, &next, &free );

  if ( cur == leak_slotsize ) return;

  xsyslogf( "POPstarL", 200, "Slot size grew from %d to %d at %s, line %d\n", leak_slotsize, cur, file, line );

  leak_slotsize = cur;
  wimp_slot_size( -1, -1, &cur, &next, &free );

  if ( leak_slotsize != cur )
    xsyslogf( "POPstarL", 200, "Erk! Slot size grew from %d to %d at %s, line %d",
                   leak_slotsize, cur, __FILE__, __LINE__ );
}

#endif
