hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
hyung-hwan 2021-08-24 16:19:29 +00:00
parent 081937df1b
commit 3552728181
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib2/h3-mm.adb
View File

@ -15,7 +15,7 @@ package body H3.MM is
R.Data.Item := V; R.Data.Item := V;
end Create; 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 begin
if R.Data /= null then if R.Data /= null then
return R.Data.Item'Access; return R.Data.Item'Access;

2
lib2/h3-mm.ads
View File

@ -21,7 +21,7 @@ package H3.MM is
procedure Create (R: in out Ref_Counted); procedure Create (R: in out Ref_Counted);
procedure Create (R: in out Ref_Counted; V: in Item_Type); 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); pragma Inline(Get_Item_Pointer);
function Is_Shared (R: in Ref_Counted) return Standard.Boolean; function Is_Shared (R: in Ref_Counted) return Standard.Boolean;