File tree Expand file tree Collapse file tree 2 files changed +3
-4
lines changed Expand file tree Collapse file tree 2 files changed +3
-4
lines changed Original file line number Diff line number Diff line change @@ -244,9 +244,7 @@ begin
244244
245245 Generator.Write (Filename);
246246 end ;
247-
248247exception
249-
250248 when Fatal_Error | Parameter_Error =>
251249 -- Everything has already been reported
252250 Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
Original file line number Diff line number Diff line change @@ -1086,8 +1086,9 @@ package body Ada2WSDL.Parser is
10861086 else
10871087 if R.Kind = Ada_Range_Constraint then
10881088 return R.As_Range_Constraint.F_Range.F_Range.As_Bin_Op;
1089- elsif R.Kind = Ada_Composite_Constraint and then
1090- R.As_Composite_Constraint.P_Is_Index_Constraint
1089+
1090+ elsif R.Kind = Ada_Composite_Constraint
1091+ and then R.As_Composite_Constraint.P_Is_Index_Constraint
10911092 then
10921093 return R.As_Composite_Constraint.F_Constraints.Child (1 )
10931094 .As_Composite_Constraint_Assoc.F_Constraint_Expr.As_Bin_Op;
You can’t perform that action at this time.
0 commit comments