blob: 01d6218f7d3639dcb7ff6c2fc156b49a7c49f835 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#include <dl_conversions.h>
ffi_type * rb_dl_type_to_ffi_type(int dl_type)
{
int signed_p = 1;
if(dl_type < 0) {
dl_type = -1 * dl_type;
signed_p = 0;
}
switch(dl_type) {
case DLTYPE_VOID:
return &ffi_type_void;
case DLTYPE_VOIDP:
return &ffi_type_pointer;
case DLTYPE_CHAR:
return signed_p ? &ffi_type_schar : &ffi_type_uchar;
case DLTYPE_SHORT:
return signed_p ? &ffi_type_sshort : &ffi_type_ushort;
case DLTYPE_INT:
return signed_p ? &ffi_type_sint : &ffi_type_uint;
case DLTYPE_LONG:
return signed_p ? &ffi_type_slong : &ffi_type_ulong;
#if HAVE_LONG_LONG
case DLTYPE_LONG_LONG:
return &ffi_type_uint64;
break;
#endif
case DLTYPE_FLOAT:
return &ffi_type_float;
case DLTYPE_DOUBLE:
return &ffi_type_double;
default:
rb_raise(rb_eRuntimeError, "unknown type %d", dl_type);
}
return &ffi_type_pointer;
}
|