← Back to branch summary

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

« back to all changes in this revision

Viewing changes to erts/emulator/beam/erl_afit_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_afit_alloc.c
46
46
static void             unlink_free_block       (Allctr_t *, Block_t *);
47
47
 
48
48
 
49
 
static Eterm            info_options            (Allctr_t *, char *, CIO *,
50
 
                                                 Uint **, Uint *);
 
49
static Eterm            info_options            (Allctr_t *, char *, int *,
 
50
                                                 void *arg, Uint **, Uint *);
 
51
static void             init_atoms              (void);
51
52
 
52
53
static int atoms_initialized = 0;
53
54
 
86
87
    allctr->get_next_mbc_size           = NULL;
87
88
    allctr->creating_mbc                = NULL;
88
89
    allctr->destroying_mbc              = NULL;
 
90
    allctr->init_atoms                  = init_atoms;
89
91
 
90
92
#ifdef ERTS_ALLOC_UTIL_HARD_DEBUG
91
93
    allctr->check_block                 = NULL;
92
94
    allctr->check_mbc                   = NULL;
93
95
#endif
94
96
 
 
97
    allctr->atoms_initialized           = 0;
 
98
 
95
99
    if (!erts_alcu_start(allctr, init))
96
100
        return NULL;
97
101
 
170
174
{
171
175
#ifdef DEBUG
172
176
    Eterm *atom;
 
177
#endif
 
178
 
 
179
    if (atoms_initialized)
 
180
        return;
 
181
 
 
182
#ifdef DEBUG
173
183
    for (atom = (Eterm *) &am; atom <= &am.end_of_atoms; atom++) {
174
184
        *atom = THE_NON_VALUE;
175
185
    }
176
186
#endif
 
187
 
177
188
    AM_INIT(as);
178
189
    AM_INIT(af);
179
190
 
200
211
static Eterm
201
212
info_options(Allctr_t *allctr,
202
213
             char *prefix,
203
 
             CIO *ciop,
 
214
             int *print_to_p,
 
215
             void *print_to_arg,
204
216
             Uint **hpp,
205
217
             Uint *szp)
206
218
{
207
219
    Eterm res = THE_NON_VALUE;
208
220
 
209
 
    if (ciop) {
210
 
        erl_printf(*ciop, "%sas: af\n", prefix);
 
221
    if (print_to_p) {
 
222
        erts_print(*print_to_p, print_to_arg, "%sas: af\n", prefix);
211
223
    }
212
224
 
213
225
    if (hpp || szp) {
214
226
        
215
227
        if (!atoms_initialized)
216
 
            init_atoms();
 
228
            erl_exit(1, "%s:%d: Internal error: Atoms not initialized",
 
229
                     __FILE__, __LINE__);;
217
230
 
218
231
        res = NIL;
219
232
        add_2tup(hpp, szp, &res, am.as, am.af);