Skip to content

R
riscv-gcc-1
Commit 1313f39c by Arnaud Charlet
Options

Minor reformatting. 

From-SVN: r148702
parent 659819b9
Showing with 7 additions and 9 deletions
gcc/ada/a-einuoc.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2000-2009 Free Software Foundation, Inc. -- -- Copyright (C) 2000-2009, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -29,18 +29,16 @@ ...@@ -29,18 +29,16 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- This is a GNAT-specific child function of Ada.Exceptions. It provides ---------------------------------------
-- clearly missing functionality for its parent package, and most reasonably -- Ada.Exceptions.Is_Null_Occurrence --
-- would simply be an added function to that package, but this change cannot ---------------------------------------
-- be made in a conforming manner.
function Ada.Exceptions.Is_Null_Occurrence function Ada.Exceptions.Is_Null_Occurrence
(X : Exception_Occurrence) (X : Exception_Occurrence) return Boolean
return Boolean
is is
begin begin
-- The null exception is uniquely identified by the fact that the Id -- The null exception is uniquely identified by the fact that the Id value
-- value is null. No other exception occurrence can have a null Id. -- is null. No other exception occurrence can have a null Id.
if X.Id = Null_Id then if X.Id = Null_Id then
return True; return True;
......
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