Commit fb72cfb2 authored by julien.delange's avatar julien.delange
Browse files

revert previous patch on REAL



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1253 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 2ce57e3a
...@@ -150,7 +150,6 @@ module Ocarina::ME_REAL::REAL_Tree::Nodes { ...@@ -150,7 +150,6 @@ module Ocarina::ME_REAL::REAL_Tree::Nodes {
interface Range_Declaration : Node_Id { interface Range_Declaration : Node_Id {
Node_Id Variable_Ref; // Var_Reference Node_Id Variable_Ref; // Var_Reference
Node_Id Range_Variable; // Element Node_Id Range_Variable; // Element
Node_Id Range_Expression; // Element
Node_Id Range_Set; // Set_Expression Node_Id Range_Set; // Set_Expression
}; };
......
...@@ -1601,7 +1601,6 @@ package body Ocarina.FE_REAL.Parser is ...@@ -1601,7 +1601,6 @@ package body Ocarina.FE_REAL.Parser is
Identifier : Node_Id; Identifier : Node_Id;
Elem : Node_Id; Elem : Node_Id;
Set_Expr : Node_Id; Set_Expr : Node_Id;
Expr : Node_Id := No_Node;
begin begin
Range_Decl := New_Node (K_Range_Declaration, Token_Location); Range_Decl := New_Node (K_Range_Declaration, Token_Location);
...@@ -1638,11 +1637,6 @@ package body Ocarina.FE_REAL.Parser is ...@@ -1638,11 +1637,6 @@ package body Ocarina.FE_REAL.Parser is
return No_Node; return No_Node;
end if; end if;
if Next_Token = T_Sothat then
Scan_Token (T_Sothat);
Expr := P_Expression;
end if;
-- Scan 'do' -- Scan 'do'
Scan_Token (T_Do); Scan_Token (T_Do);
...@@ -1651,7 +1645,6 @@ package body Ocarina.FE_REAL.Parser is ...@@ -1651,7 +1645,6 @@ package body Ocarina.FE_REAL.Parser is
return No_Node; return No_Node;
end if; end if;
Set_Range_Expression (Range_Decl, Expr);
Set_Range_Variable (Range_Decl, Elem); Set_Range_Variable (Range_Decl, Elem);
Set_Range_Set (Range_Decl, Set_Expr); Set_Range_Set (Range_Decl, Set_Expr);
Set_Variable_Ref (Range_Decl, Set_Variable_Ref (Range_Decl,
......
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