diff options
Diffstat (limited to 'gcc/ada/exp_pakd.adb')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index b86d353ea6a..364b4d7664c 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1156,7 +1156,7 @@ package body Exp_Pakd is -- subtype tttPn is -- System.Packed_Bytes{1,2,4} (0 .. (Bits + 7) / 8 - 1); - -- Bits is the length of the array in bits. + -- Bits is the length of the array in bits Set_PB_Type; @@ -1197,6 +1197,12 @@ package body Exp_Pakd is High_Bound => PAT_High))))); Install_PAT; + + -- Currently the code in this unit requires that packed arrays + -- represented by non-modular arrays of bytes be on a byte + -- boundary. + + Set_Must_Be_On_Byte_Boundary (Typ); end if; end Create_Packed_Array_Type; |