par-ch11.adb (P_Exception_Handler): Check indentation level for handler
authorRobert Dewar <dewar@adacore.com>
Tue, 8 Apr 2008 06:54:03 +0000 (08:54 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 8 Apr 2008 06:54:03 +0000 (08:54 +0200)
2008-04-08  Robert Dewar  <dewar@adacore.com>

* par-ch11.adb (P_Exception_Handler): Check indentation level for
handler

From-SVN: r134044

gcc/ada/par-ch11.adb

index 25fbb730b2e092ad57f1f99bf7e3f467741f42e7..412456e1a7e17269b42d805c1de204da15b6b56b 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -94,6 +94,11 @@ package body Ch11 is
    begin
       Handler_Node := New_Node (N_Exception_Handler, Token_Ptr);
       Set_Local_Raise_Statements (Handler_Node, No_Elist);
+
+      if Style_Check then
+         Style.Check_Indentation;
+      end if;
+
       T_When;
 
       --  Test for possible choice parameter present