pike.git / src / las.c

version» Context lines:

pike.git/src/las.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: las.c,v 1.138 1999/12/13 23:52:41 grubba Exp $"); + RCSID("$Id: las.c,v 1.139 1999/12/14 00:23:42 grubba 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:896:    if(type==n->type) return n;       res = mkemptynode();    res->token = F_CAST;    copy_shared_string(res->type,type);       if(match_types(object_type_string, type) ||    match_types(object_type_string, type))    res->node_info |= OPT_SIDE_EFFECT;    +  res->tree_info |= n->tree_info; +     _CAR(res) = n;   #ifdef SHARED_NODES    _CDR(res) = (node *)type;   #else /* !SHARED_NODES */   #ifdef __CHECKER__    _CDR(res) = 0;   #endif   #endif /* SHARED_NODES */       n->parent = res;
pike.git/src/las.c:948:    yywarning("Soft cast to %s isn't a restriction of %s.",    t1->str, t2->str);    free_string(t2);    free_string(t1);    }    }    res = mkemptynode();    res->token = F_SOFT_CAST;    copy_shared_string(res->type,type);    +  res->tree_info |= n->tree_info; +     _CAR(res) = n;   #ifdef SHARED_NODES    _CDR(res) = (node *)type;   #else /* !SHARED_NODES */   #ifdef __CHECKER__    _CDR(res) = 0;   #endif   #endif /* SHARED_NODES */       n->parent = res;