pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.108 2000/03/26 15:11:34 mast Exp $ +  * $Id: master.pike.in,v 1.109 2000/03/27 01:17:23 per 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:1150:      /*    * This function is called whenever a compiling error occurs.    * Nothing strange about it.    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.    */   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) */ -  )) +  if(! (val = get_inhibit_compile_errors() ))    {    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); +  val(file, line, err);    }    }   }      /*    * This function is called whenever a compiling warning occurs.    * Nothing strange about it.    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.    */   void compile_warning(string file,int line,string err)   {    mixed val;    -  if(!(val = inhibit_compile_errors - #if constant(thread_local) -  ->get() - #endif /* constant(thread_local) */ -  )) +  if(!(val = get_inhibit_compile_errors() ))    {    if(want_warnings)    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);    }   }