CVS difference for ais/ai-00388.txt

Differences between 1.3 and version 1.4
Log of other versions for file ais/ai-00388.txt

--- ais/ai-00388.txt	2004/12/09 19:55:38	1.3
+++ ais/ai-00388.txt	2005/01/07 03:07:45	1.4
@@ -1,4 +1,4 @@
-!standard A.5(3)                                    04-12-01  AI95-00388/02
+!standard A.5(3)                                    04-12-30  AI95-00388/02
 !class amendment 04-11-10
 !status Amendment 200Y 04-12-01
 !status ARG Approved 8-1-1  04-11-19
@@ -15,17 +15,17 @@
 !problem
 
 AI95-00285 introduces support for the entire ISO/IEC 10646:2003 character
-repertoire in source files.  In particular, many characters from non-Latin
+repertoire in source files. In particular, many characters from non-Latin
 alphabets are now allowed in identifiers.
 
 The identifiers appearing in language-defined units are typically written in
-English, and therefore use the ASCII subset.  In general this is appropriate,
+English, and therefore use the ASCII subset. In general this is appropriate,
 and there is no reason to take advantage of the support added by AI95-00285.
 
-One exception to this is the named number Ada.Numerics.Pi.  It is universally
-written using the Greek letter pi in printed text.  Having to use the ASCII
+One exception to this is the named number Ada.Numerics.Pi. It is universally
+written using the Greek letter pi in printed text. Having to use the ASCII
 identifier Pi in numerical algorithms written in Ada degrades the readability of
-the program text.  Being able to use the Greek letter would make it clearer to
+the program text. Being able to use the Greek letter would make it clearer to
 the reader that a piece of code is using the mathematical number pi, not some
 random identifier that happens to read PI.
 
@@ -52,9 +52,11 @@
 package Ada.Numerics is
     pragma Pure (Numerics);
     Argument_Error : exception;
-    Pi : constant := 3.141...;
+    Pi : constant :=
+          3.14159_26535_89793_23846_26433_83279_50288_41971_69399_37511;
     <GREEK SMALL LETTER PI> : constant := Pi;
-    e  : constant := 2.718...;
+    e  : constant :=
+          2.71828_18284_59045_23536_02874_71352_66249_77572_47093_69996;
 end Ada.Numerics;
 
 !discussion
@@ -65,7 +67,27 @@
 
 No example is needed.
 
---!corrigendum
+!corrigendum A.5(3)
+
+@drepl
+@xcode<@b<package> Ada.Numerics @b<is>
+   @b<pragma> Pure (Numerics);
+   Argument_Error : @b<exception>;
+   Pi : @b<constant> :=
+          3.14159_26535_89793_23846_26433_83279_50288_41971_69399_37511;
+   e  : @b<constant> :=
+          2.71828_18284_59045_23536_02874_71352_66249_77572_47093_69996;
+@b<end> Ada.Numerics;>
+@dby
+@xcode<@b<package> Ada.Numerics @b<is>
+   @b<pragma> Pure (Numerics);
+   Argument_Error : @b<exception>;
+   Pi : @b<constant> :=
+          3.14159_26535_89793_23846_26433_83279_50288_41971_69399_37511;
+   @Pi : constant := Pi;
+   e  : @b<constant> :=
+          2.71828_18284_59045_23536_02874_71352_66249_77572_47093_69996;
+@b<end> Ada.Numerics;>
 
 !ACATS test
 

Questions? Ask the ACAA Technical Agent