Path: utzoo!attcan!telly!lethe!torsqnt!news-server.csri.toronto.edu!rutgers!gatech!udel!wuarchive!sdd.hp.com!elroy.jpl.nasa.gov!aero!aerospace.aero.org!jordan
From: jordan@aerospace.aero.org (Larry M. Jordan)
Newsgroups: comp.lang.modula2
Subject: Re: Binary operations in Modula-2
Keywords: Binary
Message-ID: <94578@aerospace.AERO.ORG>
Date: 14 Dec 90 23:57:46 GMT
References: <1990Dec13.213402.16572@iesd.auc.dk> <94575@aerospace.AERO.ORG>
Sender: news@aerospace.aero.org
Reply-To: jordan@antares.UUCP (Larry M. Jordan)
Organization: The Aerospace Corporation, El Segundo, CA
Lines: 12

Correction.  'Not' should be:

CONST N = NumberOfBitsInCardinal;  (* for JPI this is 16 *)

PROCEDURE Not(a: CARDINAL): CARDINAL;
BEGIN
  RETURN CARDINAL(BITSET{0..N-1} - BITSET(a))
END Not;

and, not 'BITSET(0) - BITSET(a)' as mistakenly given earlier.

-- Larry