URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
with System; with Unchecked_Conversion;
|
with System; with Unchecked_Conversion;
|
package test_prio_p is
|
package test_prio_p is
|
type Task_Priority_T is new Natural;
|
type Task_Priority_T is new Natural;
|
function Convert_To_System_Priority is
|
function Convert_To_System_Priority is
|
new Unchecked_Conversion (Task_Priority_T, System.Priority);
|
new Unchecked_Conversion (Task_Priority_T, System.Priority);
|
protected type Protected_Queue_T( PO_Priority : Task_Priority_T ) is
|
protected type Protected_Queue_T( PO_Priority : Task_Priority_T ) is
|
pragma Priority (Convert_To_System_Priority (PO_Priority ));
|
pragma Priority (Convert_To_System_Priority (PO_Priority ));
|
entry Seize;
|
entry Seize;
|
end Protected_Queue_T;
|
end Protected_Queue_T;
|
Sema1 : protected_Queue_T (5);
|
Sema1 : protected_Queue_T (5);
|
Sema2 : protected_Queue_T (10);
|
Sema2 : protected_Queue_T (10);
|
end test_prio_p;
|
end test_prio_p;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.