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.425 2008/06/28 11:01:53 mast Exp $ + || $Id: las.c,v 1.426 2008/07/09 20:43:46 mast Exp $   */      #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:1769:    copy_pike_type(res->u.sval.u.type, t);    res->u.sval.type = T_TYPE;    /* FIXME: Should be type(val) */    type_stack_mark();    push_finished_type(t);    push_type(T_TYPE);    res->type = pop_unfinished_type();    return res;   }    - node *low_mkconstantsvaluenode(struct svalue *s) + node *low_mkconstantsvaluenode(const struct svalue *s)   {    node *res = mkemptynode();    res->token = F_CONSTANT;    assign_svalue_no_free(& res->u.sval, s);    if(s->type == T_OBJECT ||    (s->type==T_FUNCTION && s->subtype!=FUNCTION_BUILTIN))    {    if(!(s->u.object->prog && (s->u.object->prog->flags & PROGRAM_CONSTANT)))    res->node_info|=OPT_EXTERNAL_DEPEND;    }    res->type = get_type_of_svalue(s);    return res;   }    - node *debug_mkconstantsvaluenode(struct svalue *s) + node *debug_mkconstantsvaluenode(const struct svalue *s)   {    return low_mkconstantsvaluenode(s);   }    - node *debug_mkliteralsvaluenode(struct svalue *s) + node *debug_mkliteralsvaluenode(const struct svalue *s)   {    node *res = low_mkconstantsvaluenode(s);       if(s->type!=T_STRING && s->type!=T_INT && s->type!=T_FLOAT)    res->node_info|=OPT_EXTERNAL_DEPEND;       return res;   }      node *debug_mksvaluenode(struct svalue *s)