Commit 7e6da135 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

First sucessful build with pohic in the loop

parent 5190386d
...@@ -40,7 +40,7 @@ features ...@@ -40,7 +40,7 @@ features
{ Compute_Execution_Time => @_WCET_@ ms .. @_WCET_@ ms; { Compute_Execution_Time => @_WCET_@ ms .. @_WCET_@ ms;
Queue_Size => @_Queue_Size_@; Queue_Size => @_Queue_Size_@;
@@IF@@ @_Use_POHIC_@ @@IF@@ @_Use_POHIC_@
Compute_Entrypoint_Source_Text => "@_LOWER:Thread_Name_@_@_LOWER:Entry_Port_Name_@"; }; Compute_Entrypoint_Source_Text => "call_@_LOWER:Thread_Name_@"; };
@@ELSE@@ @@ELSE@@
Compute_Entrypoint_Source_Text => "@_Thread_Name_@_Wrappers.@_Entry_Port_Name_@"; }; Compute_Entrypoint_Source_Text => "@_Thread_Name_@_Wrappers.@_Entry_Port_Name_@"; };
@@END_IF@@ @@END_IF@@
...@@ -68,7 +68,7 @@ properties ...@@ -68,7 +68,7 @@ properties
Dispatch_Protocol => Sporadic; Dispatch_Protocol => Sporadic;
@@ELSE@@ @@ELSE@@
@@IF@@ @_Use_POHIC_@ @@IF@@ @_Use_POHIC_@
Compute_Entrypoint_Source_Text => "@_LOWER:Thread_Name_@_@_LOWER:Entry_Port_Name_@"; Compute_Entrypoint_Source_Text => "call_@_LOWER:Thread_Name_@";
@@ELSE@@ @@ELSE@@
Compute_Entrypoint_Source_Text => "@_Thread_Name_@_Wrappers.@_Entry_Port_Name_@"; Compute_Entrypoint_Source_Text => "@_Thread_Name_@_Wrappers.@_Entry_Port_Name_@";
@@END_IF@@ @@END_IF@@
......
...@@ -18,47 +18,18 @@ ...@@ -18,47 +18,18 @@
@@-- @_IF_Property_Names_@, _Values_@ : user properties (vector tag) @@-- @_IF_Property_Names_@, _Values_@ : user properties (vector tag)
@@-- @@--
@@-- Matrix of output ports: Remote thread/corresponding remote PI @_Name_@ @@-- Matrix of output ports: Remote thread/corresponding remote PI @_Name_@
#if 0 #include "@_LOWER:Thread_Name_@_polyorb_interface.h"
@@IF@@ @_Param_Names'Length_@ > 0
with Interfaces.C;
@@END_IF@@
package body @_CAPITALIZE:Thread_Name_@_Wrappers is @@INLINE()(\n)(\n)@@
@@INLINE( )()(\n)@@
@@IF@@ @_Param_Names'Length_@ > 0
@@TABLE@@
procedure @_CAPITALIZE:Entry_Port_Name_@ (dummy_Entity : Entity_Type; Param_Buffer : @_REPLACE_ALL((-)/_):Param_Types_@_Buffer_Impl) is
@@END_TABLE@@
@@ELSE@@
procedure @_CAPITALIZE:Entry_Port_Name_@ (dummy_Entity : Entity_Type) is
@@END_IF@@
@@END_INLINE@@
@@IF@@ @_Param_Names'Length_@ > 0 @@IF@@ @_Param_Names'Length_@ > 0
@@TABLE@@ @@TABLE@@
@_CAPITALIZE:Param_Names_@_AdaBuffer : Interfaces.C.char_array (1 .. Interfaces.C.size_t (Param_Buffer.Length)) with Import; void call_@_LOWER:Thread_Name_@ (__po_hi_task_id sender_pid, dataview__@_REPLACE_ALL((-)/_):LOWER:Param_Types_@_buffer_impl buf)
for @_CAPITALIZE:Param_Names_@_AdaBuffer'Address use Param_Buffer'Address; @@END_TABLE@@
@@END_TABLE@@
begin
@@IF@@ @_Need_Mutex_@
@_CAPITALIZE:Pro_Block_Name_@_Block.@_CAPITALIZE:Pro_Block_Name_@_Protected.@_CAPITALIZE:Entry_Port_Name_@
@@ELSE@@
@_CAPITALIZE:Pro_Block_Name_@_Block.@_CAPITALIZE:Entry_Port_Name_@
@@END_IF@@
(@_CAPITALIZE:Param_Names_@_AdaBuffer, @_CAPITALIZE:Param_Names_@_AdaBuffer'Length);
@@ELSE@@ @@ELSE@@
begin void call_@_LOWER:Thread_Name_@ (__po_hi_task_id sender_pid)
@@IF@@ @_Need_Mutex_@
@_CAPITALIZE:Pro_Block_Name_@_Block.@_CAPITALIZE:Pro_Block_Name_@_Protected.@_CAPITALIZE:Entry_Port_Name_@;
@@ELSE@@
@_CAPITALIZE:Pro_Block_Name_@_Block.@_CAPITALIZE:Entry_Port_Name_@;
@@END_IF@@
@@END_IF@@ @@END_IF@@
end @_CAPITALIZE:Entry_Port_Name_@; @@END_INLINE@@
{
-- This is the list of remote threads/RIs : (void)sender_pid;
@@TABLE@@ // call something from vm_if
-- @_Remote_Threads_@.@_Remote_PIs_@ }
@@END_TABLE@@
end @_CAPITALIZE:Thread_Name_@_Wrappers;
#endif
...@@ -18,21 +18,22 @@ ...@@ -18,21 +18,22 @@
@@-- @_IF_Property_Names_@, _Values_@ : user properties (vector tag) @@-- @_IF_Property_Names_@, _Values_@ : user properties (vector tag)
@@-- @@--
@@-- Matrix of output ports: Remote thread/corresponding remote PI @_Name_@ @@-- Matrix of output ports: Remote thread/corresponding remote PI @_Name_@
#include <stddef.h> //#include <stddef.h>
#include "types.h" //#include "types.h"
#include "deployment.h" //#include "deployment.h"
#include "po_hi_transport.h" //#include "po_hi_transport.h"
#include "@_LOWER:Pro_Block_Name_@_polyorb_interface.h" #include "po_hi_task.h"
#include "@_LOWER:Pro_Block_Name_@_block.h"
@@INLINE()(\n)(\n)@@ @@INLINE()(\n)(\n)@@
@@IF@@ @_Param_Names'Length_@ > 0 @@IF@@ @_Param_Names'Length_@ > 0
@@TABLE@@ @@TABLE@@
void @_LOWER:Entry_Port_Name_@ (__po_hi_task_id entity, dataview__@_REPLACE_ALL((-)/_):LOWER:Param_Types_@_buffer_impl); void call_@_LOWER:Thread_Name_@ (__po_hi_task_id, dataview__@_REPLACE_ALL((-)/_):LOWER:Param_Types_@_buffer_impl);
@@END_TABLE@@ @@END_TABLE@@
@@ELSE@@ @@ELSE@@
procedure @_CAPITALIZE:Entry_Port_Name_@ (__po_hi_task_id entity); void call_@_LOWER:Thread_Name_@ (__po_hi_task_id);
@@END_IF@@ @@END_IF@@
@@END_INLINE@@ @@END_INLINE@@
......
Supports Markdown
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