pike.git / bin / test_pike.pike

version» Context lines:

pike.git/bin/test_pike.pike: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;      #if !constant(_verify_internals)   #define _verify_internals()   #endif      #if !constant(_dmalloc_set_name)   void _dmalloc_set_name(mixed ... args) {}   #endif
pike.git/bin/test_pike.pike:488:    computed_line=0;    break;    }    }    string linetester="int __cpp_line=__LINE__; int __rtl_line=[int]backtrace()[-1][1];\n";       string to_compile = test + linetester + widener;       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)    {    fname+=" (CRNL)";    to_compile=replace(to_compile,"\n","\r\n");    }          // _optimizer_debug(5);