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/] [sp16/] [task2.c] - Blame information for rev 314

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


/*  Task_2
 *
 *  This routine serves as a test task.  It competes with the other tasks
 *  for region resources.
 *
 *  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: task2.c,v 1.2 2001-09-27 12:02:33 chris Exp $
 */
 
#include "system.h"
 
rtems_task Task_2(
  rtems_task_argument argument
)
{
  rtems_status_code    status;
  rtems_task_priority  previous_priority;
  void                *segment_address_1;
  void                *segment_address_2;
 
  puts( "TA2 - rtems_region_get_segment - wait on 2K segment from region 1" );
  status = rtems_region_get_segment(
    Region_id[ 1 ],
    2048,
    RTEMS_DEFAULT_OPTIONS,
    RTEMS_NO_TIMEOUT,
    &segment_address_1
  );
  directive_failed( status, "rtems_region_get_segment" );
  puts_nocr( "TA2 - got segment from region 1 - " );
  Put_address_from_area_1( segment_address_1 );
  new_line;
 
  puts_nocr(
    "TA2 - rtems_region_return_segment - return segment to region 1 - "
  );
  Put_address_from_area_1( segment_address_1 );
  status = rtems_region_return_segment( Region_id[ 1 ], segment_address_1 );
  directive_failed( status, "rtems_region_return_segment" );
  new_line;
 
  puts( "TA2 - rtems_task_set_priority - make self highest priority task" );
  status = rtems_task_set_priority(
    RTEMS_SELF,
    BASE_PRIORITY-1,
    &previous_priority
  );
  directive_failed( status, "rtems_task_set_priority" );
 
  puts("TA2 - rtems_region_get_segment - wait on 3968 byte segment");
  status = rtems_region_get_segment(
    Region_id[ 2 ],
    3968,
    RTEMS_DEFAULT_OPTIONS,
    RTEMS_NO_TIMEOUT,
    &segment_address_2
  );
  directive_failed( status, "rtems_region_get_segment" );
  puts_nocr( "TA2 - got segment from region 2 - ");
  Put_address_from_area_2( segment_address_2 );
  new_line;
 
  puts_nocr(
    "TA2 - rtems_region_return_segment - return segment to region 2 - "
  );
  Put_address_from_area_2( segment_address_2 );
  status = rtems_region_return_segment( Region_id[ 2 ], segment_address_2 );
  directive_failed( status, "rtems_region_return_segment" );
  new_line;
 
  puts( "TA2 - rtems_task_delete - delete self" );
  status = rtems_task_delete( RTEMS_SELF );
  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
}

Line No.	Rev	Author	Line
1	30	unneback	`/* Task_2`
2			`*`
3			`* This routine serves as a test task. It competes with the other tasks`
4			`* for region resources.`
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: task2.c,v 1.2 2001-09-27 12:02:33 chris Exp $`
19			`*/`
20
21			`#include "system.h"`
22
23			`rtems_task Task_2(`
24			`rtems_task_argument argument`
25			`)`
26			`{`
27			`rtems_status_code status;`
28			`rtems_task_priority previous_priority;`
29			`void *segment_address_1;`
30			`void *segment_address_2;`
31
32			`puts( "TA2 - rtems_region_get_segment - wait on 2K segment from region 1" );`
33			`status = rtems_region_get_segment(`
34			`Region_id[ 1 ],`
35			`2048,`
36			`RTEMS_DEFAULT_OPTIONS,`
37			`RTEMS_NO_TIMEOUT,`
38			`&segment_address_1`
39			`);`
40			`directive_failed( status, "rtems_region_get_segment" );`
41			`puts_nocr( "TA2 - got segment from region 1 - " );`
42			`Put_address_from_area_1( segment_address_1 );`
43			`new_line;`
44
45			`puts_nocr(`
46			`"TA2 - rtems_region_return_segment - return segment to region 1 - "`
47			`);`
48			`Put_address_from_area_1( segment_address_1 );`
49			`status = rtems_region_return_segment( Region_id[ 1 ], segment_address_1 );`
50			`directive_failed( status, "rtems_region_return_segment" );`
51			`new_line;`
52
53			`puts( "TA2 - rtems_task_set_priority - make self highest priority task" );`
54			`status = rtems_task_set_priority(`
55			`RTEMS_SELF,`
56			`BASE_PRIORITY-1,`
57			`&previous_priority`
58			`);`
59			`directive_failed( status, "rtems_task_set_priority" );`
60
61			`puts("TA2 - rtems_region_get_segment - wait on 3968 byte segment");`
62			`status = rtems_region_get_segment(`
63			`Region_id[ 2 ],`
64			`3968,`
65			`RTEMS_DEFAULT_OPTIONS,`
66			`RTEMS_NO_TIMEOUT,`
67			`&segment_address_2`
68			`);`
69			`directive_failed( status, "rtems_region_get_segment" );`
70			`puts_nocr( "TA2 - got segment from region 2 - ");`
71			`Put_address_from_area_2( segment_address_2 );`
72			`new_line;`
73
74			`puts_nocr(`
75			`"TA2 - rtems_region_return_segment - return segment to region 2 - "`
76			`);`
77			`Put_address_from_area_2( segment_address_2 );`
78			`status = rtems_region_return_segment( Region_id[ 2 ], segment_address_2 );`
79			`directive_failed( status, "rtems_region_return_segment" );`
80			`new_line;`
81
82			`puts( "TA2 - rtems_task_delete - delete self" );`
83			`status = rtems_task_delete( RTEMS_SELF );`
84			`directive_failed( status, "rtems_task_delete of RTEMS_SELF" );`
85			`}`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [sptests/] [sp16/] [task2.c] - Blame information for rev 314