diff options
Diffstat (limited to 'gcc/ada/uintp.ads')
| -rw-r--r-- | gcc/ada/uintp.ads | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/gcc/ada/uintp.ads b/gcc/ada/uintp.ads index f1babd179de..97206ade7d7 100644 --- a/gcc/ada/uintp.ads +++ b/gcc/ada/uintp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2004, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -222,14 +222,21 @@ package Uintp is -- Returns difference of two integer values function UI_From_Dint (Input : Dint) return Uint; - -- Converts Dint value to universal integer form. + -- Converts Dint value to universal integer form function UI_From_Int (Input : Int) return Uint; - -- Converts Int value to universal integer form. + -- Converts Int value to universal integer form + + function UI_From_CC (Input : Char_Code) return Uint; + -- Converts Char_Code value to universal integer form function UI_To_Int (Input : Uint) return Int; - -- Converts universal integer value to Int. Fatal error - -- if value is not in appropriate range. + -- Converts universal integer value to Int. Fatal error if value is not in + -- appropriate range. + + function UI_To_CC (Input : Uint) return Char_Code; + -- Converts universal integer value to Char_Code. Fatal error if value is + -- not in Char_Code range. function Num_Bits (Input : Uint) return Nat; -- Approximate number of binary bits in given universal integer. |