From 35527281816c0542855eaa104eeb968ca9b7606d Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Tue, 24 Aug 2021 16:19:29 +0000 Subject: [PATCH] fixed the "functions can only have "in" parameters" error --- lib2/h3-mm.adb | 2 +- lib2/h3-mm.ads | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib2/h3-mm.adb b/lib2/h3-mm.adb index c55ecf9..fd83446 100644 --- a/lib2/h3-mm.adb +++ b/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; diff --git a/lib2/h3-mm.ads b/lib2/h3-mm.ads index 5caff85..205a395 100644 --- a/lib2/h3-mm.ads +++ b/lib2/h3-mm.ads @@ -21,7 +21,7 @@ package H3.MM is procedure Create (R: in out Ref_Counted); procedure Create (R: in out Ref_Counted; V: in Item_Type); - function Get_Item_Pointer (R: in out Ref_Counted) return Item_Pointer; + function Get_Item_Pointer (R: in Ref_Counted) return Item_Pointer; pragma Inline(Get_Item_Pointer); function Is_Shared (R: in Ref_Counted) return Standard.Boolean;