Mercurial > ecos
annotate packages/kernel/current/tests/sync3.cxx @ 115:6ed91473a1cd ecos-sw-2000-08-21
Merge from eCos master repository on 2000-08-21-22:40:54-BST
| author | jlarmour |
|---|---|
| date | Fri, 25 Aug 2000 17:32:38 +0000 |
| parents | bf00f99aec69 |
| children | eb9fd8c04db3 |
| rev | line source |
|---|---|
| 0 | 1 //========================================================================== |
| 2 // | |
| 3 // sync3.cxx | |
| 4 // | |
| 5 // Sync test 3 -- tests priorities and priority inheritance | |
| 6 // | |
| 7 //========================================================================== | |
| 8 //####COPYRIGHTBEGIN#### | |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
9 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
10 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
11 // The contents of this file are subject to the Red Hat eCos Public License |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
12 // Version 1.1 (the "License"); you may not use this file except in |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
13 // compliance with the License. You may obtain a copy of the License at |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
14 // http://www.redhat.com/ |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
15 // |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
16 // Software distributed under the License is distributed on an "AS IS" |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
17 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
18 // License for the specific language governing rights and limitations under |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
19 // the License. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
20 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
21 // The Original Code is eCos - Embedded Configurable Operating System, |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
22 // released September 30, 1998. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
23 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
24 // The Initial Developer of the Original Code is Red Hat. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
25 // Portions created by Red Hat are |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
26 // Copyright (C) 1998, 1999, 2000 Red Hat, Inc. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
27 // All Rights Reserved. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
28 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
29 // |
| 0 | 30 //####COPYRIGHTEND#### |
| 31 //========================================================================== | |
| 32 //#####DESCRIPTIONBEGIN#### | |
| 33 // | |
| 34 // Author(s): dsm | |
| 35 // Contributors: dsm | |
| 36 // Date: 1998-02-18 | |
| 37 // Description: | |
| 38 // Creates mutexes and threads to set up starvation condition. | |
| 39 // Checks simple priority inheritance cures this. | |
| 40 // | |
| 41 // The starvation condition is caused by the highest priority | |
| 42 // thread, t0 waiting on a mutex which is never released because | |
| 43 // it is held by t2. t2 never releases it because t1 will be | |
| 44 // running at a priority level higher than t2 (but lower than t0). | |
| 45 // | |
| 46 // With priority inheritance enabled, t2 will inherit its priority | |
| 47 // from t0 when t0 tries to grab the mutex. | |
| 48 // | |
| 49 // Options: | |
| 50 // CYGIMP_THREAD_PRIORITY | |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
51 // 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
|
52 // CYGSEM_KERNEL_SYNCH_MUTEX_PRIORITY_INVERSION_PROTOCOL_SIMPLE |
| 0 | 53 //####DESCRIPTIONEND#### |
| 54 | |
| 55 #include <pkgconf/kernel.h> | |
| 56 | |
| 57 #include <cyg/kernel/thread.hxx> | |
| 58 #include <cyg/kernel/thread.inl> | |
| 59 #include <cyg/kernel/sched.hxx> | |
| 60 #include <cyg/kernel/mutex.hxx> | |
| 61 #include <cyg/kernel/sema.hxx> | |
| 62 | |
| 63 #include <cyg/infra/testcase.h> | |
| 64 | |
| 65 #include <cyg/kernel/sched.inl> | |
| 66 | |
| 67 #ifndef CYGIMP_THREAD_PRIORITY | |
| 68 #error "Thread priorities disabled" | |
| 69 #endif | |
| 70 | |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
71 // ------------------------------------------------------------------------ |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
72 // 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
|
73 // 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
|
74 // 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
|
75 // choice. |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
76 // 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
|
77 // 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
|
78 // do not do this. |
|
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 #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
|
81 # 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
|
82 # 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
|
83 # define PRIORITY_INHERITANCE |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
84 # else |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
85 # undef PRIORITY_INHERITANCE |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
86 # endif |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
87 # else |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
88 # define PRIORITY_INHERITANCE |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
89 # endif |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
90 #else |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
91 # undef PRIORITY_INHERITANCE |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
92 #endif |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
93 |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
94 // ------------------------------------------------------------------------ |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
95 |
| 0 | 96 #define NTHREADS 3 |
| 97 | |
| 98 #include "testaux.hxx" | |
| 99 | |
| 100 static Cyg_Mutex m0; | |
| 101 static Cyg_Binary_Semaphore s0, s1, s2; | |
| 102 | |
| 103 static cyg_ucount8 m0d = 9; | |
| 104 | |
| 105 static void check_priorities_normal() | |
| 106 { | |
| 107 CHECK( 5 == thread[0]->get_priority()); | |
| 108 CHECK( 6 == thread[1]->get_priority()); | |
| 109 CHECK( 7 == thread[2]->get_priority()); | |
| 110 } | |
| 111 | |
| 112 static void check_priorities_inherited() | |
| 113 { | |
| 114 CHECK( 5 == thread[0]->get_priority()); | |
| 115 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
|
116 #ifdef PRIORITY_INHERITANCE |
| 0 | 117 CHECK( 5 == thread[2]->get_current_priority()); |
| 118 #endif | |
| 119 CHECK( 7 == thread[2]->get_priority()); | |
| 120 | |
| 121 } | |
| 122 | |
| 123 static void entry0( CYG_ADDRWORD data ) | |
| 124 { | |
| 2 | 125 s0.wait(); // wait until t2 has gained m0.lock |
| 0 | 126 check_priorities_normal(); |
| 127 m0.lock(); { | |
| 128 check_priorities_normal(); | |
| 2 | 129 CHECK( 2 == m0d ); |
| 130 m0d = 0; | |
| 0 | 131 } m0.unlock(); |
| 132 check_priorities_normal(); | |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
133 #ifdef PRIORITY_INHERITANCE |
| 0 | 134 CYG_TEST_PASS_FINISH("Sync 3 OK -- priority inheritance worked"); |
| 135 #else | |
| 136 CYG_TEST_FAIL_FINISH("Sync 3: thread not starved"); | |
| 137 #endif | |
| 138 // NOT REACHED | |
| 139 } | |
| 140 | |
| 141 static void entry1( CYG_ADDRWORD data ) | |
| 142 { | |
| 143 s1.wait(); | |
| 144 // The delay below will allow testing of the priority inheritance | |
| 145 // mechanism when scheduler does not guarantee to schedule threads | |
| 146 // in strict priority order. | |
| 147 for ( volatile cyg_ucount32 i=0; i < 100000; i++ ) | |
| 2 | 148 ; // math is hard |
| 0 | 149 |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
150 #ifdef PRIORITY_INHERITANCE |
| 0 | 151 // thread0 should have stopped by this point |
| 152 CYG_TEST_FAIL_FINISH("Sync 3: priority inheritance mechanism failed"); | |
| 153 #else | |
| 154 // With strict priority scheduling and no priority inheritance | |
| 155 // this is expected to happen. | |
| 156 CYG_TEST_PASS_FINISH("Sync 3 OK"); | |
| 157 #endif | |
| 158 CYG_TEST_FAIL_FINISH("Not reached"); | |
| 159 } | |
| 160 | |
| 161 void entry2( CYG_ADDRWORD data ) | |
| 162 { | |
| 163 m0.lock(); { | |
| 2 | 164 CHECK( 9 == m0d ); |
| 0 | 165 check_priorities_normal(); |
| 2 | 166 s0.post(); // Now I have lock on m0, wake t0 then t1 |
| 0 | 167 check_priorities_inherited(); |
| 2 | 168 s1.post(); |
| 0 | 169 check_priorities_inherited(); |
| 2 | 170 m0d = 2; |
| 0 | 171 } m0.unlock(); |
| 172 check_priorities_normal(); | |
| 173 m0.lock(); { | |
| 174 check_priorities_normal(); | |
| 2 | 175 CHECK( 0 == m0d ); |
| 176 m0d = 21; | |
| 177 s2.wait(); // never posted | |
| 0 | 178 } m0.unlock(); |
| 179 } | |
| 180 | |
| 181 | |
| 182 | |
| 183 void sync3_main(void) | |
| 184 { | |
| 185 CYG_TEST_INIT(); | |
| 186 | |
| 187 new_thread( entry0, 0); | |
| 188 new_thread( entry1, 1); | |
| 189 new_thread( entry2, 2); | |
| 190 | |
| 191 thread[0]->set_priority(5); | |
| 192 thread[1]->set_priority(6); | |
| 193 thread[2]->set_priority(7); | |
| 194 | |
| 195 Cyg_Scheduler::start(); | |
| 196 | |
| 197 CYG_TEST_FAIL_FINISH("Not reached"); | |
| 198 } | |
| 199 | |
| 200 externC void | |
| 201 cyg_start( void ) | |
| 202 { | |
| 203 sync3_main(); | |
| 204 } | |
| 205 | |
| 206 // EOF sync3.cxx |
