/***********************************************************************/ /* */ /* 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/.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/.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 */