pike.git / src / docode.c

version» Context lines:

pike.git/src/docode.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: docode.c,v 1.17 1997/05/19 23:31:00 hubbe Exp $"); + RCSID("$Id: docode.c,v 1.18 1997/06/19 20:59:44 hubbe Exp $");   #include "las.h"   #include "program.h"   #include "language.h"   #include "pike_types.h"   #include "stralloc.h"   #include "interpret.h"   #include "constants.h"   #include "array.h"   #include "pike_macros.h"   #include "error.h"
pike.git/src/docode.c:272:       if(!n) return 0;       if(flags & DO_LVALUE)    {    switch(n->token)    {    default:    yyerror("Illegal lvalue.");    emit(F_NUMBER,0); -  return 1; +  emit(F_NUMBER,0); +  return 2;       case F_LVALUE_LIST:    case F_LOCAL:    case F_GLOBAL:    case F_IDENTIFIER:    case F_INDEX:    case F_ARROW:    case F_ARG_LIST:    break;    }
pike.git/src/docode.c:502:    if(do_docode(CDR(n),DO_NOT_COPY)!=2)    fatal("Compiler internal error (at %ld).\n",(long)current_line);    emit2(n->token);    return tmp1;       case F_INC:    case F_POST_INC:    tmp1=do_docode(CAR(n),DO_LVALUE);   #ifdef DEBUG    if(tmp1 != 2) -  fatal("HELP! FATAL INTERNAL COMPILER ERROR\n"); +  fatal("HELP! FATAL INTERNAL COMPILER ERROR (again)\n");   #endif       if(flags & DO_POP)    {    emit2(F_INC_AND_POP);    return 0;    }else{    emit2(n->token);    return 1;    }       case F_DEC:    case F_POST_DEC:    tmp1=do_docode(CAR(n),DO_LVALUE);   #ifdef DEBUG    if(tmp1 != 2) -  fatal("HELP! FATAL INTERNAL COMPILER ERROR\n"); +  fatal("HELP! FATAL INTERNAL COMPILER ERROR (yet again)\n");   #endif    if(flags & DO_POP)    {    emit2(F_DEC_AND_POP);    return 0;    }else{    emit2(n->token);    return 1;    }