From e4272921994bf2717dd67e2fc340af0001c2014a Mon Sep 17 00:00:00 2001
From: Thomas Quinot <quinot@adacore.com>
Date: Wed, 27 Apr 2005 10:02:55 +0000
Subject: [PATCH] Remove pragma Inline for functions with unconstrained result.

git-svn-id: svn+ssh://svn.eu.adacore.com/Dev/importfromcvs/trunk@12045 936e1b1b-40f2-da11-902a-00137254ae57
---
 dom/dom-core.ads | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/dom/dom-core.ads b/dom/dom-core.ads
index cdff711..9dbecde 100644
--- a/dom/dom-core.ads
+++ b/dom/dom-core.ads
@@ -297,15 +297,13 @@ private
    function Get_Prefix (N : Node_Name_Def) return DOM_String;
    procedure Set_Prefix
      (Doc : Document; N : in out Node_Name_Def; Prefix : DOM_String);
-   pragma Inline (Get_Prefix, Set_Prefix);
+   pragma Inline (Set_Prefix);
    --  Return or set the prefix of N
 
    function Get_Local_Name (N : Node_Name_Def) return DOM_String;
-   pragma Inline (Get_Local_Name);
    --  Return the local name of N
 
    function Get_Namespace_URI (N : Node_Name_Def) return DOM_String;
-   pragma Inline (Get_Namespace_URI);
    --  Return the namespace of N
 
    procedure Clone (Dest : out Node_Name_Def; Source : Node_Name_Def);