forked from Imagelibrary/rtems
3f5f2ce229
Issue a fatal error in case a thread is deleted which still owns resources (e.g. a binary semaphore with priority inheritance or ceiling protocol). The resource count must be checked quite late since RTEMS task variable destructors, POSIX key destructors, POSIX cleanup handler, the Newlib thread termination extension or other thread termination extensions may release resources. In this context it would be quite difficult to return an error status to the caller. An alternative would be to place threads with a non-zero resource count not on the zombie chain. Thus we have a resource leak instead of a fatal error. The terminator thread can see this error if we return an RTEMS_RESOURCE_IN_USE status for the rtems_task_delete() for example.
158 lines
4.3 KiB
C
158 lines
4.3 KiB
C
/*
|
|
* Copyright (c) 2013 Gedare Bloom.
|
|
*
|
|
* The license and distribution terms for this file may be
|
|
* found in the file LICENSE in this distribution or at
|
|
* http://www.rtems.org/license/LICENSE.
|
|
*/
|
|
|
|
#include <rtems.h>
|
|
|
|
#include <stdio.h>
|
|
#include "tmacros.h"
|
|
|
|
/* configuration information */
|
|
#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER
|
|
#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
|
|
#define CONFIGURE_INITIAL_EXTENSIONS RTEMS_TEST_INITIAL_EXTENSION
|
|
|
|
#define CONFIGURE_RTEMS_INIT_TASKS_TABLE
|
|
#define CONFIGURE_MAXIMUM_TASKS 3
|
|
#define CONFIGURE_MAXIMUM_SEMAPHORES 2
|
|
#define CONFIGURE_INIT
|
|
#include <rtems/confdefs.h>
|
|
|
|
const char rtems_test_name[] = "SPSEM 1";
|
|
|
|
rtems_task Task01(rtems_task_argument ignored);
|
|
rtems_task Task02(rtems_task_argument ignored);
|
|
rtems_task Init(rtems_task_argument ignored);
|
|
|
|
static int getprio(void)
|
|
{
|
|
rtems_status_code status;
|
|
rtems_task_priority pri;
|
|
|
|
status = rtems_task_set_priority(RTEMS_SELF, RTEMS_CURRENT_PRIORITY, &pri);
|
|
directive_failed( status, "rtems_task_set_priority");
|
|
return (int)pri;
|
|
}
|
|
|
|
rtems_id Task_id[2];
|
|
rtems_name Task_name[2];
|
|
|
|
rtems_id sem_id[2];
|
|
rtems_name sem_name[2];
|
|
|
|
rtems_task Init(rtems_task_argument ignored)
|
|
{
|
|
rtems_status_code status;
|
|
rtems_attribute sem_attr;
|
|
|
|
TEST_BEGIN();
|
|
|
|
sem_attr = RTEMS_INHERIT_PRIORITY | RTEMS_BINARY_SEMAPHORE | RTEMS_PRIORITY;
|
|
|
|
sem_name[0] = rtems_build_name( 'S','0',' ',' ');
|
|
status = rtems_semaphore_create(
|
|
sem_name[0],
|
|
1,
|
|
sem_attr,
|
|
0,
|
|
&sem_id[0]
|
|
);
|
|
directive_failed( status, "rtems_semaphore_create of S0");
|
|
printf("init: S0 created\n");
|
|
|
|
sem_name[1] = rtems_build_name( 'S','1',' ',' ');
|
|
status = rtems_semaphore_create(
|
|
sem_name[1],
|
|
1,
|
|
sem_attr,
|
|
0,
|
|
&sem_id[1]
|
|
);
|
|
directive_failed( status, "rtems_semaphore_create of S1");
|
|
printf("init: S1 created\n");
|
|
|
|
Task_name[0] = rtems_build_name( 'T','A','0','1');
|
|
status = rtems_task_create(
|
|
Task_name[0],
|
|
36,
|
|
RTEMS_MINIMUM_STACK_SIZE,
|
|
RTEMS_DEFAULT_MODES,
|
|
RTEMS_DEFAULT_ATTRIBUTES,
|
|
&Task_id[0]
|
|
);
|
|
directive_failed( status, "rtems_task_create of TA01");
|
|
printf("init: TA01 created with priority 36\n");
|
|
|
|
Task_name[1] = rtems_build_name( 'T','A','0','2');
|
|
status = rtems_task_create(
|
|
Task_name[1],
|
|
34,
|
|
RTEMS_MINIMUM_STACK_SIZE,
|
|
RTEMS_DEFAULT_MODES,
|
|
RTEMS_DEFAULT_ATTRIBUTES,
|
|
&Task_id[1]
|
|
);
|
|
directive_failed( status , "rtems_task_create of TA02\n");
|
|
printf("init: TA02 created with priority 34\n");
|
|
|
|
status = rtems_task_start( Task_id[0], Task01, 0);
|
|
directive_failed( status, "rtems_task_start of TA01");
|
|
|
|
status = rtems_task_delete( RTEMS_SELF);
|
|
directive_failed( status, "rtems_task_delete of INIT");
|
|
}
|
|
|
|
/* Task01 starts with priority 36 */
|
|
rtems_task Task01(rtems_task_argument ignored)
|
|
{
|
|
rtems_status_code status;
|
|
printf("TA01: started with priority %d\n", getprio());
|
|
|
|
status = rtems_semaphore_obtain( sem_id[0], RTEMS_WAIT, 0 );
|
|
directive_failed( status, "rtems_semaphore_obtain of S0\n");
|
|
printf("TA01: priority %d, holding S0\n", getprio());
|
|
|
|
status = rtems_semaphore_obtain( sem_id[1], RTEMS_WAIT, 0 );
|
|
directive_failed( status, "rtems_semaphore_obtain of S1");
|
|
printf("TA01: priority %d, holding S0, S1\n", getprio());
|
|
|
|
/* Start Task 2 (TA02) with priority 34. It will run immediately. */
|
|
status = rtems_task_start( Task_id[1], Task02, 0);
|
|
directive_failed( status, "rtems_task_start of TA02\n");
|
|
|
|
status = rtems_semaphore_release(sem_id[1]);
|
|
directive_failed( status, "rtems_semaphore_release of S1\n");
|
|
printf("TA01: priority %d, holding S0\n", getprio());
|
|
|
|
status = rtems_semaphore_release(sem_id[0]);
|
|
directive_failed( status, "rtems_semaphore_release of S0\n");
|
|
printf("TA01: priority %d\n", getprio());
|
|
|
|
printf("TA01: exiting\n");
|
|
TEST_END();
|
|
|
|
rtems_test_exit(0);
|
|
}
|
|
|
|
/* TA02 starts at Task02 with priority 34 */
|
|
rtems_task Task02(rtems_task_argument ignored)
|
|
{
|
|
rtems_status_code status;
|
|
|
|
printf("TA02: started with priority %d\n", getprio());
|
|
|
|
/* Obtain S1, which should be held by TA01 by now */
|
|
status = rtems_semaphore_obtain( sem_id[1], RTEMS_WAIT, 0 );
|
|
directive_failed( status, " rtems_semaphore_obtain S1");
|
|
printf("TA02: priority %d, holding S1\n", getprio());
|
|
|
|
printf("TA02: suspending\n");
|
|
status = rtems_task_suspend( RTEMS_SELF);
|
|
directive_failed( status, "rtems_task_suspend TA02");
|
|
}
|
|
|