Commit 443dd772 by Robert Dewar Committed by Arnaud Charlet

exp_ch9.adb, inline.ads: Minor reformatting.

2014-01-29  Robert Dewar  <dewar@adacore.com>

	* exp_ch9.adb, inline.ads: Minor reformatting.

From-SVN: r207246
parent 4043fd0b
2014-01-29 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, inline.ads: Minor reformatting.
2014-01-29 Tristan Gingold <gingold@adacore.com> 2014-01-29 Tristan Gingold <gingold@adacore.com>
* exp_ch9.adb (Is_Exception_Safe): Return true if no exceptions. * exp_ch9.adb (Is_Exception_Safe): Return true if no exceptions.
......
...@@ -13425,9 +13425,7 @@ package body Exp_Ch9 is ...@@ -13425,9 +13425,7 @@ package body Exp_Ch9 is
-- Start of processing for Is_Exception_Safe -- Start of processing for Is_Exception_Safe
begin begin
-- When exceptions can't be propagated, the subprogram returns normally
-- When exceptions can not be propagated, the subprogram will always
-- return normaly.
if No_Exception_Handlers_Set then if No_Exception_Handlers_Set then
return True; return True;
......
...@@ -100,7 +100,7 @@ package Inline is ...@@ -100,7 +100,7 @@ package Inline is
SPARK_Mode : SPARK_Mode_Type; SPARK_Mode : SPARK_Mode_Type;
SPARK_Mode_Pragma : Node_Id; SPARK_Mode_Pragma : Node_Id;
-- SPARK_Mode for an instance is the one applicable at the point of -- SPARK_Mode for an instance is the one applicable at the point of
-- instantiation. -- instantiation. SPARK_Mode_Pragma is the related active pragma.
end record; end record;
package Pending_Instantiations is new Table.Table ( package Pending_Instantiations is new Table.Table (
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment