src/i386.ads

   1 with Interfaces; use Interfaces;
   2 with Ada.Unchecked_Conversion;
   3 with System;
   4
   5 package I386 is
   6
   7    pragma Pure;
   8
   9    subtype Unsigned_8 is Interfaces.Unsigned_8;
  10    subtype Unsigned_16 is Interfaces.Unsigned_16;
  11    subtype Unsigned_32 is Interfaces.Unsigned_32;
  12
  13    function To_Address is new Ada.Unchecked_Conversion
  14      (Unsigned_32, System.Address);
  15
  16 end I386;