CVS difference for arm/progs/arm_frm.adb

Differences between 1.79 and version 1.80
Log of other versions for file arm/progs/arm_frm.adb

--- arm/progs/arm_frm.adb	2016/04/21 03:14:27	1.79
+++ arm/progs/arm_frm.adb	2016/08/20 00:16:50	1.80
@@ -1693,7 +1693,12 @@
 			else
 			    Format_Object.Style  := ARM_Output.Normal;
 			end if;
-		        Format_Object.Indent := 1 + Enclosing_Indent;
+			if Enclosing_Indent = Arm_Output.Paragraph_Indent_Type'Last then
+                            raise Program_Error with
+                               "Overindented (indent) text on line " & ARM_Input.Line_String (Input_Object);
+                        else
+		            Format_Object.Indent := 1 + Enclosing_Indent;
+                        end if;
 --Ada.Text_IO.Put_Line ("&& Child Indented paragraph, line " & ARM_Input.Line_String (Input_Object) & " EF=" & Paragraph_Type'Image(Enclosing_Format) & " Indent=" &
 --   ARM_Output.Paragraph_Indent_Type'Image(Format_Object.Indent));
 			Format_Object.No_Breaks := False;
@@ -1704,7 +1709,12 @@
 			else
 			    Format_Object.Style  := ARM_Output.Bulleted;
 			end if;
-		        Format_Object.Indent := 1 + Enclosing_Indent;
+			if Enclosing_Indent = Arm_Output.Paragraph_Indent_Type'Last then
+                            raise Program_Error with
+                               "Overindented (bullet) text on line " & ARM_Input.Line_String (Input_Object);
+                        else
+		            Format_Object.Indent := 1 + Enclosing_Indent;
+                        end if;
 --Ada.Text_IO.Put_Line ("&& Regular bulleted paragraph, line " & ARM_Input.Line_String (Input_Object) & " EF=" & Paragraph_Type'Image(Enclosing_Format) & " Indent=" &
 --   ARM_Output.Paragraph_Indent_Type'Image(Format_Object.Indent));
 		        Format_Object.Paragraph_Tab_Stops := ARM_Output.NO_TABS;
@@ -1716,7 +1726,12 @@
 			else
 			    Format_Object.Style  := ARM_Output.Nested_Bulleted;
 			end if;
-		        Format_Object.Indent := 1 + Enclosing_Indent;
+			if Enclosing_Indent = Arm_Output.Paragraph_Indent_Type'Last then
+                            raise Program_Error with
+                               "Overindented (nestbullet) text on line " & ARM_Input.Line_String (Input_Object);
+                        else
+		            Format_Object.Indent := 1 + Enclosing_Indent;
+                        end if;
 --Ada.Text_IO.Put_Line ("&& Nested bulleted paragraph, line " & ARM_Input.Line_String (Input_Object) & " EF=" & Paragraph_Type'Image(Enclosing_Format) & " Indent=" &
 --   ARM_Output.Paragraph_Indent_Type'Image(Format_Object.Indent));
 		        Format_Object.Paragraph_Tab_Stops := ARM_Output.NO_TABS;

Questions? Ask the ACAA Technical Agent