ada/PolyORB
0
0
Fork 0
mirror of https://github.com/AdaCore/PolyORB.git synced 2026-02-12 13:01:15 -08:00
Code Issues Packages Projects Releases Wiki Activity

Minor reformatting

Browse Source 
[Imported from Perforce change 8983 at 2006-12-01 21:11:14]

Subversion-branch: /trunk/polyorb
Subversion-revision: 36524
This commit is contained in:
Jérôme Hugues
2005-01-05 09:54:35 +00:00
parent eaf6496a10
commit e4ab59fa00
1 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/polyorb-object_maps.adb
View File

@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2003 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- --
-- PolyORB is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free --
@@ -26,8 +26,8 @@
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
-- PolyORB is maintained by ACT Europe. --
-- (email: sales@act-europe.fr) --
-- PolyORB is maintained by AdaCore --
-- (email: sales@adacore.com) --
-- --
------------------------------------------------------------------------------
@@ -39,9 +39,7 @@ package body PolyORB.Object_Maps is
-- Is_Null --
-------------
function Is_Null
(Item : in Object_Map_Entry_Access)
return Boolean is
function Is_Null (Item : in Object_Map_Entry_Access) return Boolean is
begin
return Item = null;
end Is_Null;
@@ -53,9 +51,9 @@ package body PolyORB.Object_Maps is
function Is_Servant_In
(O_Map : in Object_Map;
Item : in PolyORB.Servants.Servant_Access)
return Boolean is
return Boolean
is
begin
return not Is_Null (Get_By_Servant (Object_Map'Class (O_Map), Item));
end Is_Servant_In;
@@ -66,9 +64,9 @@ package body PolyORB.Object_Maps is
function Is_Object_Id_In
(O_Map : in Object_Map;
Item : in PolyORB.POA_Types.Unmarshalled_Oid)
return Boolean is
return Boolean
is
begin
return not Is_Null (Get_By_Id (Object_Map'Class (O_Map), Item));
end Is_Object_Id_In;