mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 13:31:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

explain shift-count-overflow warning during the compilation

Browse source 
Do it in comment. This may be probably fixed with a preprocessor, but
it's not that obvious – we need off_t number of bits available at the
compilation time and compare it to FIXNUM bits.
This commit is contained in:
Daniel Kochmański 2016-11-19 11:03:49 +01:00
parent 6892db8849
commit 0b1106d8fa
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/file.d
View file

@ -5338,6 +5338,11 @@ flisten(cl_object stream, FILE *fp)
return !ECL_LISTEN_AVAILABLE;
}
/* Compilation of this function on some platforms may give a warning:
"right shift count >= width of type [-Werror=shift-count-overflow]"
but on these platforms this branch is never encountered.
FIXME: this can probably be conditionaly defined in #if … #endif */
cl_object
ecl_off_t_to_integer(ecl_off_t offset)
{
@ -5362,6 +5367,11 @@ ecl_off_t_to_integer(ecl_off_t offset)
return output;
}
/* Compilation of this function on some platforms may give a warning:
"left shift count >= width of type [-Werror=shift-count-overflow]"
but on these platforms this branch is never encountered.
FIXME: this can probably be conditionaly defined in #if … #endif */
ecl_off_t
ecl_integer_to_off_t(cl_object offset)
{