pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2002-11-14
2002-11-14 15:28:58 by Marcus Comstedt <marcus@mc.pp.se>
1c0c614bbc4096df1876a50634ff74afa922adb6 (
14
lines) (+
12
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Added --assembler-debug option.
Rev: bin/test_pike.pike:1.75
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
74
2002/
10
/
09
02
:
16
:
19
nilsson
Exp $ */
+
/* $Id: test_pike.pike,v 1.
75
2002/
11
/
14
15
:
28
:
58
marcus
Exp $ */
import Stdio;
225:
int main(int argc, array(string) argv) {
-
int e, verbose, prompt, successes, errors, t, check;
+
int e, verbose, prompt, successes, errors, t, check
, asmdebug
;
int skipped; array(string) tests; program testprogram;
273:
({"loop",Getopt.HAS_ARG,({"-l","--loop"})}), ({"trace",Getopt.HAS_ARG,({"-t","--trace"})}), ({"check",Getopt.MAY_HAVE_ARG,({"-c","--check"})}),
+
#if constant(_assembler_debug)
+
({"asm",Getopt.MAY_HAVE_ARG,({"--assembler-debug"})}),
+
#endif
({"mem",Getopt.NO_ARG,({"-m","--mem","--memory"})}), ({"auto",Getopt.NO_ARG,({"-a","--auto"})}), ({"notty",Getopt.NO_ARG,({"-T","--notty"})}),
308:
case "loop": loop=foo(opt[1]); break; case "trace": t+=foo(opt[1]); break; case "check": check+=foo(opt[1]); break;
+
case "asm": asmdebug+=foo(opt[1]); break;
case "mem": mem=1; break; case "auto":
376:
exit(1); }
+
#if constant(_assembler_debug)
+
if(asmdebug)
+
_assembler_debug(asmdebug);
+
#endif
+
while(loop--) { successes=errors=0;