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,6b07184832ed52b
X-Google-Attributes: gid103376,public
From: dale@cs.rmit.edu.au (Dale Stanbrough)
Subject: Re: Troubles with MessageBeep | Beep...
Date: 1999/07/15
Message-ID: <dale-1507991921080001@192.168.0.2>#1/1
X-Deja-AN: 501266828
References: <2461CF0DA7DBD211B07300805F921CBC01D8B985@kuumex03.barco.com>
X-Complaints-To: abuse@cs.rmit.edu.au
X-Trace: emu.cs.rmit.edu.au 932030467 1472 131.170.66.215 (15 Jul 1999
 09:21:07 GMT)
Organization: RMIT
NNTP-Posting-Date: 15 Jul 1999 09:21:07 GMT
Newsgroups: comp.lang.ada
Date: 1999-07-15T09:21:07+00:00
List-Id: <comp.lang.ada>

SEV, AV Guest 2" <avguest2@barco.com> wrote:

"   procedure Button1_Click is 
      b : Win32.bool;  
    begin
      b:=Beep(5000,5000);
    end Button1_Click;"
  

Why does it return a boolean?

On a related note, when I am calling a lot of Unix functions, and
don't want to check the return value, I sometimes do the following...

   declare
      Result : Natural;
   begin
      Result := F1 (...);
      Result := F2 (...);
   exception
      when constraint_error => <function failed>
   end;

...so would

   subtype Ok is Boolean range true..true;

   Ok := Beep (...);

compile without the constraint check being optimised away (
would that be a legal optimisation)?

Dale