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

Is_Code in H3.CC.

Browse Source 
Use Wide_Character'First instead of Wide_Character'Val(0) 
Removed the terminator parameter in the H3.Strings
This commit is contained in:
hyung-hwan
2021-10-27 15:34:30 +00:00
parent 664c083373
commit 21c94d5ead
11 changed files with 95 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
h2/lib2/h3-mm.adb
View File

@ -24,7 +24,7 @@ package body H3.MM is
end if;
end Get_Item_Pointer;
function Is_Shared (R: in Ref_Counted) return Standard.Boolean is
function Is_Shared (R: in Ref_Counted) return Boolean is
begin
--return R.Data /= null and then not System.Atomic_Counters.Is_One(R.Data.Refs);
return R.Data /= null and then R.Data.Refs > 1;