mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix coverity 1434960 Uninitialized pointer read

Browse source 
https://scan7.coverity.com/reports.htm#v29377/p15116/fileInstanceId=19088397&defectInstanceId=4404042&mergedDefectId=1434960
This commit is contained in:
Fabrizio Fabbri 2017-05-16 21:58:05 +02:00
parent 4c5f0b2162
commit 64a0bcebdf
No known key found for this signature in database
GPG key ID: 8276EDF3D10E6C35
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/numbers/ceiling.d
View file

@ -77,6 +77,7 @@ ecl_ceiling2(cl_object x, cl_object y)
const cl_env_ptr the_env = ecl_process_env();
cl_object v0, v1;
cl_type ty;
v0 = v1 = Cnil;
ty = ecl_t_of(y);
if (ecl_unlikely(!ECL_REAL_TYPE_P(ty))) {
FEwrong_type_nth_arg(@[ceiling],2, y, @[real]);