pike.git/ lib/ master.pike.in

2000-03-27

2000-03-27 01:17:23 by Per Hedbor <ph@opera.com>

• 311242ac4827e39e70800d744404ea40bda9d091 (17 lines) (+5/-12) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed error reporting

Rev: lib/master.pike.in:1.109

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.    *
1157:   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));
1173:    if (objectp(val) && val->compile_error) {    val->compile_error(file, line, err);    } else { -  inhibit_compile_errors(file, line, err); +  val(file, line, err);    }    }   }
1188:   {    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),