pike.git/ src/ builtin.cmod

2008-06-29

2008-06-29 12:37:11 by Martin Nilsson <mani@lysator.liu.se>

• 95489a21a8ffb04d83963bf58c2b88fd78db8abe (29 lines) (+15/-14) ^{[ Show | Annotate ]}
  Branch: 7.9

ID_STATIC -> ID_PROTECTED

Rev: src/backend.cmod:1.229
Rev: src/builtin.cmod:1.217
Rev: src/errors.h:1.40
Rev: src/interpret_functions.h:1.208
Rev: src/iterators.cmod:1.70
Rev: src/language.yacc:1.440
Rev: src/object.c:1.299
Rev: src/pike_search.c:1.31
Rev: src/program.c:1.728
Rev: src/signal_handler.c:1.333
Rev: src/threads.c:1.259

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: builtin.cmod,v 1.216 2008/06/28 22:05:01 mast Exp $ + || $Id: builtin.cmod,v 1.217 2008/06/29 12:37:10 nilsson Exp $   */      #include "global.h"
1407:       /* These are cleared when filename and lineno has been initialized    * from them. */ -  PIKEVAR program prog flags ID_STATIC|ID_PRIVATE; +  PIKEVAR program prog flags ID_PROTECTED|ID_PRIVATE;    CVAR PIKE_OPCODE_T *pc;       /* These two are considered to be uninitialized from prog, pc and
2190:   {    CVAR struct replace_many_context ctx;    /* NOTE: from and to are only kept for _encode()'s use. */ -  PIKEVAR array from flags ID_STATIC; -  PIKEVAR array to flags ID_STATIC; +  PIKEVAR array from flags ID_PROTECTED; +  PIKEVAR array to flags ID_PROTECTED;       /*! @decl void create(array(string)|mapping(string:string)|void from, @    *! array(string)|string|void to)
2347:   PIKECLASS single_string_replace   {    CVAR SearchMojt mojt; -  PIKEVAR string del flags ID_STATIC|ID_PRIVATE; -  PIKEVAR string to flags ID_STATIC|ID_PRIVATE; +  PIKEVAR string del flags ID_PROTECTED|ID_PRIVATE; +  PIKEVAR string to flags ID_PROTECTED|ID_PRIVATE;       EXTRA    { -  MAP_VARIABLE ("o", tObj, ID_STATIC|ID_PRIVATE, +  MAP_VARIABLE ("o", tObj, ID_PROTECTED|ID_PRIVATE,    single_string_replace_storage_offset +    OFFSETOF (single_string_replace_struct, mojt.container),    T_OBJECT);
2529:    CVAR INT_TYPE base, tmin, tmax, skew, damp;    CVAR INT_TYPE initial_bias, initial_n;    CVAR p_wchar2 delim; -  PIKEVAR string digits flags ID_STATIC|ID_PRIVATE; +  PIKEVAR string digits flags ID_PROTECTED|ID_PRIVATE;       static INT_TYPE bootstring_cp_to_digit(p_wchar2 ch)    {
2754:    int skew, int damp,    int initial_bias, int initial_n,    int delim, string digits ) -  flags ID_STATIC; +  flags ID_PROTECTED;    {    struct bootstring_struct *bs = THIS;    if (base<2)
3333:    *! Returns the number of elements in the list.    */    PIKEFUN int(0..) _sizeof() -  flags ID_STATIC; +  flags ID_PROTECTED;    {    push_int(THIS->num_elems);    }
3346:    *! @[sprintf()], @[lfun::_sprintf()]    */    PIKEFUN string _sprintf(int c, mapping(string:mixed)|void attr) -  flags ID_STATIC; +  flags ID_PROTECTED;    {    if (!THIS->num_elems) {    push_constant_text("ADT.List(/* empty */)");
3494:    *! Ought to reset the @[List] if called multiple times.    */    PIKEFUN void create(mixed ... values) -  flags ID_STATIC; +  flags ID_PROTECTED;    {    /* FIXME: Reset the list? */    apply_current(f_List_append_fun_num, args);
3506:    */    PIKECLASS _get_iterator    program_flags PROGRAM_USES_PARENT; -  flags ID_STATIC; +  flags ID_PROTECTED;    {    CVAR struct pike_list_node *cur;    CVAR INT32 ind; /* Not meaningful, but requred by the API. */
3659:    }       PIKEFUN int(0..1) `!() -  flags ID_STATIC; +  flags ID_PROTECTED;    {    pop_n_elems(args);    push_int(!THIS->cur->next || !THIS->cur->prev);