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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5c72b6fec2f83257,start
X-Google-Attributes: gid103376,public
From: "Adrian B.Y. Hoe" <byHoe@QUANTUM.PC.MY>
Subject: Help: Binary operator "="
Date: 1997/05/20
Message-ID: <3381c4ba.quantum@quantum.pc.my>#1/1
X-Deja-AN: 242649278
Sender: Ada programming language <INFO-ADA@LISTSERV.NODAK.EDU>
Organization: Lexical Integration (M) Sdn Bhd
Comments: To: owner-intel-objectada@aonix.com
Newsgroups: comp.lang.ada
Date: 1997-05-20T00:00:00+00:00
List-Id: <comp.lang.ada>


I have errors compiling the following code using ObjectAda 7.0.232

   function InitInstance(Hinstance : Windef.HINSTANCE;
                         ...) return Win32.BOOL is

      HWND   : Windef.HWND;
      wu_Ps  : aliased Winuser.PAINTSTRUCT;

   begin

      --  Create a main window for this application instance.
      HWND := WinUser.CreateWindow (LpClassName  => SZAPPNAME,  -- Line 452
                                    LpWindowName => SZTITLE,
                                    DwStyle      =>
                                       WinUser.WS_OVERLAPPEDWINDOW or
                                       WinUser.WS_CLIPCHILDREN,
                                    X           => WinUser.CW_USEDEFAULT,
                                    Y           => WinUser.CW_USEDEFAULT,
                                    NWidth      => WinUser.CW_USEDEFAULT,
                                    NHeight     => WinUser.CW_USEDEFAULT,
                                    HWndParent  => null,
                                    HMenu       => null,
                                    HInstance   => HInstance,
                                    LpParam     => null);

      if HWND = Windef.HWND'(null) then   -- Line 467
         return Win32.FALSE;
      end if;

      ...

   end InitInstance;



The compiler says: Line 467: Binary operator "=" not directly visible, use
 clause
might be needed.

Line 452: Parameter mismatch.


Could someone enlighten me?

Thank you in advance.
--

B.Y.


lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
 Adrian, B.Y. Hoe                     byHoe@quantum.pc.my           \/
 Business Development, VP                                         \/  \/
                                                                \/  \/  \/
                                      Phone : +60 3 495 4048      \/  \/
 Lexical Integration (M) Sdn Bhd      Fax   : +60 3 495 4037        \/
 13-B Jalan Pandan Indah 4/2, Pandan Indah, 55100 Kuala Lumpur-Malaysia
lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
                                          member of Team-Ada in Malaysia