pike.git/ bin/ test_pike.pike

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)    {