pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2000-04-05
2000-04-05 20:33:16 by Henrik Grubbström (Grubba) <grubba@grubba.org>
61bc3de51d1a8af9f4302b528135866a955af406 (
15
lines) (+
13
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Now survives the cond tests not compiling/throwing errors.
Rev: bin/test_pike.pike:1.46
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
45
2000/04/
01
02
:
08
:
38
hubbe
Exp $ */
+
/* $Id: test_pike.pike,v 1.
46
2000/04/
05
20
:
33
:
16
grubba
Exp $ */
import Stdio;
367:
int tmp; if(!(tmp=cond_cache[condition])) {
-
tmp=!!(
clone(
compile_string("mixed c() { return "+condition+"; }","Cond "+(e+1)))->c());
+
mixed err;
+
if (err = catch {
+
tmp=!!(compile_string("mixed c() { return "+condition+"; }",
+
"Cond "+(e+1))
(
)->c());
+
}) {
+
werror(sprintf("\nConditional %d failed:\n"
+
"%s\n",
+
e+1, describe_backtrace(err)));
+
errors++;
+
tmp = -1;
+
}
if(!tmp) tmp=-1; cond_cache[condition]=tmp; }