ecos-v2_0-branch: packages/kernel/current/src/common/clock.cxx annotate

annotate packages/kernel/current/src/common/clock.cxx @ 210:d2c90368aeef

Merge from eCos master repository on 2002-05-23-21:39:14-BST

author	jlarmour
date	Thu, 23 May 2002 22:59:51 +0000
parents	e0c0827131d1
children	b77e86276ec3

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 //
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	3 // common/clock.cxx
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	4 //
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	5 // Clock class implementations
0 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 //==========================================================================
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 diff changeset	8 //####ECOSGPLCOPYRIGHTBEGIN####
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 diff changeset	9 // -------------------------------------------
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 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: 174 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: 174 diff changeset	12 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 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: 174 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: 174 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: 174 diff changeset	16 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 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: 174 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: 174 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: 174 diff changeset	20 // for more details.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 diff changeset	21 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 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: 174 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: 174 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: 174 diff changeset	25 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 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: 174 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: 174 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: 174 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: 174 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: 174 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: 174 diff changeset	32 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 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: 174 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: 174 diff changeset	35 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 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: 174 diff changeset	38 // -------------------------------------------
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 174 diff changeset	39 //####ECOSGPLCOPYRIGHTEND####
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	40 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	41 //#####DESCRIPTIONBEGIN####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	42 //
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	43 // Author(s): nickg
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	44 // Contributors: nickg
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	45 // Date: 1997-09-15
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	46 // Purpose: Clock class implementation
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	47 // Description: This file contains the definitions of the counter,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	48 // clock and alarm class member functions that are common
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	49 // to all clock implementations.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	50 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	51 //####DESCRIPTIONEND####
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 //==========================================================================
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 #include <pkgconf/kernel.h>
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 <cyg/kernel/ktypes.h> // base kernel types
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	58 #include <cyg/infra/cyg_trac.h> // tracing macros
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	59 #include <cyg/infra/cyg_ass.h> // assertion macros
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	60
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	61 #include <cyg/kernel/clock.hxx> // our header
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	62
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	63 #include <cyg/kernel/sched.hxx> // scheduler definitions
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	64 #include <cyg/kernel/thread.hxx> // thread definitions
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	65 #include <cyg/kernel/intr.hxx> // interrupt definitions
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 #include <cyg/kernel/sched.inl> // scheduler inlines
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	68 #include <cyg/kernel/clock.inl> // Clock inlines
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 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	71 // Static variables
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	72
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	73 #ifdef CYGVAR_KERNEL_COUNTERS_CLOCK
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	74
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	75 Cyg_Clock *Cyg_Clock::real_time_clock = NULL; // System real time clock
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	76
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	77 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	78
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	79 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	80 // Constructor for counter object
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	81
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	82 Cyg_Counter::Cyg_Counter(
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	83 cyg_uint32 incr
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	84 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	85 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	86 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	87
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	88 counter = 0;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	89 increment = incr;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	90
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	91 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	92
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	93 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	94 // Destructor for Counter object
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	95
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	96 Cyg_Counter::~Cyg_Counter()
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 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	99
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	100
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	101 }
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 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	104 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	105
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	106 #ifdef CYGDBG_USE_ASSERTS
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	107
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 66 diff changeset	108 cyg_bool Cyg_Counter::check_this( cyg_assert_class_zeal zeal) const
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	109 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	110 // check that we have a non-NULL pointer first
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	111 if( this == NULL ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	112
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	113 switch( zeal )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	114 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	115 case cyg_system_test:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	116 case cyg_extreme:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	117 case cyg_thorough:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	118 case cyg_quick:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	119 case cyg_trivial:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	120 case cyg_none:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	121 default:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	122 break;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	123 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	124
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	125 return true;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	126 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	127
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	128 #endif
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 // Counter tick function
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 void Cyg_Counter::tick( cyg_uint32 ticks )
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_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	136
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	137 CYG_ASSERTCLASS( this, "Bad counter object" );
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 // Increment the counter in a loop so we process
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	140 // each tick separately. This is easier than trying
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	141 // to cope with a range of increments.
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 while( ticks-- )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	144 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	145 Cyg_Scheduler::lock();
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 // increment the counter, note that it is
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	148 // allowed to wrap.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	149 counter += increment;
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 // now check for any expired alarms
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	152
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	153 Cyg_Alarm_List *alarm_list_ptr; // pointer to list
0 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 #if defined(CYGIMP_KERNEL_COUNTERS_SINGLE_LIST)
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 alarm_list_ptr = &alarm_list;
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 #elif defined(CYGIMP_KERNEL_COUNTERS_MULTI_LIST)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	160
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	161 // With multiple lists, each one contains only the alarms
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	162 // that will expire at a given tick modulo the list number.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	163 // So we only have a fraction of the alarms to check here.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	164
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	165 alarm_list_ptr = &(alarm_list[
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	166 (counter/increment) % CYGNUM_KERNEL_COUNTERS_MULTI_LIST_SIZE ] );
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 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	169 #error "No CYGIMP_KERNEL_COUNTERS_x_LIST config"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	170 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	171
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	172 // Now that we have the list pointer, we can use common code for
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	173 // both list oragnizations.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	174
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	175 #ifdef CYGIMP_KERNEL_COUNTERS_SORT_LIST
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	176
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	177 // With a sorted alarm list, we can simply pick alarms off the
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	178 // front of the list until we find one that is in the future.
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	179
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	180 while( !alarm_list_ptr->empty() )
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	181 {
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	182 Cyg_Alarm *alarm = alarm_list_ptr->get_head();
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	183
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	184 CYG_ASSERTCLASS(alarm, "Bad alarm in counter list" );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	185
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	186 if( alarm->trigger <= counter )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	187 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	188 // remove alarm from list
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	189 alarm_list_ptr->rem_head();
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	190
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	191 if( alarm->interval != 0 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	192 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	193 // The alarm has a retrigger interval.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	194 // Reset the trigger time and requeue
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	195 // the alarm.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	196 alarm->trigger += alarm->interval;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	197 add_alarm( alarm );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	198 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	199 else alarm->enabled = false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	200
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	201 CYG_INSTRUMENT_ALARM( CALL, this, alarm );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	202
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	203 // call alarm function
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	204 alarm->alarm(alarm, alarm->data);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	205
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	206 // all done, loop
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	207 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	208 else break;
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	209
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	210 }
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	211 #else
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	212
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	213 // With an unsorted list, we must scan the whole list for
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	214 // candidates. We move the whole list to a temporary location
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	215 // before doing this so that we are not disturbed by new
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	216 // alarms being added to the list. As we consider and
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	217 // eliminate alarms we put them onto the done_list and at the
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	218 // end we then move it back to where it belongs.
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	219
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	220 Cyg_Alarm_List done_list;
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	221
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	222 Cyg_Alarm_List alarm_list;
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	223
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	224 alarm_list.merge( *alarm_list_ptr );
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	225
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	226 while( !alarm_list.empty() )
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	227 {
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	228 Cyg_Alarm *alarm = alarm_list.rem_head();
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	229
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	230 CYG_ASSERTCLASS(alarm, "Bad alarm in counter list" );
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	231
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	232 if( alarm->trigger <= counter )
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	233 {
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	234 if( alarm->interval != 0 )
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	235 {
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	236 // The alarm has a retrigger interval.
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	237 // Reset the trigger time and requeue
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	238 // the alarm.
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	239 alarm->trigger += alarm->interval;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	240 add_alarm( alarm );
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	241 }
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	242 else alarm->enabled = false;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	243
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	244 CYG_INSTRUMENT_ALARM( CALL, this, alarm );
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	245
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	246 // call alarm function
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	247 alarm->alarm(alarm, alarm->data);
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	248
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	249 // all done, loop
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	250 }
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	251 else
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	252 {
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	253 // add unused alarm to done list.
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	254 done_list.add_tail(alarm);
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	255 }
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	256 }
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	257
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	258 // Return done list to real list. If any alarms have been
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	259 // added to the alarm list while we have been scanning then
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	260 // the done list will be added behind them.
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	261
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	262 alarm_list_ptr->merge( done_list );
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	263
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	264 #endif
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	265 Cyg_Scheduler::unlock();
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	266
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	267 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	268
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	269 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	270
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	271 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	272 // Add an alarm to this counter
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	273
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	274 void Cyg_Counter::add_alarm( Cyg_Alarm *alarm )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	275 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	276 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	277
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	278 CYG_ASSERTCLASS( this, "Bad counter object" );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	279 CYG_ASSERTCLASS( alarm, "Bad alarm passed" );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	280
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	281 Cyg_Scheduler::lock();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	282
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	283 // set this now to allow an immediate handler call to manipulate
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	284 // this alarm sensibly.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	285 alarm->enabled = true;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	286
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	287 // Check here for an alarm that triggers now or in the past and
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	288 // call its alarm function immediately.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	289 if( alarm->trigger <= counter )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	290 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	291 CYG_INSTRUMENT_ALARM( CALL, this, alarm );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	292
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	293 // call alarm function. Note that this is being
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	294 // called here before the add_alarm has returned.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	295 // Note that this function may disable the alarm.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	296
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	297 alarm->alarm(alarm, alarm->data);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	298
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	299 // Note that this extra check on alarm->enabled is in case the
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	300 // handler function disables this alarm!
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	301 if( alarm->interval != 0 && alarm->enabled )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	302 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	303 // The alarm has a retrigger interval.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	304 // Reset the trigger interval and drop
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	305 // through to queue it.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	306 alarm->trigger += alarm->interval;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	307 // ensure the next alarm time is in our future, and in phase
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	308 // with the original time requested.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	309 alarm->synchronize();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	310 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	311 else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	312 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	313 // The alarm is all done with, disable it
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	314 // unlock and return.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	315 alarm->enabled = false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	316 Cyg_Scheduler::unlock();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	317 return;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	318 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	319 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	320
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	321 CYG_INSTRUMENT_ALARM( ADD, this, alarm );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	322
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	323 // Find the pointer to the relevant list _after_ a retrigger
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	324 // alarm has been given its new trigger time.
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	325
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	326 Cyg_Alarm_List *alarm_list_ptr; // pointer to list
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	327
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	328 #if defined(CYGIMP_KERNEL_COUNTERS_SINGLE_LIST)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	329
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	330 alarm_list_ptr = &alarm_list;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	331
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	332 #elif defined(CYGIMP_KERNEL_COUNTERS_MULTI_LIST)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	333
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	334 // Each alarm must go into the list that covers the tick that is
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	335 // going to happen _after_ the trigger time (or at it if trigger
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	336 // happens to fall on a tick.
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	337
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	338 alarm_list_ptr = &(alarm_list[
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	339 ((alarm->trigger+increment-1)/increment) %
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	340 CYGNUM_KERNEL_COUNTERS_MULTI_LIST_SIZE ] );
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	341
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	342 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	343 #error "No CYGIMP_KERNEL_COUNTERS_x_LIST config"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	344 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	345
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	346 #ifdef CYGIMP_KERNEL_COUNTERS_SORT_LIST
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	347
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	348 // Now that we have the list pointer, we can use common code for
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	349 // both list oragnizations.
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	350
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	351 Cyg_Alarm *list_alarm = alarm_list_ptr->get_head();
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	352
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	353 if( list_alarm != NULL )
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	354 do
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	355 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	356 CYG_ASSERTCLASS(list_alarm, "Bad alarm in counter list" );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	357
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	358 // The alarms are in ascending trigger order. When we
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	359 // find an alarm that is later than us, we go in front of
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	360 // it.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	361
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	362 if( list_alarm->trigger > alarm->trigger )
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	363 {
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	364 alarm_list_ptr->insert( list_alarm, alarm );
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	365 break;
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	366 }
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	367
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	368 list_alarm = list_alarm->get_next();
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	369
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	370 } while( list_alarm != alarm_list_ptr->get_head() );
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	371
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	372 else
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	373 alarm_list_ptr->add_tail( alarm );
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	374
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	375 #else
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	376
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	377 alarm_list_ptr->add_tail( alarm );
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	378
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	379 #endif
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	380
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	381 Cyg_Scheduler::unlock();
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	382 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	383
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	384 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	385 // Remove an alarm from this counter
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	386
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	387 void Cyg_Counter::rem_alarm( Cyg_Alarm *alarm )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	388 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	389 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	390
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	391 CYG_ASSERTCLASS( this, "Bad counter object" );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	392 CYG_ASSERTCLASS( alarm, "Bad alarm passed" );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	393
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	394 Cyg_Alarm_List *alarm_list_ptr; // pointer to list
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	395
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	396 #if defined(CYGIMP_KERNEL_COUNTERS_SINGLE_LIST)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	397
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	398 alarm_list_ptr = &alarm_list;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	399
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	400 #elif defined(CYGIMP_KERNEL_COUNTERS_MULTI_LIST)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	401
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	402 alarm_list_ptr = &(alarm_list[
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	403 ((alarm->trigger+increment-1)/increment) %
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	404 CYGNUM_KERNEL_COUNTERS_MULTI_LIST_SIZE ] );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	405
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	406 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	407 #error "No CYGIMP_KERNEL_COUNTERS_x_LIST config"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	408 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	409
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	410 // Now that we have the list pointer, we can use common code for
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	411 // both list organizations.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	412
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	413 Cyg_Scheduler::lock();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	414
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	415 CYG_INSTRUMENT_ALARM( REM, this, alarm );
148 8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	416
8f2f7615e727 Merge from eCos master repository on 2001-01-12-06:43:03-GMT jlarmour parents: 132 diff changeset	417 alarm_list_ptr->remove( alarm );
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	418
151 25e238959bae Merge from eCos master repository on 2001-02-12-23:44:24-GMT jlarmour parents: 148 diff changeset	419 alarm->enabled = false;
25e238959bae Merge from eCos master repository on 2001-02-12-23:44:24-GMT jlarmour parents: 148 diff changeset	420
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	421 Cyg_Scheduler::unlock();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	422 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	423
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	424 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	425 // Constructor for clock object
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	426
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	427 Cyg_Clock::Cyg_Clock(
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	428 cyg_resolution res
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	429 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	430 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	431 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	432
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	433 resolution = res;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	434 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	435
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	436 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	437 // Destructor for Clock objects
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	438
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	439 Cyg_Clock::~Cyg_Clock()
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	440 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	441 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	442
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	443 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	444
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	445 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	446 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	447
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	448 #ifdef CYGDBG_USE_ASSERTS
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	449
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 66 diff changeset	450 cyg_bool Cyg_Clock::check_this( cyg_assert_class_zeal zeal) const
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	451 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	452 // check that we have a non-NULL pointer first
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	453 if( this == NULL ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	454
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	455 switch( zeal )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	456 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	457 case cyg_system_test:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	458 case cyg_extreme:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	459 case cyg_thorough:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	460 case cyg_quick:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	461 case cyg_trivial:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	462 case cyg_none:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	463 default:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	464 break;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	465 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	466
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	467 return true;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	468 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	469
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	470 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	471
64 c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	472 // -------------------------------------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	473 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	474 // Clock Converters: split a rational into 4 factors to try to prevent
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	475 // overflow whilst retaining reasonable accuracy.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	476 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	477 // typically we get numbers like 1,000,000 for ns_per and
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	478 // 100 and 1,000,000,000 for the dividend and divisor.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	479 // So we want answers like 1/10 and 10/1 out of these routines.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	480
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	481 static void construct_converter( Cyg_Clock::converter *pcc,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	482 cyg_uint64 m1, cyg_uint64 d1,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	483 cyg_uint64 m2, cyg_uint64 d2 )
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	484 {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	485 cyg_uint64 upper, lower;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	486 unsigned int i;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	487 static cyg_uint16 primes[] = {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	488 3,5,7,11,13,17,19,23,29,31,37,41,43,47,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	489 53,59,61,67,71,73,79,83,89,97,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	490 101,103,107,109,113,127,131,137,139,149,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	491 151,157,163,167,173,179,181,191,193,197,199,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	492 239, // for 1,111,111
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	493 541, // for 10,101,011
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	494 1667, // for 8,333,333
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	495 };
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	496
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	497 int rounding = 0;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	498
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	499 // Here we assume that our workings will fit in a 64; the point is to
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	500 // allow calculations with a number of ticks that may be large.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	501 upper = m1 * m2;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	502 lower = d1 * d2;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	503 #ifdef CYGDBG_USE_ASSERTS
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	504 cyg_uint64 save_upper = upper;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	505 cyg_uint64 save_lower = lower;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	506 #endif
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	507
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	508 retry_rounding:
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	509 // First strip out common powers of 2
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	510 while ( (0 == (1 & upper)) && ( 0 == (1 & lower)) ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	511 upper >>= 1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	512 lower >>= 1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	513 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	514
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	515 // then common factors - use lazy table above
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	516 for ( i = 0 ; i < (sizeof( primes )/sizeof( primes[0] )); i++ ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	517 cyg_uint64 j, k, p = (cyg_uint64)(primes[i]);
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	518 j = upper / p;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	519 while ( j * p == upper ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	520 k = lower / p;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	521 if ( k * p != lower )
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	522 break;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	523 upper = j;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	524 lower = k;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	525 j = upper / p;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	526 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	527 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	528
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	529 m1 = upper;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	530 d1 = lower;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	531 m2 = 1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	532 d2 = 1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	533
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	534 if ( m1 > 0x10000 ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	535 // only bother if there are more than 16 bits consumed here
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	536
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	537 // now move powers of 2 from d1 to d2
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	538 // keeping them the same order of magnitude
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	539 while ( (0 == (1 & d1)) && (d2 < d1) ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	540 d1 >>= 1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	541 d2 <<= 1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	542 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	543
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	544 // and factors from the table - go too far, if anything
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	545 int cont = (d2 < d1);
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	546 for ( i = 0 ; cont && (i < (sizeof( primes )/sizeof( primes[0] ))); i++ ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	547 cyg_uint64 k, p = (cyg_uint64)(primes[i]);
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	548 k = d1 / p;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	549 while ( cont && ((k * p) == d1) ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	550 // we can extract a prime
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	551 d1 = k;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	552 d2 *= p;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	553 k = d1 / p;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	554 cont = (d2 < d1);
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	555 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	556 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	557
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	558 // move powers of 2 from m1 to m2 so long as we do not go less than d1
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	559 while ( (0 == (1 & m1)) && (m2 < m1) && (m1 > (d1 << 5)) ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	560 m1 >>= 1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	561 m2 <<= 1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	562 if ( m1 < 0x10000 )
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	563 break;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	564 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	565
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	566 // and factors from the table - ensure m1 stays well larger than d1
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	567 cont = ((m2 < m1) && (m1 > (d1 << 4)) && (m1 > 0x10000));
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	568 for ( i = 0 ; cont && (i < (sizeof( primes )/sizeof( primes[0] ))); i++ ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	569 cyg_uint64 k, p = (cyg_uint64)(primes[i]);
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	570 k = m1 / p;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	571 cont = cont && (k > (d1 << 4) && (k > 0x10000));
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	572 while ( cont && ((k * p) == m1) ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	573 // we can extract a prime
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	574 m1 = k;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	575 m2 *= p;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	576 k = m1 / p; // examine k for getting too small
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	577 cont = ((m2 < m1) && (k > (d1 << 4)) && (k > 0x10000));
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	578 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	579 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	580
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	581 // if, after all that, m1 odd and unchanged, and too large,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	582 // decrement it just the once and try again: then try it
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	583 // incremented once.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	584 if ( (m1 & 1) && (m1 == upper) && (m1 > 0x10000) && (rounding < 2) ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	585 CYG_ASSERT( 1 == m2, "m2 should be 1 to try rounding" );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	586 m1--;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	587 upper = m1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	588 rounding++;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	589 goto retry_rounding;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	590 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	591 // likewise for d1 - each of the pair can be odd only once each
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	592 if ( (d1 & 1) && (d1 == lower) && (d1 > 0x10000) && (rounding < 2) ) {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	593 CYG_ASSERT( 1 == d2, "d2 should be 1 to try rounding" );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	594 d1--;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	595 lower = d1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	596 rounding++;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	597 goto retry_rounding;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	598 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	599 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	600
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	601 CYG_ASSERT( 0 != m1, "m1 zero" );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	602 CYG_ASSERT( 0 != m2, "m2 zero" );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	603 CYG_ASSERT( 0 != d1, "d1 zero" );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	604 CYG_ASSERT( 0 != d2, "d2 zero" );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	605 CYG_ASSERT( rounding \|\| save_upper/save_lower == (m1 * m2)/(d1 * d2),
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	606 "Unequal in forwards direction" );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	607 CYG_ASSERT( rounding \|\| save_lower/save_upper == (d1 * d2)/(m1 * m2),
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	608 "Unequal in reverse direction" );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	609
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	610 pcc->mul1 = m1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	611 pcc->div1 = d1;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	612 pcc->mul2 = m2;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	613 pcc->div2 = d2;
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	614 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	615
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	616 // other to clocks is (other * ns_per * dividend / divisor)
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	617 void Cyg_Clock::get_other_to_clock_converter(
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	618 cyg_uint64 ns_per_other_tick,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	619 struct converter *pcc )
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	620 {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	621 construct_converter( pcc,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	622 ns_per_other_tick, 1,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	623 resolution.divisor, resolution.dividend );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	624 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	625
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	626 // clocks to other is (ticks * divisor / dividend / ns_per)
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	627 void Cyg_Clock::get_clock_to_other_converter(
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	628 cyg_uint64 ns_per_other_tick,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	629 struct converter *pcc )
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	630 {
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	631 construct_converter( pcc,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	632 1, ns_per_other_tick,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	633 resolution.dividend, resolution.divisor );
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	634 }
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	635
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 34 diff changeset	636
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	637 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	638 // Constructor for alarm object
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	639
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	640 Cyg_Alarm::Cyg_Alarm(
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	641 Cyg_Counter *c, // Attached to this counter
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	642 cyg_alarm_fn *a, // Call-back function
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	643 CYG_ADDRWORD d // Call-back data
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	644 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	645 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	646 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	647
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	648 counter = c;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	649 alarm = a;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	650 data = d;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	651 trigger = 0;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	652 interval = 0;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	653 enabled = false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	654
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	655 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	656
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	657 Cyg_Alarm::Cyg_Alarm(){}
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	658
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	659 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	660 // Destructor
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	661
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	662 Cyg_Alarm::~Cyg_Alarm()
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	663 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	664 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	665
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	666 disable();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	667 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	668
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	669 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	670 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	671
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	672 #ifdef CYGDBG_USE_ASSERTS
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	673
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 66 diff changeset	674 cyg_bool Cyg_Alarm::check_this( cyg_assert_class_zeal zeal) const
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	675 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	676 // check that we have a non-NULL pointer first
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	677 if( this == NULL ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	678
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	679 switch( zeal )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	680 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	681 case cyg_system_test:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	682 case cyg_extreme:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	683 case cyg_thorough:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	684 if( trigger != 0 && !enabled ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	685 case cyg_quick:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	686 case cyg_trivial:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	687 case cyg_none:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	688 default:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	689 break;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	690 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	691
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	692 return true;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	693 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	694
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	695 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	696
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	697 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	698 // Initialize Alarm and enable
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	699
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	700 void Cyg_Alarm::initialize(
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	701 cyg_tick_count t, // Absolute trigger time
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	702 cyg_tick_count i // Relative retrigger interval
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	703 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	704 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	705 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	706
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	707 // If already enabled, remove from counter
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	708
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	709 if( enabled ) counter->rem_alarm(this);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	710
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	711 CYG_INSTRUMENT_ALARM( INIT, this, 0 );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	712 CYG_INSTRUMENT_ALARM( TRIGGER,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	713 ((cyg_uint32 *)&t)[0],
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	714 ((cyg_uint32 *)&t)[1] );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	715 CYG_INSTRUMENT_ALARM( INTERVAL,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	716 ((cyg_uint32 *)&i)[0],
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	717 ((cyg_uint32 *)&i)[1] );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	718
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	719 trigger = t;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	720 interval = i;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	721
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	722 counter->add_alarm(this);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	723 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	724
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	725 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	726 // Synchronize with a past alarm stream that had been disabled,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	727 // bring past times into synch, and the like.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	728
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	729 void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	730 Cyg_Alarm::synchronize( void )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	731 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	732 if( interval != 0 ) {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	733 // This expression sets the trigger to the next whole interval
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	734 // at or after the current time. This means that alarms will
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	735 // continue at the same intervals as if they had never been
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	736 // disabled. The alternative would be to just set trigger to
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	737 // (counter->counter + interval), but this is less satisfying
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	738 // than preserving the original intervals. That behaviour can
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	739 // always be obtained by using initialize() rather than
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	740 // enable(), while the current behaviour would be more
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	741 // difficult to achieve that way.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	742 cyg_tick_count d;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	743 d = counter->current_value() + interval - trigger;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	744 if ( d > interval ) {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	745 // then trigger was in the past, so resynchronize
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	746 trigger += interval * ((d - 1) / interval );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	747 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	748 // otherwise, we were just set up, so no worries.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	749 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	750 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	751
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	752 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	753 // Ensure alarm enabled
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	754
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	755 void Cyg_Alarm::enable()
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	756 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	757 if( !enabled )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	758 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	759 // ensure the alarm time is in our future:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	760 synchronize();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	761 enabled = true;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	762 counter->add_alarm(this);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	763 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	764 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	765
115 6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	766 // -------------------------------------------------------------------------
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	767 // Get the current time values from the alarm
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	768
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	769 void Cyg_Alarm::get_times(
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	770 cyg_tick_count *t, // Next trigger time
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	771 cyg_tick_count *i // Current interval
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	772 )
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	773 {
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	774 // Lock the scheduler while we do this to avoid
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	775 // race conditions.
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	776 Cyg_Scheduler::lock();
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	777
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	778 if( t != NULL ) *t = trigger;
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	779 if( i != NULL ) *i = interval;
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	780
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	781 Cyg_Scheduler::unlock();
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	782 }
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	783
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	784 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	785 // System clock object
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	786
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	787 #ifdef CYGVAR_KERNEL_COUNTERS_CLOCK
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	788
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	789 class Cyg_RealTimeClock
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	790 : public Cyg_Clock
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	791 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	792 Cyg_Interrupt interrupt;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	793
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	794 static cyg_uint32 isr(cyg_vector vector, CYG_ADDRWORD data);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	795
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	796 static void dsr(cyg_vector vector, cyg_ucount32 count, CYG_ADDRWORD data);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	797
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	798 Cyg_RealTimeClock();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	799
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	800 static Cyg_RealTimeClock rtc;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	801 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	802
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	803 Cyg_Clock::cyg_resolution rtc_resolution = CYGNUM_KERNEL_COUNTERS_RTC_RESOLUTION;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	804
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	805 //Cyg_RealTimeClock Cyg_RealTimeClock::rtc __attribute__((init_priority (1)));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	806
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	807 Cyg_RealTimeClock Cyg_RealTimeClock::rtc CYG_INIT_PRIORITY( CLOCK );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	808
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	809 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	810
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	811 Cyg_RealTimeClock::Cyg_RealTimeClock()
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	812 : Cyg_Clock(rtc_resolution),
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	813 interrupt(CYGNUM_HAL_INTERRUPT_RTC, 1, (CYG_ADDRWORD)this, isr, dsr)
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	814 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	815 CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	816
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	817 HAL_CLOCK_INITIALIZE( CYGNUM_KERNEL_COUNTERS_RTC_PERIOD );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	818
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	819 interrupt.attach();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	820
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	821 interrupt.unmask_interrupt(CYGNUM_HAL_INTERRUPT_RTC);
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	822
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	823 Cyg_Clock::real_time_clock = this;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	824 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	825
34 29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	826 #if defined(CYGVAR_KERNEL_COUNTERS_CLOCK_LATENCY) && defined(HAL_CLOCK_LATENCY)
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	827 cyg_tick_count total_clock_latency, total_clock_interrupts;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	828 cyg_int32 min_clock_latency = 0x7FFFFFFF;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	829 cyg_int32 max_clock_latency = 0;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	830 bool measure_clock_latency = false;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	831 #endif
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	832
34 29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	833 #if defined(CYGVAR_KERNEL_COUNTERS_CLOCK_DSR_LATENCY)
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	834 cyg_tick_count total_clock_dsr_latency, total_clock_dsr_calls;
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	835 cyg_int32 min_clock_dsr_latency = 0x7FFFFFFF;
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	836 cyg_int32 max_clock_dsr_latency = 0;
66 bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT jlarmour parents: 64 diff changeset	837 cyg_uint32 clock_dsr_start = 0;
34 29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	838 #endif
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	839
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	840 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	841
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	842 cyg_uint32 Cyg_RealTimeClock::isr(cyg_vector vector, CYG_ADDRWORD data)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	843 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	844 // CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	845
34 29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	846 #if defined(CYGVAR_KERNEL_COUNTERS_CLOCK_LATENCY) && defined(HAL_CLOCK_LATENCY)
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	847 if (measure_clock_latency) {
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	848 cyg_int32 delta;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	849 HAL_CLOCK_LATENCY(&delta);
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	850 // Note: Ignore a latency of 0 when finding min_clock_latency.
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	851 if (delta > 0) {
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	852 // Valid delta measured
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	853 total_clock_latency += delta;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	854 total_clock_interrupts++;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	855 if (min_clock_latency > delta) min_clock_latency = delta;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	856 if (max_clock_latency < delta) max_clock_latency = delta;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	857 }
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	858 }
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	859 #endif
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	860
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	861 CYG_INSTRUMENT_CLOCK( ISR, 0, 0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	862
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	863 HAL_CLOCK_RESET( CYGNUM_HAL_INTERRUPT_RTC, CYGNUM_KERNEL_COUNTERS_RTC_PERIOD );
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	864
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	865 Cyg_Interrupt::acknowledge_interrupt(CYGNUM_HAL_INTERRUPT_RTC);
34 29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	866
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	867 #if defined(CYGVAR_KERNEL_COUNTERS_CLOCK_DSR_LATENCY)
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	868 HAL_CLOCK_READ(&clock_dsr_start);
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	869 #endif
18 7253dcc42a09 Merge from eCos master repository on 1999-06-25-15:31:50-BST jlarmour parents: 2 diff changeset	870 return Cyg_Interrupt::CALL_DSR\|Cyg_Interrupt::HANDLED;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	871 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	872
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	873 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	874
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	875 void Cyg_RealTimeClock::dsr(cyg_vector vector, cyg_ucount32 count, CYG_ADDRWORD data)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	876 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	877 // CYG_REPORT_FUNCTION();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	878
210 d2c90368aeef Merge from eCos master repository on 2002-05-23-21:39:14-BST jlarmour parents: 208 diff changeset	879 #if defined(CYGVAR_KERNEL_COUNTERS_CLOCK_DSR_LATENCY) && defined(HAL_CLOCK_LATENCY)
34 29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	880 if (measure_clock_latency) {
174 38892b97b685 Merge from eCos master repository on 2001-07-28-00:17:32-BST jlarmour parents: 151 diff changeset	881 cyg_int32 delta;
38892b97b685 Merge from eCos master repository on 2001-07-28-00:17:32-BST jlarmour parents: 151 diff changeset	882 HAL_CLOCK_READ((cyg_uint32 *)&delta);
34 29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	883 delta -= clock_dsr_start;
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	884 // Note: Ignore a latency of <= 0 when finding min_clock_latency.
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	885 if (delta > 0 ) {
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	886 // Valid delta measured
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	887 total_clock_dsr_latency += delta;
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	888 total_clock_dsr_calls++;
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	889 if (min_clock_dsr_latency > delta) min_clock_dsr_latency = delta;
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	890 if (max_clock_dsr_latency < delta) max_clock_dsr_latency = delta;
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	891 }
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	892 }
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	893 #endif
29bc183297e1 Merge from eCos master repository on 1999-09-02-16:26:10-BST jlarmour parents: 18 diff changeset	894
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	895 Cyg_RealTimeClock rtc = (Cyg_RealTimeClock )data;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	896
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	897 CYG_INSTRUMENT_CLOCK( TICK_START,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	898 rtc->current_value_lo(),
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	899 rtc->current_value_hi());
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	900
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	901 rtc->tick( count );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	902
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	903 #ifdef CYGSEM_KERNEL_SCHED_TIMESLICE
132 0ae0bc38e387 Merge from eCos master repository on 2000-10-31-00:30:36-GMT jlarmour parents: 115 diff changeset	904 #if 0 == CYGINT_KERNEL_SCHEDULER_UNIQUE_PRIORITIES
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	905
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	906 // If timeslicing is enabled, call the scheduler to
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	907 // handle it. But not if we have unique priorities.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	908
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	909 Cyg_Scheduler::scheduler.timeslice();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	910
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	911 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	912 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	913
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	914 CYG_INSTRUMENT_CLOCK( TICK_END,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	915 rtc->current_value_lo(),
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	916 rtc->current_value_hi());
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	917
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	918 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	919
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	920 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	921
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	922 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	923 // EOF common/clock.cxx

Mercurial > ecos-v2_0-branch

annotate packages/kernel/current/src/common/clock.cxx @ 210:d2c90368aeef