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 {
interface Range_Declaration : Node_Id {
Node_Id Variable_Ref; // Var_Reference
Node_Id Range_Variable; // Element
Node_Id Range_Expression; // Element
Node_Id Range_Set; // Set_Expression
};
......
......@@ -1601,7 +1601,6 @@ package body Ocarina.FE_REAL.Parser is
Identifier : Node_Id;
Elem : Node_Id;
Set_Expr : Node_Id;
Expr : Node_Id := No_Node;
begin
Range_Decl := New_Node (K_Range_Declaration, Token_Location);
......@@ -1638,11 +1637,6 @@ package body Ocarina.FE_REAL.Parser is
return No_Node;
end if;
if Next_Token = T_Sothat then
Scan_Token (T_Sothat);
Expr := P_Expression;
end if;
-- Scan 'do'
Scan_Token (T_Do);
......@@ -1651,7 +1645,6 @@ package body Ocarina.FE_REAL.Parser is
return No_Node;
end if;
Set_Range_Expression (Range_Decl, Expr);
Set_Range_Variable (Range_Decl, Elem);
Set_Range_Set (Range_Decl, Set_Expr);
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