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=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,c70bb16b3813e0fd
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-11-24 11:21:49 PST
Path: 
 nntp.gmd.de!urmel.informatik.rwth-aachen.de!newsserver.rrzn.uni-hannover.de!aix11.hrz.uni-oldenburg.de!nordwest.germany.eu.net!pophh!Germany.EU.net!howland.reston.ans.net!pipex!uunet!svc.portal.com!portal.com!cup.portal.com!R_Tim_Coslet
From: R_Tim_Coslet@cup.portal.com
Newsgroups: comp.lang.ada
Subject: Re: Ada Portability... NOT!
Date: 24 Nov 1994 11:21:49 -0800
Organization: The Portal System (TM)
Sender: pccop@unix.portal.com
Message-ID: <128124@cup.portal.com>
References: <199411182104.PAA04854@mail.cs.utexas.edu>
  <3alalm$9di@gnat.cs.nyu.edu> <Czn6HI.16x@alsys.com>
  <Czq0y5.2sx@ss3.magec.com>
NNTP-Posting-Host: news1.unix
Date: 1994-11-24T11:21:49-08:00
List-Id: <comp.lang.ada>

Keith Thompson (kst@alsys.com) wrote:

: perform packing.  For example, pragma Pack(Some_Type) might ask the
: compiler to pack to byte alignment, while pragma Pack(Some_Type, Dammit),
: might ask it to pack to bit alignment.  (Note that an implementation
: may not legally add arguments to an existing language-defined pragma.)

: Whaddya think?

PRAGMA Packing(Some_Type, Alignment_Size);

PRAGMA Packing(Bit_Array_Typ, 1);           -- packing alignment 1 bit
PRAGMA Packing(Another_Typ, 8);             -- packing alignment 8 bits
PRAGMA Packing(One_More_Typ, Integer'Size); -- packing alignment integer size

                                        R. Tim Coslet

Usenet: R_Tim_Coslet@cup.portal.com
        technology, n.  domesticated natural phenomena