Select Git revision
hashtable.c
-
Henrik (Grubba) Grubbström authored
Rev: src/array.c:1.83 Rev: src/backend.c:1.54 Rev: src/docode.c:1.78 Rev: src/encode.c:1.66 Rev: src/error.c:1.60 Rev: src/error.h:1.48 Rev: src/errors.h:1.12 Rev: src/fsort.c:1.14 Rev: src/hashtable.c:1.7 Rev: src/main.c:1.96 Rev: src/pike_memory.h:1.21 Rev: src/pike_types.c:1.133 Rev: src/pike_types.h:1.43
Henrik (Grubba) Grubbström authoredRev: src/array.c:1.83 Rev: src/backend.c:1.54 Rev: src/docode.c:1.78 Rev: src/encode.c:1.66 Rev: src/error.c:1.60 Rev: src/error.h:1.48 Rev: src/errors.h:1.12 Rev: src/fsort.c:1.14 Rev: src/hashtable.c:1.7 Rev: src/main.c:1.96 Rev: src/pike_memory.h:1.21 Rev: src/pike_types.c:1.133 Rev: src/pike_types.h:1.43
multiset.c 157.20 KiB
/*
|| 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: multiset.c,v 1.115 2008/07/22 20:03:19 mast Exp $
*/
#include "global.h"
/* Multisets using rbtree.
*
* Created by Martin Stjernholm 2001-05-07
*/
#include "builtin_functions.h"
#include "gc.h"
#include "interpret.h"
#include "multiset.h"
#include "mapping.h"
#include "object.h"
#include "opcodes.h"
#include "pike_error.h"
#include "rbtree_low.h"
#include "pike_security.h"
#include "svalue.h"
#ifdef TEST_MULTISET
#include "builtin_functions.h"
#include "constants.h"
#include "mapping.h"
#endif
#include "block_alloc.h"
/* FIXME: Optimize finds and searches on type fields? (But not when
* objects are involved!) Well.. Although cheap I suspect it pays off
* so extremely seldom that it isn't worth it. /mast */
#include <assert.h>
#define sp Pike_sp
/* The following defines the allocation policy. It's almost the same
* as for mappings. */
#define ALLOC_SIZE(size) ((size) ? (size) + 4 : 0)
#define ENLARGE_SIZE(size) (((size) << 1) + 4)
#define DO_SHRINK(msd, extra) ((((msd)->size + extra) << 2) + 4 <= (msd)->allocsize)
#if defined (PIKE_DEBUG) || defined (TEST_MULTISET)
static void debug_dump_ind_data (struct msnode_ind *node,
struct multiset_data *msd);
static void debug_dump_indval_data (struct msnode_indval *node,
struct multiset_data *msd);
DECLSPEC(noreturn) static void debug_multiset_fatal (
struct multiset *l, const char *fmt, ...) ATTRIBUTE((noreturn, format (printf, 2, 3)));
#define multiset_fatal (fprintf (stderr, "%s:%d: Fatal in multiset: ", \
__FILE__, __LINE__), debug_multiset_fatal)
#endif
#ifdef PIKE_DEBUG
/* To get good type checking. */
static INLINE union msnode **msnode_ptr_check (union msnode **x)
{return x;}
static INLINE struct msnode_ind *msnode_ind_check (struct msnode_ind *x)
{return x;}
static INLINE struct msnode_indval *msnode_indval_check (struct msnode_indval *x)
{return x;}
#define sub_extra_ref(X) do { \