CVS difference for arm/progs/arm_frm.ads

Differences between 1.39 and version 1.40
Log of other versions for file arm/progs/arm_frm.ads

--- arm/progs/arm_frm.ads	2016/04/21 03:14:27	1.39
+++ arm/progs/arm_frm.ads	2017/07/22 02:23:10	1.40
@@ -13,7 +13,7 @@
     -- determine what to output.
     --
     -- ---------------------------------------
-    -- Copyright 2000, 2002, 2004, 2005, 2006, 2007, 2010, 2011, 2012, 2016
+    -- Copyright 2000, 2002, 2004, 2005, 2006, 2007, 2010, 2011, 2012, 2016, 2017
     --   AXE Consultants. All rights reserved.
     -- P.O. Box 1512, Madison WI  53701
     -- E-Mail: randy@rrsoftware.com
@@ -108,6 +108,7 @@
     -- 11/26/12 - RLB - Added subdivision names.
     -- 12/17/12 - RLB - Added Ada 2012 AARM sections.
     --  3/17/16 - RLB - Removed Changes_Only, added Base_Change_Version.
+    --  7/21/17 - RLB - Changed the prefix length
 
     type Format_Type is tagged limited private;
 
@@ -311,6 +312,8 @@
 	end case;
     end record;
 
+    MAX_PREFIX : constant := 250; -- Maximum length of a prefix.
+
     type Format_Type is tagged limited record
 	-- Document information:
 	Changes : ARM_Format.Change_Kind; -- No Both here.
@@ -415,7 +418,7 @@
 	Syntax_Tab_Len : Natural := 0;
 
 	-- Attributes:
-	Prefix_Text : String (1..200) := "@b{NONE!}" & (10..200 => ' ');
+	Prefix_Text : String (1..MAX_PREFIX) := "@b{NONE!}" & (10..MAX_PREFIX => ' ');
 	    -- This text is used as part of the attribute list text.
 	    -- It is shared between multiple attributes, which is why it is
 	    -- handled this way.

Questions? Ask the ACAA Technical Agent