home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / error_rep_clause.adb < prev    next >
Encoding:
Text File  |  1995-11-17  |  1.8 KB  |  51 lines
  1. -------------------------------------------------------------------------------
  2. --
  3. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS FURNISHED "AS IS" WITHOUT 
  4. -- WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
  5. -- TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 
  6. -- PURPOSE.  The user assumes the entire risk as to the accuracy and the 
  7. -- use of this file.
  8. --
  9. -- Copyright (c) Intermetrics, Inc. 1995
  10. -- Royalty-free, unlimited, worldwide, non-exclusive use, modification, 
  11. -- reproduction and further distribution of this file is permitted.
  12. --
  13. -------------------------------------------------------------------------------
  14.  
  15. with win32;
  16.  
  17. procedure error_rep_clause is
  18.  
  19.     type enum_anonymous9_t is (                             -- rpcndr.h:943
  20.         XLAT_SERVER,                                        -- rpcndr.h:941
  21.         XLAT_CLIENT                                         -- rpcndr.h:943
  22.     );
  23.     subtype XLAT_SIDE is enum_anonymous9_t;                 -- rpcndr.h:943
  24.     for enum_anonymous9_t'size use 32;                      -- rpcndr.h:943
  25.     --for enum_anonymous9_t use (                             -- rpcndr.h:943
  26.     --    XLAT_SERVER => 1,                                   -- rpcndr.h:941
  27.     --    XLAT_CLIENT => 2                                    -- rpcndr.h:943
  28.     --);
  29. --    type XLAT_SIDE is new enum_anonymous9_t;                 -- rpcndr.h:943
  30.  
  31.     type x is record
  32.       a : Win32.BYTE;
  33.       b : Win32.WORD;
  34.       c : Win32.DWORD;
  35.     end record;
  36.     for x use record
  37.       a at 0 range 0 .. 7;
  38.       b at 0 range 8 .. 23;
  39.       c at 3 range 0 .. 31;
  40.     end record;
  41.  
  42.     y : x;
  43.  
  44.   begin
  45.     y.a := 1;
  46.     y.b := 2;
  47.     y.c := 3;
  48.  
  49.  
  50. end error_rep_clause;
  51.