Re: Bug reports for Win32Ada Binding

["Paul Whittington" <paul@sage.inel.gov>]

Robert Dewar <dewar@cs.nyu.edu> wrote in article
<dewar.841212450@schonberg>...
> ... Why unchecked???

Given 
  
   package Win32.ObjBase is
   ...
   type HRESULT is new Win32.LONG;
   ...
   function CoCreateInstance(
                rclsid      : REFCLSID;
                pUnkOuter   : LPUNKNOWN;
                dwClsContext: DWORD;
                riid        : REFIID;
                ppv         : access Win32.PVOID)
               return HRESULT;    
   ...
   end Win32.ObjBase;

and 

  package Win32.WinError is
  ...
  type HRESULT is new LONG;
  ...
  function FAILED(Status: HRESULT) return Standard.Boolean;
  ...
  end Win32.WinError;

I used 

  function WinError_HRESULT_To_ObjBase_HRESULT is new
    Ada.Unchecked_Conversion (Win32.WinError.HRESULT,Win32.ObjBase.HRESULT);