pike.git/ src/ language.yacc

Branch: Tag:

1997-05-07

1997-05-07 06:25:35 by Per Hedbor <ph@opera.com>

Somewhat more optimized version of gauge for Solaris

Rev: src/language.yacc:1.42

156:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.41 1997/04/23 20:11:49 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.42 1997/05/07 06:25:35 per Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
174:   #include "pike_macros.h"   #include "error.h"   #include "docode.h" + #include "machine.h"      #define YYMAXDEPTH 600   
1274:      gauge: F_GAUGE catch_arg    { + #ifdef HAVE_GETHRVTIME    $$=mkopernode("`-", -  +  mkopernode("`/", +  mkopernode("`-", mkefuncallnode("gethrvtime",0), +  mknode(F_ARG_LIST,$2, +  mkefuncallnode("gethrvtime",0))), +  mkintnode(1000)), 0); + #else +  $$=mkopernode("`-",    mkopernode("`-",    mknode(F_INDEX,mkefuncallnode("rusage",0),    mkintnode(GAUGE_RUSAGE_INDEX)),    mknode(F_ARG_LIST,$2,    mknode(F_INDEX,mkefuncallnode("rusage",0),    mkintnode(GAUGE_RUSAGE_INDEX)))),0); -  } ; + #endif +  };      typeof: F_TYPEOF '(' expr0 ')'    {