ecos: packages/kernel/current/tests/ksem1.c annotate

annotate packages/kernel/current/tests/ksem1.c @ 2729:74dbf4c3f2e1 after-copyright-change-20090129

Update all copyright banners to reflect FSF ownership; fix and improve licence text.

author	jlarmour
date	Thu, 29 Jan 2009 17:47:46 +0000
parents	ec1655a2f96e
children

rev	line source
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	1 /*=================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	2 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	3 // ksem1.c
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	4 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	5 // C API semaphore test 1
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	6 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	7 //==========================================================================
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	8 // ####ECOSGPLCOPYRIGHTBEGIN####
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	9 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	10 // This file is part of eCos, the Embedded Configurable Operating System.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	12 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	13 // eCos is free software; you can redistribute it and/or modify it under
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	14 // the terms of the GNU General Public License as published by the Free
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	15 // Software Foundation; either version 2 or (at your option) any later
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	16 // version.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	17 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	18 // eCos is distributed in the hope that it will be useful, but WITHOUT
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	19 // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	20 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	21 // for more details.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	22 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	23 // You should have received a copy of the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	24 // along with eCos; if not, write to the Free Software Foundation, Inc.,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	25 // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	26 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	27 // As a special exception, if other files instantiate templates or use
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	28 // macros or inline functions from this file, or you compile this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	29 // and link it with other works to produce a work based on this file,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	30 // this file does not by itself cause the resulting work to be covered by
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	31 // the GNU General Public License. However the source code for this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	32 // must still be made available in accordance with section (3) of the GNU
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	33 // General Public License v2.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	34 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	35 // This exception does not invalidate any other reasons why a work based
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	36 // on this file might be covered by the GNU General Public License.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	37 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2052 diff changeset	38 // ####ECOSGPLCOPYRIGHTEND####
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	39 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	40 //#####DESCRIPTIONBEGIN####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	41 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	42 // Author(s): dsm
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	43 // Contributors: dsm
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	44 // Date: 1998-03-20
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	45 // Description: Tests basic semaphore functionality.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	46 //####DESCRIPTIONEND####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	47 */
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	48
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	49 #include <cyg/hal/hal_arch.h> // CYGNUM_HAL_STACK_SIZE_TYPICAL
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	50
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	51 #include <cyg/kernel/kapi.h>
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	52
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	53 #include <cyg/infra/testcase.h>
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	54
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	55 #ifdef CYGFUN_KERNEL_API_C
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	56
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	57 #include "testaux.h"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	58
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	59 #define NTHREADS 2
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	60 #define STACKSIZE CYGNUM_HAL_STACK_SIZE_TYPICAL
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	61
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	62 static cyg_handle_t thread[NTHREADS];
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	63
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	64 static cyg_thread thread_obj[NTHREADS];
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	65 static char stack[NTHREADS][STACKSIZE];
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	66
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	67
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	68 static cyg_sem_t s0, s1, s2;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	69
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	70 static volatile cyg_ucount8 q = 0;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	71
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	72 static void entry0( cyg_addrword_t data )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	73 {
2052 ec1655a2f96e * tests/ksem1.c: Type fix to fix a compiler warning. asl parents: 210 diff changeset	74 cyg_count32 val;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	75
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	76 cyg_semaphore_wait(&s0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	77 CHECK( 1 == q++ );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	78 cyg_semaphore_post(&s1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	79 cyg_semaphore_wait(&s0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	80 CHECK( 3 == q++ );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	81 cyg_semaphore_peek(&s0, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	82 CHECK( 0 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	83 CHECK( ! cyg_semaphore_trywait(&s0) );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	84 cyg_semaphore_post(&s0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	85 CHECK( 4 == q++ );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	86 cyg_semaphore_peek(&s0, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	87 CHECK( 1 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	88 cyg_semaphore_post(&s0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	89 cyg_semaphore_peek(&s0, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	90 CHECK( 2 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	91 cyg_semaphore_post(&s1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	92 cyg_semaphore_peek(&s2, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	93 CHECK( 0 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	94 cyg_semaphore_wait(&s2);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	95 CHECK( 6 == q++ );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	96 CYG_TEST_PASS_FINISH("Kernel C API Semaphore 1 OK");
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	97 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	98
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	99 static void entry1( cyg_addrword_t data )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	100 {
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	101 cyg_count32 val;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	102
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	103 cyg_semaphore_peek(&s1, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	104 CHECK( 2 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	105 cyg_semaphore_wait(&s1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	106 cyg_semaphore_peek(&s1, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	107 CHECK( 1 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	108 cyg_semaphore_wait(&s1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	109 CHECK( 0 == q++ );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	110 cyg_semaphore_peek(&s0, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	111 CHECK( 0 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	112 cyg_semaphore_post(&s0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	113 cyg_semaphore_wait(&s1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	114 CHECK( 2 == q++ );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	115 cyg_semaphore_post(&s0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	116 cyg_semaphore_wait(&s1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	117 CHECK( 5 == q++ );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	118 cyg_semaphore_peek(&s0, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	119 CHECK( 2 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	120 CHECK( cyg_semaphore_trywait(&s0) );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	121 cyg_semaphore_peek(&s0, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	122 CHECK( 1 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	123 CHECK( cyg_semaphore_trywait(&s0) );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	124 cyg_semaphore_peek(&s0, &val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	125 CHECK( 0 == val);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	126 cyg_semaphore_post(&s2);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	127 cyg_semaphore_wait(&s0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	128 CYG_TEST_FAIL_FINISH("Not reached");
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	129 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	130
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	131 void ksem1_main( void )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	132 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	133 CYG_TEST_INIT();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	134
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	135 cyg_semaphore_init( &s0, 0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	136 cyg_semaphore_init( &s1, 2);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	137 cyg_semaphore_init( &s2, 0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	138
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	139 cyg_thread_create(4, entry0 , (cyg_addrword_t)0, "ksem1-0",
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	140 (void *)stack[0], STACKSIZE,&thread[0], &thread_obj[0]);
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	141 cyg_thread_resume(thread[0]);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	142
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	143 cyg_thread_create(4, entry1 , (cyg_addrword_t)1, "ksem1-1",
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	144 (void *)stack[1], STACKSIZE, &thread[1], &thread_obj[1]);
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	145 cyg_thread_resume(thread[1]);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	146
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	147 cyg_scheduler_start();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	148
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	149 CYG_TEST_FAIL_FINISH("Not reached");
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	150 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	151
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	152 externC void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	153 cyg_start( void )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	154 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	155 ksem1_main();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	156 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	157
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	158
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	159 #else /* def CYGFUN_KERNEL_API_C */
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	160 externC void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	161 cyg_start( void )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	162 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	163 CYG_TEST_INIT();
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	164 CYG_TEST_NA("Kernel C API layer disabled");
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	165 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	166 #endif /* def CYGFUN_KERNEL_API_C */
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	167
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	168 /* EOF ksem1.c */

Mercurial > ecos

annotate packages/kernel/current/tests/ksem1.c @ 2729:74dbf4c3f2e1 after-copyright-change-20090129