fixed the "functions can only have "in" parameters" error

2021-08-24 16:19:29 +00:00
parent 341cff809d
commit bb840abd99
2 changed files with 2 additions and 2 deletions
--- a/h2/lib2/h3-mm.adb
+++ b/h2/lib2/h3-mm.adb
@ -15,7 +15,7 @@ package body H3.MM is
 		R.Data.Item := V;
 	end Create;

-	function Get_Item_Pointer (R: in out Ref_Counted) return Item_Pointer is
+	function Get_Item_Pointer (R: in Ref_Counted) return Item_Pointer is
 	begin
 		if R.Data /= null then
 			return R.Data.Item'Access;