pike.git/ bin/ test_pike.pike

2000-10-08

2000-10-08 18:21:31 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 1ab679d26b37a4031499798a07667edb61a33e9f (11 lines) (+9/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Some more debug.

Rev: bin/test_pike.pike:1.52

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.51 2000/07/28 00:35:50 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.52 2000/10/08 18:21:31 grubba Exp $ */      import Stdio;   
337:    tmp=read_bytes(argv[f]);    if(!tmp)    { -  werror("Failed to read test file, errno="+errno()+".\n"); +  werror("Failed to read test file %O, errno=%d.\n", +  argv[f], errno());    exit(1);    }   
493:    to_compile=replace(to_compile,"\n","\r\n");    }    +  // _optimizer_debug(5); +     if(verbose>9) bzot(to_compile);    switch(type)    {
565:    _dmalloc_set_name(fname,1);    if(functionp(o->a))    { +  // trace(10);    at = gauge { a=o->a(); }; -  +  // trace(0);    }       if(functionp(o->b))
579:    if(check > 1) _verify_internals();       }) { +  // trace(0);    werror(fname + " failed.\n");    bzot(test);    if (arrayp(err) && sizeof(err) && stringp(err[0])) {