Branch: Tag:

2003-02-08

2003-02-08 03:49:23 by Martin Stjernholm <mast@lysator.liu.se>

Replaced MAKE_SHARED_CONSTANT_STRING with either MAKE_CONST_STRING or
REF_MAKE_CONST_STRING as appropriate.

Rev: src/builtin.cmod:1.115
Rev: src/interpret.h:1.126
Rev: src/iterators.cmod:1.34
Rev: src/language.yacc:1.315
Rev: src/las.c:1.324
Rev: src/opcodes.c:1.135
Rev: src/program.c:1.479
Rev: src/treeopt.in:1.73

2:   || 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: opcodes.c,v 1.134 2003/01/26 16:15:05 mirar Exp $ + || $Id: opcodes.c,v 1.135 2003/02/08 03:49:22 mast Exp $   */      #include "global.h"
30:      #define sp Pike_sp    - RCSID("$Id: opcodes.c,v 1.134 2003/01/26 16:15:05 mirar Exp $"); + RCSID("$Id: opcodes.c,v 1.135 2003/02/08 03:49:22 mast Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {
189:    case T_OBJECT:    {    struct pike_string *s; -  MAKE_CONSTANT_SHARED_STRING(s, "int"); +  REF_MAKE_CONST_STRING(s, "int");    push_string(s);    if(!sp[-2].u.object->prog)    Pike_error("Cast called on destructed object.\n");
209:    if( f != -1)    {    struct pike_string *s; -  MAKE_CONSTANT_SHARED_STRING(s, "int"); +  REF_MAKE_CONST_STRING(s, "int");    push_string(s);    apply_low(sp[-2].u.object, f, 1);    f=!UNSAFE_IS_ZERO(sp-1);
300:    case T_OBJECT:    {    struct pike_string *s; -  MAKE_CONSTANT_SHARED_STRING(s, "string"); +  REF_MAKE_CONST_STRING(s, "string");    push_string(s);    if(!sp[-2].u.object->prog)    Pike_error("Cast called on destructed object.\n");
320:    if( f != -1)    {    struct pike_string *s; -  MAKE_CONSTANT_SHARED_STRING(s, "string"); +  REF_MAKE_CONST_STRING(s, "string");    push_string(s);    apply_low(sp[-2].u.object, f, 1);    f=!UNSAFE_IS_ZERO(sp-1);