ada/libgnat/s-wchcnv.adb

278       Hexc : constant array (UTF_32_Code range 0 .. 15) of Character :=  constant
299                Out_Char (Hexc (Val / (16**3)));
300                Out_Char (Hexc ((Val / (16**2)) mod 16));
301                Out_Char (Hexc ((Val / 16) mod 16));
302                Out_Char (Hexc (Val mod 16));
433                      Out_Char (Hexc (Val / 16 ** 7));
434                      Out_Char (Hexc ((Val / 16 ** 6) mod 16));
437                   Out_Char (Hexc ((Val / 16 ** 5) mod 16));
438                   Out_Char (Hexc ((Val / 16 ** 4) mod 16));
441                Out_Char (Hexc ((Val / 16 ** 3) mod 16));
442                Out_Char (Hexc ((Val / 16 ** 2) mod 16));
443                Out_Char (Hexc ((Val / 16) mod 16));
444                Out_Char (Hexc (Val mod 16));