CVS difference for ai12s/ai12-0080-1.txt

Differences between 1.14 and version 1.15
Log of other versions for file ai12s/ai12-0080-1.txt

--- ai12s/ai12-0080-1.txt	2014/11/13 02:47:33	1.14
+++ ai12s/ai12-0080-1.txt	2014/11/14 02:38:37	1.15
@@ -220,7 +220,7 @@
    @b<end> Allocate_From_Subpool;>
 @dby
 @xcode<      -- @ft<@i<Check for the maximum supported alignment, which is the alignment of the storage area:>>
-      @b<if> Alignment > Pool.Storage'Alignment @b<then>
+      @b<if> Alignment @> Pool.Storage'Alignment @b<then>
          @b<raise> Program_Error;
       @b<end if>;
       -- @ft<@i<Correct the alignment if necessary:>>

Questions? Ask the ACAA Technical Agent