source: rtems/testsuites/sptests/sp04/task1.c @ c87608f

4.104.114.84.9
Last change on this file since c87608f was c87608f, checked in by Ralf Corsepius <ralf.corsepius@…>, on Mar 30, 2004 at 11:15:35 AM

2004-03-30 Ralf Corsepius <ralf_corsepius@…>

  • sp02/task1.c, sp04/system.h, sp04/task1.c, sp04/tswitch.c, sp05/task1.c, sp06/task1.c, sp09/screen01.c, sp09/screen07.c, sp09/screen12.c, sp09/system.h, sp09/task3.c, sp11/task1.c, sp12/pridrv.c, sp12/pritask.c, sp12/system.h, sp13/task1.c, sp13/task2.c, sp13/task3.c, sp14/system.h, sp15/system.h, sp16/system.h, sp17/system.h, sp19/first.c, sp19/fptask.c, sp19/inttest.h, sp19/system.h, sp19/task1.c, sp20/init.c, sp20/system.h, sp20/task1.c, sp23/system.h, sp24/init.c, sp25/system.h, sp30/init.c, spfatal/fatal.c, spfatal/puterr.c, spfatal/system.h, spsize/size.c: Convert to using c99 fixed size types.
  • Property mode set to 100644
File size: 3.1 KB
Line 
1/*  Task_1
2 *
3 *  This test serves as a test task.  It verifies timeslicing activities
4 *  and tswitch extension processing.
5 *
6 *  Input parameters:
7 *    argument - task argument
8 *
9 *  Output parameters:  NONE
10 *
11 *  COPYRIGHT (c) 1989-1999.
12 *  On-Line Applications Research Corporation (OAR).
13 *
14 *  The license and distribution terms for this file may be
15 *  found in the file LICENSE in this distribution or at
16 *  http://www.rtems.com/license/LICENSE.
17 *
18 *  $Id$
19 */
20
21#include "system.h"
22
23static void
24showTaskSwitches (void)
25{
26  int i;
27  int switches = taskSwitchLogIndex;
28
29  for (i = 0 ; i < switches ; i++) {
30      put_name( Task_name[taskSwitchLog[i].taskIndex], FALSE );
31      print_time( "- ", &taskSwitchLog[i].when, "\n" );
32  }
33}
34
35rtems_task Task_1(
36  rtems_task_argument argument
37)
38{
39  uint32_t    seconds;
40  uint32_t    old_seconds;
41  rtems_mode        previous_mode;
42  rtems_time_of_day time;
43  rtems_status_code status;
44  uint32_t    start_time;
45  uint32_t    end_time;
46
47  puts( "TA1 - rtems_task_suspend - on Task 2" );
48  status = rtems_task_suspend( Task_id[ 2 ] );
49  directive_failed( status, "rtems_task_suspend of TA2" );
50
51  puts( "TA1 - rtems_task_suspend - on Task 3" );
52  status = rtems_task_suspend( Task_id[ 3 ] );
53  directive_failed( status, "rtems_task_suspend of TA3" );
54
55  status = rtems_clock_get( RTEMS_CLOCK_GET_SECONDS_SINCE_EPOCH, &start_time );
56  directive_failed( status, "rtems_clock_get" );
57
58  puts( "TA1 - killing time" );
59
60  for ( ; ; ) {
61    status = rtems_clock_get( RTEMS_CLOCK_GET_SECONDS_SINCE_EPOCH, &end_time );
62    directive_failed( status, "rtems_clock_get" );
63
64    if ( end_time > (start_time + 2) )
65      break;
66  }
67
68  puts( "TA1 - rtems_task_resume - on Task 2" );
69  status = rtems_task_resume( Task_id[ 2 ] );
70  directive_failed( status, "rtems_task_resume of TA2" );
71
72  puts( "TA1 - rtems_task_resume - on Task 3" );
73  status = rtems_task_resume( Task_id[ 3 ] );
74  directive_failed( status, "rtems_task_resume of TA3" );
75
76  while ( FOREVER ) {
77    if ( Run_count[ 1 ] >= 3 ) {
78      puts( "TA1 - rtems_task_mode - change mode to NO RTEMS_PREEMPT" );
79
80      status = rtems_task_mode(
81        RTEMS_NO_PREEMPT,
82        RTEMS_PREEMPT_MASK,
83        &previous_mode
84      );
85      directive_failed( status, "rtems_task_mode" );
86
87      status = rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time );
88      directive_failed( status, "rtems_clock_get" );
89
90      old_seconds = time.second;
91
92      for ( seconds = 0 ; seconds < 6 ; ) {
93        status = rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time );
94        directive_failed( status, "rtems_clock_get" );
95
96        if ( time.second != old_seconds ) {
97          old_seconds = time.second;
98          seconds++;
99          print_time( "TA1 - ", &time, "\n" );
100        }
101      }
102
103      puts( "TA1 - rtems_task_mode - change mode to RTEMS_PREEMPT" );
104      status = rtems_task_mode(
105        RTEMS_PREEMPT,
106        RTEMS_PREEMPT_MASK,
107        &previous_mode
108      );
109      directive_failed( status, "rtems_task_mode" );
110
111      while ( !testsFinished );
112      showTaskSwitches ();
113      puts( "*** END OF TEST 4 ***" );
114      rtems_test_exit (0);
115    }
116  }
117}
Note: See TracBrowser for help on using the repository browser.