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 / stand.adb < prev    next >
Text File  |  1996-09-28  |  6KB  |  122 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT COMPILER COMPONENTS                         --
  4. --                                                                          --
  5. --                                S T A N D                                 --
  6. --                                                                          --
  7. --                                 B o d y                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.5 $                              --
  10. --                                                                          --
  11. --        Copyright (c) 1992,1993,1994,1995 NYU, All Rights Reserved        --
  12. --                                                                          --
  13. -- The GNAT library is free software; you can redistribute it and/or modify --
  14. -- it under terms of the GNU Library General Public License as published by --
  15. -- the Free Software  Foundation; either version 2, or (at your option) any --
  16. -- later version.  The GNAT library is distributed in the hope that it will --
  17. -- be useful, but WITHOUT ANY WARRANTY;  without even  the implied warranty --
  18. -- of MERCHANTABILITY  or  FITNESS FOR  A PARTICULAR PURPOSE.  See the  GNU --
  19. -- Library  General  Public  License for  more  details.  You  should  have --
  20. -- received  a copy of the GNU  Library  General Public License  along with --
  21. -- the GNAT library;  see the file  COPYING.LIB.  If not, write to the Free --
  22. -- Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.        --
  23. --                                                                          --
  24. ------------------------------------------------------------------------------
  25.  
  26. with System;  use System;
  27. with Tree_IO; use Tree_IO;
  28.  
  29. package body Stand is
  30.  
  31.    ---------------
  32.    -- Tree_Read --
  33.    ---------------
  34.  
  35.    procedure Tree_Read is
  36.    begin
  37.       Tree_Read_Data (Standard_Entity'Address,
  38.                        Standard_Entity_Array_Type'Size / Storage_Unit);
  39.  
  40.       Tree_Read_Int (Int (Standard_Package_Node));
  41.       Tree_Read_Int (Int (Last_Standard_Node_Id));
  42.       Tree_Read_Int (Int (Last_Standard_List_Id));
  43.       Tree_Read_Int (Int (Standard_Void_Type));
  44.       Tree_Read_Int (Int (Standard_Exception_Type));
  45.       Tree_Read_Int (Int (Standard_A_String));
  46.       Tree_Read_Int (Int (Any_Id));
  47.       Tree_Read_Int (Int (Any_Type));
  48.       Tree_Read_Int (Int (Any_Access));
  49.       Tree_Read_Int (Int (Any_Array));
  50.       Tree_Read_Int (Int (Any_Boolean));
  51.       Tree_Read_Int (Int (Any_Character));
  52.       Tree_Read_Int (Int (Any_Composite));
  53.       Tree_Read_Int (Int (Any_Discrete));
  54.       Tree_Read_Int (Int (Any_Fixed));
  55.       Tree_Read_Int (Int (Any_Integer));
  56.       Tree_Read_Int (Int (Any_Numeric));
  57.       Tree_Read_Int (Int (Any_Real));
  58.       Tree_Read_Int (Int (Any_Scalar));
  59.       Tree_Read_Int (Int (Any_String));
  60.       Tree_Read_Int (Int (Universal_Integer));
  61.       Tree_Read_Int (Int (Universal_Real));
  62.       Tree_Read_Int (Int (Universal_Fixed));
  63.       Tree_Read_Int (Int (Standard_Integer_8));
  64.       Tree_Read_Int (Int (Standard_Integer_16));
  65.       Tree_Read_Int (Int (Standard_Integer_32));
  66.       Tree_Read_Int (Int (Standard_Integer_64));
  67.       Tree_Read_Int (Int (Abort_Signal));
  68.       Tree_Read_Int (Int (Standard_Op_Rotate_Left));
  69.       Tree_Read_Int (Int (Standard_Op_Rotate_Right));
  70.       Tree_Read_Int (Int (Standard_Op_Shift_Left));
  71.       Tree_Read_Int (Int (Standard_Op_Shift_Right));
  72.       Tree_Read_Int (Int (Standard_Op_Shift_Right_Arithmetic));
  73.  
  74.    end Tree_Read;
  75.  
  76.    ----------------
  77.    -- Tree_Write --
  78.    ----------------
  79.  
  80.    procedure Tree_Write is
  81.    begin
  82.       Tree_Write_Data (Standard_Entity'Address,
  83.                        Standard_Entity_Array_Type'Size / Storage_Unit);
  84.  
  85.       Tree_Write_Int (Int (Standard_Package_Node));
  86.       Tree_Write_Int (Int (Last_Standard_Node_Id));
  87.       Tree_Write_Int (Int (Last_Standard_List_Id));
  88.       Tree_Write_Int (Int (Standard_Void_Type));
  89.       Tree_Write_Int (Int (Standard_Exception_Type));
  90.       Tree_Write_Int (Int (Standard_A_String));
  91.       Tree_Write_Int (Int (Any_Id));
  92.       Tree_Write_Int (Int (Any_Type));
  93.       Tree_Write_Int (Int (Any_Access));
  94.       Tree_Write_Int (Int (Any_Array));
  95.       Tree_Write_Int (Int (Any_Boolean));
  96.       Tree_Write_Int (Int (Any_Character));
  97.       Tree_Write_Int (Int (Any_Composite));
  98.       Tree_Write_Int (Int (Any_Discrete));
  99.       Tree_Write_Int (Int (Any_Fixed));
  100.       Tree_Write_Int (Int (Any_Integer));
  101.       Tree_Write_Int (Int (Any_Numeric));
  102.       Tree_Write_Int (Int (Any_Real));
  103.       Tree_Write_Int (Int (Any_Scalar));
  104.       Tree_Write_Int (Int (Any_String));
  105.       Tree_Write_Int (Int (Universal_Integer));
  106.       Tree_Write_Int (Int (Universal_Real));
  107.       Tree_Write_Int (Int (Universal_Fixed));
  108.       Tree_Write_Int (Int (Standard_Integer_8));
  109.       Tree_Write_Int (Int (Standard_Integer_16));
  110.       Tree_Write_Int (Int (Standard_Integer_32));
  111.       Tree_Write_Int (Int (Standard_Integer_64));
  112.       Tree_Write_Int (Int (Abort_Signal));
  113.       Tree_Write_Int (Int (Standard_Op_Rotate_Left));
  114.       Tree_Write_Int (Int (Standard_Op_Rotate_Right));
  115.       Tree_Write_Int (Int (Standard_Op_Shift_Left));
  116.       Tree_Write_Int (Int (Standard_Op_Shift_Right));
  117.       Tree_Write_Int (Int (Standard_Op_Shift_Right_Arithmetic));
  118.  
  119.    end Tree_Write;
  120.  
  121. end Stand;
  122.