Re: Array of bytes type

["DuckE" <nospam_steved@pacifier.com>]

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