mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix mingw build

Browse source
This commit is contained in:
Marius Gerbershagen 2025-04-13 16:54:19 +02:00
parent 7b546e7fd2
commit fba016b093
2 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/big.d
View file

@ -354,7 +354,6 @@ _ecl_big_set_idx(cl_object x, cl_index f)
ECL_BIGNUM_SIZE(x) = 1;
ECL_BIGNUM_LIMBS(x)[0] = f;
}
return x;
}
void
@ -369,7 +368,6 @@ _ecl_big_set_fix(cl_object x, cl_fixnum f)
ECL_BIGNUM_SIZE(x) = -1;
ECL_BIGNUM_LIMBS(x)[0] = -f;
}
return x;
}
cl_index

2
src/h/number.h
View file

@ -49,7 +49,7 @@ extern ECL_API cl_fixnum _ecl_big_get_fix(cl_object x);
extern ECL_API void _ecl_big_set_idx(cl_object x, cl_index y);
extern ECL_API void _ecl_big_set_fix(cl_object x, cl_fixnum y);
# define _ecl_big_set_index(x, f) _ecl_big_set_idx((x),(f))
# define _ecl_big_get_index(x, f) _ecl_big_get_idx((x))
# define _ecl_big_get_index(x) _ecl_big_get_idx((x))
# define _ecl_big_set_fixnum(x, f) _ecl_big_set_fix((x),(f))
# define _ecl_big_get_fixnum(x) _ecl_big_get_fix((x))
#else