comp.lang.ada
 help / color / mirror / Atom feed
From: jerry@jvdsys.nextjk.stuyts.nl (Jerry van Dijk)
Subject: Re: porting from Meridian Ada to Gnat
Date: 1996/07/12
Date: 1996-07-12T00:00:00+00:00	[thread overview]
Message-ID: <DuFM81.2G@jvdsys.nextjk.stuyts.nl> (raw)
In-Reply-To: DRWHOLTO.96Jul11161337@dcsun3.comp.brad.ac.uk


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   --




      reply	other threads:[~1996-07-12  0:00 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1996-07-11  0:00 porting from Meridian Ada to Gnat DRW HOLTON
1996-07-12  0:00 ` Jerry van Dijk [this message]
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox