CVS difference for 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