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

---
 src/ortho/mcode/binary_file.ads | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/ortho/mcode/binary_file.ads')

diff --git a/src/ortho/mcode/binary_file.ads b/src/ortho/mcode/binary_file.ads
index 1a2bf58..4618aeb 100644
--- a/src/ortho/mcode/binary_file.ads
+++ b/src/ortho/mcode/binary_file.ads
@@ -154,6 +154,7 @@ private
    type Byte_Array_Base is array (Pc_Type range <>) of Byte;
    subtype Byte_Array is Byte_Array_Base (Pc_Type);
    type Byte_Array_Acc is access Byte_Array;
+   pragma No_Strict_Aliasing (Byte_Array_Acc);
    type String_Acc is access String;
    --type Section_Flags is new Unsigned_32;
 
-- 
cgit