← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to erts/emulator/beam/erl_bestfit_alloc.c

  • Committer: Bazaar Package Importer
  • Author(s): Erlang Packagers, Sergei Golovan
  • Date: 2006-12-03 17:07:44 UTC
  • mfrom: (2.1.11 feisty)
  • Revision ID: james.westby@ubuntu.com-20061203170744-rghjwupacqlzs6kv
Tags: 1:11.b.2-4
[ Sergei Golovan ]
Fixed erlang-base and erlang-base-hipe prerm scripts.

Show diffs side-by-side

added added

removed removed

Lines of Context:
erts/emulator/beam/erl_bestfit_alloc.c
101
101
static ERTS_INLINE void bf_unlink_free_block    (Allctr_t *, Block_t *);
102
102
 
103
103
 
104
 
static Eterm            info_options            (Allctr_t *, char *, CIO *,
105
 
                                                 Uint **, Uint *);
 
104
static Eterm            info_options            (Allctr_t *, char *, int *,
 
105
                                                 void *, Uint **, Uint *);
 
106
static void             init_atoms              (void);
106
107
 
107
108
/* Types... */
108
109
struct RBTree_t_ {
198
199
    allctr->get_next_mbc_size           = NULL;
199
200
    allctr->creating_mbc                = NULL;
200
201
    allctr->destroying_mbc              = NULL;
 
202
    allctr->init_atoms                  = init_atoms;
201
203
 
202
204
#ifdef ERTS_ALLOC_UTIL_HARD_DEBUG
203
205
    allctr->check_block                 = NULL;
204
206
    allctr->check_mbc                   = NULL;
205
207
#endif
206
208
 
 
209
    allctr->atoms_initialized           = 0;
 
210
 
207
211
    if (!erts_alcu_start(allctr, init))
208
212
        return NULL;
209
213
 
844
848
{
845
849
#ifdef DEBUG
846
850
    Eterm *atom;
 
851
#endif
 
852
 
 
853
    if (atoms_initialized)
 
854
        return;
 
855
 
 
856
#ifdef DEBUG
847
857
    for (atom = (Eterm *) &am; atom <= &am.end_of_atoms; atom++) {
848
858
        *atom = THE_NON_VALUE;
849
859
    }
875
885
static Eterm
876
886
info_options(Allctr_t *allctr,
877
887
             char *prefix,
878
 
             CIO *ciop,
 
888
             int *print_to_p,
 
889
             void *print_to_arg,
879
890
             Uint **hpp,
880
891
             Uint *szp)
881
892
{
882
893
    BFAllctr_t *bfallctr = (BFAllctr_t *) allctr;
883
894
    Eterm res = THE_NON_VALUE;
884
895
 
885
 
    if (ciop) {
886
 
        erl_printf(*ciop,
 
896
    if (print_to_p) {
 
897
        erts_print(*print_to_p,
 
898
                   print_to_arg,
887
899
                   "%sas: %s\n",
888
900
                   prefix,
889
901
                   bfallctr->address_order ? "aobf" : "bf");
892
904
    if (hpp || szp) {
893
905
        
894
906
        if (!atoms_initialized)
895
 
            init_atoms();
 
907
            erl_exit(1, "%s:%d: Internal error: Atoms not initialized",
 
908
                     __FILE__, __LINE__);;
896
909
 
897
910
        res = NIL;
898
911
        add_2tup(hpp, szp, &res,