summaryrefslogtreecommitdiff
path: root/lang/gnat_util/files/patch-gnatvsn.adb
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lang/gnat_util/files/patch-gnatvsn.adb36
1 files changed, 0 insertions, 36 deletions
diff --git a/lang/gnat_util/files/patch-gnatvsn.adb b/lang/gnat_util/files/patch-gnatvsn.adb
deleted file mode 100644
index 317c6d87c5c3..000000000000
--- a/lang/gnat_util/files/patch-gnatvsn.adb
+++ /dev/null
@@ -1,36 +0,0 @@
---- gnatvsn.adb.orig 2013-07-16 03:35:21.000000000 +0000
-+++ gnatvsn.adb
-@@ -53,32 +53,13 @@ package body Gnatvsn is
- " FOR A PARTICULAR PURPOSE.";
- end Gnat_Free_Software;
-
-- type char_array is array (Natural range <>) of aliased Character;
-- Version_String : char_array (0 .. Ver_Len_Max - 1);
-- -- Import the C string defined in the (language-independent) source file
-- -- version.c using the zero-based convention of the C language.
-- -- The size is not the real one, which does not matter since we will
-- -- check for the nul character in Gnat_Version_String.
-- pragma Import (C, Version_String, "version_string");
--
- -------------------------
- -- Gnat_Version_String --
- -------------------------
-
- function Gnat_Version_String return String is
-- S : String (1 .. Ver_Len_Max);
-- Pos : Natural := 0;
- begin
-- loop
-- exit when Version_String (Pos) = ASCII.NUL;
--
-- S (Pos + 1) := Version_String (Pos);
-- Pos := Pos + 1;
--
-- exit when Pos = Ver_Len_Max;
-- end loop;
--
-- return S (1 .. Pos);
-+ Return Gnat_Static_Version_String;
- end Gnat_Version_String;
-
- end Gnatvsn;