mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-20 08:40:46 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fixed the size of C-ULONG-LONG-MAX (it was not created with ecl_make_ulong_long)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-01-13 22:01:57 +01:00
parent fddeee8bb8
commit 4c6d444e6b
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/main.d
View file

@ -698,8 +698,8 @@ cl_boot(int argc, char **argv)
ECL_SET(@'ffi::c-uint-max', ecl_make_unsigned_integer(UINT_MAX));
ECL_SET(@'ffi::c-ulong-max', ecl_make_unsigned_integer(ULONG_MAX));
#ifdef ecl_long_long_t
ECL_SET(@'ffi::c-long-long-max', ecl_make_unsigned_integer(LLONG_MAX));
ECL_SET(@'ffi::c-ulong-long-max', ecl_make_unsigned_integer(ULLONG_MAX));
ECL_SET(@'ffi::c-long-long-max', ecl_make_long_long(LLONG_MAX));
ECL_SET(@'ffi::c-ulong-long-max', ecl_make_ulong_long(ULLONG_MAX));
#endif
init_unixtime();