374 lines
13 KiB
C
374 lines
13 KiB
C
/**************************************************************************/
|
|
/* */
|
|
/* OCaml */
|
|
/* */
|
|
/* 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 Lesser General Public License version 2.1, with the */
|
|
/* special exception on linking described in the file LICENSE. */
|
|
/* */
|
|
/**************************************************************************/
|
|
|
|
/* definitions for compatibility with old identifiers */
|
|
|
|
#ifndef CAML_COMPATIBILITY_H
|
|
#define CAML_COMPATIBILITY_H
|
|
|
|
/* internal global variables renamed between 4.02.1 and 4.03.0 */
|
|
#define caml_stat_top_heap_size Bsize_wsize(caml_stat_top_heap_wsz)
|
|
#define caml_stat_heap_size Bsize_wsize(caml_stat_heap_wsz)
|
|
|
|
#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
|
|
|
|
/* **** array.c */
|
|
|
|
/* **** 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
|
|
#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
|
|
|
|
/* **** compact.c */
|
|
|
|
/* **** compare.c */
|
|
#define compare_unordered caml_compare_unordered
|
|
|
|
/* **** custom.c */
|
|
#define alloc_custom caml_alloc_custom
|
|
#define register_custom_operations caml_register_custom_operations
|
|
|
|
/* **** debugger.c */
|
|
|
|
/* **** dynlink.c */
|
|
|
|
/* **** extern.c */
|
|
#define output_val caml_output_val
|
|
#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
|
|
#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
|
|
/* **** runtime/fail_nat.c */
|
|
/* **** runtime/<arch>.s */
|
|
|
|
/* **** finalise.c */
|
|
|
|
/* **** fix_code.c */
|
|
|
|
/* **** 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
|
|
|
|
/* **** freelist.c */
|
|
|
|
/* **** gc_ctrl.c */
|
|
|
|
/* **** globroots.c */
|
|
#define register_global_root caml_register_global_root
|
|
#define remove_global_root caml_remove_global_root
|
|
|
|
/* **** hash.c */
|
|
#define hash_variant caml_hash_variant
|
|
|
|
/* **** instrtrace.c */
|
|
|
|
/* **** intern.c */
|
|
#define input_val caml_input_val
|
|
#define input_val_from_string caml_input_val_from_string
|
|
#define input_value_from_malloc caml_input_value_from_malloc
|
|
#define input_value_from_block caml_input_value_from_block
|
|
#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 */
|
|
|
|
/* **** ints.c */
|
|
#define int32_ops caml_int32_ops
|
|
#define copy_int32 caml_copy_int32
|
|
/*#define Int64_val caml_Int64_val *** done in mlvalues.h as needed */
|
|
#define int64_ops caml_int64_ops
|
|
#define copy_int64 caml_copy_int64
|
|
#define nativeint_ops caml_nativeint_ops
|
|
#define copy_nativeint caml_copy_nativeint
|
|
|
|
/* **** 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
|
|
/*#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 */
|
|
|
|
/* **** main.c */
|
|
/* *** no change */
|
|
|
|
/* **** major_gc.c */
|
|
#define heap_start caml_heap_start
|
|
#define page_table caml_page_table
|
|
|
|
/* **** 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 */
|
|
#define alloc_shr caml_alloc_shr
|
|
#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 */
|
|
|
|
/* **** minor_gc.c */
|
|
#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 caml_ref_table
|
|
#define minor_collection caml_minor_collection
|
|
#define check_urgent_gc caml_check_urgent_gc
|
|
|
|
/* **** misc.c */
|
|
|
|
/* **** obj.c */
|
|
|
|
/* **** parsing.c */
|
|
|
|
/* **** prims.c */
|
|
|
|
/* **** printexc.c */
|
|
#define format_caml_exception caml_format_exception /*SP*/
|
|
|
|
/* **** roots.c */
|
|
#define local_roots caml_local_roots
|
|
#define scan_roots_hook caml_scan_roots_hook
|
|
#define do_local_roots caml_do_local_roots
|
|
|
|
/* **** signals.c */
|
|
#define pending_signals caml_pending_signals
|
|
#define something_to_do caml_something_to_do
|
|
#define enter_blocking_section_hook caml_enter_blocking_section_hook
|
|
#define leave_blocking_section_hook caml_leave_blocking_section_hook
|
|
#define enter_blocking_section caml_enter_blocking_section
|
|
#define leave_blocking_section caml_leave_blocking_section
|
|
#define convert_signal_number caml_convert_signal_number
|
|
/* **** runtime/signals.c */
|
|
#define garbage_collection caml_garbage_collection
|
|
|
|
/* **** 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
|
|
|
|
/* **** startup.c */
|
|
#define atom_table caml_atom_table
|
|
/* **** runtime/startup_nat.c */
|
|
#define static_data_start caml_static_data_start
|
|
#define static_data_end caml_static_data_end
|
|
|
|
/* **** str.c */
|
|
#define string_length caml_string_length
|
|
|
|
/* **** sys.c */
|
|
#define sys_error caml_sys_error
|
|
#define sys_exit caml_sys_exit
|
|
|
|
/* **** terminfo.c */
|
|
|
|
/* **** unix.c & win32.c */
|
|
#define search_exe_in_path caml_search_exe_in_path
|
|
|
|
/* **** weak.c */
|
|
|
|
/* **** asmcomp/asmlink.ml */
|
|
|
|
/* **** asmcomp/cmmgen.ml */
|
|
|
|
/* **** asmcomp/asmlink.ml, asmcomp/cmmgen.ml, asmcomp/compilenv.ml */
|
|
|
|
/* ************************************************************* */
|
|
|
|
/* **** otherlibs/bigarray */
|
|
#define int8 caml_ba_int8
|
|
#define uint8 caml_ba_uint8
|
|
#define int16 caml_ba_int16
|
|
#define uint16 caml_ba_uint16
|
|
#define MAX_NUM_DIMS CAML_BA_MAX_NUM_DIMS
|
|
#define caml_bigarray_kind caml_ba_kind
|
|
#define BIGARRAY_FLOAT32 CAML_BA_FLOAT32
|
|
#define BIGARRAY_FLOAT64 CAML_BA_FLOAT64
|
|
#define BIGARRAY_SINT8 CAML_BA_SINT8
|
|
#define BIGARRAY_UINT8 CAML_BA_UINT8
|
|
#define BIGARRAY_SINT16 CAML_BA_SINT16
|
|
#define BIGARRAY_UINT16 CAML_BA_UINT16
|
|
#define BIGARRAY_INT32 CAML_BA_INT32
|
|
#define BIGARRAY_INT64 CAML_BA_INT64
|
|
#define BIGARRAY_CAML_INT CAML_BA_CAML_INT
|
|
#define BIGARRAY_NATIVE_INT CAML_BA_NATIVE_INT
|
|
#define BIGARRAY_COMPLEX32 CAML_BA_COMPLEX32
|
|
#define BIGARRAY_COMPLEX64 CAML_BA_COMPLEX64
|
|
#define BIGARRAY_KIND_MASK CAML_BA_KIND_MASK
|
|
#define caml_bigarray_layout caml_ba_layout
|
|
#define BIGARRAY_C_LAYOUT CAML_BA_C_LAYOUT
|
|
#define BIGARRAY_FORTRAN_LAYOUT CAML_BA_FORTRAN_LAYOUT
|
|
#define BIGARRAY_LAYOUT_MASK CAML_BA_LAYOUT_MASK
|
|
#define caml_bigarray_managed caml_ba_managed
|
|
#define BIGARRAY_EXTERNAL CAML_BA_EXTERNAL
|
|
#define BIGARRAY_MANAGED CAML_BA_MANAGED
|
|
#define BIGARRAY_MAPPED_FILE CAML_BA_MAPPED_FILE
|
|
#define BIGARRAY_MANAGED_MASK CAML_BA_MANAGED_MASK
|
|
#define caml_bigarray_proxy caml_ba_proxy
|
|
#define caml_bigarray caml_ba_array
|
|
#define Bigarray_val Caml_ba_array_val
|
|
#define Data_bigarray_val Caml_ba_data_val
|
|
#define alloc_bigarray caml_ba_alloc
|
|
#define alloc_bigarray_dims caml_ba_alloc_dims
|
|
#define bigarray_map_file caml_ba_map_file
|
|
#define bigarray_unmap_file caml_ba_unmap_file
|
|
#define bigarray_element_size caml_ba_element_size
|
|
#define bigarray_byte_size caml_ba_byte_size
|
|
#define bigarray_deserialize caml_ba_deserialize
|
|
#define MAX_BIGARRAY_MEMORY CAML_BA_MAX_MEMORY
|
|
#define bigarray_create caml_ba_create
|
|
#define bigarray_get_N caml_ba_get_N
|
|
#define bigarray_get_1 caml_ba_get_1
|
|
#define bigarray_get_2 caml_ba_get_2
|
|
#define bigarray_get_3 caml_ba_get_3
|
|
#define bigarray_get_generic caml_ba_get_generic
|
|
#define bigarray_set_1 caml_ba_set_1
|
|
#define bigarray_set_2 caml_ba_set_2
|
|
#define bigarray_set_3 caml_ba_set_3
|
|
#define bigarray_set_N caml_ba_set_N
|
|
#define bigarray_set_generic caml_ba_set_generic
|
|
#define bigarray_num_dims caml_ba_num_dims
|
|
#define bigarray_dim caml_ba_dim
|
|
#define bigarray_kind caml_ba_kind
|
|
#define bigarray_layout caml_ba_layout
|
|
#define bigarray_slice caml_ba_slice
|
|
#define bigarray_sub caml_ba_sub
|
|
#define bigarray_blit caml_ba_blit
|
|
#define bigarray_fill caml_ba_fill
|
|
#define bigarray_reshape caml_ba_reshape
|
|
#define bigarray_init caml_ba_init
|
|
|
|
#endif /* CAML_NAME_SPACE */
|
|
#endif /* CAML_COMPATIBILITY_H */
|