URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [sptests/] [sp04/] [task1.c] - Blame information for rev 509

Go to most recent revision | Details | Compare with Previous | View Log


/*  Task_1
 *
 *  This test serves as a test task.  It verifies timeslicing activities
 *  and tswitch extension processing.
 *
 *  Input parameters:
 *    argument - task argument
 *
 *  Output parameters:  NONE
 *
 *  COPYRIGHT (c) 1989-1999.
 *  On-Line Applications Research Corporation (OAR).
 *
 *  The license and distribution terms for this file may be
 *  found in the file LICENSE in this distribution or at
 *  http://www.OARcorp.com/rtems/license.html.
 *
 *  $Id: task1.c,v 1.2 2001-09-27 12:02:31 chris Exp $
 */
 
#include "system.h"
 
static void
showTaskSwitches (void)
{
  int i;
  int switches = taskSwitchLogIndex;
 
  for (i = 0 ; i < switches ; i++) {
      put_name( Task_name[taskSwitchLog[i].taskIndex], FALSE );
      print_time( "- ", &taskSwitchLog[i].when, "\n" );
  }
}
 
rtems_task Task_1(
  rtems_task_argument argument
)
{
  rtems_unsigned32  seconds;
  rtems_unsigned32  old_seconds;
  rtems_mode        previous_mode;
  rtems_time_of_day time;
  rtems_status_code status;
  rtems_unsigned32  start_time;
  rtems_unsigned32  end_time;
 
  puts( "TA1 - rtems_task_suspend - on Task 2" );
  status = rtems_task_suspend( Task_id[ 2 ] );
  directive_failed( status, "rtems_task_suspend of TA2" );
 
  puts( "TA1 - rtems_task_suspend - on Task 3" );
  status = rtems_task_suspend( Task_id[ 3 ] );
  directive_failed( status, "rtems_task_suspend of TA3" );
 
  status = rtems_clock_get( RTEMS_CLOCK_GET_SECONDS_SINCE_EPOCH, &start_time );
  directive_failed( status, "rtems_clock_get" );
 
  puts( "TA1 - killing time" );
 
  for ( ; ; ) {
    status = rtems_clock_get( RTEMS_CLOCK_GET_SECONDS_SINCE_EPOCH, &end_time );
    directive_failed( status, "rtems_clock_get" );
 
    if ( end_time > (start_time + 2) )
      break;
  }
 
  puts( "TA1 - rtems_task_resume - on Task 2" );
  status = rtems_task_resume( Task_id[ 2 ] );
  directive_failed( status, "rtems_task_resume of TA2" );
 
  puts( "TA1 - rtems_task_resume - on Task 3" );
  status = rtems_task_resume( Task_id[ 3 ] );
  directive_failed( status, "rtems_task_resume of TA3" );
 
  while ( FOREVER ) {
    if ( Run_count[ 1 ] == 3 ) {
      puts( "TA1 - rtems_task_mode - change mode to NO RTEMS_PREEMPT" );
 
      status = rtems_task_mode(
        RTEMS_NO_PREEMPT,
        RTEMS_PREEMPT_MASK,
        &previous_mode
      );
      directive_failed( status, "rtems_task_mode" );
 
      status = rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time );
      directive_failed( status, "rtems_clock_get" );
 
      old_seconds = time.second;
 
      for ( seconds = 0 ; seconds < 6 ; ) {
        status = rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time );
        directive_failed( status, "rtems_clock_get" );
 
        if ( time.second != old_seconds ) {
          old_seconds = time.second;
          seconds++;
          print_time( "TA1 - ", &time, "\n" );
        }
      }
 
      puts( "TA1 - rtems_task_mode - change mode to RTEMS_PREEMPT" );
      status = rtems_task_mode(
        RTEMS_PREEMPT,
        RTEMS_PREEMPT_MASK,
        &previous_mode
      );
      directive_failed( status, "rtems_task_mode" );
 
      while ( !testsFinished );
      showTaskSwitches ();
      puts( "*** END OF TEST 4 ***" );
      exit (0);
    }
  }
}

Line No.	Rev	Author	Line
1	30	unneback	`/* 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.OARcorp.com/rtems/license.html.`
17			`*`
18			`* $Id: task1.c,v 1.2 2001-09-27 12:02:31 chris Exp $`
19			`*/`
20
21			`#include "system.h"`
22
23			`static void`
24			`showTaskSwitches (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
35			`rtems_task Task_1(`
36			`rtems_task_argument argument`
37			`)`
38			`{`
39			`rtems_unsigned32 seconds;`
40			`rtems_unsigned32 old_seconds;`
41			`rtems_mode previous_mode;`
42			`rtems_time_of_day time;`
43			`rtems_status_code status;`
44			`rtems_unsigned32 start_time;`
45			`rtems_unsigned32 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			`exit (0);`
115			`}`
116			`}`
117			`}`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [sptests/] [sp04/] [task1.c] - Blame information for rev 509