comp.lang.ada
 help / color / mirror / Atom feed
From: gautier_niouzes@hotmail.com (Gautier)
Subject: Re: if X in 1..35000 versus Boolean
Date: 16 Jul 2002 12:24:27 -0700
Date: 2002-07-16T19:24:27+00:00	[thread overview]
Message-ID: <17cd177c.0207161124.591d32d6@posting.google.com> (raw)
In-Reply-To: yecfzykccgh.fsf@king.cts.com

Keith Thompson:

> If I recall correctly (it's been a while), in Pascal you can write
> something like:
> 
>     if X in [1 .. 4] then (* This is Pascal, not Ada *)
>     begin
>         ...;
>     end;
> 
> where [1 .. 4] is a set value constructor.  A naive Pascal compiler
> would build a set value with bits 1, 2, 3, and 4 set, and all other
> bits cleared, and test whether bit X is set.  A more clever Pascal
> compiler might generate code equivalent to X >= 1 and X <= 4.

BTW what "all other bits" means is undefined in Pascal set expression.
Of course it is not the full integer range, otherwise a set
value with integers would be a quite huge object...
In fact Turbo Pascal 6 (1990) or Delphi 6 (2001) seem
to limit the values in sets to 0..255.

    if X in [1 .. 4, 254 .. 255] then ;

passes compilation,

    if X in [1 .. 4, 254 .. 256] then ;
or
    if X in [-1 .. 4] then ;

doesn't!
________________________________________________________
Gautier  --  http://www.mysunrise.ch/users/gdm/gsoft.htm

NB: For a direct answer, address on the Web site!



  parent reply	other threads:[~2002-07-16 19:24 UTC|newest]

Thread overview: 37+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-07-13 19:10 if X in 1..35000 versus Boolean Jan Prazak
2002-07-13 16:27 ` Frank J. Lhota
2002-07-13 20:36   ` Jan Prazak
2002-07-13 18:05     ` Jeffrey Carter
2002-07-14 15:02       ` Jan Prazak
2002-07-13 22:10     ` Robert Dewar
2002-07-14 21:16       ` Jan Prazak
2002-07-14 20:47         ` Frank J. Lhota
2002-07-15  1:21         ` Jeffrey Carter
2002-07-16  8:18     ` Keith Thompson
2002-07-16 13:54       ` Jan Prazak
2002-07-16 11:13         ` Lutz Donnerhacke
2002-07-17 19:04           ` Jan Prazak
2002-07-17 20:00             ` Georg Bauhaus
2002-07-18  8:11             ` Lutz Donnerhacke
2002-07-18 14:39               ` Georg Bauhaus
2002-07-20  0:37               ` Robert Dewar
2002-07-16 20:25         ` Georg Bauhaus
2002-07-17 19:29           ` Jan Prazak
2002-07-16 19:24       ` Gautier [this message]
2002-07-17 19:04         ` Jan Prazak
2002-07-13 16:32 ` David C. Hoos, Sr.
2002-07-13 20:36   ` Jan Prazak
2002-07-13 18:02     ` David C. Hoos, Sr.
2002-07-13 18:17     ` sk
2002-07-13 20:02       ` Jeffrey Creem
     [not found]     ` <3D306ED5.33E80E09@myob.com>
2002-07-13 18:52       ` David C. Hoos, Sr.
     [not found]       ` <020a01c22a9f$2b50d6c0$6400000a@dhoos>
2002-07-13 19:02         ` sk
2002-07-14 15:02           ` Jan Prazak
2002-07-14 19:25             ` Darren New
2002-07-15 15:22               ` Steffen Huber
2002-07-13 16:44 ` Christopher Browne
2002-07-13 22:09   ` Robert Dewar
2002-07-13 17:17 ` tmoran
2002-07-13 19:44 ` Florian Weimer
  -- strict thread matches above, loose matches on Subject: below --
2002-07-14 20:22 Gautier direct_replies_not_read
2002-07-15 11:36 ` Jan Prazak
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox