pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2000-10-08
2000-10-08 18:21:31 by Henrik Grubbström (Grubba) <grubba@grubba.org>
1ab679d26b37a4031499798a07667edb61a33e9f (
11
lines) (+
9
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Some more debug.
Rev: bin/test_pike.pike:1.52
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
51
2000/
07
/
28
00
:
35
:
50
nilsson
Exp $ */
+
/* $Id: test_pike.pike,v 1.
52
2000/
10
/
08
18
:
21
:
31
grubba
Exp $ */
import Stdio;
337:
tmp=read_bytes(argv[f]); if(!tmp) {
-
werror("Failed to read test file, errno=
"+errno()+"
.\n");
+
werror("Failed to read test file
%O
, errno=
%d
.\n"
,
+
argv[f], errno(
)
)
;
exit(1); }
493:
to_compile=replace(to_compile,"\n","\r\n"); }
+
// _optimizer_debug(5);
+
if(verbose>9) bzot(to_compile); switch(type) {
565:
_dmalloc_set_name(fname,1); if(functionp(o->a)) {
+
// trace(10);
at = gauge { a=o->a(); };
-
+
// trace(0);
} if(functionp(o->b))
579:
if(check > 1) _verify_internals(); }) {
+
// trace(0);
werror(fname + " failed.\n"); bzot(test); if (arrayp(err) && sizeof(err) && stringp(err[0])) {