pike.git / src / las.c

version» Context lines:

pike.git/src/las.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: las.c,v 1.443 2010/04/15 16:54:55 grubba Exp $ + || $Id$   */      #include "global.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"
pike.git/src/las.c:1294:    * E.g. the cast in the code    *    * mapping(string:string) m = (["a":"A", "b":"B"]);    * return (array)m;    *    * should have a result type of array(array(string)),    * rather than array(mixed).    */    copy_pike_type(res->type, type);    -  if(match_types(object_type_string, type) || -  match_types(program_type_string, type)) +  if((type != zero_type_string) && +  (match_types(object_type_string, type) || +  match_types(program_type_string, type)))    res->node_info |= OPT_SIDE_EFFECT;       res->tree_info |= n->tree_info;       _CAR(res) = n;    _CDR(res) = mktypenode(type);       n->parent = res;       return res;