| 0,0 → 1,133 |
|---|
| /* |
| * Copyright (C) 2005 Jakub Vana |
| * Copyright (C) 2005 Jakub Jermar |
| * All rights reserved. |
| * |
| * Redistribution and use in source and binary forms, with or without |
| * modification, are permitted provided that the following conditions |
| * are met: |
| * |
| * - Redistributions of source code must retain the above copyright |
| * notice, this list of conditions and the following disclaimer. |
| * - Redistributions in binary form must reproduce the above copyright |
| * notice, this list of conditions and the following disclaimer in the |
| * documentation and/or other materials provided with the distribution. |
| * - The name of the author may not be used to endorse or promote products |
| * derived from this software without specific prior written permission. |
| * |
| * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
| * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
| * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
| * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
| * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
| * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
| * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
| * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
| * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| */ |
| |
| #include <print.h> |
| #include <debug.h> |
| #include <panic.h> |
| |
| #include <test.h> |
| #include <arch/atomic.h> |
| #include <proc/thread.h> |
| |
| #include <arch.h> |
| |
| #define THREADS 150*2 |
| #define ATTEMPTS 100 |
| |
| #define E_10e8 271828182 |
| #define PI_10e8 314159265 |
| |
| static inline double sqrt(double x) { double v; __asm__ ("fsqrt\n" : "=t" (v) : "0" (x)); return v; } |
| |
| static atomic_t threads_ok; |
| static waitq_t can_start; |
| |
| static void e(void *data) |
| { |
| int i; |
| double e,d,le,f; |
| |
| waitq_sleep(&can_start); |
| |
| for (i = 0; i<ATTEMPTS; i++) { |
| le=-1; |
| e=0; |
| f=1; |
| |
| for(d=1;e!=le;d*=f,f+=1) { |
| le=e; |
| e=e+1/d; |
| } |
| |
| if((int)(100000000*e)!=E_10e8) |
| panic("tid%d: e*10e8=%d\n", THREAD->tid, (int) 100000000*e); |
| } |
| |
| atomic_inc(&threads_ok); |
| } |
| |
| static void pi(void *data) |
| { |
| int i; |
| double lpi, pi; |
| double n, ab, ad; |
| |
| waitq_sleep(&can_start); |
| |
| |
| for (i = 0; i<ATTEMPTS; i++) { |
| lpi = -1; |
| pi = 0; |
| |
| for (n=2, ab = sqrt(2); lpi != pi; n *= 2, ab = ad) { |
| double sc, cd; |
| |
| sc = sqrt(1 - (ab*ab/4)); |
| cd = 1 - sc; |
| ad = sqrt(ab*ab/4 + cd*cd); |
| lpi = pi; |
| pi = 2 * n * ad; |
| } |
| |
| if((int)(100000000*pi)!=PI_10e8) |
| panic("tid%d: pi*10e8=%d\n", THREAD->tid, (int) 100000000*pi); |
| } |
| |
| atomic_inc(&threads_ok); |
| } |
| |
| |
| void test(void) |
| { |
| thread_t *t; |
| int i; |
| |
| waitq_initialize(&can_start); |
| |
| printf("FPU test #1\n"); |
| printf("Creating %d threads... ", THREADS); |
| |
| for (i=0; i<THREADS/2; i++) { |
| if (!(t = thread_create(e, NULL, TASK, 0))) |
| panic("could not create thread\n"); |
| thread_ready(t); |
| if (!(t = thread_create(pi, NULL, TASK, 0))) |
| panic("could not create thread\n"); |
| thread_ready(t); |
| } |
| printf("ok\n"); |
| |
| thread_sleep(1); |
| waitq_wakeup(&can_start, WAKEUP_ALL); |
| |
| while (threads_ok != THREADS) |
| ; |
| |
| printf("Test passed.\n"); |
| } |