From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: ***
X-Spam-Status: No, score=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f348a8d7ddab6952
X-Google-Attributes: gid103376,public
From: "Paul Whittington" <paul@sage.inel.gov>
Subject: Re: Bug reports for Win32Ada Binding
Date: 1996/08/30
Message-ID: <01bb96cb$340fd180$24af1486@pc-phw.inel.gov>#1/1
X-Deja-AN: 177524007
references: <01bb9466$01037740$24af1486@pc-phw.inel.gov>
 <dewar.841212450@schonberg>
organization: INEL
newsgroups: comp.lang.ada
Date: 1996-08-30T00:00:00+00:00
List-Id: <comp.lang.ada>


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);