pike.git / bin / test_pike.pike

version» Context lines:

pike.git/bin/test_pike.pike:1:   #! /usr/bin/env pike    - /* $Id: test_pike.pike,v 1.89 2003/08/14 15:49:11 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.90 2003/10/13 15:23:50 grubba Exp $ */      #if !constant(_verify_internals)   #define _verify_internals()   #endif      #if !constant(_dmalloc_set_name)   void _dmalloc_set_name(mixed ... args) {}   #endif      int foo(string opt)
pike.git/bin/test_pike.pike:205:    int e, verbose, prompt, successes, errors, t, check, asmdebug;    int skipped;    array(string) tests;    program testprogram;    int start, fail, mem;    int loop=1;    int end=0x7fffffff;    string extra_info="";    int shift;    + #if constant(System.getrlimit) +  // Attempt to enable coredumps. +  // Many Linux distributions default to having coredumps disabled. +  catch { +  [ int current, int max ] = System.getrlimit("core"); +  if ((current != -1) && ((current < max) || (max == -1))) { +  // Not unlimited, and less than max. +  // Attempt to raise. +  System.setrlimit("core", max, max); +  } +  }; + #endif /* constant(System.getrlimit) */ +     if(signum("SIGQUIT")>=0)    {    signal(signum("SIGQUIT"),lambda()    {    master()->handle_error( ({"\nSIGQUIT recived, printing backtrace and continuing.\n",backtrace() }) );       mapping x=_memory_usage();    foreach(sort(indices(x)),string p)    {    if(sscanf(p,"%s_bytes",p))