diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-05-30 14:01:17 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-15 09:42:33 -0400 |
| commit | a2f4fc6f3fe2ed458f348dccbab9367a35e6a3a2 (patch) | |
| tree | 6484e767e9bf2119766dc0ebee2800384db6c3f7 /gcc | |
| parent | f0d0be62db5ba030283fa8189211830d09dfb467 (diff) | |
| download | gcc-a2f4fc6f3fe2ed458f348dccbab9367a35e6a3a2.zip gcc-a2f4fc6f3fe2ed458f348dccbab9367a35e6a3a2.tar.gz gcc-a2f4fc6f3fe2ed458f348dccbab9367a35e6a3a2.tar.bz2 | |
[Ada] Fix potentially uninitialized variable flagged by CodePeer
gcc/ada/
* libgnat/g-socket.adb (Wait_On_Socket): Fix potentially
uninitialized variable.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/g-socket.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/libgnat/g-socket.adb b/gcc/ada/libgnat/g-socket.adb index da631e3..719d9a9 100644 --- a/gcc/ada/libgnat/g-socket.adb +++ b/gcc/ada/libgnat/g-socket.adb @@ -2062,8 +2062,11 @@ package body GNAT.Sockets is Close_Selector (S.all); Unchecked_Free (Local_S); end if; + exception when others => + Status := Completed; + if Selector = null then Close_Selector (S.all); Unchecked_Free (Local_S); |