2 files changed, 8 insertions, 0 deletions
diff --git a/lib/sail.c b/lib/sail.c
index 62801cc7..3c0b0dac 100644
--- a/lib/sail.c
+++ b/lib/sail.c
@@ -173,6 +173,12 @@ void CREATE_OF(sail_int, mach_int)(sail_int *rop, mach_int op)
 }
 
 inline
+mach_int CREATE_OF(mach_int, sail_int)(const sail_int op)
+{
+  return mpz_get_ui(op);
+}
+
+inline
 void RECREATE_OF(sail_int, mach_int)(sail_int *rop, mach_int op)
 {
   mpz_set_si(*rop, op);
diff --git a/lib/sail.h b/lib/sail.h
index a8651f50..37b6b685 100644
--- a/lib/sail.h
+++ b/lib/sail.h
@@ -101,6 +101,8 @@ SAIL_BUILTIN_TYPE(sail_int);
 void CREATE_OF(sail_int, mach_int)(sail_int *, const mach_int);
 void RECREATE_OF(sail_int, mach_int)(sail_int *, const mach_int);
 
+mach_int CREATE_OF(mach_int, sail_int)(const sail_int);
+
 void CREATE_OF(sail_int, sail_string)(sail_int *, const sail_string);
 void RECREATE_OF(sail_int, sail_string)(mpz_t *, const sail_string);