← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/c/main.d

  • Committer: Bazaar Package Importer
  • Author(s): Albin Tonnerre
  • Date: 2008-06-20 18:00:19 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080620180019-7fbz1ln5444vtkkr
Tags: 0.9j-20080306-2ubuntu1
* Enabled unicode support. (Closes: LP #123530)
* Modify Maintainer value to match the DebianMaintainerField specification.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/c/main.d
 
1
/* -*- mode: c; c-basic-offset: 8 -*- */
1
2
/*
2
3
    main.c --
3
4
*/
93
94
        ((struct ecl_fficall*)env->fficall)->registers = 0;
94
95
#endif
95
96
 
 
97
#ifdef CLOS
 
98
        _ecl_set_method_hash_size(env, 4096);
 
99
#ifdef ECL_THREADS
 
100
        env->method_hash_clear_list = Cnil;
 
101
#endif
 
102
#endif
 
103
 
96
104
        init_stacks(&i);
97
105
}
98
106
 
174
182
                        /* We have called cl_shutdown and want to use ECL again. */
175
183
                        ecl_booted = 1;
176
184
                }
177
 
                return;
 
185
                return 1;
178
186
        }
179
187
 
180
188
#if !defined(GBC_BOEHM)
310
318
                                            @'nil', @'nil');
311
319
#endif
312
320
        cl_core.to_be_finalized = Cnil;
313
 
        cl_core.bytes_consed = ecl_make_integer(MOST_POSITIVE_FIXNUM+1);
314
 
        cl_core.gc_counter = ecl_make_integer(MOST_POSITIVE_FIXNUM+1);
 
321
        cl_core.bytes_consed = Cnil;
 
322
        cl_core.gc_counter = Cnil;
315
323
        cl_core.gc_stats = FALSE;
316
324
 
317
325
        cl_core.null_string = make_constant_base_string("");
388
396
#endif
389
397
        aux = cl_list(
390
398
#ifdef ENABLE_DLOPEN
391
 
                6,CONS(make_constant_base_string("fas"), @'si::load-binary'),
 
399
                7,CONS(make_constant_base_string("fas"), @'si::load-binary'),
 
400
                CONS(make_constant_base_string("fasl"), @'si::load-binary'),
392
401
#else
393
402
                5,
394
403
#endif
423
432
                cl_list(8, @'&optional', @'&rest', @'&key', @'&allow-other-keys',
424
433
                        @'&aux', @'&whole', @'&environment', @'&body'));
425
434
 
426
 
        features = cl_list(4,
 
435
        features = cl_list(5,
427
436
                           ecl_make_keyword("ECL"),
428
437
                           ecl_make_keyword("COMMON"),
429
438
                           ecl_make_keyword(ECL_ARCHITECTURE),
430
 
                           ecl_make_keyword("FFI"));
 
439
                           ecl_make_keyword("FFI"),
 
440
                           ecl_make_keyword("PREFIXED-API"));
431
441
 
432
442
#define ADD_FEATURE(name) features = CONS(ecl_make_keyword(name),features)
433
443
 
586
596
#endif
587
597
        }
588
598
        if (ret_val == -1)
589
 
                CEerror("SI:SETENV failed: insufficient space in environment.",
590
 
                        1, "Continue anyway");
 
599
                CEerror(Ct, "SI:SETENV failed: insufficient space in environment.",
 
600
                        1, Cnil);
591
601
        @(return (value))
592
602
}
593
603
#endif