mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-05 03:50:41 -08:00
Code Issues Projects Releases Packages Wiki Activity

Suppressed a spurious -Wsometimes-uninitialized build warning.

Browse source 
See: https://sourceforge.net/p/ecls/bugs/293/
This commit is contained in:
Arto Bendiken 2014-09-22 21:25:48 +00:00
parent 2653c0915d
commit 7eb2d3bdca
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/h/number.h
View file

@ -84,7 +84,7 @@ ecl_to_fix(cl_object f)
static ECL_INLINE cl_index
ecl_to_size(cl_object f)
{
cl_fixnum aux;
cl_fixnum aux = 0;
if (ecl_unlikely(!ECL_FIXNUMP(f) || ((aux = ecl_fixnum(f)) < 0)))
FEtype_error_size(f);
return aux;