OpenCores
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/] [libtests/] [malloctest/] [init.c] - Blame information for rev 484

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

Line No. Rev Author Line
1 30 unneback
/*  Init
2
 *
3
 *  This routine is the initialization task for this test program.
4
 *  It is a user initialization task and has the responsibility for creating
5
 *  and starting the tasks that make up the test.  If the time of day
6
 *  clock is required for the test, it should also be set to a known
7
 *  value by this function.
8
 *
9
 *  Input parameters:
10
 *    argument - task argument
11
 *
12
 *  Output parameters:  NONE
13
 *
14
 *  COPYRIGHT (c) 1989-1999.
15
 *  On-Line Applications Research Corporation (OAR).
16
 *
17
 *  The license and distribution terms for this file may be
18
 *  found in the file LICENSE in this distribution or at
19
 *  http://www.OARcorp.com/rtems/license.html.
20
 *
21
 *  $Id: init.c,v 1.2 2001-09-27 12:02:12 chris Exp $
22
 */
23
 
24
#define TEST_INIT
25
#include "system.h"
26
 
27
rtems_task Init(
28
  rtems_task_argument argument
29
)
30
{
31
  rtems_time_of_day time;
32
  rtems_status_code status;
33
 
34
  puts( "\n\n*** MALLOC TEST ***" );
35
 
36
  build_time( &time, 12, 31, 1988, 9, 0, 0, 0 );
37
  status = rtems_clock_set( &time );
38
  directive_failed( status, "rtems_clock_set" );
39
 
40
  Task_name[ 1 ] = rtems_build_name( 'T', 'A', '1', ' ' );
41
  Task_name[ 2 ] = rtems_build_name( 'T', 'A', '2', ' ' );
42
  Task_name[ 3 ] = rtems_build_name( 'T', 'A', '3', ' ' );
43
  Task_name[ 4 ] = rtems_build_name( 'T', 'A', '4', ' ' );
44
  Task_name[ 5 ] = rtems_build_name( 'T', 'A', '5', ' ' );
45
 
46
  status = rtems_task_create(
47
     Task_name[ 1 ],
48
     1,
49
     TASK_STACK_SIZE,
50
     RTEMS_DEFAULT_MODES,
51
     RTEMS_DEFAULT_ATTRIBUTES,
52
     &Task_id[ 1 ]
53
  );
54
  directive_failed( status, "rtems_task_create of TA1" );
55
 
56
  status = rtems_task_create(
57
     Task_name[ 2 ],
58
     1,
59
     TASK_STACK_SIZE,
60
     RTEMS_DEFAULT_MODES,
61
     RTEMS_DEFAULT_ATTRIBUTES,
62
     &Task_id[ 2 ]
63
  );
64
  directive_failed( status, "rtems_task_create of TA2" );
65
 
66
  status = rtems_task_create(
67
     Task_name[ 3 ],
68
     1,
69
     TASK_STACK_SIZE,
70
     RTEMS_DEFAULT_MODES,
71
     RTEMS_DEFAULT_ATTRIBUTES,
72
     &Task_id[ 3 ]
73
  );
74
  directive_failed( status, "rtems_task_create of TA3" );
75
 
76
  status = rtems_task_create(
77
     Task_name[ 4 ],
78
     1,
79
     TASK_STACK_SIZE,
80
     RTEMS_DEFAULT_MODES,
81
     RTEMS_DEFAULT_ATTRIBUTES,
82
     &Task_id[ 4 ]
83
  );
84
  directive_failed( status, "rtems_task_create of TA4" );
85
 
86
  status = rtems_task_create(
87
     Task_name[ 5 ],
88
     1,
89
     TASK_STACK_SIZE,
90
     RTEMS_DEFAULT_MODES,
91
     RTEMS_DEFAULT_ATTRIBUTES,
92
     &Task_id[ 5 ]
93
  );
94
  directive_failed( status, "rtems_task_create of TA5" );
95
 
96
  status = rtems_task_start( Task_id[ 1 ], Task_1_through_5, 0 );
97
  directive_failed( status, "rtems_task_start of TA1" );
98
 
99
  status = rtems_task_start( Task_id[ 2 ], Task_1_through_5, 0 );
100
  directive_failed( status, "rtems_task_start of TA2" );
101
 
102
  status = rtems_task_start( Task_id[ 3 ], Task_1_through_5, 0 );
103
  directive_failed( status, "rtems_task_start of TA3" );
104
 
105
  status = rtems_task_start( Task_id[ 4 ], Task_1_through_5, 0 );
106
  directive_failed( status, "rtems_task_start of TA4" );
107
 
108
  status = rtems_task_start( Task_id[ 5 ], Task_1_through_5, 0 );
109
  directive_failed( status, "rtems_task_start of TA5" );
110
 
111
  status = rtems_task_delete( RTEMS_SELF );
112
  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
113
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.