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,349427c451f66022
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nntp.club.cc.cmu.edu!feeder.erje.net!news.musoftware.de!wum.musoftware.de!news.tornevall.net!.POSTED!not-for-mail
From: Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: Strange behaviour of delay in Windows XP
Date: Thu, 07 Oct 2010 15:37:51 -0700
Organization: TornevallNET - http://news.tornevall.net
Message-ID: <i8li6b$m9d$1@tornado.tornevall.net>
References: <i8lcl2$f0i$1@news.eternal-september.org>
NNTP-Posting-Host: d5048c8b0660113c1cc521b03cc25093
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: 365f4146d0a36aa7157c194f3ca590d6
X-Complaints-To: abuse@tornevall.net
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US;
 rv:1.9.1.12) Gecko/20100915 Thunderbird/3.0.8
X-Complaints-Language: Spoken language is english or swedish - NOT ITALIAN,
 FRENCH, GERMAN OR ANY OTHER LANGUAGE!
In-Reply-To: <i8lcl2$f0i$1@news.eternal-september.org>
X-UserIDNumber: 1738
X-Validate-Post: 
 http://news.tornevall.net/validate.php?trace=365f4146d0a36aa7157c194f3ca590d6
X-Complaints-Italiano: Non abbiamo padronanza della lingua italiana - se
 mandate una email scrivete solo in Inglese, grazie
X-Posting-User: 0243687135df8c4b260dd4a9a93c79bd
Xref: g2news1.google.com comp.lang.ada:14426
Date: 2010-10-07T15:37:51-07:00
List-Id: <comp.lang.ada>

On 10/07/2010 02:04 PM, michael bode wrote:
>
> with  Ada.Text_Io; use Ada.Text_Io;
> with Ada.Calendar; use Ada.Calendar;
>
> procedure Testprog is
>     T1, T2 : Time;
>     D : Duration;
> begin
>     D := 1.0;
>     T1 := Clock;
>     delay D;

The relative delay is inherently imprecise; add that to the lousy timing on 
Windows and such results are not as surprising as they should be. Try

delay until T1 + D;

and see if that makes a difference.

-- 
Jeff Carter
"When Roman engineers built a bridge, they had to stand under it
while the first legion marched across. If programmers today
worked under similar ground rules, they might well find
themselves getting much more interested in Ada!"
Robert Dewar
62