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 
Subversion-branch: /trunk/polyorb
Subversion-revision: 201692
This commit is contained in:
Thomas Quinot
2013-01-29 10:46:05 +00:00
parent 6b132dda1b
commit f7e717052d
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
compilers/gnatdist/xe_stdcnf.adb
View File

@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1995-2012, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2013, Free Software Foundation, Inc. --
-- --
-- This 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- --
@@ -26,11 +26,11 @@
-- --
------------------------------------------------------------------------------
with XE_Types; use XE_Types;
with XE; use XE;
with XE_Parse; use XE_Parse;
with XE_Scan; use XE_Scan;
with XE_Utils; use XE_Utils;
with XE_Types; use XE_Types;
with XE; use XE;
with XE_Parse; use XE_Parse;
with XE_Scan; use XE_Scan;
with XE_Utils; use XE_Utils;
package body XE_Stdcnf is
@@ -42,13 +42,12 @@ package body XE_Stdcnf is
----------------
procedure Initialize is
Variable_Node : Variable_Id;
begin
-- As a naming convention, we use the reserved keyword "private"
-- for the standard configuration name.
-- As a naming convention, we use the reserved keyword "private" for
-- the standard configuration name.
Create_Configuration (Configuration_Node, Id ("private"));
@@ -505,7 +504,7 @@ package body XE_Stdcnf is
Pragma_Starter_Node,
Null_Location);
-- type Name_Server is (Embedded, Standalone, Multicast);
-- type Name_Server is (None, Embedded, Standalone, Multicast);
Declare_Type
(Type_Name => Type_Prefix & "name_server",