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=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,c35edbbda4c7f58f
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!newsfeed2.dallas1.level3.net!news.level3.com!newsfeed-00.mathworks.com!irazu.switch.ch!switch.ch!news.belwue.de!newsfeed.arcor.de!news.arcor.de!not-for-mail
Date: Sat, 20 Nov 2004 18:25:31 +0100
From: Georg Bauhaus <sb463ba@uni-duisburg.de>
User-Agent: Mozilla Thunderbird 0.8 (Windows/20040913)
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Conditional compilation in Ada?
References: <cndgus$9g6$1@korweta.task.gda.pl>
 <opshlsuxttm0et4w@news.online.de>
 <419b5ff6$0$25329$9b4e6d93@newsread2.arcor-online.net>
 <cctkt7j26348.khe28jjtda9j$.dlg@40tude.net>
 <cnieq2$46g$2@a1-hrz.uni-duisburg.de>
 <pan.2004.11.20.01.05.29.885101@linuxchip.demon.co.uk.uk.uk>
In-Reply-To: <pan.2004.11.20.01.05.29.885101@linuxchip.demon.co.uk.uk.uk>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <419f993b$0$16046$9b4e6d93@newsread4.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 20 Nov 2004 20:21:32 MET
NNTP-Posting-Host: ac54683e.newsread4.arcor-online.net
X-Trace: 
 DXC=6VWOI\kGe:7_78OXD477\?:ejgIfPPld4jW\KbG]kaM8XY;eg@jLYe<oZF4\H\`Je4:n9G[MMWD:45FNkm[O6V37>ZF;m4];Q08
X-Complaints-To: abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:6302
Date: 2004-11-20T20:21:32+01:00
List-Id: <comp.lang.ada>

Dr. Adrian Wrigley wrote:
>>pragma Ignore ( -- compiler warning 
>> DEBUG.put_line
>> (  "Here " & Is.Something ("reasonable complex to evaluate")
>> )
>>);
> 
> 
> Maybe I'm being stupid, but how does this help?
> Doesn't this always have no effect?

That's right, it doesn't solve the original problem without
a compiler mechanism like -gnata and pragma Debug in GNAT.
I mentioned this in a rush to show Dmitry a way to have
lazy evaluation in Ada. ;-)

Georg