[Ecls-list] si::c-uint-max & si::c-ulong-max
Dave
hundo at yahoo.com
Mon Feb 14 16:50:35 UTC 2005
These two constants, needed by cmpffi.lisp, both return -1 on i386 (only
si::c-ulong-max returns -1 on amd64). This patch seems to help by allowing
these values to become bignums where necessary:
Index: src/c/main.d
===================================================================
RCS file: /cvsroot/ecls/ecls/src/c/main.d,v
retrieving revision 1.64
diff -u -r1.64 main.d
--- src/c/main.d 14 Feb 2005 10:26:37 -0000 1.64
+++ src/c/main.d 15 Feb 2005 00:35:49 -0000
@@ -290,8 +290,8 @@
ECL_SET(@'si::c-int-min', make_integer(INT_MIN));
ECL_SET(@'si::c-long-max', make_integer(LONG_MAX));
ECL_SET(@'si::c-long-min', make_integer(LONG_MIN));
- ECL_SET(@'si::c-uint-max', make_integer(UINT_MAX));
- ECL_SET(@'si::c-ulong-max', make_integer(ULONG_MAX));
+ ECL_SET(@'si::c-uint-max', make_unsigned_integer(UINT_MAX));
+ ECL_SET(@'si::c-ulong-max ', make_unsigned_integer(ULONG_MAX));
init_number();
init_unixtime();
More information about the ecl-devel
mailing list