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 @@
-- --
-- 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 --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -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
-- would simply be an added function to that package, but this change cannot
-- be made in a conforming manner.
---------------------------------------
-- Ada.Exceptions.Is_Null_Occurrence --
---------------------------------------
function Ada.Exceptions.Is_Null_Occurrence
(X : Exception_Occurrence)
return Boolean
(X : Exception_Occurrence) return Boolean
is
begin
-- The null exception is uniquely identified by the fact that the Id
-- value is null. No other exception occurrence can have a null Id.
-- The null exception is uniquely identified by the fact that the Id value
-- is null. No other exception occurrence can have a null Id.
if X.Id = Null_Id then
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