Commit 61900042 authored by yoogx's avatar yoogx

* Minor reformatting

parent fa1c8c22
......@@ -1971,10 +1971,8 @@ package body Ocarina.Backends.Properties is
----------------
function Get_Period (T : Node_Id) return Time_Type is
The_Period : Time_Type;
begin
The_Period := Get_Time_Property_Value (T, Thread_Period);
return The_Period;
return Get_Time_Property_Value (T, Thread_Period);
end Get_Period;
------------------------
......
......@@ -421,6 +421,7 @@ package Ocarina.Backends.Utils is
function To_Seconds (S : Time_Type) return Long_Double;
function To_Milliseconds (S : Time_Type) return Unsigned_Long_Long;
function To_Nanoseconds (S : Time_Type) return Unsigned_Long_Long;
function Get_Accessed_Data (Data_Access : Node_Id) return Node_Id;
-- Get accessed data when a thread or subprogram has a data access.
......@@ -485,6 +486,4 @@ package Ocarina.Backends.Utils is
function Get_Associated_Bus (Port : Node_Id) return Node_Id;
function To_Nanoseconds (S : Time_Type) return Unsigned_Long_Long;
end Ocarina.Backends.Utils;
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