CVS difference for arm/progs/arm_db.adb

Differences between 1.8 and version 1.9
Log of other versions for file arm/progs/arm_db.adb

--- arm/progs/arm_db.adb	2005/10/29 06:01:41	1.8
+++ arm/progs/arm_db.adb	2005/12/15 02:37:46	1.9
@@ -1,3 +1,4 @@
+--with Ada.Text_IO; -- Debug.
 with Ada.Unchecked_Deallocation,
      Ada.Strings.Fixed,
      Ada.Characters.Handling;
@@ -53,7 +54,7 @@
     type String_Ptr is access String;
     type Item is record
 	Next : Item_List;
-	Sort_Key : String(1 .. 20);
+	Sort_Key : String(1 .. 50);
 	Hang : String(1 .. 50);
 	Hang_Len : Natural;
 	Text : String_Ptr;
@@ -253,6 +254,10 @@
 		Format_Text ("@begin(intro)" & Ascii.LF, "Prefix");
 		Temp := Database_Object.List;
 		while Temp /= null loop
+--** Debug:
+--Ada.Text_IO.Put_Line("Format " & Change_if_Needed (Temp) &
+--			"@defn{" & Ada.Strings.Fixed.Trim (Temp.Sort_Key, Ada.Strings.Right) & "}" & Ascii.LF &
+--			Temp.Text.all);
 		    Format_Text (Change_if_Needed (Temp) &
 			"@defn{" & Ada.Strings.Fixed.Trim (Temp.Sort_Key, Ada.Strings.Right) & "}" & Ascii.LF &
 			Temp.Text.all & Ascii.LF & Ascii.LF, Temp.Sort_Key);

Questions? Ask the ACAA Technical Agent