diff --git a/src/las.c b/src/las.c index 4d2d7699743472dd98b1d5fa22635bb5962f05e4..519df2e43854796abd15666a94edf9e37ed81a6b 100644 --- a/src/las.c +++ b/src/las.c @@ -2,7 +2,7 @@ || 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" @@ -1776,7 +1776,7 @@ node *debug_mktypenode(struct pike_type *t) return res; } -node *low_mkconstantsvaluenode(struct svalue *s) +node *low_mkconstantsvaluenode(const struct svalue *s) { node *res = mkemptynode(); res->token = F_CONSTANT; @@ -1791,12 +1791,12 @@ node *low_mkconstantsvaluenode(struct 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); diff --git a/src/las.h b/src/las.h index 6de405f168fd407919950c848574fb345b1abcf5..5fad463f4eb7ca89de952a37bb0332beba81fc85 100644 --- a/src/las.h +++ b/src/las.h @@ -2,7 +2,7 @@ || 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.h,v 1.79 2008/05/24 15:14:12 grubba Exp $ +|| $Id: las.h,v 1.80 2008/07/09 20:43:46 mast Exp $ */ #ifndef LAS_H @@ -186,8 +186,8 @@ void resolv_class(node *n); node *index_node(node *n, char *node_name, struct pike_string *id); int node_is_eq(node *a,node *b); node *debug_mktypenode(struct pike_type *t); -node *debug_mkconstantsvaluenode(struct svalue *s); -node *debug_mkliteralsvaluenode(struct svalue *s); +node *debug_mkconstantsvaluenode(const struct svalue *s); +node *debug_mkliteralsvaluenode(const struct svalue *s); node *debug_mksvaluenode(struct svalue *s); node *copy_node(node *n); node *defrost_node(node *n); diff --git a/src/pike_types.c b/src/pike_types.c index a2eb540076484ce17166f45c041d3967d6354bb2..97c8fa88cba8d61e2e28e0137396eff74242ba9f 100644 --- a/src/pike_types.c +++ b/src/pike_types.c @@ -2,7 +2,7 @@ || 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: pike_types.c,v 1.347 2008/07/09 20:26:34 mast Exp $ +|| $Id: pike_types.c,v 1.348 2008/07/09 20:43:45 mast Exp $ */ #include "global.h" @@ -7012,7 +7012,7 @@ struct pike_type *zzap_function_return(struct pike_type *a, return NULL; } -struct pike_type *get_type_of_svalue(struct svalue *s) +struct pike_type *get_type_of_svalue(const struct svalue *s) { struct pike_type *ret; switch(s->type) diff --git a/src/pike_types.h b/src/pike_types.h index 10c9813292551bc0b70759c0d566df9b97983a4e..830bfaa28610a3ca2f3850333c8f800ca3c867e7 100644 --- a/src/pike_types.h +++ b/src/pike_types.h @@ -2,7 +2,7 @@ || 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: pike_types.h,v 1.120 2008/06/18 20:48:09 grubba Exp $ +|| $Id: pike_types.h,v 1.121 2008/07/09 20:43:46 mast Exp $ */ #ifndef PIKE_TYPES_H @@ -282,7 +282,7 @@ struct pike_type *new_check_call(struct pike_string *fun_name, node *args, INT32 *argno, INT32 flags); struct pike_type *zzap_function_return(struct pike_type *t, struct pike_type *fun_ret); -struct pike_type *get_type_of_svalue(struct svalue *s); +struct pike_type *get_type_of_svalue(const struct svalue *s); struct pike_type *object_type_to_program_type(struct pike_type *obj_t); PMOD_EXPORT char *get_name_of_type(TYPE_T t); void cleanup_pike_types(void);