CVS difference for arm/progs/arm_inp.adb

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

--- arm/progs/arm_inp.adb	2005/01/28 04:41:55	1.5
+++ arm/progs/arm_inp.adb	2005/12/15 02:37:49	1.6
@@ -159,6 +159,8 @@
 	    if Len >= Buffer'Length then
 	        Ada.Text_IO.Put_Line ("  ** String buffer overflow on line " &
 			ARM_Input.Line_String (Input_Object));
+----Debug:
+--raise Program_Error; -- Where the heck are we??
 	    else
 	        Buffer (Buffer'First + Len) := Ch;
                 Len := Len + 1;

Questions? Ask the ACAA Technical Agent