diff options
Diffstat (limited to 'gcc/ada/a-stream.ads')
| -rw-r--r-- | gcc/ada/a-stream.ads | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/a-stream.ads b/gcc/ada/a-stream.ads index 0977f285f6f..40e60ce2499 100644 --- a/gcc/ada/a-stream.ads +++ b/gcc/ada/a-stream.ads @@ -41,8 +41,12 @@ package Ada.Streams is type Stream_Element is mod 2 ** Standard'Storage_Unit; - type Stream_Element_Offset is range - Long_Long_Integer'First .. Long_Long_Integer'Last; + type Stream_Element_Offset is new Long_Long_Integer; + -- Stream_Element_Offset needs 64 bits to accomodate large stream files. + -- However, rather than make this explicitly 64-bits we derive from + -- Long_Long_Integer. In normal usage this will have the same effect. + -- But in the case of CodePeer with a target configuration file with a + -- maximum integer size of 32, it allows analysis of this unit. subtype Stream_Element_Count is Stream_Element_Offset range 0 .. Stream_Element_Offset'Last; |