Even though this a simple fix, I provide anyhow a patch for it.
(the patch is attached to this email)
But now I see this errors.
gcc-4.1 -c -gnatfno -O3 -gnatg -g -I- -gnatA -gnatpg
/home/enerv/debian/libadabindx-0.7.2/build/i-csstli.adb
i-csstli.adb:52:04: warning: "Elmt_Size" is not modified, could be
declared constant
gnatmake: "/home/enerv/debian/libadabindx-0.7.2/build/i-csstli.adb"
compilation error
make: ** [build/libadabindx.a] Erro 4
Sorry, I dont solved all the problems. :(
--- libadabindx-0.7.2.orig/lib/i-csstli.adb 2002-03-02 08:17:13.000000000 -0300
+++ libadabindx-0.7.2/lib/i-csstli.adb 2006-12-08 18:16:42.000000000 -0300
@@ -49,15 +49,7 @@
package String_List_Access is
new System.Address_To_Access_Conversions (chars_ptr);
- Elmt_Size : size_t :=
- (chars_ptr'Size
- + System.Storage_Unit - 1) / System.Storage_Unit;
-
-
- -----------------------
- -- Local Subprograms --
- -----------------------
-
+ Elmt_Size : size_t :=(chars_ptr'Size + System.Storage_Unit - 1) / System.Storage_Unit;
function "+"
(Left : chars_ptr_array_ptr;
Right : size_t)
@@ -92,7 +84,6 @@
Left := Left + chars_ptr_array_ptr (Elmt_Size);
end Increment;
-
----------
-- Free --
----------
@@ -119,7 +110,6 @@
Item := Null_Array_Ptr;
end Free;
-
procedure Free
(Item : in out chars_ptr_array_ptr;
Length : in size_t) is
@@ -140,7 +130,6 @@
Item := Null_Array_Ptr;
end Free;
-
function New_Chars_Ptr_Array
(Ary : in chars_ptr_array;
Append_Null : in Boolean := True)
@@ -171,7 +160,6 @@
return Pointer;
end New_Chars_Ptr_Array;
-
function Value
(Item : in chars_ptr_array_ptr;
Offset : in size_t)
@@ -180,7 +168,6 @@
return String_List_Access.To_Pointer (To_Address (Item + Offset)).all;
end Value;
-
procedure Update
(Item : in out chars_ptr_array_ptr;
Offset : in size_t;
@@ -196,7 +183,6 @@
Ptr.all := New_Value;
end Update;
-
function Length (Item : in chars_ptr_array_ptr) return size_t is
Item_Index : size_t := 0;
begin
@@ -215,14 +201,11 @@
end loop;
end Length;
-
function Value (Item : in chars_ptr_array_ptr) return chars_ptr_array is
begin
return Value (Item, Length (Item));
end Value;
-
-
function Value
(Item : in chars_ptr_array_ptr;
Length : in size_t)
@@ -238,7 +221,6 @@
return Ary;
end Value;
-
function Duplicate
(Item : in chars_ptr_array_ptr)
return chars_ptr_array_ptr is
@@ -250,7 +232,6 @@
end if;
end Duplicate;
-
function Duplicate
(Item : in chars_ptr_array_ptr;
Length : in size_t)
@@ -275,5 +256,4 @@
return Pointer;
end Duplicate;
-
end Interfaces.C.Strings.String_Lists;
--- libadabindx-0.7.2.orig/lib/i-csstli.ads 2002-03-02 08:17:13.000000000 -0300
+++ libadabindx-0.7.2/lib/i-csstli.ads 2006-12-08 18:16:42.000000000 -0300
@@ -74,8 +74,6 @@
Offset : in size_t;
New_Value : in chars_ptr);
-
-
-- handle null-terminated arrays (i.e. with a trailing Null_Ptr)
--
procedure Free (Item : in out chars_ptr_array_ptr);
@@ -90,8 +88,6 @@
(Item : in chars_ptr_array_ptr)
return chars_ptr_array_ptr;
-
-
-- handle unterminated arrays (i.e. without a trailing Null_Ptr)
--
procedure Free
@@ -110,7 +106,6 @@
Length : in size_t)
return chars_ptr_array_ptr;
-
private
type chars_ptr_array_ptr is new System.Storage_Elements.Integer_Address;
