Commit 8d850208 authored by Maxime Perrotin's avatar Maxime Perrotin
parents 0e290e3e 7dc8e4be
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2019 ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2020 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- --
......@@ -2128,6 +2128,14 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Nb_Dest : Unsigned_Long_Long := 0;
Has_Local_Deliver : Boolean := False;
begin
if Get_Thread_Dispatch_Protocol (E) = Thread_Sporadic and then
not Has_In_Event_Ports (E)
then
Display_Located_Error
(Loc (E),
"None of the IN ports of this sporadic thread is an event port",
Fatal => True);
end if;
if Has_Ports (E) then
F := First_Node (Features (E));
......
......@@ -286,7 +286,10 @@ package body Ocarina.Backends.PO_HI_C is
-- & Get_Runtime_Path ("polyorb-hi-c")
-- & """ | sed 's/ /\\ /g')");
Write_Line ("RUNTIME_PATH=../polyorb-hi-c");
Write_Line
("BUILD_DIR:=$(shell dirname " &
"$(abspath $(lastword $(MAKEFILE_LIST))))");
Write_Line ("RUNTIME_PATH=$(BUILD_DIR)/../polyorb-hi-c");
Write_Str ("USER_SOURCES_DIRS=");
if Length (User_Source_Dirs) > 0 then
......
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