pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2001-12-17
2001-12-17 11:47:46 by Henrik Grubbström (Grubba) <grubba@grubba.org>
acd163713cfe1055c4d0f3a2f6c814bf56a78417 (
19
lines) (+
13
/-
6
)
[
Show
|
Annotate
]
Branch:
7.9
Don't index __default if it doesn't exist.
Rev: lib/master.pike.in:1.183
1:
/* -*- Pike -*- *
-
* $Id: master.pike.in,v 1.
182
2001/12/
16
04
:
03
:
58
mast
Exp $
+
* $Id: master.pike.in,v 1.
183
2001/12/
17
11
:
47
:
46
grubba
Exp $
* * Master-file for Pike. *
833:
void create(string d, object|void h) {
+
#ifdef MODULE_TRACE
+
werror("%*ndirnode(%O,%O);\n",sizeof(backtrace())-1,d,h);
+
_verify_internals();
+
// werror(describe_backtrace( ({"HERE\n",backtrace()})));
+
#endif
dirname=d; handler=h; fc[dirname]=this_object(); if(dirname[sizeof(dirname)-5..]==".pmod") fc[dirname[..sizeof(dirname)-6]]=this_object();
-
#ifdef MODULE_TRACE
-
werror("%*ndirnode(%O,%O);\n",sizeof(backtrace())-1,dirname,h);
-
// werror(describe_backtrace( ({"HERE\n",backtrace()})));
-
#endif
+
} class module_checker
1162:
} else { path = combine_path_with_cwd(what); }
+
#ifdef MODULE_TRACE
+
werror("%*nhandle_import(%O, %O, %O)\n",
+
sizeof(backtrace()), what, current_file, handler);
+
#endif /* MODULE_TRACE */
if (handler) { return dirnode(path, handler); }
1290:
mixed x; mixed err =catch {
-
if(x=resolv("__default.all_constants")) x=x();
+
if(
resolv("__default") && (
x=resolv("__default.all_constants"))
)
+
x=x();
}; compat_major=saved_compat_major;