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,
	UPPERCASE_50_75 autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,641f47d4563311a6
X-Google-Attributes: gid103376,public
From: "DuckE" <nospam_steved@pacifier.com>
Subject: Re: Array of bytes type
Date: 2000/05/19
Message-ID: <3925efc7.0@news.pacifier.com>#1/1
X-Deja-AN: 625604559
References: <3924E094.6B03B5BD@concentric.net>
X-Trace: 19 May 2000 18:52:07 PST, 198.145.224.125
X-MSMail-Priority: Normal
X-Priority: 3
Newsgroups: comp.lang.ada
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Date: 2000-05-19T00:00:00+00:00
List-Id: <comp.lang.ada>

Here is the answer we use:
PACKAGE BDTbaseDataTypes IS

  TYPE anInt32BDT IS RANGE - (2 ** 31) .. (2 ** 31) - 1;

  FOR anInt32BDT'SIZE USE 32;

  TYPE anInt32ArrayBDT IS ARRAY( Natural RANGE <> ) OF anInt32BDT;

  PRAGMA PACK (anInt32ArrayBDT);

  TYPE anInt16BDT IS RANGE -32768 .. +32767;

  FOR anInt16BDT'SIZE USE 16;

  TYPE anInt16ArrayBDT IS ARRAY( Natural RANGE <> ) OF anInt16BDT;

  PRAGMA PACK (anInt16ArrayBDT);

  TYPE anInt8BDT IS RANGE -128 .. +127;

  FOR anInt8BDT'SIZE USE 8;

  TYPE anInt8ArrayBDT IS ARRAY( Natural RANGE <> ) OF anInt8BDT;

  PRAGMA PACK (anInt8ArrayBDT);

  TYPE aUInt32BDT IS MOD 2**32;

  FOR aUInt32BDT'SIZE USE 32;

  TYPE aUInt32ArrayBDT IS ARRAY( Natural RANGE <> ) OF aUInt32BDT;

  PRAGMA PACK (aUInt32ArrayBDT);

  TYPE aUInt16BDT IS MOD 2**16;

  FOR aUInt16BDT'SIZE USE 16;

  TYPE aUInt16ArrayBDT IS ARRAY( Natural RANGE <> ) OF aUInt16BDT;

  PRAGMA PACK (aUInt16ArrayBDT);

  TYPE aUInt8BDT IS MOD 2**8;

  FOR aUInt8BDT'SIZE USE 8;

  TYPE aUInt8ArrayBDT IS ARRAY( Natural RANGE <> ) OF aUInt8BDT;

  PRAGMA PACK (aUInt8ArrayBDT);

  SUBTYPE aFloatBDT IS FLOAT;

  TYPE aFloatArrayBDT IS ARRAY( Natural RANGE <> ) OF aFloatBDT;

  PRAGMA PACK (aFloatArrayBDT);

  SUBTYPE aDoubleBDT IS LONG_FLOAT;

  TYPE aDoubleArrayBDT IS ARRAY( Natural RANGE <> ) OF aDoubleBDT;

  PRAGMA PACK (aDoubleArrayBDT);

END BDTbaseDataTypes;

For what it's worth,

SteveD