[Ada] Fix "S p e c" and "B o d y" file headers

Fix Spec/Body headers in .adb/.ads files, respectively; all violations
detected with grep and manually filtered because of .tmpl files.

gcc/ada/

	* exp_atag.adb, lib-util.ads, libgnat/g-decstr.adb,
	libgnat/g-exptty.adb, libgnat/g-socpol.adb,
	libgnat/s-strhas.adb: Fix headers.

diff --git a/gcc/ada/exp_atag.adb b/gcc/ada/exp_atag.adb
index d2de2c9ddbc13de125d87118b1ca52159980ba37..787136346c6cef4909c3367dc996eb2d1b7739db 100644 (file)
--- a/gcc/ada/exp_atag.adb
+++ b/gcc/ada/exp_atag.adb
@@ -4,7 +4,7 @@
 --                                                                          --
 --                             E X P _ A T A G                              --
 --                                                                          --
---                                 S p e c                                  --
+--                                 B o d y                                  --
 --                                                                          --
 --          Copyright (C) 2006-2022, Free Software Foundation, Inc.         --
 --                                                                          --

diff --git a/gcc/ada/lib-util.ads b/gcc/ada/lib-util.ads
index edd2a3a3a073e453f31e5db0023ee0c59dd3fd26..a2faabb670b2383fe9bee4a88ad753ed0b0ad879 100644 (file)
--- a/gcc/ada/lib-util.ads
+++ b/gcc/ada/lib-util.ads
@@ -4,7 +4,7 @@
 --                                                                          --
 --                             L I B . U T I L                              --
 --                                                                          --
---                                 B o d y                                  --
+--                                 S p e c                                  --
 --                                                                          --
 --          Copyright (C) 1992-2022, Free Software Foundation, Inc.         --
 --                                                                          --

diff --git a/gcc/ada/libgnat/g-decstr.adb b/gcc/ada/libgnat/g-decstr.adb
index 7cac94d27c99b0309edd71eac06b6644676ca395..04c73a55d47143f46124440eeb3f5bd51aa3aef1 100644 (file)
--- a/gcc/ada/libgnat/g-decstr.adb
+++ b/gcc/ada/libgnat/g-decstr.adb
@@ -4,7 +4,7 @@
 --                                                                          --
 --                    G N A T . D E C O D E _ S T R I N G                   --
 --                                                                          --
---                                 S p e c                                  --
+--                                 B o d y                                  --
 --                                                                          --
 --                     Copyright (C) 2007-2022, AdaCore                     --
 --                                                                          --

diff --git a/gcc/ada/libgnat/g-exptty.adb b/gcc/ada/libgnat/g-exptty.adb
index 20f3a1aaf4119b2238a487a3a0e3556dbeed56f6..c21ad98c9581ddfed788deb163bddd3485848285 100644 (file)
--- a/gcc/ada/libgnat/g-exptty.adb
+++ b/gcc/ada/libgnat/g-exptty.adb
@@ -4,7 +4,7 @@
 --                                                                          --
 --                      G N A T . E X P E C T . T T Y                       --
 --                                                                          --
---                                 S p e c                                  --
+--                                 B o d y                                  --
 --                                                                          --
 --                    Copyright (C) 2000-2022, AdaCore                      --
 --                                                                          --

diff --git a/gcc/ada/libgnat/g-socpol.adb b/gcc/ada/libgnat/g-socpol.adb
index fd27211384c5cd15cf215dca610944e400effe10..601e0c2292a063d0e9168d3c53bedb0494910510 100644 (file)
--- a/gcc/ada/libgnat/g-socpol.adb
+++ b/gcc/ada/libgnat/g-socpol.adb
@@ -4,7 +4,7 @@
 --                                                                          --
 --                    G N A T . S O C K E T S . P O L L                     --
 --                                                                          --
---                                 S p e c                                  --
+--                                 B o d y                                  --
 --                                                                          --
 --                       Copyright (C) 2020-2022, AdaCore                   --
 --                                                                          --

diff --git a/gcc/ada/libgnat/s-strhas.adb b/gcc/ada/libgnat/s-strhas.adb
index db860c3a5c0023b5b7aafa84327daceb1bc77d1c..19124cc401c1635038302fea022ef205bae88f1a 100644 (file)
--- a/gcc/ada/libgnat/s-strhas.adb
+++ b/gcc/ada/libgnat/s-strhas.adb
@@ -4,7 +4,7 @@
 --                                                                          --
 --                    S Y S T E M . S T R I N G _ H A S H                   --
 --                                                                          --
---                                 S p e c                                  --
+--                                 B o d y                                  --
 --                                                                          --
 --          Copyright (C) 2009-2022, Free Software Foundation, Inc.         --
 --                                                                          --