CVS difference for arm/progs/arm_sub.adb

Differences between 1.5 and version 1.6
Log of other versions for file arm/progs/arm_sub.adb

--- arm/progs/arm_sub.adb	2007/02/16 07:27:17	1.5
+++ arm/progs/arm_sub.adb	2007/12/20 07:43:33	1.6
@@ -48,6 +48,7 @@
     --  8/ 4/06 - RLB - Fixed problems if unit was missing.
     --  9/22/06 - RLB - Changed to use Clause_Number_Type.
     --  2/13/07 - RLB - Changed Start_Paragraph to use explicit indents.
+    -- 12/19/07 - RLB - Revised Text_Format calls.
 
     type String_Ptr is access String;
     type Item is record
@@ -412,12 +413,20 @@
 	procedure Italic_Text (Text : in String) is
 	begin
 	    ARM_Output.Text_Format (Output_Object,
-		   Bold => False, Italic => True, Font => ARM_Output.Default,
-		   Size => 0, Change => ARM_Output.None, Location => ARM_Output.Normal);
+		   Format => (Bold => False, Italic => True,
+			      Font => ARM_Output.Default,
+		   	      Size => 0, Color => ARM_Output.Default,
+			      Change => ARM_Output.None,
+			      Version | Added_Version => '0',
+			      Location => ARM_Output.Normal));
             ARM_Output.Ordinary_Text (Output_Object, Text);
 	    ARM_Output.Text_Format (Output_Object,
-		   Bold => False, Italic => False, Font => ARM_Output.Default,
-		   Size => 0, Change => ARM_Output.None, Location => ARM_Output.Normal);
+		   Format => (Bold => False, Italic => False,
+			      Font => ARM_Output.Default,
+		   	      Size => 0, Color => ARM_Output.Default,
+			      Change => ARM_Output.None,
+			      Version | Added_Version => '0',
+			      Location => ARM_Output.Normal));
 	end Italic_Text;
 
 

Questions? Ask the ACAA Technical Agent