Roxen.git/ server/ base_server/ roxen.pike

1999-08-30

1999-08-30 09:39:45 by Per Hedbor <ph@opera.com>

• 3e9498e4e95971a2789722284de39371a9e62a21 (20 lines) (+10/-10) ^{[ Show | Annotate ]}
  Branch: 5.2

Added informative [dump] and [nodump] messages when running with -DMODULE_DEBUG. [nudump] means that dump is impossible (right now, at least)

Rev: server/base_server/roxen.pike:1.317

1:   /* -  * $Id: roxen.pike,v 1.316 1999/08/30 09:34:44 per Exp $ +  * $Id: roxen.pike,v 1.317 1999/08/30 09:39:45 per Exp $    *    * The Roxen Challenger main program.    *
7:    */      // ABS and suicide systems contributed freely by Francesco Chemolli - constant cvs_version="$Id: roxen.pike,v 1.316 1999/08/30 09:34:44 per Exp $"; + constant cvs_version="$Id: roxen.pike,v 1.317 1999/08/30 09:39:45 per Exp $";      object backend_thread;   object argcache;
1369:      program my_compile_file(string file)   { - // if( file_stat( file + ".o" ) ) - // { - // if( catch { - // return decode_value( Stdio.read_bytes( file + ".o" ) ); - // }) - // rm( file + ".o" ); - // } +     m_delete( master()->programs, file);    program p = (program)( file ); -  if( !file_stat( file+".o" ) ) +  if( !file_stat( file+".o" ) || +  file_stat(file+".o")[ST_MTIME] < +  file_stat(file)[ST_MTIME] )    if( catch    {    string data = encode_value( p, Codec(p) );
1390:    werror(" [nodump] ");   #endif    Stdio.File( file+".o", "wct" ); +  } else { + #ifdef MODULE_DEBUG +  werror(" [dump] "); + #endif    }    return p;   }