Commit 80fb771d authored by yoogx's avatar yoogx

* Add support for Long_Float

parent 967045c9
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2012 ESA & ISAE. -- -- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2013 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -175,6 +175,7 @@ package Ocarina.Backends.PO_HI_Ada.Runtime is ...@@ -175,6 +175,7 @@ package Ocarina.Backends.PO_HI_Ada.Runtime is
RE_Natural, -- Standard.Natural RE_Natural, -- Standard.Natural
RE_Positive, -- Standard.Positive RE_Positive, -- Standard.Positive
RE_Float, -- Standard.Float RE_Float, -- Standard.Float
RE_Long_Float, -- Standard.Long_Float
RE_String, -- Standard.String RE_String, -- Standard.String
RE_Character, -- Standard.Character RE_Character, -- Standard.Character
RE_Wide_Character, -- Standard.Wide_Character RE_Wide_Character, -- Standard.Wide_Character
...@@ -272,6 +273,7 @@ package Ocarina.Backends.PO_HI_Ada.Runtime is ...@@ -272,6 +273,7 @@ package Ocarina.Backends.PO_HI_Ada.Runtime is
RE_Natural => RU_Standard, RE_Natural => RU_Standard,
RE_Positive => RU_Standard, RE_Positive => RU_Standard,
RE_Float => RU_Standard, RE_Float => RU_Standard,
RE_Long_Float => RU_Standard,
RE_String => RU_Standard, RE_String => RU_Standard,
RE_Character => RU_Standard, RE_Character => RU_Standard,
RE_Wide_Character => RU_Standard, RE_Wide_Character => RU_Standard,
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2012 ESA & ISAE. -- -- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2013 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -417,12 +417,10 @@ package body Ocarina.Backends.PO_HI_Ada.Types is ...@@ -417,12 +417,10 @@ package body Ocarina.Backends.PO_HI_Ada.Types is
end; end;
when Data_Float => when Data_Float =>
-- In HI system floating point types are not supported N := Make_Full_Type_Declaration
(Defining_Identifier => Map_Ada_Defining_Identifier (E),
Display_Located_Error Type_Definition => Make_Derived_Type_Definition
(Loc (E), (RE (RE_Long_Float)));
"No floating point in for HI applications",
Fatal => True);
when Data_Fixed => when Data_Fixed =>
declare declare
......
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