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.105 2001/02/21 18:25:24 grubba Exp $"); + RCSID("$Id: docode.c,v 1.106 2001/02/23 14:29:51 grubba 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:653:    fatal("HELP! FATAL INTERNAL COMPILER ERROR (7)\n");   #endif       if(n->token == F_ADD_EQ && (flags & DO_POP))    {    code_expression(CDR(n), 0, "assignment");    emit0(F_ADD_TO_AND_POP);    return 0;    }    -  if(match_types(CAR(n)->type,array_type_string) || -  match_types(CAR(n)->type,string_type_string) || -  match_types(CAR(n)->type,mapping_type_string) || -  match_types(CAR(n)->type,object_type_string)) +  if(match_types(CAR(n)->type, array_type_string) || +  match_types(CAR(n)->type, string_type_string) || +  match_types(CAR(n)->type, mapping_type_string) || +  match_types(CAR(n)->type, object_type_string))    {    code_expression(CDR(n), 0, "assignment");    emit0(F_LTOSVAL2);    }else{    emit0(F_LTOSVAL);    code_expression(CDR(n), 0, "assignment");    }          switch(n->token)
pike.git/src/docode.c:718:    case F_LSH:    case F_RSH:    case F_ADD:    case F_MOD:    case F_SUBTRACT:    case F_DIVIDE:    case F_MULTIPLY:    if(node_is_eq(CDR(n),CAAR(n)))    {    tmp1=do_docode(CDR(n),DO_LVALUE); -  if(match_types(CDR(n)->type,array_type_string) || -  match_types(CDR(n)->type,string_type_string)) +  if(match_types(CDR(n)->type, array_type_string) || +  match_types(CDR(n)->type, string_type_string))    {    code_expression(CDAR(n), 0, "binary operand");    emit0(F_LTOSVAL2);    }else{    emit0(F_LTOSVAL);    code_expression(CDAR(n), 0, "binary operand");    }       emit0(CAR(n)->token);