1997-04-10
1997-04-10 11:33:46 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
5d0e2145814eb2b416803f537460867137701aaa
(22 lines)
(+21/-1)
[
Show
| Annotate
]
Branch: 7.9
more debug added
Rev: src/program.c:1.30
4:
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
- RCSID("$Id: program.c,v 1.29 1997/03/23 22:23:52 hubbe Exp $");
+ RCSID("$Id: program.c,v 1.30 1997/04/10 11:33:46 hubbe Exp $");
#include "program.h"
#include "object.h"
#include "dynamic_buffer.h"
1581: Inside #if defined(DEBUG)
struct program *p;
for(p=first_program;p;p=p->next)
check_program(p);
+
+ #ifdef FIND_FUNCTION_HASHSIZE
+ {
+ unsigned long e;
+ for(e=0;e<FIND_FUNCTION_HASHSIZE;e++)
+ {
+ if(cache[e].name)
+ {
+ check_string(cache[e].name);
+ if(cache[e].id<0 || cache[e].id > current_program_id)
+ fatal("Error in find_function_cache[%d].id\n",e);
+
+ if(fun < -1 || fun > 65536)
+ fatal("Error in find_function_cache[%d].name\n",e);
}
-
+ }
+ }
#endif
-
+ }
+ #endif
+
void cleanup_program()
{
#ifdef FIND_FUNCTION_HASHSIZE