[Ada] Address potentially uninitialized variables and dead code

[gcc.git] / gcc / ada / libgnat / g-dirope.adb

diff --git a/gcc/ada/libgnat/g-dirope.adb b/gcc/ada/libgnat/g-dirope.adb
index 9153c7055f93bc01fe4e15b1ecb3cfe94ba41f4c..0fd7a24d2ac5765299afcfd68851adb819f2c184 100644 (file)
--- a/gcc/ada/libgnat/g-dirope.adb
+++ b/gcc/ada/libgnat/g-dirope.adb
@@ -352,6 +352,8 @@ package body GNAT.Directory_Operations is
       begin
          K := K + 1;
 
+         pragma Annotate (CodePeer, Modified, P);
+
          if P = '%' or else Path (K) = '{' then
 
             --  Set terminator character