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.44 2000/03/31 22:29:43 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.45 2000/04/01 02:08:38 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:432:    string widener = ([ 0:"",    1:"\nint \x30c6\x30b9\x30c8=0;\n",    2:"\nint \x10001=0;\n" ])[shift%3];       // widener += "#pragma strict_types\n";       if(test[-1]!='\n') test+="\n";       int computed_line=sizeof(test/"\n");    array gnapp= test/"#"; -  for(int e=0;e<sizeof(gnapp);e++) +  for(int e=1;e<sizeof(gnapp);e++)    {    if(sscanf(gnapp[e],"%*d"))    {    computed_line=0;    break;    }    }    string linetester="int __cpp_line=__LINE__; int __rtl_line=[int]backtrace()[-1][1];\n";       string to_compile = test + linetester + widener;