Mercurial > projects > dstress

annotate run/double_22.d @ 1630:d0efa3ae5522 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author David Nadlinger <code@klickverbot.at>
date Sat, 23 Apr 2011 22:57:32 +0200
parents eaf0a0d20b60
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
376
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
1 // $HeadURL$
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
2 // $Date$
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
3 // $Author$
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
4
564
e77e4444c170 partial metadata fix
thomask
parents: 376
diff changeset
5 // @author@ Derek Parnell <derek@psych.ward>
376
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
6 // @date@ 2005-04-02
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
7 // @uri@ news:5efpfwr0e1l5$.ks45nx0xz2zf$.dlg@40tude.net
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
8
812
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
9 // For floating point operations and expression intermediate values,
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
10 // a greater precision can be used than the type of the expression.
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
11 // Only the minimum precision is set by the types of the operands,
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
12 // not the maximum.
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
13
376
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
14 module dstress.run.double_22;
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
15
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
16 int main(){
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
17 double f = 0.0000195;
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
18 assert(typeid(typeof(0.0000195)) == typeid(double));
812
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
19
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
20 real diff = (0.5 + f * 1e6) - (0.5 + 0.0000195 * 1e6);
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
21
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
22
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
23 if(diff < 0){
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
24 diff *= -1;
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
25 }
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
26
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
27 if(diff < double.epsilon * 8){
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
28 return 0;
eaf0a0d20b60 Walter <walter@digitalmars.com>
thomask
parents: 564
diff changeset
29 }
376
52a8b1249941 float literals versus variable
thomask
parents:
diff changeset
30 }