Commit 9b3033ac authored by yoogx's avatar yoogx
Browse files

* Correct handling of data type

parent fe45ea00
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2017 ESA & ISAE. -- -- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2018 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -882,7 +882,7 @@ package body Ocarina.Backends.PO_HI_Ada.Types is ...@@ -882,7 +882,7 @@ package body Ocarina.Backends.PO_HI_Ada.Types is
-- generated for use in other languages in which arrays -- generated for use in other languages in which arrays
-- are not aware of their lengths (such as C). -- are not aware of their lengths (such as C).
if Data_Representation = Data_Array then if Get_Data_Representation (E) = Data_Array then
N := Length_Spec (E); N := Length_Spec (E);
Append_Node_To_List (N, ADN.Visible_Part (Current_Package)); Append_Node_To_List (N, ADN.Visible_Part (Current_Package));
......
Supports Markdown
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