pike.git/ lib/ master.pike.in

2000-02-10

2000-02-10 17:57:37 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 6330199960574a7fc661ea333f00f70a6d69d647 (15 lines) (+14/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix (solves some oracle problems)

Rev: lib/master.pike.in:1.99

1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.98 2000/02/04 16:35:46 grubba Exp $ +  * $Id: master.pike.in,v 1.99 2000/02/10 17:57:37 hubbe Exp $    *    * Master-file for Pike.    *
250:    return ({ fname + ".o" });   }    + #if constant(_static_modules.Builtin.mutex) + #define THREADED + object compilation_mutex = _static_modules.Builtin()->mutex(); + #endif +    static program low_findprog(string pname, string ext, object|void handler)   {    program ret;    array s;    string fname=pname+ext;    -  + #ifdef THREADED +  object key=compilation_mutex->lock(2); + #endif +    #ifdef PIKE_AUTORELOAD    if(!autoreload_on || load_time[fname]>=time())   #endif
307:    }    }    + // werror("2.5: %O\n",fname);       if ( mixed e=catch { ret=compile_file(fname); } )    { -  + // werror("-3: %O\n",fname);    programs[fname]=0;    if(arrayp(e) && sizeof(e) && e[0] == "Compilation failed.\n")    e[1]=({});
328:       AUTORELOAD_FINISH(ret,programs,fname);    + // werror("3: %O\n",fname);    return programs[fname]=ret;    }    return 0;