CVS difference for acats/lxe/lxe30011.am

Differences between 1.4 and version 1.5
Log of other versions for file acats/lxe/lxe30011.am

--- acats/lxe/lxe30011.am	1999/03/10 22:10:27	1.4
+++ acats/lxe/lxe30011.am	1999/03/11 23:47:31	1.5
@@ -41,6 +41,8 @@
 -- CHANGE HISTORY:
 --     22 JUN 95   SAIC    Initial version
 --      2 OCT 96   SAIC    Incorporated reviewer comments.
+--     26 SEP 98   RLB     Repaired to allow Communications_Error; to eliminate
+--                         hanging; and to update the description.
 --
 --!
 
@@ -71,6 +73,7 @@
 
 with LXE3001_Part_A;
 with LXE3001_Part_B;
+with System.RPC;
 with Report;
 procedure LXE3001_B is
 begin
@@ -84,6 +87,9 @@
 
   -- Report.Result is called in the body of LXE3001_Part_B.
 exception
+  when System.RPC.Communications_Error =>
+    Report.Comment ("Communications_Error raised");
+       -- This ought to happen if the Program_Error is not raised.
   when Program_Error => 
     Report.Failed ("Program_Error raised after elaboration");
   when others =>
@@ -108,7 +114,11 @@
 
   task body Wait_For_Quit is
   begin
-    accept Quit;
+    select
+      accept Quit;
+    or
+      terminate;
+    end select;
     Report.Result;
   end Wait_For_Quit;
 

Questions? Ask the ACAA Technical Agent