pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.89 1999/12/28 03:40:19 mast Exp $ +  * $Id: master.pike.in,v 1.90 1999/12/29 18:46:00 mast Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #define PIKE_AUTORELOAD   
pike.git/lib/master.pike.in:1111:    */   void compile_error(string file,int line,string err)   {    mixed val;    if(! (val = inhibit_compile_errors   #if constant(thread_local)    ->get()   #endif /* constant(thread_local) */    ))    { -  werror(sprintf("%s:%d:%s\n",trim_file_name(file),line,err)); +  werror(sprintf("%s:%s:%s\n",trim_file_name(file), +  line?(string)line:"-",err));    }    else if(objectp(val) ||    programp(val) ||    functionp(val))    {    if (objectp(val) && val->compile_error) {    val->compile_error(file, line, err);    } else {    inhibit_compile_errors(file, line, err);    }
pike.git/lib/master.pike.in:1142:   {    mixed val;       if(!(val = inhibit_compile_errors   #if constant(thread_local)    ->get()   #endif /* constant(thread_local) */    ))    {    if(want_warnings) -  werror(sprintf("%s:%d: Warning: %s\n",trim_file_name(file),line,err)); +  werror(sprintf("%s:%s: Warning: %s\n",trim_file_name(file), +  line?(string)line:"-",err));    } else if (objectp(val) && val->compile_warning) {    val->compile_warning(file, line, err);    }   }         static mixed _charset_mod;   /* This function is called by cpp() when it wants to do    * character code conversion.    */