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=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: Simple Components (Generic_Directed_Graph)
Date: Tue, 31 Oct 2017 07:36:56 +0000
Organization: A noiseless patient Spider
Message-ID: <lywp3bepk7.fsf@pushface.org>
References: <ot6vlg$1o05$1@gioia.aioe.org> <ot722v$1sj0$1@gioia.aioe.org>
	<ot7r4v$1caq$1@gioia.aioe.org> <ot82ta$1prq$1@gioia.aioe.org>
	<ot852c$1tts$1@gioia.aioe.org> <ot89nb$72j$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: reader02.eternal-september.org;
 posting-host="d21400d8a95206b103db83b4127710bb";
	logging-data="13119"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+3Lyzptw9JXuU+oxFFolc95PQ0VKt16xw="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (darwin)
Cancel-Lock: sha1:Zh5EfJi0yV2E+4IjKjYGcDATX3I=
	sha1:L98Yetk3++UXKKCdxrgZkxFm8Nw=
Xref: news.eternal-september.org comp.lang.ada:48682
Date: 2017-10-31T07:36:56+00:00
List-Id: <comp.lang.ada>

"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> writes:

>    function "=" (Left, Right : Pointer) return Boolean is
>    begin
>       return Left = Right or else
>              (Left /= null and then Left.all = Right.all);

Should there be a test Right /= null in there?

>    end "=";