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.336 2003/06/30 17:06:09 mast Exp $ + || $Id: las.c,v 1.337 2003/07/30 18:44:38 mast Exp $   */      #include "global.h" - RCSID("$Id: las.c,v 1.336 2003/06/30 17:06:09 mast Exp $"); + RCSID("$Id: las.c,v 1.337 2003/07/30 18:44:38 mast Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:1464:    if(!n) return 0;      #ifdef PIKE_DEBUG    if (!type) {    Pike_fatal("Casting to no type!\n");    }   #endif /* PIKE_DEBUG */       if (type == void_type_string) return mknode(F_POP_VALUE, n, 0);    + #if 0 +  /* It's not always safe to ignore the cast in this case. E.g. if n +  * has type program, the value can contain a function style program +  * pointer which the cast will turn into a real program +  * reference. */    if(type==n->type) return n; -  + #endif       res = mkemptynode();    res->token = F_CAST;    copy_pike_type(res->type, type);       if(match_types(object_type_string, type) ||    match_types(program_type_string, type))    res->node_info |= OPT_SIDE_EFFECT;       res->tree_info |= n->tree_info;