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

added utf8 functions

Browse Source
This commit is contained in:
hyung-hwan
2021-11-07 17:32:50 +00:00
parent 001115770d
commit 868ad3d38a
7 changed files with 389 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
h2/lib2/h3-arrays.adb
View File

@ -347,15 +347,15 @@ package body H3.Arrays is
return System_Size'First;
end Find;
function "=" (Obj: in Elastic_Array; Obj2: in Elastic_Array) return Boolean is
function Equals (Obj: in Elastic_Array; Obj2: in Elastic_Array) return Boolean is
begin
return Obj.Buffer = Obj2.Buffer or else Obj.Buffer.Slot(Get_First_Index(Obj) .. Get_Last_Index(Obj)) = Obj2.Buffer.Slot(Get_First_Index(Obj2) .. Get_Last_Index(Obj2));
end "=";
end Equals;
function "=" (Obj: in Elastic_Array; Obj2: in Item_Array) return Boolean is
function Equals (Obj: in Elastic_Array; Obj2: in Item_Array) return Boolean is
begin
return Obj.Buffer.Slot(Get_First_Index(Obj) .. Get_Last_Index(Obj)) = Obj2;
end "=";
end Equals;
-- ---------------------------------------------------------------------
-- Controlled Management