home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / s-fatsfl.ads < prev    next >
Text File  |  1996-09-28  |  2KB  |  33 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT COMPILER COMPONENTS                         --
  4. --                                                                          --
  5. --                      S Y S T E M . F A T _ S F L T                       --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.1 $                              --
  10. --                                                                          --
  11. -- This  specification comes from the Generic Primitive Functions standard. --
  12. -- In accordance  with the copyright of that document,  you can freely copy --
  13. -- and modify this specification,  provided that if you do redistribute it, --
  14. -- then any changes that you have made must be clearly indicated.           --
  15. --                                                                          --
  16. ------------------------------------------------------------------------------
  17.  
  18. --  This package contains an instantiation of the floating-point attribute
  19. --  runtime routines for the type Short_Float.
  20.  
  21. with System.Fat_Gen;
  22.  
  23. package System.Fat_SFlt is
  24.  
  25.    --  Note the only entity from this package that is acccessed by Rtsfind
  26.    --  is the name of the package instantiation. Entities within this package
  27.    --  (i.e. the individual floating-point attribute routines) are accessed
  28.    --  by name using selected notation.
  29.  
  30.    package Fat_Short_Float is new System.Fat_Gen (Short_Float);
  31.  
  32. end System.Fat_SFlt;
  33.