702 lines
29 KiB
C
702 lines
29 KiB
C
/***********************************************************************/
|
|
/* */
|
|
/* Objective Caml */
|
|
/* */
|
|
/* Damien Doligez, projet Moscova, INRIA Rocquencourt */
|
|
/* */
|
|
/* Copyright 2003 Institut National de Recherche en Informatique et */
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
/* under the terms of the GNU Library General Public License, with */
|
|
/* the special exception on linking described in file ../LICENSE. */
|
|
/* */
|
|
/***********************************************************************/
|
|
|
|
/* $Id$ */
|
|
|
|
/* definitions for compatibility with old identifiers */
|
|
|
|
#ifndef CAML_COMPATIBILITY_H
|
|
#define CAML_COMPATIBILITY_H
|
|
|
|
#ifndef CAML_NAME_SPACE
|
|
|
|
/*
|
|
#define --> CAMLextern (defined with CAMLexport or CAMLprim)
|
|
(rien) --> CAMLprim
|
|
g --> global C identifier
|
|
x --> special case
|
|
|
|
SP* signals the special cases:
|
|
- when the identifier was not simply prefixed with [caml_]
|
|
- when the [caml_] version was already used for something else, and
|
|
was renamed out of the way (watch out for [caml_alloc] and
|
|
[caml_array_bound_error] in *.s)
|
|
*/
|
|
|
|
/* a faire:
|
|
- ui_* (reverifier que win32.c n'en depend pas)
|
|
*/
|
|
|
|
|
|
/* **** alloc.c */
|
|
#define alloc caml_alloc /*SP*/
|
|
#define alloc_small caml_alloc_small
|
|
#define alloc_tuple caml_alloc_tuple
|
|
#define alloc_string caml_alloc_string
|
|
#define alloc_final caml_alloc_final
|
|
#define copy_string caml_copy_string
|
|
#define alloc_array caml_alloc_array
|
|
#define copy_string_array caml_copy_string_array
|
|
#define convert_flag_list caml_convert_flag_list
|
|
/* alloc_dummy -> caml_alloc_dummy */
|
|
/* update_dummy -> caml_update_dummy */
|
|
/* **** asmrun/<arch>.s */
|
|
/* g caml_alloc -> caml_allocN SP*/
|
|
|
|
/* **** array.c */
|
|
/* array_get_addr -> caml_array_get_addr */
|
|
/* array_get_float -> caml_array_get_float */
|
|
/* array_get -> caml_array_get */
|
|
/* array_set_addr -> caml_array_set_addr */
|
|
/* array_set_float -> caml_array_set_float */
|
|
/* array_set -> caml_array_set */
|
|
/* array_unsafe_get_float -> caml_array_unsafe_get_float */
|
|
/* array_unsafe_get -> caml_array_unsafe_get */
|
|
/* array_unsafe_set_addr -> caml_array_unsafe_set_addr */
|
|
/* array_unsafe_set_float -> caml_array_unsafe_set_float */
|
|
/* array_unsafe_set -> caml_array_unsafe_set */
|
|
/* make_vect -> caml_make_vect */
|
|
/* make_array -> caml_make_array */
|
|
|
|
/* **** backtrace.c */
|
|
#define backtrace_active caml_backtrace_active
|
|
#define backtrace_pos caml_backtrace_pos
|
|
#define backtrace_buffer caml_backtrace_buffer
|
|
#define backtrace_last_exn caml_backtrace_last_exn
|
|
/* g init_backtrace -> caml_init_backtrace */
|
|
/* g stash_backtrace -> caml_stash_backtrace */
|
|
#define print_exception_backtrace caml_print_exception_backtrace
|
|
|
|
/* **** callback.c */
|
|
#define callback_depth caml_callback_depth
|
|
#define callbackN_exn caml_callbackN_exn
|
|
#define callback_exn caml_callback_exn
|
|
#define callback2_exn caml_callback2_exn
|
|
#define callback3_exn caml_callback3_exn
|
|
#define callback caml_callback
|
|
#define callback2 caml_callback2
|
|
#define callback3 caml_callback3
|
|
#define callbackN caml_callbackN
|
|
/* register_named_value -> caml_register_named_value */
|
|
|
|
/* **** compact.c */
|
|
/* g compact_heap -> caml_compact_heap */
|
|
/* g percent_max -> caml_percent_max */
|
|
/* g compact_heap_maybe -> caml_compact_heap_maybe */
|
|
|
|
/* **** compare.c */
|
|
#define compare_unordered caml_compare_unordered
|
|
/* compare -> caml_compare */
|
|
/* equal -> caml_equal */
|
|
/* notequal -> caml_notequal */
|
|
/* lessthan -> caml_lessthan */
|
|
/* lessequal -> caml_lessequal */
|
|
/* greaterthan -> caml_greaterthan */
|
|
/* greaterequal -> caml_greaterequal */
|
|
|
|
/* **** custom.c */
|
|
#define alloc_custom caml_alloc_custom
|
|
#define register_custom_operations caml_register_custom_operations
|
|
/* g find_custom_operations -> caml_find_custom_operations */
|
|
/* g final_custom_operations -> caml_final_custom_operations */
|
|
/* g init_custom_operations -> caml_init_custom_operations */
|
|
|
|
/* **** debugger.c */
|
|
/* g debugger_in_use -> caml_debugger_in_use */
|
|
/* g event_count -> caml_event_count */
|
|
/* g debugger_init -> caml_debugger_init */
|
|
/* g debugger -> caml_debugger */
|
|
|
|
/* **** dynlink.c */
|
|
/* g prim_table -> caml_prim_table */
|
|
/* g prim_name_table -> caml_prim_name_table */
|
|
/* g shared_libs_path -> caml_shared_libs_path */
|
|
/* g build_primitive_table -> caml_build_primitive_table */
|
|
/* dynlink_open_lib -> caml_dynlink_open_lib */
|
|
/* dynlink_close_lib -> caml_dynlink_close_lib */
|
|
/* dynlink_lookup_symbol -> caml_dynlink_lookup_symbol */
|
|
/* dynlink_add_primitive -> caml_dynlink_add_primitive */
|
|
/* dynlink_get_current_libs -> caml_dynlink_get_current_libs */
|
|
|
|
/* **** extern.c */
|
|
#define output_val caml_output_val
|
|
/* output_value -> caml_output_value */
|
|
/* output_value_to_string -> caml_output_value_to_string */
|
|
/* output_value_to_buffer -> caml_output_value_to_buffer */
|
|
#define output_value_to_malloc caml_output_value_to_malloc
|
|
#define output_value_to_block caml_output_value_to_block
|
|
#define serialize_int_1 caml_serialize_int_1
|
|
#define serialize_int_2 caml_serialize_int_2
|
|
#define serialize_int_4 caml_serialize_int_4
|
|
#define serialize_int_8 caml_serialize_int_8
|
|
#define serialize_float_4 caml_serialize_float_4
|
|
#define serialize_float_8 caml_serialize_float_8
|
|
#define serialize_block_1 caml_serialize_block_1
|
|
#define serialize_block_2 caml_serialize_block_2
|
|
#define serialize_block_4 caml_serialize_block_4
|
|
#define serialize_block_8 caml_serialize_block_8
|
|
#define serialize_block_float_8 caml_serialize_block_float_8
|
|
|
|
/* **** fail.c */
|
|
#define external_raise caml_external_raise
|
|
/* g exn_bucket -> caml_exn_bucket */
|
|
#define mlraise caml_raise /*SP*/
|
|
#define raise_constant caml_raise_constant
|
|
#define raise_with_arg caml_raise_with_arg
|
|
#define raise_with_string caml_raise_with_string
|
|
#define failwith caml_failwith
|
|
#define invalid_argument caml_invalid_argument
|
|
#define array_bound_error caml_array_bound_error /*SP*/
|
|
#define raise_out_of_memory caml_raise_out_of_memory
|
|
#define raise_stack_overflow caml_raise_stack_overflow
|
|
#define raise_sys_error caml_raise_sys_error
|
|
#define raise_end_of_file caml_raise_end_of_file
|
|
#define raise_zero_divide caml_raise_zero_divide
|
|
#define raise_not_found caml_raise_not_found
|
|
#define raise_sys_blocked_io caml_raise_sys_blocked_io
|
|
#define init_exceptions caml_init_exceptions
|
|
/* **** asmrun/fail.c */
|
|
/* g raise_caml_exception -> caml_raise_exception SP*/
|
|
/* **** asmrun/<arch>.s */
|
|
/* g caml_array_bound_error -> caml_ml_array_bound_error SP*/
|
|
|
|
/* **** finalise.c */
|
|
/* g final_update -> caml_final_update */
|
|
/* g final_do_calls -> caml_final_do_calls */
|
|
/* g final_do_strong_roots -> caml_final_do_strong_roots */
|
|
/* g final_do_weak_roots -> caml_final_do_weak_roots */
|
|
/* g final_do_young_roots -> caml_final_do_young_roots */
|
|
/* g final_empty_young -> caml_final_empty_young */
|
|
/* final_register -> caml_final_register */
|
|
|
|
/* **** fix_code.c */
|
|
/* g start_code -> caml_start_code */
|
|
/* g code_size -> caml_code_size */
|
|
/* g saved_code -> caml_saved_code */
|
|
/* g code_md5 -> caml_code_md5 */
|
|
/* g load_code -> caml_load_code */
|
|
/* g fixup_endianness -> caml_fixup_endianness */
|
|
/* g instr_table -> caml_instr_table */
|
|
/* g instr_base -> caml_instr_base */
|
|
/* g thread_code -> caml_thread_code */
|
|
/* g set_instruction -> caml_set_instruction */
|
|
/* g is_instruction -> caml_is_instruction */
|
|
|
|
/* **** floats.c */
|
|
/*#define Double_val caml_Double_val done in mlvalues.h as needed */
|
|
/*#define Store_double_val caml_Store_double_val done in mlvalues.h as needed */
|
|
#define copy_double caml_copy_double
|
|
/* format_float -> caml_format_float */
|
|
/* float_of_string -> caml_float_of_string */
|
|
/* int_of_float -> caml_int_of_float */
|
|
/* float_of_int -> caml_float_of_int */
|
|
/* neg_float -> caml_neg_float */
|
|
/* abs_float -> caml_abs_float */
|
|
/* add_float -> caml_add_float */
|
|
/* sub_float -> caml_sub_float */
|
|
/* mul_float -> caml_mul_float */
|
|
/* div_float -> caml_div_float */
|
|
/* exp_float -> caml_exp_float */
|
|
/* floor_float -> caml_floor_float */
|
|
/* fmod_float -> caml_fmod_float */
|
|
/* frexp_float -> caml_frexp_float */
|
|
/* ldexp_float -> caml_ldexp_float */
|
|
/* log_float -> caml_log_float */
|
|
/* log10_float -> caml_log10_float */
|
|
/* modf_float -> caml_modf_float */
|
|
/* sqrt_float -> caml_sqrt_float */
|
|
/* power_float -> caml_power_float */
|
|
/* sin_float -> caml_sin_float */
|
|
/* sinh_float -> caml_sinh_float */
|
|
/* cos_float -> caml_cos_float */
|
|
/* cosh_float -> caml_cosh_float */
|
|
/* tan_float -> caml_tan_float */
|
|
/* tanh_float -> caml_tanh_float */
|
|
/* asin_float -> caml_asin_float */
|
|
/* acos_float -> caml_acos_float */
|
|
/* atan_float -> caml_atan_float */
|
|
/* atan2_float -> caml_atan2_float */
|
|
/* ceil_float -> caml_ceil_float */
|
|
/* eq_float -> caml_eq_float */
|
|
/* neq_float -> caml_neq_float */
|
|
/* le_float -> caml_le_float */
|
|
/* lt_float -> caml_lt_float */
|
|
/* ge_float -> caml_ge_float */
|
|
/* gt_float -> caml_gt_float */
|
|
/* float_compare -> caml_float_compare */
|
|
/* classify_float -> caml_classify_float */
|
|
/* init_ieee_float -> caml_init_ieee_float */
|
|
|
|
/* **** freelist.c */
|
|
/* g fl_merge -> caml_fl_merge */
|
|
/* g fl_cur_size -> caml_fl_cur_size */
|
|
/* * fl_check *** becomes static */
|
|
/* g fl_allocate -> caml_fl_allocate */
|
|
/* g fl_init_merge -> caml_fl_init_merge */
|
|
/* g fl_reset -> caml_fl_reset */
|
|
/* g fl_merge_block -> caml_fl_merge_block */
|
|
/* g fl_add_block -> caml_fl_add_block */
|
|
/* g make_free_blocks -> caml_make_free_blocks */
|
|
|
|
/* **** gc_ctrl.c */
|
|
/* g stat_minor_words -> caml_stat_minor_words */
|
|
/* g stat_promoted_words -> caml_stat_promoted_words */
|
|
/* g stat_major-words -> caml_stat_major_words */
|
|
/* g stat_minor_collections -> caml_stat_minor_collections */
|
|
/* g stat_major_collections -> caml_stat_major_collections */
|
|
/* g stat_heap_size -> caml_stat_heap_size */
|
|
/* g stat_top_heap_size -> caml_stat_top_heap_size */
|
|
/* g stat_compactions -> caml_stat_compactions */
|
|
/* g stat_heap_chunks -> caml_stat_heap_chunks */
|
|
/* g heap_check -> caml_heap_check */
|
|
/* gc_stat -> caml_gc_stat */
|
|
/* gc_counters -> caml_gc_counters */
|
|
/* gc_get -> caml_gc_get */
|
|
/* gc_set -> caml_gc_set */
|
|
/* gc_minor -> caml_gc_minor */
|
|
/* gc_major -> caml_gc_major */
|
|
/* gc_full_major -> caml_gc_full_major */
|
|
/* gc_major_slice -> caml_gc_major_slice */
|
|
/* gc_compaction -> caml_gc_compaction */
|
|
|
|
/* **** globroots.c */
|
|
#define register_global_root caml_register_global_root
|
|
#define remove_global_root caml_remove_global_root
|
|
|
|
/* **** hash.c */
|
|
/* hash_univ_param -> caml_hash_univ_param */
|
|
#define hash_variant caml_hash_variant
|
|
|
|
/* **** instrtrace.c */
|
|
/* g icount -> caml_icount */
|
|
/* g stop_here -> caml_stop_here */
|
|
/* g trace_flag -> caml_trace_flag */
|
|
/* g disasm_instr -> caml_disasm_instr */
|
|
|
|
/* **** intern.c */
|
|
#define input_val caml_input_val
|
|
/* input_value -> caml_input_value */
|
|
#define input_val_from_string caml_input_val_from_string
|
|
/* input_value_from_string -> caml_input_value_from_string */
|
|
#define input_value_from_malloc caml_input_value_from_malloc
|
|
#define input_value_from_block caml_input_value_from_block
|
|
/* marshal_data_size -> caml_marshal_data_size */
|
|
/* g code_checksum -> caml_code_checksum */
|
|
#define deserialize_uint_1 caml_deserialize_uint_1
|
|
#define deserialize_sint_1 caml_deserialize_sint_1
|
|
#define deserialize_uint_2 caml_deserialize_uint_2
|
|
#define deserialize_sint_2 caml_deserialize_sint_2
|
|
#define deserialize_uint_4 caml_deserialize_uint_4
|
|
#define deserialize_sint_4 caml_deserialize_sint_4
|
|
#define deserialize_uint_8 caml_deserialize_uint_8
|
|
#define deserialize_sint_8 caml_deserialize_sint_8
|
|
#define deserialize_float_4 caml_deserialize_float_4
|
|
#define deserialize_float_8 caml_deserialize_float_8
|
|
#define deserialize_block_1 caml_deserialize_block_1
|
|
#define deserialize_block_2 caml_deserialize_block_2
|
|
#define deserialize_block_4 caml_deserialize_block_4
|
|
#define deserialize_block_8 caml_deserialize_block_8
|
|
#define deserialize_block_float_8 caml_deserialize_block_float_8
|
|
#define deserialize_error caml_deserialize_error
|
|
|
|
/* **** interp.c */
|
|
/* g interprete -> caml_interprete */
|
|
|
|
/* **** ints.c */
|
|
/* int_compare -> caml_int_compare */
|
|
/* int_of_string -> caml_int_of_string */
|
|
/* format_int -> caml_format_int */
|
|
#define int32_ops caml_int32_ops
|
|
#define copy_int32 caml_copy_int32
|
|
/* int32_neg -> caml_int32_neg */
|
|
/* int32_add -> caml_int32_add */
|
|
/* int32_sub -> caml_int32_sub */
|
|
/* int32_mul -> caml_int32_mul */
|
|
/* int32_div -> caml_int32_div */
|
|
/* int32_mod -> caml_int32_mod */
|
|
/* int32_and -> caml_int32_and */
|
|
/* int32_or -> caml_int32_or */
|
|
/* int32_xor -> caml_int32_xor */
|
|
/* int32_shift_left -> caml_int32_shift_left */
|
|
/* int32_shift_right -> caml_int32_shift_right */
|
|
/* int32_shift_right_unsigned -> caml_int32_shift_right_unsigned */
|
|
/* int32_of_int -> caml_int32_of_int */
|
|
/* int32_to_int -> caml_int32_to_int */
|
|
/* int32_of_float -> caml_int32_of_float */
|
|
/* int32_to_float -> caml_int32_to_float */
|
|
/* int32_compare -> caml_int32_compare */
|
|
/* int32_format -> caml_int32_format */
|
|
/* int32_of_string -> caml_int32_of_string */
|
|
/* int32_bits_of_float -> caml_int32_bits_of_float */
|
|
/* int32_float_of_bits -> caml_int32_float_of_bits */
|
|
/*#define Int64_val caml_Int64_val *** done in mlvalues.h as needed */
|
|
#define int64_ops caml_int64_ops
|
|
#define copy_int64 caml_copy_int64
|
|
/* int64_neg -> caml_int64_neg */
|
|
/* int64_add -> caml_int64_add */
|
|
/* int64_sub -> caml_int64_sub */
|
|
/* int64_mul -> caml_int64_mul */
|
|
/* int64_div -> caml_int64_div */
|
|
/* int64_mod -> caml_int64_mod */
|
|
/* int64_and -> caml_int64_and */
|
|
/* int64_or -> caml_int64_or */
|
|
/* int64_xor -> caml_int64_xor */
|
|
/* int64_shift_left -> caml_int64_shift_left */
|
|
/* int64_shift_right -> caml_int64_shift_right */
|
|
/* int64_shift_right_unsigned -> caml_int64_shift_right_unsigned */
|
|
/* int64_of_int -> caml_int64_of_int */
|
|
/* int64_to_int -> caml_int64_to_int */
|
|
/* int64_of_float -> caml_int64_of_float */
|
|
/* int64_to_float -> caml_int64_to_float */
|
|
/* int64_of_int32 -> caml_int64_of_int32 */
|
|
/* int64_to_int32 -> caml_int64_to_int32 */
|
|
/* int64_of_nativeint -> caml_int64_of_nativeint */
|
|
/* int64_to_nativeint -> caml_int64_to_nativeint */
|
|
/* int64_compare -> caml_int64_compare */
|
|
/* int64_format -> caml_int64_format */
|
|
/* int64_of_string -> caml_int64_of_string */
|
|
/* int64_bits_of_float -> caml_int64_bits_of_float */
|
|
/* int64_float_of_bits -> caml_int64_float_of_bits */
|
|
#define nativeint_ops caml_nativeint_ops
|
|
#define copy_nativeint caml_copy_nativeint
|
|
/* nativeint_neg -> caml_nativeint_neg */
|
|
/* nativeint_add -> caml_nativeint_add */
|
|
/* nativeint_sub -> caml_nativeint_sub */
|
|
/* nativeint_mul -> caml_nativeint_mul */
|
|
/* nativeint_div -> caml_nativeint_div */
|
|
/* nativeint_mod -> caml_nativeint_mod */
|
|
/* nativeint_and -> caml_nativeint_and */
|
|
/* nativeint_or -> caml_nativeint_or */
|
|
/* nativeint_xor -> caml_nativeint_xor */
|
|
/* nativeint_shift_left -> caml_nativeint_shift_left */
|
|
/* nativeint_shift_right -> caml_nativeint_shift_right */
|
|
/* nativeint_shift_right_unsigned -> caml_nativeint_shift_right_unsigned */
|
|
/* nativeint_of_int -> caml_nativeint_of_int */
|
|
/* nativeint_to_int -> caml_nativeint_to_int */
|
|
/* nativeint_of_float -> caml_nativeint_of_float */
|
|
/* nativeint_to_float -> caml_nativeint_to_float */
|
|
/* nativeint_of_int32 -> caml_nativeint_of_int32 */
|
|
/* nativeint_to_int32 -> caml_nativeint_to_int32 */
|
|
/* nativeint_compare -> caml_nativeint_compare */
|
|
/* nativeint_format -> caml_nativeint_format */
|
|
/* nativeint_of_string -> caml_nativeint_of_string */
|
|
|
|
/* **** io.c */
|
|
#define channel_mutex_free caml_channel_mutex_free
|
|
#define channel_mutex_lock caml_channel_mutex_lock
|
|
#define channel_mutex_unlock caml_channel_mutex_unlock
|
|
#define channel_mutex_unlock_exn caml_channel_mutex_unlock_exn
|
|
#define all_opened_channels caml_all_opened_channels
|
|
#define open_descriptor_in caml_open_descriptor_in /*SP*/
|
|
#define open_descriptor_out caml_open_descriptor_out /*SP*/
|
|
#define close_channel caml_close_channel /*SP*/
|
|
#define channel_size caml_channel_size /*SP*/
|
|
#define channel_binary_mode caml_channel_binary_mode
|
|
#define flush_partial caml_flush_partial /*SP*/
|
|
#define flush caml_flush /*SP*/
|
|
#define putword caml_putword
|
|
#define putblock caml_putblock
|
|
#define really_putblock caml_really_putblock
|
|
#define seek_out caml_seek_out /*SP*/
|
|
#define pos_out caml_pos_out /*SP*/
|
|
#define do_read caml_do_read
|
|
#define refill caml_refill
|
|
#define getword caml_getword
|
|
#define getblock caml_getblock
|
|
#define really_getblock caml_really_getblock
|
|
#define seek_in caml_seek_in /*SP*/
|
|
#define pos_in caml_pos_in /*SP*/
|
|
#define input_scan_line caml_input_scan_line /*SP*/
|
|
#define finalize_channel caml_finalize_channel
|
|
#define alloc_channel caml_alloc_channel
|
|
/* caml_open_descriptor_in -> caml_ml_open_descriptor_in SP*/
|
|
/* caml_open_descriptor_out -> caml_ml_open_descriptor_out SP*/
|
|
/* caml_out_channels_list -> caml_ml_out_channels_list SP*/
|
|
/* channel_descriptor -> caml_channel_descriptor */
|
|
/* caml_close_channel -> caml_ml_close_channel SP*/
|
|
/* caml_channel_size -> caml_ml_channel_size SP*/
|
|
/* caml_channel_size_64 -> caml_ml_channel_size_64 SP*/
|
|
/* caml_set_binary_mode -> caml_ml_set_binary_mode SP*/
|
|
/* caml_flush_partial -> caml_ml_flush_partial SP*/
|
|
/* caml_flush -> caml_ml_flush SP*/
|
|
/* caml_output_char -> caml_ml_output_char SP*/
|
|
/* caml_output_int -> caml_ml_output_int SP*/
|
|
/* caml_output_partial -> caml_ml_output_partial SP*/
|
|
/* caml_output -> caml_ml_output SP*/
|
|
/* caml_seek_out -> caml_ml_seek_out SP*/
|
|
/* caml_seek_out_64 -> caml_ml_seek_out_64 SP*/
|
|
/* caml_pos_out -> caml_ml_pos_out SP*/
|
|
/* caml_pos_out_64 -> caml_ml_pos_out_64 SP*/
|
|
/* caml_input_char -> caml_ml_input_char SP*/
|
|
/* caml_input_int -> caml_ml_input_int SP*/
|
|
/* caml_input -> caml_ml_input SP*/
|
|
/* caml_seek_in -> caml_ml_seek_in SP*/
|
|
/* caml_seek_in_64 -> caml_ml_seek_in_64 SP*/
|
|
/* caml_pos_in -> caml_ml_pos_in SP*/
|
|
/* caml_pos_in_64 -> caml_ml_pos_in_64 SP*/
|
|
/* caml_input_scan_line -> caml_ml_input_scan_line SP*/
|
|
/*#define Val_file_offset caml_Val_file_offset *** done in io.h as needed */
|
|
/*#define File_offset_val caml_File_offset_val *** done in io.h as needed */
|
|
|
|
/* **** lexing.c */
|
|
/* lex_engine -> caml_lex_engine */
|
|
/* new_lex_engine -> caml_new_lex_engine */
|
|
|
|
/* **** main.c */
|
|
/* *** no change */
|
|
|
|
/* **** major_gc.c */
|
|
/* g percent_free -> caml_percent_free */
|
|
/* g major_heap_increment -> caml_major_heap_increment */
|
|
#define heap_start caml_heap_start
|
|
#define heap_end caml_heap_end
|
|
#define page_table caml_page_table
|
|
/* g page_low -> caml_page_low */
|
|
/* g page_high -> caml_page_high */
|
|
/* g gc_sweep_hp -> caml_gc_sweep_hp */
|
|
/* g gc_phase -> caml_gc_phase */
|
|
/* g allocated_words -> caml_allocated_words */
|
|
/* g extra_heap_memory -> caml_extra_heap_memory */
|
|
/* g fl_size_at_phase_change -> caml_fl_size_at_phase_change */
|
|
/* g darken -> caml_darken */
|
|
/* g major_collection_slice -> caml_major_collection_slice */
|
|
/* g finish_major_cycle -> caml_finish_major_cycle */
|
|
/* g round_heap_chunk_size -> caml_round_heap_chunk_size */
|
|
/* g init_major_heap -> caml_init_major_heap */
|
|
|
|
/* **** md5.c */
|
|
#define md5_string caml_md5_string
|
|
#define md5_chan caml_md5_chan
|
|
#define MD5Init caml_MD5Init
|
|
#define MD5Update caml_MD5Update
|
|
#define MD5Final caml_MD5Final
|
|
#define MD5Transform caml_MD5Transform
|
|
|
|
/* **** memory.c */
|
|
/* g alloc_for_heap -> caml_alloc_for_heap */
|
|
/* g free_for_heap -> caml_free_for_heap */
|
|
/* g add_to_heap -> caml_add_to_heap */
|
|
/* g shrink_heap -> caml_shrink_heap */
|
|
/* g allocation_color -> caml_allocation_color */
|
|
#define alloc_shr caml_alloc_shr
|
|
/* g adjust_gc_speed -> caml_adjust_gc_speed */
|
|
#define initialize caml_initialize
|
|
#define modify caml_modify
|
|
#define stat_alloc caml_stat_alloc
|
|
#define stat_free caml_stat_free
|
|
#define stat_resize caml_stat_resize
|
|
|
|
/* **** meta.c */
|
|
/* get_global_data -> caml_get_global_data */
|
|
/* reify_bytecode -> caml_reify_bytecode */
|
|
/* realloc_global -> caml_realloc_global */
|
|
/* get_current_environment -> caml_get_current_environment */
|
|
/* invoke_traced_function -> caml_invoke_traced_function */
|
|
|
|
/* **** minor_gc.c */
|
|
/* g minor_heap_size -> caml_minor_heap_size */
|
|
#define young_start caml_young_start
|
|
#define young_end caml_young_end
|
|
#define young_ptr caml_young_ptr
|
|
#define young_limit caml_young_limit
|
|
#define ref_table_ptr caml_ref_table_ptr
|
|
#define ref_table_limit caml_ref_table_limit
|
|
/* g in_minor_collection -> caml_in_minor_collection */
|
|
/* g set_minor_heap_size -> caml_set_minor_heap_size */
|
|
/* g oldify_one -> caml_oldify_one */
|
|
/* g oldify_mopup -> caml_oldify_mopup */
|
|
/* g empty_minor_heap -> caml_empty_minor_heap */
|
|
#define minor_collection caml_minor_collection
|
|
#define check_urgent_gc caml_check_urgent_gc
|
|
/* g realloc_ref_table -> caml_realloc_ref_table */
|
|
|
|
/* **** misc.c */
|
|
/* g verb_gc -> caml_verb_gc */
|
|
/* g gc_message -> caml_gc_message */
|
|
/* g fatal_error -> caml_fatal_error */
|
|
/* g fatal_error_arg -> caml_fatal_error_arg */
|
|
/* g fatal_error_arg2 -> caml_fatal_error_arg2 */
|
|
/* g aligned_malloc -> caml_aligned_malloc */
|
|
/* g ext_table_init -> caml_ext_table_init */
|
|
/* g ext_table_add -> caml_ext_table_add */
|
|
/* g ext_table_free -> caml_ext_table_free */
|
|
|
|
/* **** obj.c */
|
|
/* static_alloc -> caml_static_alloc */
|
|
/* static_free -> caml_static_free */
|
|
/* static_resize -> caml_static_resize */
|
|
/* obj_is_block -> caml_obj_is_block */
|
|
/* obj_tag -> caml_obj_tag */
|
|
/* obj_set_tag -> caml_obj_set_tag */
|
|
/* obj_block -> caml_obj_block */
|
|
/* obj_dup -> caml_obj_dup */
|
|
/* obj_truncate -> caml_obj_truncate */
|
|
/* lazy_follow_forward -> caml_lazy_follow_forward */
|
|
/* lazy_make_forward -> caml_lazy_make_forward */
|
|
|
|
/* **** parsing.c */
|
|
/* g parser_trace -> caml_parser_trace */
|
|
/* parse_engine -> caml_parse_engine */
|
|
|
|
/* **** prims.c */
|
|
/* g buitin_cprim -> caml_builtin_cprim */
|
|
/* g names_of_builtin_cprim -> caml_names_of_builtin_cprim */
|
|
|
|
/* **** printexc.c */
|
|
#define format_caml_exception caml_format_exception /*SP*/
|
|
/* g fatal_uncaught_exception -> caml_fatal_uncaught_exception */
|
|
|
|
/* **** roots.c */
|
|
#define local_roots caml_local_roots
|
|
#define scan_roots_hook caml_scan_roots_hook
|
|
/* g oldify_local_roots -> caml_oldify_local_roots */
|
|
/* g darken_all_roots -> caml_darken_all_roots */
|
|
/* g do_roots -> caml_do_roots */
|
|
#define do_local_roots caml_do_local_roots
|
|
|
|
/* **** signals.c */
|
|
#define async_signal_mode caml_async_signal_mode
|
|
#define pending_signal caml_pending_signal
|
|
#define something_to_do caml_something_to_do
|
|
/* g force_major_slice -> caml_force_major_slice */
|
|
/* g signal_handlers -> caml_signal_handlers */
|
|
#define enter_blocking_section_hook caml_enter_blocking_section_hook
|
|
#define leave_blocking_section_hook caml_leave_blocking_section_hook
|
|
#define async_action_hook caml_async_action_hook
|
|
/* g process_event -> caml_process_event */
|
|
/* g execute_signal -> caml_execute_signal */
|
|
/* * handle_signal *** becomes static */
|
|
/* g urge_major_slice -> caml_urge_major_slice */
|
|
#define enter_blocking_section caml_enter_blocking_section
|
|
#define leave_blocking_section caml_leave_blocking_section
|
|
#define convert_signal_number caml_convert_signal_number
|
|
/* install_signal_handler -> caml_install_signal_handler */
|
|
/* **** asmrun/signals.c */
|
|
#define garbage_collection caml_garbage_collection
|
|
/* g init_signals -> caml_init_signals */
|
|
|
|
/* **** stacks.c */
|
|
#define stack_low caml_stack_low
|
|
#define stack_high caml_stack_high
|
|
#define stack_threshold caml_stack_threshold
|
|
#define extern_sp caml_extern_sp
|
|
#define trapsp caml_trapsp
|
|
#define trap_barrier caml_trap_barrier
|
|
/* g global_data -> caml_global_data */
|
|
/* g max_stack_size -> caml_max_stack_size */
|
|
/* g init_stack -> caml_init_stack */
|
|
/* g realloc_stack -> caml_realloc_stack */
|
|
/* ensure_stack_capacity -> caml_ensure_stack_capacity */
|
|
/* g change_max_stack_size -> caml_change_max_stack_size */
|
|
|
|
/* **** startup.c */
|
|
#define atom_table caml_atom_table
|
|
/* g attempt_open -> caml_attempt_open */
|
|
/* g read_section_descriptors -> caml_read_section_descriptors */
|
|
/* g seek_optional_section -> caml_seek_optional_section */
|
|
/* g seek_section -> caml_seek_section */
|
|
/* **** asmrun/startup.c */
|
|
#define static_data_start caml_static_data_start
|
|
#define static_data_end caml_static_data_end
|
|
/* g code_area_start -> caml_code_area_start */
|
|
/* g code_area_end -> caml_code_area_end */
|
|
|
|
/* **** str.c */
|
|
#define string_length caml_string_length
|
|
/* ml_string_length -> caml_ml_string_length */
|
|
/* create_string -> caml_create_string */
|
|
/* string_get -> caml_string_get */
|
|
/* string_set -> caml_string_set */
|
|
/* string_equal -> caml_string_equal */
|
|
/* string_notequal -> caml_string_notequal */
|
|
/* string_compare -> caml_string_compare */
|
|
/* string_lessthan -> caml_string_lessthan */
|
|
/* string_lessequal -> caml_string_lessequal */
|
|
/* string_greaterthan -> caml_string_greaterthan */
|
|
/* string_greaterequal -> caml_string_greaterequal */
|
|
/* blit_string -> caml_blit_string */
|
|
/* fill_string -> caml_fill_string */
|
|
/* is_printable -> caml_is_printable */
|
|
/* bitvect_test -> caml_bitvect_test */
|
|
|
|
/* **** sys.c */
|
|
#define sys_error caml_sys_error
|
|
#define sys_exit caml_sys_exit
|
|
/* sys_open -> caml_sys_open */
|
|
/* sys_close -> caml_sys_close */
|
|
/* sys_file_exists -> caml_sys_file_exists */
|
|
/* sys_remove -> caml_sys_remove */
|
|
/* sys_chdir -> caml_sys_chdir */
|
|
/* sys_getcwd -> caml_sys_getcwd */
|
|
/* sys_getenv -> caml_sys_getenv */
|
|
/* sys_get_argv -> caml_sys_get_argv */
|
|
/* g sys_init -> caml_sys_init */
|
|
/* sys_system_command -> caml_sys_system_command */
|
|
/* sys_time -> caml_sys_time */
|
|
/* sys_random_seed -> caml_sys_random_seed */
|
|
/* sys_get_config -> caml_sys_get_config */
|
|
/* sys_read_directory -> caml_sys_read_directory */
|
|
|
|
/* **** terminfo.c */
|
|
/* terminfo_setup -> caml_terminfo_setup */
|
|
/* terminfo_backup -> caml_terminfo_backup */
|
|
/* terminfo_standout -> caml_terminfo_standout*/
|
|
/* terminfo_resume -> caml_terminfo_resume */
|
|
|
|
/* **** unix.c & win32.c */
|
|
/* g decompose_path -> caml_decompose_path */
|
|
/* g search_in_path -> caml_search_in_path */
|
|
#define search_exe_in_path caml_search_exe_in_path
|
|
/* g search_dll_in_path -> caml_search_dll_in_path */
|
|
/* g aligned_mmap -> caml_aligned_mmap */
|
|
/* g aligned_munmap -> caml_aligned_munmap */
|
|
/* g executable_name -> caml_executable_name */
|
|
/* g win32_signal -> caml_win32_signal */
|
|
/* x expand_command_line -> caml_expand_command_line private CAMLexport */
|
|
|
|
/* **** weak.c */
|
|
/* g weak_list_head -> caml_weak_list_head */
|
|
/* g weak_none -> caml_weak_none */
|
|
/* weak_create -> caml_weak_create */
|
|
/* weak_set -> caml_weak_set */
|
|
/* weak_get -> caml_weak_get */
|
|
/* weak_get_copy -> caml_weak_get_copy */
|
|
/* weak_check -> caml_weak_check */
|
|
|
|
/* **** asmcomp/asmlink.ml */
|
|
/* g startup -> caml_startup */
|
|
/* g startup__frametable -> caml_startup_frametable */
|
|
/* g system__frametable -> caml_system__frametable */
|
|
|
|
/* **** asmcomp/cmmgen.ml */
|
|
/* g bucket_* -> caml_bucket_* */
|
|
/* g globals_map -> caml_globals_map */
|
|
/* g Match_failure -> caml_exn_Match_failure */
|
|
/* g Out_of_memory -> caml_exn_Out_of_memory */
|
|
/* g Invalid_argument -> caml_exn_Invalid_argument */
|
|
/* g Failure -> caml_exn_Failure */
|
|
/* g Not_found -> caml_exn_Not_found */
|
|
/* g Sys_error -> caml_exn_Sys_error */
|
|
/* g End_of_file -> caml_exn_End_of_file */
|
|
/* g Division_by_zero -> caml_exn_Division_by_zero */
|
|
/* g Stack_overflow -> caml_exn_Stack_overflow */
|
|
/* g Sys_blocked_io -> caml_exn_Sys_blocked_io */
|
|
/* g Assert_failure -> caml_exn_Assert_failure */
|
|
/* g Undefined_recursive_module -> caml_exn_Undefined_recursive_module */
|
|
|
|
/* **** asmcomp/asmlink.ml, asmcomp/cmmgen.ml, asmcomp/compilenv.ml */
|
|
/* g Module_name -> camlModule_name */
|
|
|
|
#endif /* CAML_NAME_SPACE */
|
|
#endif /* CAML_COMPATIBILITY_H */
|