Commit 5f32915b authored by ttsiodras's avatar ttsiodras

Alignment bug for buffers carrying NATIVE encodings fixed

git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@915 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 8d0a85fd
......@@ -380,6 +380,7 @@ package Ocarina.Backends.Ada_Tree.Nutils is
type Attribute_Id is
(A_Access,
A_Address,
A_Alignment,
A_Class,
A_First,
A_Length,
......
......@@ -802,6 +802,15 @@ package body Ocarina.Backends.PO_HI_Ada.Types is
end;
end if;
if Get_Data_Representation (E) = Data_Struct then
N := Make_Attribute_Definition_Clause
(Map_Ada_Defining_Identifier (E),
Attribute_Designator => A_Alignment,
Expression => Make_Literal
(New_Integer_Value (8, 1, 10)));
Append_Node_To_List (N, ADN.Visible_Part (Current_Package));
end if;
-- Array types have also a subprogram 'Length' which is
-- generated for use in other languages in which arrays
-- are not aware of their lengths (such as C).
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment