[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