aboutsummaryrefslogtreecommitdiff
path: root/Lib/ocaml/ocamlrundec.swg
diff options
context:
space:
mode:
Diffstat (limited to 'Lib/ocaml/ocamlrundec.swg')
-rw-r--r--Lib/ocaml/ocamlrundec.swg147
1 files changed, 28 insertions, 119 deletions
diff --git a/Lib/ocaml/ocamlrundec.swg b/Lib/ocaml/ocamlrundec.swg
index 555f9a44f..4d20f34b2 100644
--- a/Lib/ocaml/ocamlrundec.swg
+++ b/Lib/ocaml/ocamlrundec.swg
@@ -14,8 +14,6 @@ SWIGEXT {
#else
#define SWIGEXT
#endif
-#define value caml_value_t
-#define CAML_VALUE caml_value_t
#define CAML_NAME_SPACE
#include <caml/alloc.h>
#include <caml/custom.h>
@@ -34,95 +32,6 @@ SWIGEXT {
#define caml_array_set swig_caml_array_set
-/* Adapted from memory.h and mlvalues.h */
-
-#define SWIG_CAMLlocal1(x) \
- caml_value_t x = 0; \
- CAMLxparam1 (x)
-
-#define SWIG_CAMLlocal2(x, y) \
- caml_value_t x = 0, y = 0; \
- CAMLxparam2 (x, y)
-
-#define SWIG_CAMLlocal3(x, y, z) \
- caml_value_t x = 0, y = 0, z = 0; \
- CAMLxparam3 (x, y, z)
-
-#define SWIG_CAMLlocal4(x, y, z, t) \
- caml_value_t x = 0, y = 0, z = 0, t = 0; \
- CAMLxparam4 (x, y, z, t)
-
-#define SWIG_CAMLlocal5(x, y, z, t, u) \
- caml_value_t x = 0, y = 0, z = 0, t = 0, u = 0; \
- CAMLxparam5 (x, y, z, t, u)
-
-#define SWIG_CAMLlocalN(x, size) \
- caml_value_t x [(size)] = { 0, /* 0, 0, ... */ }; \
- CAMLxparamN (x, (size))
-
-#define SWIG_Field(x, i) (((caml_value_t *)(x)) [i]) /* Also an l-value. */
-#define SWIG_Store_field(block, offset, val) do{ \
- mlsize_t caml__temp_offset = (offset); \
- caml_value_t caml__temp_val = (val); \
- caml_modify (&SWIG_Field ((block), caml__temp_offset), caml__temp_val); \
-}while(0)
-
-#define SWIG_Data_custom_val(v) ((void *) &SWIG_Field((v), 1))
-#ifdef ARCH_BIG_ENDIAN
-#define SWIG_Tag_val(val) (((unsigned char *) (val)) [-1])
- /* Also an l-value. */
-#define SWIG_Tag_hp(hp) (((unsigned char *) (hp)) [sizeof(caml_value_t)-1])
- /* Also an l-value. */
-#else
-#define SWIG_Tag_val(val) (((unsigned char *) (val)) [-sizeof(caml_value_t)])
- /* Also an l-value. */
-#define SWIG_Tag_hp(hp) (((unsigned char *) (hp)) [0])
- /* Also an l-value. */
-#endif
-
-#ifdef CAMLreturn0
-#undef CAMLreturn0
-#endif
-#define CAMLreturn0 do{ \
- caml_local_roots = caml__frame; \
- return; \
-}while (0)
-
-#ifdef CAMLreturn
-#undef CAMLreturn
-#endif
-#define CAMLreturn(result) do{ \
- caml_value_t caml__temp_result = (result); \
- caml_local_roots = caml__frame; \
- return (caml__temp_result); \
-}while(0)
-
-#define CAMLreturn_type(result) do{ \
- caml_local_roots = caml__frame; \
- return result; \
-}while(0)
-
-#ifdef CAMLnoreturn
-#undef CAMLnoreturn
-#endif
-#define CAMLnoreturn ((void) caml__frame)
-
-
-#ifndef ARCH_ALIGN_INT64
-#if OCAML_VERSION >= 40300
-#define SWIG_Int64_val(v) (*((int64_t *) SWIG_Data_custom_val(v)))
-#else
-#define SWIG_Int64_val(v) (*((int64 *) SWIG_Data_custom_val(v)))
-#endif
-#else
-#if OCAML_VERSION >= 40300
-CAMLextern int64_t Int64_val(caml_value_t v);
-#else
-CAMLextern int64 Int64_val(caml_value_t v);
-#endif
-#define SWIG_Int64_val(v) Int64_val(v)
-#endif
-
#define SWIG_NewPointerObj(p,type,flags) caml_val_ptr(p,type)
#define SWIG_GetModule(clientdata) SWIG_Ocaml_GetModule(clientdata)
#define SWIG_SetModule(clientdata, pointer) SWIG_Ocaml_SetModule(pointer)
@@ -141,7 +50,7 @@ typedef enum {
SWIGINTERN void SWIG_OCamlThrowException(SWIG_OCamlExceptionCodes code, const char *msg) {
CAMLparam0();
- SWIG_CAMLlocal1(str);
+ CAMLlocal1(str);
switch (code) {
case SWIG_OCamlIllegalArgumentException:
@@ -164,48 +73,48 @@ SWIGINTERN void SWIG_OCamlThrowException(SWIG_OCamlExceptionCodes code, const ch
CAMLreturn0;
}
-#define SWIG_contract_assert(expr, msg) if(!(expr)) {SWIG_OCamlThrowException(SWIG_OCamlRuntimeException, msg);}
+#define SWIG_contract_assert(expr, msg) do { if(!(expr)) {SWIG_OCamlThrowException(SWIG_OCamlRuntimeException, msg);} } while (0)
SWIGINTERN int
SWIG_GetPtr(void *source, void **result, swig_type_info *type, swig_type_info *result_type);
- SWIGINTERN CAML_VALUE caml_list_nth( CAML_VALUE lst, int n );
- SWIGINTERN CAML_VALUE caml_list_append( CAML_VALUE lst, CAML_VALUE elt );
- SWIGINTERN int caml_list_length( CAML_VALUE lst );
- SWIGINTERN CAML_VALUE caml_array_new( int n );
- SWIGINTERN void caml_array_set( CAML_VALUE arr, int n, CAML_VALUE item );
- SWIGINTERN CAML_VALUE caml_array_nth( CAML_VALUE arr, int n );
- SWIGINTERN int caml_array_len( CAML_VALUE arr );
+ SWIGINTERN value caml_list_nth( value lst, int n );
+ SWIGINTERN value caml_list_append( value lst, value elt );
+ SWIGINTERN int caml_list_length( value lst );
+ SWIGINTERN value caml_array_new( int n );
+ SWIGINTERN void caml_array_set( value arr, int n, value item );
+ SWIGINTERN value caml_array_nth( value arr, int n );
+ SWIGINTERN int caml_array_len( value arr );
- SWIGINTERN CAML_VALUE caml_val_char( char c );
- SWIGINTERN CAML_VALUE caml_val_uchar( unsigned char c );
+ SWIGINTERN value caml_val_char( char c );
+ SWIGINTERN value caml_val_uchar( unsigned char c );
- SWIGINTERN CAML_VALUE caml_val_short( short s );
- SWIGINTERN CAML_VALUE caml_val_ushort( unsigned short s );
+ SWIGINTERN value caml_val_short( short s );
+ SWIGINTERN value caml_val_ushort( unsigned short s );
- SWIGINTERN CAML_VALUE caml_val_int( int x );
- SWIGINTERN CAML_VALUE caml_val_uint( unsigned int x );
+ SWIGINTERN value caml_val_int( int x );
+ SWIGINTERN value caml_val_uint( unsigned int x );
- SWIGINTERN CAML_VALUE caml_val_long( long x );
- SWIGINTERN CAML_VALUE caml_val_ulong( unsigned long x );
+ SWIGINTERN value caml_val_long( long x );
+ SWIGINTERN value caml_val_ulong( unsigned long x );
- SWIGINTERN CAML_VALUE caml_val_float( float f );
- SWIGINTERN CAML_VALUE caml_val_double( double d );
+ SWIGINTERN value caml_val_float( float f );
+ SWIGINTERN value caml_val_double( double d );
- SWIGINTERN CAML_VALUE caml_val_ptr( void *p, swig_type_info *descriptor );
+ SWIGINTERN value caml_val_ptr( void *p, swig_type_info *descriptor );
- SWIGINTERN CAML_VALUE caml_val_string( const char *str );
- SWIGINTERN CAML_VALUE caml_val_string_len( const char *str, int len );
+ SWIGINTERN value caml_val_string( const char *str );
+ SWIGINTERN value caml_val_string_len( const char *str, int len );
- SWIGINTERN long caml_long_val( CAML_VALUE v );
- SWIGINTERN double caml_double_val( CAML_VALUE v );
+ SWIGINTERN long caml_long_val( value v );
+ SWIGINTERN double caml_double_val( value v );
- SWIGINTERN int caml_ptr_val_internal( CAML_VALUE v, void **out,
+ SWIGINTERN int caml_ptr_val_internal( value v, void **out,
swig_type_info *descriptor );
- SWIGINTERN void *caml_ptr_val( CAML_VALUE v, swig_type_info *descriptor );
+ SWIGINTERN void *caml_ptr_val( value v, swig_type_info *descriptor );
- SWIGINTERN char *caml_string_val( CAML_VALUE v );
- SWIGINTERN int caml_string_len( CAML_VALUE v );
+ SWIGINTERN char *caml_string_val( value v );
+ SWIGINTERN int caml_string_len( value v );
#ifdef __cplusplus
}
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-23 11:11:19 +0000