Commit 028f8d70 authored by yoogx's avatar yoogx

* (Get_Bound_Processor): also accept thread components

parent 1806a2b0
......@@ -2223,7 +2223,9 @@ package body Ocarina.Backends.Properties is
-------------------------
function Get_Bound_Processor (P : Node_Id) return Node_Id is
pragma Assert (Is_Process_Or_Device (P));
pragma Assert (Is_Process_Or_Device (P)
or else Is_Thread (P));
begin
if not Is_Defined_Reference_Property (P, Processor_Binding)
and then Is_Process (P)
......
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