shithub: sl

Info  •  Files  •  Log  •  Branches

fixnum builtin: use mptoi on 32-bit systems

--- a/builtins.c

+++ b/builtins.c

@@ -270,7 +270,11 @@

 	if(iscprim(v))

 		return fixnum(conv_to_int64(cp_data(p), cp_numtype(p)));

 	if(iscvalue(v) && cp_numtype(p) == T_MPINT)

+#ifdef BITS64

 		return fixnum(mptov(*(mpint**)cv_data(p)));

+#else

+		return fixnum(mptoi(*(mpint**)cv_data(p)));

+#endif

 	type_error("number", v);

 }