Commit 9e2e4ba4 authored by yoogx's avatar yoogx

* Remove occurences of code generation for (old) SPARK

parent 04b72c01
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2016 ESA & ISAE. --
-- --
-- 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- --
......@@ -145,20 +145,14 @@ package Ocarina.Backends.Ada_Tree.Nutils is
Tok_Arrow, -- =>
Tok_Vertical_Bar, -- |
Tok_Dot_Dot, -- ..
Tok_Minus_Minus, -- --
Tok_Minus_Minus -- --
-- SPARK
Tok_Annotation, -- --#
Tok_Own, -- Own
Tok_Inherit,
Tok_Initialized);
);
Token_Image : array (Token_Type) of Name_Id;
subtype Keyword_Type is Token_Type range Tok_Mod .. Tok_Separate;
subtype Spark_Keyword_Type is Token_Type range Tok_Own .. Tok_Initialized;
type Operator_Type is
(Op_Not, -- not
Op_And, -- and
......@@ -667,12 +661,6 @@ package Ocarina.Backends.Ada_Tree.Nutils is
function Make_Object_Instantiation
(Qualified_Expression : Node_Id) return Node_Id;
function Make_SPARK_Own_Annotation
(Variable : Node_Id;
Own_Mode : Mode_Id := Mode_In;
Is_Initialized : Boolean := True;
Is_Protected : Boolean := False) return Node_Id;
function Make_Package_Declaration (Identifier : Node_Id) return Node_Id;
function Make_Package_Instantiation
......
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