From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- erts/emulator/beam/erl_goodfit_alloc.h | 88 ++++++++++++++++++++++++++++++++++ 1 file changed, 88 insertions(+) create mode 100644 erts/emulator/beam/erl_goodfit_alloc.h (limited to 'erts/emulator/beam/erl_goodfit_alloc.h') diff --git a/erts/emulator/beam/erl_goodfit_alloc.h b/erts/emulator/beam/erl_goodfit_alloc.h new file mode 100644 index 0000000000..3d1b8c01f6 --- /dev/null +++ b/erts/emulator/beam/erl_goodfit_alloc.h @@ -0,0 +1,88 @@ +/* + * %CopyrightBegin% + * + * Copyright Ericsson AB 2003-2009. All Rights Reserved. + * + * The contents of this file are subject to the Erlang Public License, + * Version 1.1, (the "License"); you may not use this file except in + * compliance with the License. You should have received a copy of the + * Erlang Public License along with this software. If not, it can be + * retrieved online at http://www.erlang.org/. + * + * Software distributed under the License is distributed on an "AS IS" + * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See + * the License for the specific language governing rights and limitations + * under the License. + * + * %CopyrightEnd% + */ + + +#ifndef ERL_GOODFIT_ALLOC__ +#define ERL_GOODFIT_ALLOC__ + +#include "erl_alloc_util.h" + +#define ERTS_ALC_GF_ALLOC_VSN_STR "2.1" + +typedef struct GFAllctr_t_ GFAllctr_t; + +typedef struct { + Uint mbsd; +} GFAllctrInit_t; + +#define ERTS_DEFAULT_GF_ALLCTR_INIT { \ + 3, /* (amount) mbsd: max (mbc) block search depth */\ +} + +void erts_gfalc_init(void); +Allctr_t *erts_gfalc_start(GFAllctr_t *, GFAllctrInit_t *, AllctrInit_t *); + +#endif /* #ifndef ERL_GOODFIT_ALLOC__ */ + + + +#if defined(GET_ERL_GF_ALLOC_IMPL) && !defined(ERL_GF_ALLOC_IMPL__) +#define ERL_GF_ALLOC_IMPL__ + +#define GET_ERL_ALLOC_UTIL_IMPL +#include "erl_alloc_util.h" + +#define NO_OF_BKT_IX_BITS (8) +#ifdef ARCH_64 +# define SUB_MASK_IX_SHIFT (6) +#else +# define SUB_MASK_IX_SHIFT (5) +#endif +#define NO_OF_BKTS (((Uint) 1) << NO_OF_BKT_IX_BITS) +#define NO_OF_SUB_MASKS (NO_OF_BKTS/(((Uint) 1) << SUB_MASK_IX_SHIFT)) + +typedef struct { + Uint main; + Uint sub[NO_OF_SUB_MASKS]; +} BucketMask_t; + +typedef struct GFFreeBlock_t_ GFFreeBlock_t; +struct GFFreeBlock_t_ { + Block_t block_head; + GFFreeBlock_t *prev; + GFFreeBlock_t *next; +}; + +struct GFAllctr_t_ { + Allctr_t allctr; /* Has to be first! */ + + char * last_aux_mbc_start; + char * last_aux_mbc_end; + Uint bkt_max_size_d; + Uint bkt_intrvl_d; + BucketMask_t bucket_mask; + GFFreeBlock_t * buckets[NO_OF_BKTS]; + Uint max_blk_search; + +}; + +unsigned long erts_gfalc_test(unsigned long, unsigned long, unsigned long); + +#endif /* #if defined(GET_ERL_GF_ALLOC_IMPL) + && !defined(ERL_GF_ALLOC_IMPL__) */ -- cgit v1.2.3