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

Exported the maximum values of long long

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-07-27 23:33:59 +02:00
parent e2be06e494
commit 126650c6fc
3 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/main.d
View file

@ -626,7 +626,12 @@ cl_boot(int argc, char **argv)
ECL_SET(@'si::c-long-max', ecl_make_integer(LONG_MAX));
ECL_SET(@'si::c-long-min', ecl_make_integer(LONG_MIN));
ECL_SET(@'si::c-uint-max', ecl_make_unsigned_integer(UINT_MAX));
printf("HOLA\n");
ECL_SET(@'si::c-ulong-max', ecl_make_unsigned_integer(ULONG_MAX));
#ifdef ecl_long_long_t
ECL_SET(@'si::c-long-long-max', ecl_make_unsigned_integer(LLONG_MAX));
ECL_SET(@'si::c-ulong-long-max', ecl_make_unsigned_integer(ULLONG_MAX));
#endif
init_unixtime();

1
src/c/symbols_list.h
View file

@ -1501,6 +1501,7 @@ cl_symbols[] = {
{SYS_ "C-SHORT-MIN", SI_CONSTANT, NULL, -1, MAKE_FIXNUM(SHRT_MIN)},
{SYS_ "C-LONG-MAX", SI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */
{SYS_ "C-LONG-MIN", SI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */
{SYS_ "C-LONG-LONG-MAX",SI_CONSTANT,NULL,-1,OBJNULL}, /* See main.d */
{SYS_ "C-UCHAR-MAX", SI_CONSTANT, NULL, -1, MAKE_FIXNUM(UCHAR_MAX)},
{SYS_ "C-UINT-MAX", SI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */
{SYS_ "C-USHORT-MAX", SI_CONSTANT, NULL, -1, MAKE_FIXNUM(USHRT_MAX)},

1
src/c/symbols_list2.h
View file

@ -1501,6 +1501,7 @@ cl_symbols[] = {
{SYS_ "C-SHORT-MIN",NULL},
{SYS_ "C-LONG-MAX",NULL}, /* See main.d */
{SYS_ "C-LONG-MIN",NULL}, /* See main.d */
{SYS_ "C-LONG-LONG-MAX",NULL}, /* See main.d */
{SYS_ "C-UCHAR-MAX",NULL},
{SYS_ "C-UINT-MAX",NULL}, /* See main.d */
{SYS_ "C-USHORT-MAX",NULL},