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,197f249b225fabe2 X-Google-Attributes: gid103376,public From: kst@aonix.com (Keith Thompson) Subject: Re: Ada 83 versions of Ada 95 packages Date: 1996/12/26 Message-ID: #1/1 X-Deja-AN: 206005873 sender: news@thomsoft.com (USENET News Admin @flash) x-nntp-posting-host: pulsar references: <9612232029.AA09783@most> <19961224155500.KAA09943@ladder01.news.aol.com> organization: Aonix, San Diego, CA, USA newsgroups: comp.lang.ada originator: kst@pulsar Date: 1996-12-26T00:00:00+00:00 List-Id: In <19961224155500.KAA09943@ladder01.news.aol.com> johnherro@aol.com writes: [...] > package Ada83_Strings_Unbounded is > type Unbounded_String(Length : Integer := 0) is private; [...] > private > type Unbounded_String(Length : Integer := 0) is > record > Text : String(1 .. Length); > end record; > end Ada83_Strings_Unbounded; [...] Given this type declaration, with a default value for the discriminant, an object of type Unbounded_String can occupy Integer'Last bytes (under most compilers). -- Keith Thompson (The_Other_Keith) kst@aonix.com <*> TeleSo^H^H^H^H^H^H Alsy^H^H^H^H Thomson Softw^H^H^H^H^H^H^H^H^H^H^H^H^H Aonix 10251 Vista Sorrento Parkway, Suite 300, San Diego, CA, USA, 92121-2706 "SPOON!" -- The Tick