2 -- { dg-options "-O2" }
4 function slice1 (Offset : Integer) return String is
6 Convert : constant String := "0123456789abcdef";
7 Buffer : String (1 .. 32);
8 Pos : Natural := Buffer'Last;
9 Value : Long_Long_Integer := Long_Long_Integer (Offset);
13 Buffer (Pos) := Convert (Integer (Value mod 16));
18 return Buffer (Pos + 1 .. Buffer'Last);