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,c98ef1b54f5d0ee6 X-Google-Attributes: gid103376,public From: jerry@jvdsys.nextjk.stuyts.nl (Jerry van Dijk) Subject: Re: porting from Meridian Ada to Gnat Date: 1996/07/12 Message-ID: #1/1 X-Deja-AN: 168103295 references: organization: JerryWare HQ, Haarlem, Holland newsgroups: comp.lang.ada Date: 1996-07-12T00:00:00+00:00 List-Id: van Dijk, you moron, why can't you pay attention: > return Integer (Inport_Word (Integer (Port_Number))); should, of course, be: return Integer (Inport_Word (Unsigned_16 (Unsigned_32 (Port_Number) And 16#FF#))); -- ----------------------------------------------------------------------- -- Jerry van Dijk -- e-mail: jerry@jvdsys.nextjk.stuyts.nl -- -- Banking Consultant -- Member Team-Ada -- -- Ordina Finance BV -- Located at Haarlem, The Netherlands -- -- ----------------------------------------------------------------------- -- Jerry van Dijk -- e-mail: jerry@jvdsys.nextjk.stuyts.nl -- -- Banking Consultant -- Member Team-Ada -- -- Ordina Finance BV -- Located at Haarlem, The Netherlands --