Skip to content

GitLab

Commit 80fb771d authored by yoogx's avatar yoogx
Browse files

* Add support for Long_Float

parent 967045c9
Hide whitespace changes
Inline Side-by-side
src/backends/ocarina-backends-po_hi_ada-runtime.ads
View file @ 80fb771d
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- 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
RE_Natural, -- Standard.Natural
RE_Positive, -- Standard.Positive
RE_Float, -- Standard.Float
RE_Long_Float, -- Standard.Long_Float
RE_String, -- Standard.String
RE_Character, -- Standard.Character
RE_Wide_Character, -- Standard.Wide_Character
......@@ -272,6 +273,7 @@ package Ocarina.Backends.PO_HI_Ada.Runtime is
RE_Natural => RU_Standard,
RE_Positive => RU_Standard,
RE_Float => RU_Standard,
RE_Long_Float => RU_Standard,
RE_String => RU_Standard,
RE_Character => RU_Standard,
RE_Wide_Character => RU_Standard,
......
src/backends/ocarina-backends-po_hi_ada-types.adb
View file @ 80fb771d
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- 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
end;
when Data_Float =>
-- In HI system floating point types are not supported
Display_Located_Error
(Loc (E),
"No floating point in for HI applications",
Fatal => True);
N := Make_Full_Type_Declaration
(Defining_Identifier => Map_Ada_Defining_Identifier (E),
Type_Definition => Make_Derived_Type_Definition
(RE (RE_Long_Float)));
when Data_Fixed =>
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