diff options
Diffstat (limited to 'gcc/ada/libgnat/s-fatgen.ads')
| -rw-r--r-- | gcc/ada/libgnat/s-fatgen.ads | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/libgnat/s-fatgen.ads b/gcc/ada/libgnat/s-fatgen.ads index b8bdf2d2..700cfdc 100644 --- a/gcc/ada/libgnat/s-fatgen.ads +++ b/gcc/ada/libgnat/s-fatgen.ads @@ -31,9 +31,8 @@ -- This generic package provides a target independent implementation of the -- floating-point attributes that denote functions. The implementations here --- are portable, but very slow. The runtime contains a set of instantiations --- of this package for all predefined floating-point types, and these should --- be replaced by efficient assembly language code where possible. +-- should be portable and reasonably efficient. The runtime contains a set of +-- instantiations of this package for all predefined floating-point types. generic type T is digits <>; @@ -107,6 +106,10 @@ package System.Fat_Gen is -- floating point register). private + pragma Inline (Compose); + pragma Inline (Copy_Sign); + pragma Inline (Exponent); + pragma Inline (Fraction); pragma Inline (Machine); pragma Inline (Model); pragma Inline (Valid); |