1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00

getsockopt may return garbage for parameters < sizeof(int)

Uninitialized variable.

* libguile/socket.c (scm_getsockopt): zeroize arguments before use
This commit is contained in:
Michael Gran 2020-12-30 15:16:02 -08:00
parent 91d4d31184
commit 75b0db1a28

View file

@ -1,4 +1,4 @@
/* Copyright 1996-1998,2000-2007,2009,2011-2015,2018
/* Copyright 1996-1998,2000-2007,2009,2011-2015,2018,2021
Free Software Foundation, Inc.
This file is part of Guile.
@ -493,6 +493,7 @@ SCM_DEFINE (scm_getsockopt, "getsockopt", 3, 0, 0,
int ilevel;
int ioptname;
memset (&optval, 0, optlen);
sock = SCM_COERCE_OUTPORT (sock);
SCM_VALIDATE_OPFPORT (1, sock);
ilevel = scm_to_int (level);