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
This commit is contained in:
Thomas Quinot
2005-04-27 10:02:55 +00:00
committed by quinot
parent b83da9d390
commit e427292199

View File

@@ -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);