@@ -798,7 +798,11 @@ bit_from_pos (tree offset, tree bitpos)
/* Return the combined truncated byte position for the byte offset OFFSET and
- the bit position BITPOS. */
+ the bit position BITPOS.
+ These functions operate on byte and bit positions as present in FIELD_DECLs
+ and it assumes that expressions result in no (intermediate) overflow.
+ This assumption is necessary to optimize these values as much as possible,
+ especially to make Ada happy. */
byte_from_pos (tree offset, tree bitpos)