Roxen.git/ server/ base_server/ roxen.pike

1997-04-09

1997-04-09 06:56:59 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 55d5bb205f350d1c48c6b990fdcd56a32f34ac97 (13 lines) (+11/-2) ^{[ Show | Annotate ]}
  Branch: 5.2

Added improved debug-message.

Rev: server/base_server/roxen.pike:1.50

1: - string cvs_version = "$Id: roxen.pike,v 1.49 1997/04/08 23:45:39 marcus Exp $"; + string cvs_version = "$Id: roxen.pike,v 1.50 1997/04/09 06:56:59 grubba Exp $";   #define IN_ROXEN   #ifdef THREADS   #include <fifo.h>
1721:    if (!(err=catch( module_info = lambda ( string file ) {    array foo;    object o; -  o = (compile_file(file))(); +  program p = compile_file(file);   #ifdef MODULE_DEBUG -  +  if (!p) { +  perror(" compilation failed\n"); +  throw(({"Compilation of module \""+file+"\" failed\n", +  backtrace()})); +  } + #endif +  o = p(); + #ifdef MODULE_DEBUG    perror(" load ok - ");   #endif    foo = o->register_module();