facilitate debugging

Rev: src/module.c:1.11
Rev: src/program_id.h:1.4

src/module.c

@@ -14,10 +14,11 @@
 #include "stralloc.h"
 #include "object.h"
 #include "mapping.h"
+#include "program_id.h"
 
 #include "modules/modlist_headers.h"
 
-RCSID("$Id: module.c,v 1.10 1999/02/10 21:46:44 hubbe Exp $");
+RCSID("$Id: module.c,v 1.11 2000/07/07 02:38:08 hubbe Exp $");
 
 typedef void (*modfun)(void);
 
@@ -40,6 +41,7 @@ void init_modules(void)
   unsigned int e;
 
   start_new_program();
+  Pike_compiler->new_program->id=PROG___BUILTIN_ID;
 
   for(e=0;e<NELEM(module_list);e++)
   {

src/program_id.h

@@ -31,5 +31,10 @@
 #define tObjImpl_PARSER_HTML                  "\003\000\000\000\000\010"
 #define   tObjIs_PARSER_HTML                  "\003\001\000\000\000\010"
 
+#define     PROG___BUILTIN_ID                                       011
+#define tObjImpl___BUILTIN                    "\003\000\000\000\000\011"
+#define   tObjIs___BUILTIN                    "\003\001\000\000\000\011"
+
+
 
 #endif