Mercurial > ecos
annotate packages/language/c/libc/current/tests/time/clock.c @ 64:c38311975d4f ecos-sw-2000-01-28
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
| author | jlarmour |
|---|---|
| date | Fri, 28 Jan 2000 04:59:39 +0000 |
| parents | 1d7f19c9e4d1 |
| children | bf00f99aec69 |
| rev | line source |
|---|---|
| 0 | 1 //================================================================= |
| 2 // | |
| 3 // clock.c | |
| 4 // | |
| 5 // Testcase for C library clock() | |
| 6 // | |
| 7 //================================================================= | |
| 8 //####COPYRIGHTBEGIN#### | |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
9 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
10 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
11 // The contents of this file are subject to the Red Hat eCos Public License |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
12 // Version 1.0 (the "License"); you may not use this file except in |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
13 // compliance with the License. You may obtain a copy of the License at |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
14 // http://sourceware.cygnus.com/ecos |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
15 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
16 // Software distributed under the License is distributed on an |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
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:
4
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:
4
diff
changeset
|
19 // the License. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
20 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
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:
4
diff
changeset
|
22 // released September 30, 1998. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
23 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
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:
4
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:
4
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:
4
diff
changeset
|
27 // All Rights Reserved. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
28 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
4
diff
changeset
|
29 // |
| 0 | 30 //####COPYRIGHTEND#### |
| 31 //================================================================= | |
| 32 //#####DESCRIPTIONBEGIN#### | |
| 33 // | |
| 2 | 34 // Author(s): ctarpy |
| 35 // Contributors: ctarpy, jlarmour | |
| 36 // Date: 1999-03-05 | |
| 0 | 37 // Description: Contains testcode for C library clock() function |
| 38 // | |
| 39 // | |
| 40 //####DESCRIPTIONEND#### | |
| 41 | |
| 42 // Declarations for test system: | |
| 43 // | |
| 44 // TESTCASE_TYPE=CYG_TEST_MODULE | |
| 45 | |
| 46 // CONFIGURATION | |
| 47 | |
| 48 #include <pkgconf/libc.h> // Configuration header | |
| 49 | |
| 50 // INCLUDES | |
| 51 | |
| 52 #include <time.h> | |
| 53 #include <cyg/infra/testcase.h> | |
| 54 #include <sys/cstartup.h> // C library initialisation | |
| 55 | |
| 2 | 56 #define RUN_TEST 1 |
| 57 | |
| 58 // This test is bound to fail on Linux -- we don't have exclusive access | |
| 59 // to the CPU. | |
| 60 #if defined(CYGPKG_HAL_I386_LINUX) | |
| 61 #undef RUN_TEST | |
| 62 #define RUN_TEST 0 | |
| 63 #endif | |
| 64 | |
| 0 | 65 |
| 66 // HOW TO START TESTS | |
| 67 | |
| 2 | 68 #if RUN_TEST |
| 69 | |
| 70 #include <cyg/hal/hal_cache.h> | |
|
4
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
71 #include <cyg/hal/hal_intr.h> |
| 0 | 72 |
| 73 # define START_TEST( test ) test(0) | |
| 74 | |
| 75 #else | |
| 76 | |
| 77 # define START_TEST( test ) CYG_EMPTY_STATEMENT | |
| 78 | |
| 79 #endif | |
| 80 | |
| 81 | |
| 82 // CONSTANTS | |
| 83 | |
| 84 // This defines how many loops before we decide that | |
| 85 // the clock doesnt work | |
| 86 #define MAX_TIMEOUT 1000000 | |
| 87 | |
| 88 // Percentage error before we declare fail: range 0 - 100 | |
| 2 | 89 #define TOLERANCE 40 |
| 0 | 90 |
| 91 | |
| 92 // FUNCTIONS | |
| 93 | |
| 94 | |
| 95 externC void | |
| 96 cyg_package_start( void ) | |
| 97 { | |
| 98 cyg_iso_c_start(); | |
| 99 } // cyg_package_start() | |
| 100 | |
| 101 | |
| 2 | 102 #if RUN_TEST |
| 0 | 103 |
| 104 static int | |
| 105 my_abs(int i) | |
| 106 { | |
| 107 return (i < 0) ? -i : i; | |
| 108 } // my_abs() | |
| 109 | |
| 110 | |
| 111 static void | |
| 112 test( CYG_ADDRWORD data ) | |
| 113 { | |
| 114 unsigned long ctr, ctr2, err; | |
| 115 clock_t clock_init; | |
| 2 | 116 clock_t clock_first=0, clock_second=0, clock_third=0; |
| 117 | |
|
4
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
118 // First disable the caches - they may affect the timing loops |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
119 // below - especially if tracing or assertions are enabled, causing |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
120 // the elapsed time during the clock() call to vary. |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
121 { |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
122 register CYG_INTERRUPT_STATE oldints; |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
123 |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
124 HAL_DISABLE_INTERRUPTS(oldints); |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
125 HAL_DCACHE_SYNC(); |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
126 HAL_ICACHE_DISABLE(); |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
127 HAL_DCACHE_DISABLE(); |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
128 HAL_DCACHE_SYNC(); |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
129 HAL_ICACHE_INVALIDATE_ALL(); |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
130 HAL_DCACHE_INVALIDATE_ALL(); |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
131 HAL_RESTORE_INTERRUPTS(oldints); |
|
1d7f19c9e4d1
Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents:
2
diff
changeset
|
132 } |
| 0 | 133 |
| 134 // This waits for a clock tick, to ensure that we are at the | |
| 135 // start of a clock period. Then sit in a tight loop to get | |
| 136 // the clock period. Repeat this, and make sure that it the | |
| 137 // two timed periods are acceptably close. | |
| 138 | |
| 139 err = 101; | |
| 140 clock_init = clock(); | |
| 141 | |
| 2 | 142 if (clock_init == (clock_t)-1) // unimplemented is just as valid |
| 0 | 143 { |
| 144 CYG_TEST_PASS_FINISH( "clock() returns -1, meaning unimplemented"); | |
| 145 } // if | |
| 146 | |
| 147 for (ctr = 0; ctr<MAX_TIMEOUT; ctr++) | |
| 148 { | |
| 149 if ((clock_first=clock()) > clock_init) | |
| 150 break; // Hit the next clock pulse | |
| 151 } | |
| 152 if (ctr < MAX_TIMEOUT) | |
| 153 { | |
| 154 // We hit a clock pulse, rather than a timeout | |
| 155 // Now we are at the beginning of a pulse, so time until the | |
| 156 // next one in order to get a measure of the length. | |
| 157 for (ctr = 0; ctr<MAX_TIMEOUT; ctr++) | |
| 158 { | |
| 159 if ((clock_second=clock()) > clock_first) | |
| 160 break; // Hit the next clock pulse | |
| 161 } // for | |
| 162 if (ctr < MAX_TIMEOUT) | |
| 163 { | |
| 164 // We hit a clock pulse, rather than a timeout. ctr contains | |
| 165 // the number of loops/tick. Measure this again, and see if | |
| 166 // the two results are acceptably close. | |
| 167 for (ctr2 = 0; ctr2<MAX_TIMEOUT; ctr2++) | |
| 168 { | |
| 169 if ((clock_third=clock()) > clock_second) | |
| 170 break; // Hit the next clock pulse | |
| 171 } // for | |
| 2 | 172 if (ctr2 < MAX_TIMEOUT) |
| 0 | 173 { |
| 174 err = (100 * my_abs(ctr-ctr2)) / ctr; | |
| 175 } // if (ctr < MAX_TIMEOUT) | |
| 176 else | |
| 177 { | |
| 178 CYG_TEST_FAIL_FINISH("No change in clock state!"); | |
| 179 } // else (ctr < MAX_TIMEOUT) | |
| 180 } // if (ctr < MAX_TIMEOUT) | |
| 181 else | |
| 182 { | |
| 183 CYG_TEST_FAIL_FINISH("No change in clock state!"); | |
| 184 } // else (ctr < MAX_TIMEOUT) | |
| 185 | |
| 186 } // if (ctr < MAX_TIMEOUT) | |
| 187 else | |
| 188 { | |
| 189 CYG_TEST_FAIL_FINISH("No change in clock state!"); | |
| 190 } // else (ctr < MAX_TIMEOUT) | |
| 191 | |
| 192 CYG_TEST_PASS_FAIL(err < TOLERANCE, "clock() stability"); | |
| 193 | |
| 194 CYG_TEST_FINISH("Finished tests from testcase " __FILE__ " for C library " | |
| 195 "clock() function"); | |
| 196 } // test() | |
| 197 #endif | |
| 198 | |
| 199 int | |
| 200 main(int argc, char *argv[]) | |
| 201 { | |
| 202 CYG_TEST_INIT(); | |
| 203 | |
| 204 CYG_TEST_INFO("Starting tests from testcase " __FILE__ " for C library " | |
| 205 "clock() function"); | |
| 206 | |
| 207 START_TEST( test ); | |
| 208 | |
| 2 | 209 CYG_TEST_NA("Testing is not applicable to this configuration"); |
| 0 | 210 |
| 211 } // main() | |
| 212 | |
| 213 // EOF clock.c |