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: las.c,v 1.323 2003/02/04 18:17:33 mast Exp $ + || $Id: las.c,v 1.324 2003/02/08 03:49:22 mast Exp $   */      #include "global.h" - RCSID("$Id: las.c,v 1.323 2003/02/04 18:17:33 mast Exp $"); + RCSID("$Id: las.c,v 1.324 2003/02/08 03:49:22 mast Exp $");      #include "language.h"   #include "interpret.h"
3887:    */    switch(n->token) {    case F_AND_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`&"); +  MAKE_CONST_STRING(op_string, "`&");    break;    case F_OR_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`|"); +  MAKE_CONST_STRING(op_string, "`|");    break;    case F_XOR_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`^"); +  MAKE_CONST_STRING(op_string, "`^");    break;    case F_LSH_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`<<"); +  MAKE_CONST_STRING(op_string, "`<<");    break;    case F_RSH_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`>>"); +  MAKE_CONST_STRING(op_string, "`>>");    break;    case F_ADD_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`+"); +  MAKE_CONST_STRING(op_string, "`+");    break;    case F_SUB_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`-"); +  MAKE_CONST_STRING(op_string, "`-");    break;    case F_MULT_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`*"); +  MAKE_CONST_STRING(op_string, "`*");    break;    case F_MOD_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`%"); +  MAKE_CONST_STRING(op_string, "`%");    break;    case F_DIV_EQ: -  MAKE_CONSTANT_SHARED_STRING(op_string, "`/"); +  MAKE_CONST_STRING(op_string, "`/");    break;    default:    Pike_fatal("fix_type_field(): Unhandled token: %d\n", n->token);
3924:    my_yyerror("Internally used efun undefined for token %d: %s()",    n->token, op_string->str);    copy_pike_type(n->type, mixed_type_string); -  free_string(op_string); +     break;    }    if (!op_node->type) {
3949:    /* Type check ok. */    free_node(op_node);    free_type(call_type); -  free_string(op_string); +     break;    }    my_yyerror("Bad arguments to %s=().", op_string->str);
3957:    call_type, 0);    free_node(op_node);    free_type(call_type); -  free_string(op_string); +     }    copy_pike_type(n->type, mixed_type_string);    break;