/gcc-4.4-rts/adainclude/unchconv.ads

http://github.com/tkoskine/avr-ada · Ada · 23 lines · 6 code · 2 blank · 15 comment · 0 complexity · 79d0c98a563c8e94827b61653f9a96b2 MD5 · raw file 

    

  1. ------------------------------------------------------------------------------
    2. 

  2. --                                                                          --
    3. 

  3. --                         GNAT COMPILER COMPONENTS                         --
    4. 

  4. --                                                                          --
    5. 

  5. --                  U N C H E C K E D _ C O N V E R S I O N                 --
    6. 

  6. --                                                                          --
    7. 

  7. --                                 S p e c                                  --
    8. 

  8. --                                                                          --
    9. 

  9. --                                                                          --
    10. 

  10. -- This specification is adapted from the Ada Reference Manual for use with --
    11. 

  11. -- GNAT.  In accordance with the copyright of that document, you can freely --
    12. 

  12. -- copy and modify this specification,  provided that if you redistribute a --
    13. 

  13. -- modified version,  any changes that you have made are clearly indicated. --
    14. 

  14. --                                                                          --
    15. 

  15. ------------------------------------------------------------------------------
    16. 

  16. 

  17. generic
    18. 

  18.    type Source (<>) is limited private;
    19. 

  19.    type Target (<>) is limited private;
    20. 

  20. 

  21. function Unchecked_Conversion (S : Source) return Target;
    22. 

  22. pragma Import (Intrinsic, Unchecked_Conversion);
    23. 

  23. pragma Pure (Unchecked_Conversion);
    24.