Branch: Tag:

2003-04-02

2003-04-02 20:55:03 by Martin Stjernholm <mast@lysator.liu.se>

Something is seriously wrong if there's a module program still around in
free_dynamic_load.

Rev: src/dynamic_load.c:1.68

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: dynamic_load.c,v 1.67 2002/10/30 14:45:50 grubba Exp $ + || $Id: dynamic_load.c,v 1.68 2003/04/02 20:55:03 mast Exp $   */      #ifdef TESTING
24:   # include "language.h"   # include "lex.h"    - RCSID("$Id: dynamic_load.c,v 1.67 2002/10/30 14:45:50 grubba Exp $"); + RCSID("$Id: dynamic_load.c,v 1.68 2003/04/02 20:55:03 mast Exp $");      #else /* TESTING */   
545: Inside #if defined(USE_DYNAMIC_MODULES) and #if undefined(DEBUG_MALLOC)
  #ifndef DEBUG_MALLOC    dlclose(tmp->module);   #endif -  if (tmp->module_prog) free_program(tmp->module_prog); + #ifdef PIKE_DEBUG +  if (tmp->module_prog) +  Pike_fatal ("There's still a program for a dynamic module.\n"); + #endif    free((char *)tmp);    }   #endif