Minor reformatting.

[pf3gnuchains/gcc-fork.git] / gcc / ada / sinput-d.adb

diff --git a/gcc/ada/sinput-d.adb b/gcc/ada/sinput-d.adb
index ba9a3df..a860058 100644 (file)
--- a/gcc/ada/sinput-d.adb
+++ b/gcc/ada/sinput-d.adb
@@ -39,6 +39,8 @@ package body Sinput.D is
       S    : Source_File_Record renames Source_File.Table (Dfile);
       Src  : Source_Buffer_Ptr;
 
+      pragma Warnings (Off, S);
+
    begin
       Trim_Lines_Table (Dfile);
       Close_Debug_File;