/usr/lib/mlton/include/basis/cpointer.h is in mlton-basis 20130715-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 39 40 41 42 43 | MLTON_CODEGEN_STATIC_INLINE
Pointer CPointer_add (Pointer p, C_Size_t s);
MLTON_CODEGEN_STATIC_INLINE
C_Size_t CPointer_diff (Pointer p1, Pointer p2);
MLTON_CODEGEN_STATIC_INLINE
Bool CPointer_equal (Pointer p1, Pointer p2);
MLTON_CODEGEN_STATIC_INLINE
Pointer CPointer_fromWord (C_Pointer_t x);
MLTON_CODEGEN_STATIC_INLINE
Bool CPointer_lt (Pointer p1, Pointer p2);
MLTON_CODEGEN_STATIC_INLINE
Pointer CPointer_sub (Pointer p, C_Size_t s);
MLTON_CODEGEN_STATIC_INLINE
C_Pointer_t CPointer_toWord (Pointer p);
MLTON_CODEGEN_STATIC_INLINE
Pointer CPointer_add (Pointer p, C_Size_t s) {
return (p + s);
}
MLTON_CODEGEN_STATIC_INLINE
C_Size_t CPointer_diff (Pointer p1, Pointer p2) {
return (size_t)(p1 - p2);
}
MLTON_CODEGEN_STATIC_INLINE
Bool CPointer_equal (Pointer p1, Pointer p2) {
return (p1 == p2);
}
MLTON_CODEGEN_STATIC_INLINE
Pointer CPointer_fromWord (C_Pointer_t x) {
return (Pointer)x;
}
MLTON_CODEGEN_STATIC_INLINE
Bool CPointer_lt (Pointer p1, Pointer p2) {
return (p1 < p2);
}
MLTON_CODEGEN_STATIC_INLINE
Pointer CPointer_sub (Pointer p, C_Size_t s) {
return (p - s);
}
MLTON_CODEGEN_STATIC_INLINE
C_Pointer_t CPointer_toWord (Pointer p) {
return (C_Pointer_t)p;
}
|