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

coverity fix Uninitialized pointer read

Browse source
This commit is contained in:
Fabrizio Fabbri 2017-05-16 22:43:08 +02:00
parent 8617d61e64
commit 539b05a1a2
No known key found for this signature in database
GPG key ID: 8276EDF3D10E6C35
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpmain.lsp
View file

@ -262,7 +262,7 @@ void ~A(cl_object cblock)
* circular chain. This disables the garbage collection of
* the library until _ALL_ functions in all modules are unlinked.
*/
cl_object current, next = Cblock;
cl_object current = Cnil, next = Cblock;
~:{
current = ecl_make_codeblock();
current->cblock.next = next;
@ -313,6 +313,7 @@ extern int
ecl_init_module(OBJNULL, ~A);
~A
} ECL_CATCH_ALL_END;
return 0;
}
")