pike.git/ src/ language.yacc

1999-04-07

1999-04-07 23:10:12 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• ae9503ae4b6f59b7e043762178a78bc3985f723c (8 lines) (+6/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

more debug and faster exit()

Rev: src/cpp.c:1.51
Rev: src/global.h:1.29
Rev: src/interpret.h:1.28
Rev: src/language.yacc:1.116
Rev: src/object.c:1.68
Rev: src/program.c:1.120
Rev: src/svalue.h:1.24
Rev: src/threads.h:1.64

181:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.115 1999/03/29 20:17:21 grubba Exp $"); + RCSID("$Id: language.yacc,v 1.116 1999/04/07 23:10:07 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
624:       if(compiler_pass==1)    { -  define_function($4->u.sval.u.string, +  $<number>5=define_function($4->u.sval.u.string,    $<n>$->u.sval.u.string,    $1,    IDENTIFIER_PIKE_FUNCTION,
650:   #ifdef PIKE_DEBUG    if(recoveries && sp-evaluator_stack < recoveries->sp)    fatal("Stack error (underflow)\n"); +  +  if(compiler_pass == 1 && f!=$<number>5) +  fatal("define_function screwed up! %d != %d\n",f,$<number>5);   #endif    }    pop_compiler_frame();