pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*-   || 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.192 2007/08/06 08:09:36 nilsson Exp $ + || $Id: builtin.cmod,v 1.193 2008/01/26 22:34:17 mast Exp $   */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"
pike.git/src/builtin.cmod:563:    if (gc_enabled > 0)    gc_enabled = set->u.integer;    else {    gc_enabled = 1;    if (alloc_threshold == GC_MAX_ALLOC_THRESHOLD)    alloc_threshold = GC_MIN_ALLOC_THRESHOLD;    }    }    }, {    get.type = T_INT; +  get.subtype = NUMBER_NUMBER;    get.u.integer = gc_enabled;    });    HANDLE_FLOAT_FACTOR ("garbage_ratio_low", gc_garbage_ratio_low);    HANDLE_FLOAT_FACTOR ("time_ratio", gc_time_ratio);    HANDLE_FLOAT_FACTOR ("garbage_ratio_high", gc_garbage_ratio_high);    HANDLE_FLOAT_FACTOR ("average_slowness", gc_average_slowness);      #undef HANDLE_PARAM   #undef HANDLE_FLOAT_FACTOR   
pike.git/src/builtin.cmod:1888:    sum += a->len;    shift |= a->size_shift;    }    if (sum < str->initial) {    sum = str->initial * 2;    }    shift = shift & ~(shift >> 1);       if (shift == Pike_sp[-args].u.string->size_shift &&    init_string_builder_with_string (&str->str, Pike_sp[-args].u.string)) { -  Pike_sp[-args].type = T_INT; +  mark_free_svalue (Pike_sp - args);    if (sum > str->str.s->len)    string_build_mkspace (&str->str, sum - str->str.s->len, shift);    init_from_arg0 = 1;    }    else    init_string_builder_alloc(&str->str, sum, shift);       /* We know it will be a string that really is this wide. */    str->str.known_shift = shift;    }