-- --
-- B o d y --
-- --
--- $Revision$
--- --
--- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2004 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- --
-- covered by the GNU Public License. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
--- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
package body System.RPC is
- GNAT : constant Boolean := True;
- pragma Unreferenced (GNAT);
- -- This dummy entity allows the compiler to recognize that this is the
- -- version of this package that is supplied by GNAT, not by the user.
- -- This is used to cause a compile time error if an attempt is made to
- -- use features in System.RPC that are only available from a true PCS.
-
CRLF : constant String := ASCII.CR & ASCII.LF;
Msg : constant String :=