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,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.36.86.194 with SMTP id o185mr178102itb.23.1494322122890; Tue, 09 May 2017 02:28:42 -0700 (PDT) X-Received: by 10.157.45.132 with SMTP id g4mr1351188otb.0.1494322122860; Tue, 09 May 2017 02:28:42 -0700 (PDT) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.glorb.com!c26no1702277itd.0!news-out.google.com!m134ni367itb.0!nntp.google.com!c26no1702266itd.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Tue, 9 May 2017 02:28:42 -0700 (PDT) In-Reply-To: Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=2a02:1205:5055:3750:b057:caa5:4efb:b9bc; posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG NNTP-Posting-Host: 2a02:1205:5055:3750:b057:caa5:4efb:b9bc References: <83325a39-b5b1-4742-a28b-4a8631379d43@googlegroups.com> <2c53a9f3-6cd7-49b3-b69f-300d682bc2a1@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Re: Question about sets and expression From: gautier_niouzes@hotmail.com Injection-Date: Tue, 09 May 2017 09:28:42 +0000 Content-Type: text/plain; charset=UTF-8 Xref: news.eternal-september.org comp.lang.ada:46727 Date: 2017-05-09T02:28:42-07:00 List-Id: No crash with GNAP GPL 2016 for Windows (gcc version 4.9.4 20160426 (for GNAT GPL 2016 20160515)). When elaborating a bit: ... begin Put_Line(" ** A: "); c1 := (if not os.is_empty then os.first_element else d); Put_Line(" ** B: "); c2 := (if not os.is_empty then os.first_element else (id => Cnil, others => <>)); Put_Line(" ** C "); if c1 = (id => C003,others => <>) then Put_Line(" ** c1 OK "); end if; if c2 = (id => C003,others => <>) then Put_Line(" ** c2 OK "); end if; end test1b; I get ** A: ** B: ** C ** c1 OK ** c2 OK The build command is: gnatmake -gnato -fno-inline -fstack-check -gnatVa -gnatecdebug.pra test1b.adb with debug.pra containing "pragma Initialize_Scalars;". Same result with "gnatmake -f -gnatpn test1b.adb" and "gnatmake -f -gnatpn -O2 test1b.adb". HTH Gautier ________________________________________________ Your daily dose of buzzwords: http://cbsg.sf.net