pike.git / src / docode.c

version» Context lines:

pike.git/src/docode.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: docode.c,v 1.173 2003/11/19 17:19:29 grubba Exp $ + || $Id: docode.c,v 1.174 2004/01/22 23:17:27 nilsson Exp $   */      #include "global.h" - RCSID("$Id: docode.c,v 1.173 2003/11/19 17:19:29 grubba Exp $"); + RCSID("$Id: docode.c,v 1.174 2004/01/22 23:17:27 nilsson Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"   #include "stralloc.h"   #include "interpret.h"   #include "constants.h"   #include "array.h"   #include "pike_macros.h"   #include "pike_error.h"   #include "pike_memory.h"
pike.git/src/docode.c:1982: Inside #if defined(PIKE_DEBUG)
   tmp1=do_docode(CAR(n),DO_LVALUE);   #ifdef PIKE_DEBUG    if(tmp1 & 1)    Pike_fatal("Very internal compiler error.\n");   #endif    emit1(F_ARRAY_LVALUE, DO_NOT_WARN((INT32)(tmp1>>1)));    return 2;       case F_ARROW:    if(CDR(n)->token != F_CONSTANT || CDR(n)->u.sval.type!=T_STRING) -  Pike_fatal("Bugg in F_ARROW, index not string."); +  Pike_fatal("Bugg in F_ARROW, index not string.\n");    if(flags & WANT_LVALUE)    {    /* FIXME!!!! ??? I wonder what needs fixing... /Hubbe */    tmp1=do_docode(CAR(n), 0);    emit1(F_ARROW_STRING, store_prog_string(CDR(n)->u.sval.u.string));    return 2;    }else{    tmp1 = do_docode(CAR(n), DO_NOT_COPY);    if ((tmp2 = lfun_lookup_id(CDR(n)->u.sval.u.string)) != -1) {    emit1(F_LOOKUP_LFUN, tmp2);
pike.git/src/docode.c:2021:    if(tmp1==2)    {   #ifdef PIKE_DEBUG    if(!mklval)    Pike_fatal("Unwanted lvalue!\n");   #endif    emit0(F_INDIRECT);    }       if(do_docode(CDR(n),0) != 1) -  Pike_fatal("Internal compiler error, please report this (1)."); +  Pike_fatal("Internal compiler error, please report this (1).\n");    if(CDR(n)->token != F_CONSTANT &&    match_types(CDR(n)->type, string_type_string))    emit0(F_CLEAR_STRING_SUBTYPE);    return 2;    }else{    tmp1=do_docode(CAR(n), DO_NOT_COPY);       code_expression(CDR(n), DO_NOT_COPY, "index");    if(CDR(n)->token != F_CONSTANT &&    match_types(CDR(n)->type, string_type_string))