From 28e674d71edf5c23419fde584ef2ea1228547e5b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 23 Dec 2014 07:00:21 +0100
Subject: Add requested pragma no_strict_aliasing.

---
 src/str_table.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/str_table.adb')

diff --git a/src/str_table.adb b/src/str_table.adb
index 947c98792..32a44b58b 100644
--- a/src/str_table.adb
+++ b/src/str_table.adb
@@ -30,8 +30,8 @@ package body Str_Table is
    Nul : constant Character := Character'Val (0);
 
    In_String : Boolean := False;
-   function Start return String_Id
-   is
+
+   function Start return String_Id is
    begin
       pragma Assert (In_String = False);
       In_String := True;
-- 
cgit v1.2.3