posix file: Match newer warning wording
For compatibility with GNAT GPL 2017.
Change-Id: I1b4b914aa4964967b1c598ef5ca303410bd413ec
Signed-off-by: Nico Huber <nico.h@gmx.de>
Reviewed-on: https://review.coreboot.org/20256
Reviewed-by: Stefan Reinauer <stefan.reinauer@coreboot.org>
Reviewed-by: Paul Menzel <paulepanter@users.sourceforge.net>
diff --git a/ada/posix/hw-file.adb b/ada/posix/hw-file.adb
index ae0792b..40b445d 100644
--- a/ada/posix/hw-file.adb
+++ b/ada/posix/hw-file.adb
@@ -54,10 +54,10 @@
(if Writable then WRITE else 0),
copy => (if Map_Copy then 1 else 0));
begin
- pragma Warnings(GNAT, Off, """cpath"" modified*, but* never referenced",
+ pragma Warnings(GNAT, Off, """cpath"" modified*, but* referenced",
Reason => "Free() demands to set it to null_ptr");
Free (cpath);
- pragma Warnings(GNAT, On, """cpath"" modified*, but* never referenced");
+ pragma Warnings(GNAT, On, """cpath"" modified*, but* referenced");
Success := ret = 0;
pragma Debug (not Success, Debug.Put ("Mapping failed: "));