Commit f2fec343 authored by yoogx's avatar yoogx
Browse files

* (Get_MAST_File): remove useless function

parent 7ae0ece9
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2010-2015 ESA & ISAE. -- -- Copyright (C) 2010-2016 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -113,13 +113,4 @@ package body Ocarina.Backends.MAST is ...@@ -113,13 +113,4 @@ package body Ocarina.Backends.MAST is
MAST.Main.Visit (E); MAST.Main.Visit (E);
end Visit_Architecture_Instance; end Visit_Architecture_Instance;
-------------------
-- Get_MAST_File --
-------------------
function Get_MAST_File return Node_Id is
begin
return MAST_File;
end Get_MAST_File;
end Ocarina.Backends.MAST; end Ocarina.Backends.MAST;
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2010-2015 ESA & ISAE. -- -- Copyright (C) 2010-2016 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -41,9 +41,8 @@ package Ocarina.Backends.MAST is ...@@ -41,9 +41,8 @@ package Ocarina.Backends.MAST is
procedure Reset; procedure Reset;
function Get_MAST_File return Node_Id;
private private
MAST_File : Node_Id; MAST_File : Node_Id;
end Ocarina.Backends.MAST; end Ocarina.Backends.MAST;
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