Re: XOR function

Article View: comp.lang.modula2

Article #3271

#3271

From: "Mark Morgan Lloyd "
Date: Thu, 08 Feb 1996 18:16

16 lines
676 bytes

MODULE Demo;

VAR     a, b, c: CARDINAL;

BEGIN
  IF SIZE(CARDINAL) <> SIZE(BITSET) THEN        (* Paranoid? Me?        *)
    UserBreak
  END;
  c:= CARDINAL(BITSET(a) / BITSET(b))
END Demo.

Mark Morgan Lloyd
mark_tbu@cix.compulink.co.uk

[Opinions above are the author's, not those of his employers or 
colleagues]

Technical Details

Message-ID: <DMGys9.Bup@cix.compulink.co.uk>

Path: arc1-ca.pugleaf.net!cix.compulink.co.uk!usenet

References: <1996Feb8.114044.15072@ucl.ac.uk>

Show Full Headers

Complete Article Headers

Newsgroups: comp.lang.modula2
Path: arc1-ca.pugleaf.net!cix.compulink.co.uk!usenet
From: mark_tbu@cix.compulink.co.uk ("Mark Morgan Lloyd ")
Subject: Re: XOR function
Message-ID: <DMGys9.Bup@cix.compulink.co.uk>
Organization: KDG Mobrey Telemetry
References: <1996Feb8.114044.15072@ucl.ac.uk>
Date: Thu, 8 Feb 1996 18:16:56 GMT
X-News-Software: Ameol

Reply to Parent Message