pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2001-07-05
2001-07-05 22:22:38 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
b9836bdedd75a732e00efc8c1f8f94348f1d4c60 (
16
lines) (+
10
/-
6
)
[
Show
|
Annotate
]
Branch:
7.9
don't save parent if not wanted...
Rev: bin/test_pike.pike:1.57
Rev: src/testsuite.in:1.442
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
56
2001/
06
/
27
16
:
09
:
17
hubbe Exp $ */
+
/* $Id: test_pike.pike,v 1.
57
2001/
07
/
05
22
:
21
:
00
hubbe Exp $ */
import Stdio;
495:
if((shift/6)&1) {
+
if(search("don't save parent",to_compile) != -1)
+
{
fname+=" (save parent)"; to_compile= "#pragma save_parent\n" "# 1\n" +to_compile; }
-
+
}
if((shift/3)&1) {