pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2001-06-23
2001-06-23 21:52:43 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
82ad8dd23c7461e417ba76119fc9e153017c9504 (
13
lines) (+
12
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
test #pragma save_parent
Rev: bin/test_pike.pike:1.55
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
54
2001/
02
/
21
16
:
31
:43
mirar
Exp $ */
+
/* $Id: test_pike.pike,v 1.
55
2001/
06
/
23
21:
52
:43
hubbe
Exp $ */
import Stdio;
488:
string to_compile = test + linetester + widener;
+
if((shift/6)&1)
+
{
+
fname+=" (save parent)";
+
to_compile=
+
"#pragma save_parent\n"
+
"# 1\n"
+
+to_compile;
+
}
+
if((shift/3)&1) { fname+=" (CRNL)"; to_compile=replace(to_compile,"\n","\r\n"); }
-
+
// _optimizer_debug(5); if(verbose>9) bzot(to_compile);