From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.6 required=5.0 tests=BAYES_20,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,2a4cc9c0c74758fb,start
X-Google-Attributes: gid103376,public
From: cheung@SEDSystems.ca (Telson Cheung)
Subject: HELP! nested CASE statement
Date: 1995/04/20
Message-ID: <3n6e5a$iqj@io.innovplace.saskatoon.sk.ca>#1/1
X-Deja-AN: 101283294
organization: Innovation Place
newsgroups: comp.lang.ada
Date: 1995-04-20T00:00:00+00:00
List-Id: <comp.lang.ada>

We have encountered this problem when using a debugger to step thru
one of our subprogram. Any help or sugguestion would be greatly 
appriecated.

With the following code:

---------------------------------------------------------------------
    case Hpa_Group_Status.Last_Commanded_Hpa_Band is
      when Vg_Dtypes.Band_C =>
        case Hpa_Group_Status.Last_Commanded_Hpa_Path is
          when Vg_Dtypes.Path_A =>
            Execution_Status := Hpa_C_A.Command_Execution_Status;
          when Vg_Dtypes.Path_B =>
            Execution_Status := Hpa_C_B.Command_Execution_Status;
          when others =>
            raise Invalid_Path_Id;
        end case;
      when Vg_Dtypes.Band_Ku =>
        case Hpa_Group_Status.Last_Commanded_Hpa_Path is
          when Vg_Dtypes.Path_A =>
            Execution_Status := Hpa_Ku_A.Command_Execution_Status;
          when Vg_Dtypes.Path_B =>
            Execution_Status := Hpa_Ku_B.Command_Execution_Status;
          when others =>
            raise Invalid_Path_Id;
        end case;
      when Vg_Dtypes.Band_X =>
        case Hpa_Group_Status.Last_Commanded_Hpa_Path is
          when Vg_Dtypes.Path_A =>
            Execution_Status := Hpa_X_A.Command_Execution_Status;
          when Vg_Dtypes.Path_B =>
            Execution_Status := Hpa_X_B.Command_Execution_Status;
          when others =>
            raise Invalid_Path_Id;
        end case;
      when others =>
        raise Invalid_Band_Id;
    end case;

------------------------------------------------------------------------

With the debugger, we set 
    Hpa_Group_Status.Last_Commanded_Hpa_Band := Vg_Dtypes.Band_C
    while keeping 
    Hpa_Group_Status.Last_Commanded_Hpa_Path uninitialed (ie. unknown)

when stepping thru these lines of code in the debugger, instead of raising
an Invalid_Path_Id exception, the program actually goes to 

         when Vg_Dtypes.Path_A =>
            Execution_Status := Hpa_C_A.Command_Execution_Status;

Helps needed.
Please also email response to cheung@sedsystems.ca

Thanks