Mercurial > flash_v2
annotate packages/kernel/current/tests/sync3.cxx @ 1777:c16341b1bac6 default tip
* Added execute permissions to files missed in conversion from CVS
| author | alexs |
|---|---|
| date | Mon, 12 Oct 2009 02:26:09 +0100 |
| parents | 92cf4ff674de |
| children |
| rev | line source |
|---|---|
| 0 | 1 //========================================================================== |
| 2 // | |
| 3 // sync3.cxx | |
| 4 // | |
| 5 // Sync test 3 -- tests priorities and priority inheritance | |
| 6 // | |
| 7 //========================================================================== | |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
8 //####ECOSGPLCOPYRIGHTBEGIN#### |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
9 // ------------------------------------------- |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
10 // This file is part of eCos, the Embedded Configurable Operating System. |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc. |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
12 // |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
13 // eCos is free software; you can redistribute it and/or modify it under |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
14 // the terms of the GNU General Public License as published by the Free |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
15 // Software Foundation; either version 2 or (at your option) any later version. |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
16 // |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
17 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
18 // WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
19 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
20 // for more details. |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
21 // |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
22 // You should have received a copy of the GNU General Public License along |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
23 // with eCos; if not, write to the Free Software Foundation, Inc., |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
24 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
25 // |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
26 // As a special exception, if other files instantiate templates or use macros |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
27 // or inline functions from this file, or you compile this file and link it |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
28 // with other works to produce a work based on this file, this file does not |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
29 // by itself cause the resulting work to be covered by the GNU General Public |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
30 // License. However the source code for this file must still be made available |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
31 // in accordance with section (3) of the GNU General Public License. |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
32 // |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
33 // This exception does not invalidate any other reasons why a work based on |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
34 // this file might be covered by the GNU General Public License. |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
35 // |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
36 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc. |
|
210
d2c90368aeef
Merge from eCos master repository on 2002-05-23-21:39:14-BST
jlarmour
parents:
208
diff
changeset
|
37 // at http://sources.redhat.com/ecos/ecos-license/ |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
38 // ------------------------------------------- |
|
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
177
diff
changeset
|
39 //####ECOSGPLCOPYRIGHTEND#### |
| 0 | 40 //========================================================================== |
| 41 //#####DESCRIPTIONBEGIN#### | |
| 42 // | |
| 43 // Author(s): dsm | |
| 44 // Contributors: dsm | |
| 45 // Date: 1998-02-18 | |
| 46 // Description: | |
| 47 // Creates mutexes and threads to set up starvation condition. | |
| 48 // Checks simple priority inheritance cures this. | |
| 49 // | |
| 50 // The starvation condition is caused by the highest priority | |
| 51 // thread, t0 waiting on a mutex which is never released because | |
| 52 // it is held by t2. t2 never releases it because t1 will be | |
| 53 // running at a priority level higher than t2 (but lower than t0). | |
| 54 // | |
| 55 // With priority inheritance enabled, t2 will inherit its priority | |
| 56 // from t0 when t0 tries to grab the mutex. | |
| 57 // | |
| 58 // Options: | |
| 59 // CYGIMP_THREAD_PRIORITY | |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
60 // CYGSEM_KERNEL_SYNCH_MUTEX_PRIORITY_INVERSION_PROTOCOL_INHERIT |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
61 // CYGSEM_KERNEL_SYNCH_MUTEX_PRIORITY_INVERSION_PROTOCOL_SIMPLE |
| 0 | 62 //####DESCRIPTIONEND#### |
| 63 | |
| 64 #include <pkgconf/kernel.h> | |
| 65 | |
| 66 #include <cyg/kernel/thread.hxx> | |
| 67 #include <cyg/kernel/thread.inl> | |
| 68 #include <cyg/kernel/sched.hxx> | |
| 69 #include <cyg/kernel/mutex.hxx> | |
| 70 #include <cyg/kernel/sema.hxx> | |
| 71 | |
| 72 #include <cyg/infra/testcase.h> | |
| 73 | |
| 74 #include <cyg/kernel/sched.inl> | |
| 75 | |
|
177
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
76 #if defined(CYGIMP_THREAD_PRIORITY) && \ |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
77 !defined(CYGPKG_KERNEL_SMP_SUPPORT) |
| 0 | 78 |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
79 // ------------------------------------------------------------------------ |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
80 // Manufacture a simpler feature test macro for priority inheritance than |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
81 // the configuration gives us. We have priority inheritance if it is configured |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
82 // as the only protocol, or if it is the default protocol for dynamic protocol |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
83 // choice. |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
84 // FIXME: If we have dynamic protocol choice, we can also set priority inheritance |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
85 // as the protocol to be used on the mutexes we are interested in. At present we |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
86 // do not do this. |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
87 |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
88 #ifdef CYGSEM_KERNEL_SYNCH_MUTEX_PRIORITY_INVERSION_PROTOCOL_INHERIT |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
89 # ifdef CYGSEM_KERNEL_SYNCH_MUTEX_PRIORITY_INVERSION_PROTOCOL_DYNAMIC |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
90 # ifdef CYGSEM_KERNEL_SYNCH_MUTEX_PRIORITY_INVERSION_PROTOCOL_DEFAULT_INHERIT |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
91 # define PRIORITY_INHERITANCE |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
92 # else |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
93 # undef PRIORITY_INHERITANCE |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
94 # endif |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
95 # else |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
96 # define PRIORITY_INHERITANCE |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
97 # endif |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
98 #else |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
99 # undef PRIORITY_INHERITANCE |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
100 #endif |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
101 |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
102 // ------------------------------------------------------------------------ |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
103 |
| 0 | 104 #define NTHREADS 3 |
| 105 | |
| 106 #include "testaux.hxx" | |
| 107 | |
| 108 static Cyg_Mutex m0; | |
| 109 static Cyg_Binary_Semaphore s0, s1, s2; | |
| 110 | |
| 111 static cyg_ucount8 m0d = 9; | |
| 112 | |
| 113 static void check_priorities_normal() | |
| 114 { | |
| 115 CHECK( 5 == thread[0]->get_priority()); | |
| 116 CHECK( 6 == thread[1]->get_priority()); | |
| 117 CHECK( 7 == thread[2]->get_priority()); | |
| 118 } | |
| 119 | |
| 120 static void check_priorities_inherited() | |
| 121 { | |
| 122 CHECK( 5 == thread[0]->get_priority()); | |
| 123 CHECK( 6 == thread[1]->get_priority()); | |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
124 #ifdef PRIORITY_INHERITANCE |
| 0 | 125 CHECK( 5 == thread[2]->get_current_priority()); |
| 126 #endif | |
| 127 CHECK( 7 == thread[2]->get_priority()); | |
| 128 | |
| 129 } | |
| 130 | |
| 131 static void entry0( CYG_ADDRWORD data ) | |
| 132 { | |
| 2 | 133 s0.wait(); // wait until t2 has gained m0.lock |
| 0 | 134 check_priorities_normal(); |
| 135 m0.lock(); { | |
| 136 check_priorities_normal(); | |
| 2 | 137 CHECK( 2 == m0d ); |
| 138 m0d = 0; | |
| 0 | 139 } m0.unlock(); |
| 140 check_priorities_normal(); | |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
141 #ifdef PRIORITY_INHERITANCE |
| 0 | 142 CYG_TEST_PASS_FINISH("Sync 3 OK -- priority inheritance worked"); |
| 143 #else | |
| 144 CYG_TEST_FAIL_FINISH("Sync 3: thread not starved"); | |
| 145 #endif | |
| 146 // NOT REACHED | |
| 147 } | |
| 148 | |
| 149 static void entry1( CYG_ADDRWORD data ) | |
| 150 { | |
| 151 s1.wait(); | |
| 152 // The delay below will allow testing of the priority inheritance | |
| 153 // mechanism when scheduler does not guarantee to schedule threads | |
| 154 // in strict priority order. | |
| 155 for ( volatile cyg_ucount32 i=0; i < 100000; i++ ) | |
| 2 | 156 ; // math is hard |
| 0 | 157 |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
158 #ifdef PRIORITY_INHERITANCE |
| 0 | 159 // thread0 should have stopped by this point |
| 160 CYG_TEST_FAIL_FINISH("Sync 3: priority inheritance mechanism failed"); | |
| 161 #else | |
| 162 // With strict priority scheduling and no priority inheritance | |
| 163 // this is expected to happen. | |
| 164 CYG_TEST_PASS_FINISH("Sync 3 OK"); | |
| 165 #endif | |
| 166 CYG_TEST_FAIL_FINISH("Not reached"); | |
| 167 } | |
| 168 | |
| 169 void entry2( CYG_ADDRWORD data ) | |
| 170 { | |
| 171 m0.lock(); { | |
| 2 | 172 CHECK( 9 == m0d ); |
| 0 | 173 check_priorities_normal(); |
| 2 | 174 s0.post(); // Now I have lock on m0, wake t0 then t1 |
| 0 | 175 check_priorities_inherited(); |
| 2 | 176 s1.post(); |
| 0 | 177 check_priorities_inherited(); |
| 2 | 178 m0d = 2; |
| 0 | 179 } m0.unlock(); |
| 180 check_priorities_normal(); | |
| 181 m0.lock(); { | |
| 182 check_priorities_normal(); | |
| 2 | 183 CHECK( 0 == m0d ); |
| 184 m0d = 21; | |
| 185 s2.wait(); // never posted | |
| 0 | 186 } m0.unlock(); |
| 187 } | |
| 188 | |
| 189 | |
| 190 | |
| 191 void sync3_main(void) | |
| 192 { | |
| 193 CYG_TEST_INIT(); | |
| 194 | |
| 195 new_thread( entry0, 0); | |
| 196 new_thread( entry1, 1); | |
| 197 new_thread( entry2, 2); | |
| 198 | |
| 199 thread[0]->set_priority(5); | |
| 200 thread[1]->set_priority(6); | |
| 201 thread[2]->set_priority(7); | |
| 202 | |
| 203 Cyg_Scheduler::start(); | |
| 204 | |
| 205 CYG_TEST_FAIL_FINISH("Not reached"); | |
| 206 } | |
| 207 | |
| 208 externC void | |
| 209 cyg_start( void ) | |
| 210 { | |
|
130
eb9fd8c04db3
Merge from eCos master repository on 2000-10-23-17:01:37-BST
jlarmour
parents:
115
diff
changeset
|
211 #ifdef CYGSEM_HAL_STOP_CONSTRUCTORS_ON_FLAG |
|
eb9fd8c04db3
Merge from eCos master repository on 2000-10-23-17:01:37-BST
jlarmour
parents:
115
diff
changeset
|
212 cyg_hal_invoke_constructors(); |
|
eb9fd8c04db3
Merge from eCos master repository on 2000-10-23-17:01:37-BST
jlarmour
parents:
115
diff
changeset
|
213 #endif |
| 0 | 214 sync3_main(); |
| 215 } | |
|
177
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
216 |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
217 #else // defined(CYGIMP_THREAD_PRIORITY) etc |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
218 |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
219 externC void |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
220 cyg_start( void ) |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
221 { |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
222 CYG_TEST_INIT(); |
| 1507 | 223 CYG_TEST_INFO("Sync3 test requires:\n" |
|
177
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
224 "defined(CYGIMP_THREAD_PRIORITY) &&\n" |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
225 "!defined(CYGPKG_KERNEL_SMP_SUPPORT)\n"); |
| 1507 | 226 CYG_TEST_NA("Sync3 test requirements"); |
|
177
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
227 |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
228 } |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
229 |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
230 #endif // defined(CYGIMP_THREAD_PRIORITY) etc |
|
4c750ce71ae3
Merge from eCos master repository on 2001-08-10-19:22:57-BST
jlarmour
parents:
130
diff
changeset
|
231 |
| 0 | 232 // EOF sync3.cxx |
