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.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,abc6a29c7c19fbc8 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-08-28 09:43:14 PST Path: archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!nntp.cs.ubc.ca!newsfeed.direct.ca!look.ca!newshub2.rdc1.sfba.home.com!news.home.com!news1.rdc1.sfba.home.com.POSTED!not-for-mail From: tmoran@acm.org Newsgroups: comp.lang.ada Subject: Re: Computing checksum for Ada newbie References: <9mgcbl$49b$1@zeus.orl.lmco.com> X-Newsreader: Tom's custom newsreader Message-ID: Date: Tue, 28 Aug 2001 16:43:13 GMT NNTP-Posting-Host: 24.7.82.199 X-Complaints-To: abuse@home.net X-Trace: news1.rdc1.sfba.home.com 999016993 24.7.82.199 (Tue, 28 Aug 2001 09:43:13 PDT) NNTP-Posting-Date: Tue, 28 Aug 2001 09:43:13 PDT Organization: Excite@Home - The Leader in Broadband http://home.com/faster Xref: archiver1.google.com comp.lang.ada:12525 Date: 2001-08-28T16:43:13+00:00 List-Id: Do you mean something like: type BYTE is mod 256; -- ignore overflow type TYPE_1 is record XX : BYTE; -- first byte YY : BYTE; -- second byte Third, Fourth, Fifth, Sixth, Seventh : BYTE; Checksum : BYTE; -- eighth byte end record; function Compute_Checksum(X : in TYPE_1) return BYTE is begin return X.Checksum; end Compute_Checksum; or perhaps function Compute_Checksum(X : in TYPE_1) return BYTE is begin return X.XX+X.YY+X.Third+X.Fourth+X.Fifth+X.Sixth+X.Seventh; end Compute_Checksum; or perhaps procedure Compute_Checksum(X : in out TYPE_1) is begin X.Checksum := X.XX+X.YY+X.Third+X.Fourth+X.Fifth+X.Sixth+X.Seventh; end Compute_Checksum; and similarly for TYPE_2, etc.