1 /******************************************************************************
4 * Project: GEnesis, PCI Gigabit Ethernet Adapter
5 * Version: $Revision: 1.12 $
6 * Date: $Date: 1999/11/22 13:38:51 $
7 * Purpose: High level timer functions.
9 ******************************************************************************/
11 /******************************************************************************
13 * (C)Copyright 1998,1999 SysKonnect,
14 * a business unit of Schneider & Koch & Co. Datensysteme GmbH.
16 * This program is free software; you can redistribute it and/or modify
17 * it under the terms of the GNU General Public License as published by
18 * the Free Software Foundation; either version 2 of the License, or
19 * (at your option) any later version.
21 * The information in this file is provided "AS IS" without warranty.
23 ******************************************************************************/
25 /******************************************************************************
30 * Revision 1.12 1999/11/22 13:38:51 cgoos
31 * Changed license header to GPL.
33 * Revision 1.11 1998/12/17 13:24:13 gklug
34 * fix: restart problem: do NOT destroy timer queue if init 1 is done
36 * Revision 1.10 1998/10/15 15:11:36 gklug
37 * fix: ID_sccs to SysKonnectFileId
39 * Revision 1.9 1998/09/15 15:15:04 cgoos
40 * Changed TRUE/FALSE to SK_TRUE/SK_FALSE
42 * Revision 1.8 1998/09/08 08:47:55 gklug
43 * add: init level handling
45 * Revision 1.7 1998/08/19 09:50:53 gklug
46 * fix: remove struct keyword from c-code (see CCC) add typedefs
48 * Revision 1.6 1998/08/17 13:43:13 gklug
49 * chg: Parameter will be union of 64bit para, 2 times SK_U32 or SK_PTR
51 * Revision 1.5 1998/08/14 07:09:14 gklug
54 * Revision 1.4 1998/08/07 12:53:46 gklug
55 * fix: first compiled version
57 * Revision 1.3 1998/08/07 09:31:53 gklug
60 * Revision 1.2 1998/08/07 09:31:02 gklug
61 * adapt functions to new c coding conventions
62 * rmv: "fast" handling
63 * chg: inserting of new timer in queue.
64 * chg: event queue generation when timer runs out
66 * Revision 1.1 1998/08/05 11:27:55 gklug
67 * first version: adapted from SMT
72 ******************************************************************************/
76 Event queue and dispatcher
78 static const char SysKonnectFileId[] =
79 "$Header: /usr56/projects/ge/schedule/sktimer.c,v 1.12 1999/11/22 13:38:51 cgoos Exp $" ;
81 #include "h/skdrv1st.h" /* Driver Specific Definitions */
82 #include "h/skdrv2nd.h" /* Adapter Control- and Driver specific Def. */
86 Event queue management.
96 /* Forward declaration */
97 static void timer_done(SK_AC *pAC,SK_IOC Ioc,int Restart);
101 * Inits the software timer
103 * needs to be called during Init level 1.
106 SK_AC *pAC, /* Adapters context */
107 SK_IOC Ioc, /* IoContext */
108 int Level) /* Init Level */
112 pAC->Tim.StQueue = 0 ;
116 SkTimerDone(pAC, Ioc);
124 * Stops a high level timer
125 * - If a timer is not in the queue the function returns normally, too.
128 SK_AC *pAC, /* Adapters context */
129 SK_IOC Ioc, /* IoContext */
130 SK_TIMER *pTimer) /* Timer Pointer to be started */
132 SK_TIMER **ppTimPrev ;
136 * remove timer from queue
138 pTimer->TmActive = SK_FALSE ;
139 if (pAC->Tim.StQueue == pTimer && !pTimer->TmNext) {
142 for (ppTimPrev = &pAC->Tim.StQueue ; (pTm = *ppTimPrev) ;
143 ppTimPrev = &pTm->TmNext ) {
146 * Timer found in queue
148 * - correct delta of the next timer
150 *ppTimPrev = pTm->TmNext ;
153 /* correct delta of next timer in queue */
154 pTm->TmNext->TmDelta += pTm->TmDelta ;
162 * Start a high level software timer
165 SK_AC *pAC, /* Adapters context */
166 SK_IOC Ioc, /* IoContext */
167 SK_TIMER *pTimer, /* Timer Pointer to be started */
168 SK_U32 Time, /* Time value */
169 SK_U32 Class, /* Event Class for this timer */
170 SK_U32 Event, /* Event Value for this timer */
171 SK_EVPARA Para) /* Event Parameter for this timer */
173 SK_TIMER **ppTimPrev ;
177 Time /= 16 ; /* input is uS, clock ticks are 16uS */
181 SkTimerStop(pAC,Ioc,pTimer) ;
183 pTimer->TmClass = Class ;
184 pTimer->TmEvent = Event ;
185 pTimer->TmPara = Para ;
186 pTimer->TmActive = SK_TRUE ;
188 if (!pAC->Tim.StQueue) {
189 /* First Timer to be started */
190 pAC->Tim.StQueue = pTimer ;
192 pTimer->TmDelta = Time ;
193 SkHwtStart(pAC,Ioc,Time) ;
200 timer_done(pAC,Ioc,0) ;
203 * find position in queue
206 for (ppTimPrev = &pAC->Tim.StQueue ; (pTm = *ppTimPrev) ;
207 ppTimPrev = &pTm->TmNext ) {
208 if (Delta + pTm->TmDelta > Time) {
210 /* Here the timer needs to be inserted. */
213 Delta += pTm->TmDelta ;
216 /* insert in queue */
217 *ppTimPrev = pTimer ;
218 pTimer->TmNext = pTm ;
219 pTimer->TmDelta = Time - Delta ;
222 /* There is a next timer
223 * -> correct its Delta value.
225 pTm->TmDelta -= pTimer->TmDelta ;
229 * start new with first
231 SkHwtStart(pAC,Ioc,pAC->Tim.StQueue->TmDelta) ;
236 SK_AC *pAC, /* Adapters context */
237 SK_IOC Ioc) /* IoContext */
239 timer_done(pAC,Ioc,1) ;
243 static void timer_done(
244 SK_AC *pAC, /* Adapters context */
245 SK_IOC Ioc, /* IoContext */
246 int Restart) /* Do we need to restart the Hardware timer ? */
250 SK_TIMER *pTComp ; /* Timer completed now now */
251 SK_TIMER **ppLast ; /* Next field of Last timer to be deq */
254 Delta = SkHwtRead(pAC,Ioc) ;
255 ppLast = &pAC->Tim.StQueue ;
256 pTm = pAC->Tim.StQueue ;
257 while (pTm && !Done) {
258 if (Delta >= pTm->TmDelta) {
260 pTm->TmActive = SK_FALSE ;
261 Delta -= pTm->TmDelta ;
262 ppLast = &pTm->TmNext ;
265 /* We found the first timer that did not run out */
266 pTm->TmDelta -= Delta ;
273 * pTm points to the first Timer that did not run out.
274 * StQueue points to the first Timer that run out.
277 for ( pTComp = pAC->Tim.StQueue ; pTComp ; pTComp = pTComp->TmNext) {
278 SkEventQueue(pAC,pTComp->TmClass, pTComp->TmEvent,
282 /* Set head of timer queue to the first timer that did not run out */
283 pAC->Tim.StQueue = pTm ;
285 if (Restart && pAC->Tim.StQueue) {
286 /* Restart HW timer */
287 SkHwtStart(pAC,Ioc,pAC->Tim.StQueue->TmDelta) ;