blob: 6893b3ed65fe4b6f9d2082ed99a7346e5a370c35 [file] [log] [blame]
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001/*
2 * Completely Fair Scheduling (CFS) Class (SCHED_NORMAL/SCHED_BATCH)
3 *
4 * Copyright (C) 2007 Red Hat, Inc., Ingo Molnar <mingo@redhat.com>
5 *
6 * Interactivity improvements by Mike Galbraith
7 * (C) 2007 Mike Galbraith <efault@gmx.de>
8 *
9 * Various enhancements by Dmitry Adamushko.
10 * (C) 2007 Dmitry Adamushko <dmitry.adamushko@gmail.com>
11 *
12 * Group scheduling enhancements by Srivatsa Vaddagiri
13 * Copyright IBM Corporation, 2007
14 * Author: Srivatsa Vaddagiri <vatsa@linux.vnet.ibm.com>
15 *
16 * Scaled math optimizations by Thomas Gleixner
17 * Copyright (C) 2007, Thomas Gleixner <tglx@linutronix.de>
Peter Zijlstra21805082007-08-25 18:41:53 +020018 *
19 * Adaptive scheduling granularity, math enhancements by Peter Zijlstra
20 * Copyright (C) 2007 Red Hat, Inc., Peter Zijlstra <pzijlstr@redhat.com>
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020021 */
22
Arjan van de Ven97455122008-01-25 21:08:34 +010023#include <linux/latencytop.h>
24
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020025/*
Peter Zijlstra21805082007-08-25 18:41:53 +020026 * Targeted preemption latency for CPU-bound tasks:
Zou Nan hai722aab02007-11-26 21:21:49 +010027 * (default: 20ms * (1 + ilog(ncpus)), units: nanoseconds)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020028 *
Peter Zijlstra21805082007-08-25 18:41:53 +020029 * NOTE: this latency value is not the same as the concept of
Ingo Molnard274a4c2007-10-15 17:00:14 +020030 * 'timeslice length' - timeslices in CFS are of variable length
31 * and have no persistent notion like in traditional, time-slice
32 * based scheduling concepts.
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020033 *
Ingo Molnard274a4c2007-10-15 17:00:14 +020034 * (to see the precise effective timeslice length of your workload,
35 * run vmstat and monitor the context-switches (cs) field)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020036 */
Ingo Molnar19978ca2007-11-09 22:39:38 +010037unsigned int sysctl_sched_latency = 20000000ULL;
Ingo Molnar2bd8e6d2007-10-15 17:00:02 +020038
39/*
Peter Zijlstrab2be5e92007-11-09 22:39:37 +010040 * Minimal preemption granularity for CPU-bound tasks:
Zou Nan hai722aab02007-11-26 21:21:49 +010041 * (default: 4 msec * (1 + ilog(ncpus)), units: nanoseconds)
Peter Zijlstrab2be5e92007-11-09 22:39:37 +010042 */
Zou Nan hai722aab02007-11-26 21:21:49 +010043unsigned int sysctl_sched_min_granularity = 4000000ULL;
Peter Zijlstrab2be5e92007-11-09 22:39:37 +010044
45/*
46 * is kept at sysctl_sched_latency / sysctl_sched_min_granularity
47 */
Zou Nan hai722aab02007-11-26 21:21:49 +010048static unsigned int sched_nr_latency = 5;
Peter Zijlstrab2be5e92007-11-09 22:39:37 +010049
50/*
Ingo Molnar2bd8e6d2007-10-15 17:00:02 +020051 * After fork, child runs first. (default) If set to 0 then
52 * parent will (try to) run first.
53 */
54const_debug unsigned int sysctl_sched_child_runs_first = 1;
Peter Zijlstra21805082007-08-25 18:41:53 +020055
56/*
Ingo Molnar1799e352007-09-19 23:34:46 +020057 * sys_sched_yield() compat mode
58 *
59 * This option switches the agressive yield implementation of the
60 * old scheduler back on.
61 */
62unsigned int __read_mostly sysctl_sched_compat_yield;
63
64/*
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020065 * SCHED_OTHER wake-up granularity.
Peter Zijlstra103638d92008-06-27 13:41:16 +020066 * (default: 5 msec * (1 + ilog(ncpus)), units: nanoseconds)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020067 *
68 * This option delays the preemption effects of decoupled workloads
69 * and reduces their over-scheduling. Synchronous workloads will still
70 * have immediate wakeup/sleep latencies.
71 */
Peter Zijlstra103638d92008-06-27 13:41:16 +020072unsigned int sysctl_sched_wakeup_granularity = 5000000UL;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020073
Ingo Molnarda84d962007-10-15 17:00:18 +020074const_debug unsigned int sysctl_sched_migration_cost = 500000UL;
75
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020076/**************************************************************
77 * CFS operations on generic schedulable entities:
78 */
79
Peter Zijlstrab7581492008-04-19 19:45:00 +020080static inline struct task_struct *task_of(struct sched_entity *se)
81{
82 return container_of(se, struct task_struct, se);
83}
84
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020085#ifdef CONFIG_FAIR_GROUP_SCHED
86
87/* cpu runqueue to which this cfs_rq is attached */
88static inline struct rq *rq_of(struct cfs_rq *cfs_rq)
89{
90 return cfs_rq->rq;
91}
92
Ingo Molnarbf0f6f22007-07-09 18:51:58 +020093/* An entity is a task if it doesn't "own" a runqueue */
94#define entity_is_task(se) (!se->my_q)
95
Peter Zijlstrab7581492008-04-19 19:45:00 +020096/* Walk up scheduling entities hierarchy */
97#define for_each_sched_entity(se) \
98 for (; se; se = se->parent)
99
100static inline struct cfs_rq *task_cfs_rq(struct task_struct *p)
101{
102 return p->se.cfs_rq;
103}
104
105/* runqueue on which this entity is (to be) queued */
106static inline struct cfs_rq *cfs_rq_of(struct sched_entity *se)
107{
108 return se->cfs_rq;
109}
110
111/* runqueue "owned" by this group */
112static inline struct cfs_rq *group_cfs_rq(struct sched_entity *grp)
113{
114 return grp->my_q;
115}
116
117/* Given a group's cfs_rq on one cpu, return its corresponding cfs_rq on
118 * another cpu ('this_cpu')
119 */
120static inline struct cfs_rq *cpu_cfs_rq(struct cfs_rq *cfs_rq, int this_cpu)
121{
122 return cfs_rq->tg->cfs_rq[this_cpu];
123}
124
125/* Iterate thr' all leaf cfs_rq's on a runqueue */
126#define for_each_leaf_cfs_rq(rq, cfs_rq) \
127 list_for_each_entry_rcu(cfs_rq, &rq->leaf_cfs_rq_list, leaf_cfs_rq_list)
128
129/* Do the two (enqueued) entities belong to the same group ? */
130static inline int
131is_same_group(struct sched_entity *se, struct sched_entity *pse)
132{
133 if (se->cfs_rq == pse->cfs_rq)
134 return 1;
135
136 return 0;
137}
138
139static inline struct sched_entity *parent_entity(struct sched_entity *se)
140{
141 return se->parent;
142}
143
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200144#else /* CONFIG_FAIR_GROUP_SCHED */
145
146static inline struct rq *rq_of(struct cfs_rq *cfs_rq)
147{
148 return container_of(cfs_rq, struct rq, cfs);
149}
150
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200151#define entity_is_task(se) 1
152
Peter Zijlstrab7581492008-04-19 19:45:00 +0200153#define for_each_sched_entity(se) \
154 for (; se; se = NULL)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200155
Peter Zijlstrab7581492008-04-19 19:45:00 +0200156static inline struct cfs_rq *task_cfs_rq(struct task_struct *p)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200157{
Peter Zijlstrab7581492008-04-19 19:45:00 +0200158 return &task_rq(p)->cfs;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200159}
160
Peter Zijlstrab7581492008-04-19 19:45:00 +0200161static inline struct cfs_rq *cfs_rq_of(struct sched_entity *se)
162{
163 struct task_struct *p = task_of(se);
164 struct rq *rq = task_rq(p);
165
166 return &rq->cfs;
167}
168
169/* runqueue "owned" by this group */
170static inline struct cfs_rq *group_cfs_rq(struct sched_entity *grp)
171{
172 return NULL;
173}
174
175static inline struct cfs_rq *cpu_cfs_rq(struct cfs_rq *cfs_rq, int this_cpu)
176{
177 return &cpu_rq(this_cpu)->cfs;
178}
179
180#define for_each_leaf_cfs_rq(rq, cfs_rq) \
181 for (cfs_rq = &rq->cfs; cfs_rq; cfs_rq = NULL)
182
183static inline int
184is_same_group(struct sched_entity *se, struct sched_entity *pse)
185{
186 return 1;
187}
188
189static inline struct sched_entity *parent_entity(struct sched_entity *se)
190{
191 return NULL;
192}
193
194#endif /* CONFIG_FAIR_GROUP_SCHED */
195
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200196
197/**************************************************************
198 * Scheduling class tree data structure manipulation methods:
199 */
200
Ingo Molnar0702e3e2007-10-15 17:00:14 +0200201static inline u64 max_vruntime(u64 min_vruntime, u64 vruntime)
Peter Zijlstra02e04312007-10-15 17:00:07 +0200202{
Peter Zijlstra368059a2007-10-15 17:00:11 +0200203 s64 delta = (s64)(vruntime - min_vruntime);
204 if (delta > 0)
Peter Zijlstra02e04312007-10-15 17:00:07 +0200205 min_vruntime = vruntime;
206
207 return min_vruntime;
208}
209
Ingo Molnar0702e3e2007-10-15 17:00:14 +0200210static inline u64 min_vruntime(u64 min_vruntime, u64 vruntime)
Peter Zijlstrab0ffd242007-10-15 17:00:12 +0200211{
212 s64 delta = (s64)(vruntime - min_vruntime);
213 if (delta < 0)
214 min_vruntime = vruntime;
215
216 return min_vruntime;
217}
218
Ingo Molnar0702e3e2007-10-15 17:00:14 +0200219static inline s64 entity_key(struct cfs_rq *cfs_rq, struct sched_entity *se)
Peter Zijlstra90146232007-10-15 17:00:05 +0200220{
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200221 return se->vruntime - cfs_rq->min_vruntime;
Peter Zijlstra90146232007-10-15 17:00:05 +0200222}
223
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200224/*
225 * Enqueue an entity into the rb-tree:
226 */
Ingo Molnar0702e3e2007-10-15 17:00:14 +0200227static void __enqueue_entity(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200228{
229 struct rb_node **link = &cfs_rq->tasks_timeline.rb_node;
230 struct rb_node *parent = NULL;
231 struct sched_entity *entry;
Peter Zijlstra90146232007-10-15 17:00:05 +0200232 s64 key = entity_key(cfs_rq, se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200233 int leftmost = 1;
234
235 /*
236 * Find the right place in the rbtree:
237 */
238 while (*link) {
239 parent = *link;
240 entry = rb_entry(parent, struct sched_entity, run_node);
241 /*
242 * We dont care about collisions. Nodes with
243 * the same key stay together.
244 */
Peter Zijlstra90146232007-10-15 17:00:05 +0200245 if (key < entity_key(cfs_rq, entry)) {
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200246 link = &parent->rb_left;
247 } else {
248 link = &parent->rb_right;
249 leftmost = 0;
250 }
251 }
252
253 /*
254 * Maintain a cache of leftmost tree entries (it is frequently
255 * used):
256 */
Peter Zijlstra3fe69742008-03-14 20:55:51 +0100257 if (leftmost) {
Ingo Molnar57cb4992007-10-15 17:00:11 +0200258 cfs_rq->rb_leftmost = &se->run_node;
Peter Zijlstra3fe69742008-03-14 20:55:51 +0100259 /*
260 * maintain cfs_rq->min_vruntime to be a monotonic increasing
261 * value tracking the leftmost vruntime in the tree.
262 */
263 cfs_rq->min_vruntime =
264 max_vruntime(cfs_rq->min_vruntime, se->vruntime);
265 }
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200266
267 rb_link_node(&se->run_node, parent, link);
268 rb_insert_color(&se->run_node, &cfs_rq->tasks_timeline);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200269}
270
Ingo Molnar0702e3e2007-10-15 17:00:14 +0200271static void __dequeue_entity(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200272{
Peter Zijlstra3fe69742008-03-14 20:55:51 +0100273 if (cfs_rq->rb_leftmost == &se->run_node) {
274 struct rb_node *next_node;
275 struct sched_entity *next;
276
277 next_node = rb_next(&se->run_node);
278 cfs_rq->rb_leftmost = next_node;
279
280 if (next_node) {
281 next = rb_entry(next_node,
282 struct sched_entity, run_node);
283 cfs_rq->min_vruntime =
284 max_vruntime(cfs_rq->min_vruntime,
285 next->vruntime);
286 }
287 }
Ingo Molnare9acbff2007-10-15 17:00:04 +0200288
Peter Zijlstraaa2ac252008-03-14 21:12:12 +0100289 if (cfs_rq->next == se)
290 cfs_rq->next = NULL;
291
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200292 rb_erase(&se->run_node, &cfs_rq->tasks_timeline);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200293}
294
295static inline struct rb_node *first_fair(struct cfs_rq *cfs_rq)
296{
297 return cfs_rq->rb_leftmost;
298}
299
300static struct sched_entity *__pick_next_entity(struct cfs_rq *cfs_rq)
301{
302 return rb_entry(first_fair(cfs_rq), struct sched_entity, run_node);
303}
304
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200305static inline struct sched_entity *__pick_last_entity(struct cfs_rq *cfs_rq)
306{
Ingo Molnar7eee3e62008-02-22 10:32:21 +0100307 struct rb_node *last = rb_last(&cfs_rq->tasks_timeline);
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200308
Balbir Singh70eee742008-02-22 13:25:53 +0530309 if (!last)
310 return NULL;
Ingo Molnar7eee3e62008-02-22 10:32:21 +0100311
312 return rb_entry(last, struct sched_entity, run_node);
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200313}
314
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200315/**************************************************************
316 * Scheduling class statistics methods:
317 */
318
Peter Zijlstrab2be5e92007-11-09 22:39:37 +0100319#ifdef CONFIG_SCHED_DEBUG
320int sched_nr_latency_handler(struct ctl_table *table, int write,
321 struct file *filp, void __user *buffer, size_t *lenp,
322 loff_t *ppos)
323{
324 int ret = proc_dointvec_minmax(table, write, filp, buffer, lenp, ppos);
325
326 if (ret || !write)
327 return ret;
328
329 sched_nr_latency = DIV_ROUND_UP(sysctl_sched_latency,
330 sysctl_sched_min_granularity);
331
332 return 0;
333}
334#endif
Ingo Molnar647e7ca2007-10-15 17:00:13 +0200335
336/*
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200337 * delta *= w / rw
338 */
339static inline unsigned long
340calc_delta_weight(unsigned long delta, struct sched_entity *se)
341{
342 for_each_sched_entity(se) {
343 delta = calc_delta_mine(delta,
344 se->load.weight, &cfs_rq_of(se)->load);
345 }
346
347 return delta;
348}
349
350/*
351 * delta *= rw / w
352 */
353static inline unsigned long
354calc_delta_fair(unsigned long delta, struct sched_entity *se)
355{
356 for_each_sched_entity(se) {
357 delta = calc_delta_mine(delta,
358 cfs_rq_of(se)->load.weight, &se->load);
359 }
360
361 return delta;
362}
363
364/*
Ingo Molnar647e7ca2007-10-15 17:00:13 +0200365 * The idea is to set a period in which each task runs once.
366 *
367 * When there are too many tasks (sysctl_sched_nr_latency) we have to stretch
368 * this period because otherwise the slices get too small.
369 *
370 * p = (nr <= nl) ? l : l*nr/nl
371 */
Peter Zijlstra4d78e7b2007-10-15 17:00:04 +0200372static u64 __sched_period(unsigned long nr_running)
373{
374 u64 period = sysctl_sched_latency;
Peter Zijlstrab2be5e92007-11-09 22:39:37 +0100375 unsigned long nr_latency = sched_nr_latency;
Peter Zijlstra4d78e7b2007-10-15 17:00:04 +0200376
377 if (unlikely(nr_running > nr_latency)) {
Peter Zijlstra4bf0b772008-01-25 21:08:21 +0100378 period = sysctl_sched_min_granularity;
Peter Zijlstra4d78e7b2007-10-15 17:00:04 +0200379 period *= nr_running;
Peter Zijlstra4d78e7b2007-10-15 17:00:04 +0200380 }
381
382 return period;
383}
384
Ingo Molnar647e7ca2007-10-15 17:00:13 +0200385/*
386 * We calculate the wall-time slice from the period by taking a part
387 * proportional to the weight.
388 *
389 * s = p*w/rw
390 */
Peter Zijlstra6d0f0eb2007-10-15 17:00:05 +0200391static u64 sched_slice(struct cfs_rq *cfs_rq, struct sched_entity *se)
Peter Zijlstra21805082007-08-25 18:41:53 +0200392{
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200393 return calc_delta_weight(__sched_period(cfs_rq->nr_running), se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200394}
395
Ingo Molnar647e7ca2007-10-15 17:00:13 +0200396/*
Peter Zijlstraac884de2008-04-19 19:45:00 +0200397 * We calculate the vruntime slice of a to be inserted task
Ingo Molnar647e7ca2007-10-15 17:00:13 +0200398 *
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200399 * vs = s*rw/w = p
Ingo Molnar647e7ca2007-10-15 17:00:13 +0200400 */
Ingo Molnar647e7ca2007-10-15 17:00:13 +0200401static u64 sched_vslice_add(struct cfs_rq *cfs_rq, struct sched_entity *se)
402{
Peter Zijlstraac884de2008-04-19 19:45:00 +0200403 unsigned long nr_running = cfs_rq->nr_running;
Peter Zijlstraac884de2008-04-19 19:45:00 +0200404
405 if (!se->on_rq)
406 nr_running++;
407
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200408 return __sched_period(nr_running);
409}
410
411/*
412 * The goal of calc_delta_asym() is to be asymmetrically around NICE_0_LOAD, in
413 * that it favours >=0 over <0.
414 *
415 * -20 |
416 * |
417 * 0 --------+-------
418 * .'
419 * 19 .'
420 *
421 */
422static unsigned long
423calc_delta_asym(unsigned long delta, struct sched_entity *se)
424{
425 struct load_weight lw = {
426 .weight = NICE_0_LOAD,
427 .inv_weight = 1UL << (WMULT_SHIFT-NICE_0_SHIFT)
428 };
Peter Zijlstraac884de2008-04-19 19:45:00 +0200429
430 for_each_sched_entity(se) {
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200431 struct load_weight *se_lw = &se->load;
Peter Zijlstraced8aa12008-06-27 13:41:13 +0200432 unsigned long rw = cfs_rq_of(se)->load.weight;
Peter Zijlstraac884de2008-04-19 19:45:00 +0200433
Peter Zijlstrac9c294a2008-06-27 13:41:12 +0200434#ifdef CONFIG_FAIR_SCHED_GROUP
435 struct cfs_rq *cfs_rq = se->my_q;
436 struct task_group *tg = NULL
437
438 if (cfs_rq)
439 tg = cfs_rq->tg;
440
441 if (tg && tg->shares < NICE_0_LOAD) {
442 /*
443 * scale shares to what it would have been had
444 * tg->weight been NICE_0_LOAD:
445 *
446 * weight = 1024 * shares / tg->weight
447 */
448 lw.weight *= se->load.weight;
449 lw.weight /= tg->shares;
450
451 lw.inv_weight = 0;
452
453 se_lw = &lw;
Peter Zijlstraced8aa12008-06-27 13:41:13 +0200454 rw += lw.weight - se->load.weight;
Peter Zijlstrac9c294a2008-06-27 13:41:12 +0200455 } else
456#endif
457
Peter Zijlstraced8aa12008-06-27 13:41:13 +0200458 if (se->load.weight < NICE_0_LOAD) {
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200459 se_lw = &lw;
Peter Zijlstraced8aa12008-06-27 13:41:13 +0200460 rw += NICE_0_LOAD - se->load.weight;
461 }
Peter Zijlstraac884de2008-04-19 19:45:00 +0200462
Peter Zijlstraced8aa12008-06-27 13:41:13 +0200463 delta = calc_delta_mine(delta, rw, se_lw);
Peter Zijlstraac884de2008-04-19 19:45:00 +0200464 }
465
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200466 return delta;
Peter Zijlstra67e9fb22007-10-15 17:00:10 +0200467}
468
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200469/*
470 * Update the current task's runtime statistics. Skip current tasks that
471 * are not in our scheduling class.
472 */
473static inline void
Ingo Molnar8ebc91d2007-10-15 17:00:03 +0200474__update_curr(struct cfs_rq *cfs_rq, struct sched_entity *curr,
475 unsigned long delta_exec)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200476{
Ingo Molnarbbdba7c2007-10-15 17:00:06 +0200477 unsigned long delta_exec_weighted;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200478
Ingo Molnar8179ca232007-08-02 17:41:40 +0200479 schedstat_set(curr->exec_max, max((u64)delta_exec, curr->exec_max));
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200480
481 curr->sum_exec_runtime += delta_exec;
Ingo Molnar7a62eab2007-10-15 17:00:06 +0200482 schedstat_add(cfs_rq, exec_clock, delta_exec);
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200483 delta_exec_weighted = calc_delta_fair(delta_exec, curr);
Ingo Molnare9acbff2007-10-15 17:00:04 +0200484 curr->vruntime += delta_exec_weighted;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200485}
486
Ingo Molnarb7cc0892007-08-09 11:16:47 +0200487static void update_curr(struct cfs_rq *cfs_rq)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200488{
Ingo Molnar429d43b2007-10-15 17:00:03 +0200489 struct sched_entity *curr = cfs_rq->curr;
Ingo Molnar8ebc91d2007-10-15 17:00:03 +0200490 u64 now = rq_of(cfs_rq)->clock;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200491 unsigned long delta_exec;
492
493 if (unlikely(!curr))
494 return;
495
496 /*
497 * Get the amount of time the current task was running
498 * since the last time we changed load (this cannot
499 * overflow on 32 bits):
500 */
Ingo Molnar8ebc91d2007-10-15 17:00:03 +0200501 delta_exec = (unsigned long)(now - curr->exec_start);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200502
Ingo Molnar8ebc91d2007-10-15 17:00:03 +0200503 __update_curr(cfs_rq, curr, delta_exec);
504 curr->exec_start = now;
Srivatsa Vaddagirid842de82007-12-02 20:04:49 +0100505
506 if (entity_is_task(curr)) {
507 struct task_struct *curtask = task_of(curr);
508
509 cpuacct_charge(curtask, delta_exec);
510 }
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200511}
512
513static inline void
Ingo Molnar5870db52007-08-09 11:16:47 +0200514update_stats_wait_start(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200515{
Ingo Molnard2819182007-08-09 11:16:47 +0200516 schedstat_set(se->wait_start, rq_of(cfs_rq)->clock);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200517}
518
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200519/*
520 * Task is being enqueued - update stats:
521 */
Ingo Molnard2417e52007-08-09 11:16:47 +0200522static void update_stats_enqueue(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200523{
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200524 /*
525 * Are we enqueueing a waiting task? (for current tasks
526 * a dequeue/enqueue event is a NOP)
527 */
Ingo Molnar429d43b2007-10-15 17:00:03 +0200528 if (se != cfs_rq->curr)
Ingo Molnar5870db52007-08-09 11:16:47 +0200529 update_stats_wait_start(cfs_rq, se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200530}
531
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200532static void
Ingo Molnar9ef0a962007-08-09 11:16:47 +0200533update_stats_wait_end(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200534{
Ingo Molnarbbdba7c2007-10-15 17:00:06 +0200535 schedstat_set(se->wait_max, max(se->wait_max,
536 rq_of(cfs_rq)->clock - se->wait_start));
Arjan van de Ven6d082592008-01-25 21:08:35 +0100537 schedstat_set(se->wait_count, se->wait_count + 1);
538 schedstat_set(se->wait_sum, se->wait_sum +
539 rq_of(cfs_rq)->clock - se->wait_start);
Ingo Molnar6cfb0d52007-08-02 17:41:40 +0200540 schedstat_set(se->wait_start, 0);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200541}
542
543static inline void
Ingo Molnar19b6a2e2007-08-09 11:16:48 +0200544update_stats_dequeue(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200545{
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200546 /*
547 * Mark the end of the wait period if dequeueing a
548 * waiting task:
549 */
Ingo Molnar429d43b2007-10-15 17:00:03 +0200550 if (se != cfs_rq->curr)
Ingo Molnar9ef0a962007-08-09 11:16:47 +0200551 update_stats_wait_end(cfs_rq, se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200552}
553
554/*
555 * We are picking a new current task - update its stats:
556 */
557static inline void
Ingo Molnar79303e92007-08-09 11:16:47 +0200558update_stats_curr_start(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200559{
560 /*
561 * We are starting a new run period:
562 */
Ingo Molnard2819182007-08-09 11:16:47 +0200563 se->exec_start = rq_of(cfs_rq)->clock;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200564}
565
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200566/**************************************************
567 * Scheduling class queueing methods:
568 */
569
Peter Zijlstrac09595f2008-06-27 13:41:14 +0200570#if defined CONFIG_SMP && defined CONFIG_FAIR_GROUP_SCHED
571static void
572add_cfs_task_weight(struct cfs_rq *cfs_rq, unsigned long weight)
573{
574 cfs_rq->task_weight += weight;
575}
576#else
577static inline void
578add_cfs_task_weight(struct cfs_rq *cfs_rq, unsigned long weight)
579{
580}
581#endif
582
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200583static void
584account_entity_enqueue(struct cfs_rq *cfs_rq, struct sched_entity *se)
585{
586 update_load_add(&cfs_rq->load, se->load.weight);
Peter Zijlstrac09595f2008-06-27 13:41:14 +0200587 if (!parent_entity(se))
588 inc_cpu_load(rq_of(cfs_rq), se->load.weight);
589 if (entity_is_task(se))
590 add_cfs_task_weight(cfs_rq, se->load.weight);
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200591 cfs_rq->nr_running++;
592 se->on_rq = 1;
Peter Zijlstra4a55bd52008-04-19 19:45:00 +0200593 list_add(&se->group_node, &cfs_rq->tasks);
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200594}
595
596static void
597account_entity_dequeue(struct cfs_rq *cfs_rq, struct sched_entity *se)
598{
599 update_load_sub(&cfs_rq->load, se->load.weight);
Peter Zijlstrac09595f2008-06-27 13:41:14 +0200600 if (!parent_entity(se))
601 dec_cpu_load(rq_of(cfs_rq), se->load.weight);
602 if (entity_is_task(se))
603 add_cfs_task_weight(cfs_rq, -se->load.weight);
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200604 cfs_rq->nr_running--;
605 se->on_rq = 0;
Peter Zijlstra4a55bd52008-04-19 19:45:00 +0200606 list_del_init(&se->group_node);
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200607}
608
Ingo Molnar2396af62007-08-09 11:16:48 +0200609static void enqueue_sleeper(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200610{
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200611#ifdef CONFIG_SCHEDSTATS
612 if (se->sleep_start) {
Ingo Molnard2819182007-08-09 11:16:47 +0200613 u64 delta = rq_of(cfs_rq)->clock - se->sleep_start;
Arjan van de Ven97455122008-01-25 21:08:34 +0100614 struct task_struct *tsk = task_of(se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200615
616 if ((s64)delta < 0)
617 delta = 0;
618
619 if (unlikely(delta > se->sleep_max))
620 se->sleep_max = delta;
621
622 se->sleep_start = 0;
623 se->sum_sleep_runtime += delta;
Arjan van de Ven97455122008-01-25 21:08:34 +0100624
625 account_scheduler_latency(tsk, delta >> 10, 1);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200626 }
627 if (se->block_start) {
Ingo Molnard2819182007-08-09 11:16:47 +0200628 u64 delta = rq_of(cfs_rq)->clock - se->block_start;
Arjan van de Ven97455122008-01-25 21:08:34 +0100629 struct task_struct *tsk = task_of(se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200630
631 if ((s64)delta < 0)
632 delta = 0;
633
634 if (unlikely(delta > se->block_max))
635 se->block_max = delta;
636
637 se->block_start = 0;
638 se->sum_sleep_runtime += delta;
Ingo Molnar30084fb2007-10-02 14:13:08 +0200639
640 /*
641 * Blocking time is in units of nanosecs, so shift by 20 to
642 * get a milliseconds-range estimation of the amount of
643 * time that the task spent sleeping:
644 */
645 if (unlikely(prof_on == SLEEP_PROFILING)) {
Ingo Molnare22f5bb2007-10-15 17:00:06 +0200646
Ingo Molnar30084fb2007-10-02 14:13:08 +0200647 profile_hits(SLEEP_PROFILING, (void *)get_wchan(tsk),
648 delta >> 20);
649 }
Arjan van de Ven97455122008-01-25 21:08:34 +0100650 account_scheduler_latency(tsk, delta >> 10, 0);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200651 }
652#endif
653}
654
Peter Zijlstraddc97292007-10-15 17:00:10 +0200655static void check_spread(struct cfs_rq *cfs_rq, struct sched_entity *se)
656{
657#ifdef CONFIG_SCHED_DEBUG
658 s64 d = se->vruntime - cfs_rq->min_vruntime;
659
660 if (d < 0)
661 d = -d;
662
663 if (d > 3*sysctl_sched_latency)
664 schedstat_inc(cfs_rq, nr_spread_over);
665#endif
666}
667
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200668static void
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200669place_entity(struct cfs_rq *cfs_rq, struct sched_entity *se, int initial)
670{
Peter Zijlstra67e9fb22007-10-15 17:00:10 +0200671 u64 vruntime;
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200672
Peter Zijlstra3fe69742008-03-14 20:55:51 +0100673 if (first_fair(cfs_rq)) {
674 vruntime = min_vruntime(cfs_rq->min_vruntime,
675 __pick_next_entity(cfs_rq)->vruntime);
676 } else
677 vruntime = cfs_rq->min_vruntime;
Peter Zijlstra94dfb5e2007-10-15 17:00:05 +0200678
Peter Zijlstra2cb86002007-11-09 22:39:37 +0100679 /*
680 * The 'current' period is already promised to the current tasks,
681 * however the extra weight of the new task will slow them down a
682 * little, place the new task so that it fits in the slot that
683 * stays open at the end.
684 */
Peter Zijlstra94dfb5e2007-10-15 17:00:05 +0200685 if (initial && sched_feat(START_DEBIT))
Ingo Molnar647e7ca2007-10-15 17:00:13 +0200686 vruntime += sched_vslice_add(cfs_rq, se);
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200687
Ingo Molnar8465e792007-10-15 17:00:11 +0200688 if (!initial) {
Peter Zijlstra2cb86002007-11-09 22:39:37 +0100689 /* sleeps upto a single latency don't count. */
Peter Zijlstraa7be37a2008-06-27 13:41:11 +0200690 if (sched_feat(NEW_FAIR_SLEEPERS)) {
691 unsigned long thresh = sysctl_sched_latency;
692
693 /*
694 * convert the sleeper threshold into virtual time
695 */
696 if (sched_feat(NORMALIZED_SLEEPER))
697 thresh = calc_delta_fair(thresh, se);
698
699 vruntime -= thresh;
700 }
Ingo Molnar94359f02007-10-15 17:00:11 +0200701
Peter Zijlstra2cb86002007-11-09 22:39:37 +0100702 /* ensure we never gain time by being placed backwards. */
703 vruntime = max_vruntime(se->vruntime, vruntime);
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200704 }
705
Peter Zijlstra67e9fb22007-10-15 17:00:10 +0200706 se->vruntime = vruntime;
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200707}
708
709static void
Srivatsa Vaddagiri83b699e2007-10-15 17:00:08 +0200710enqueue_entity(struct cfs_rq *cfs_rq, struct sched_entity *se, int wakeup)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200711{
712 /*
Dmitry Adamushkoa2a2d682007-10-15 17:00:13 +0200713 * Update run-time statistics of the 'current'.
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200714 */
Ingo Molnarb7cc0892007-08-09 11:16:47 +0200715 update_curr(cfs_rq);
Peter Zijlstraa9922412008-05-05 23:56:17 +0200716 account_entity_enqueue(cfs_rq, se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200717
Ingo Molnare9acbff2007-10-15 17:00:04 +0200718 if (wakeup) {
Peter Zijlstraaeb73b02007-10-15 17:00:05 +0200719 place_entity(cfs_rq, se, 0);
Ingo Molnar2396af62007-08-09 11:16:48 +0200720 enqueue_sleeper(cfs_rq, se);
Ingo Molnare9acbff2007-10-15 17:00:04 +0200721 }
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200722
Ingo Molnard2417e52007-08-09 11:16:47 +0200723 update_stats_enqueue(cfs_rq, se);
Peter Zijlstraddc97292007-10-15 17:00:10 +0200724 check_spread(cfs_rq, se);
Srivatsa Vaddagiri83b699e2007-10-15 17:00:08 +0200725 if (se != cfs_rq->curr)
726 __enqueue_entity(cfs_rq, se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200727}
728
729static void
Ingo Molnar525c2712007-08-09 11:16:48 +0200730dequeue_entity(struct cfs_rq *cfs_rq, struct sched_entity *se, int sleep)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200731{
Dmitry Adamushkoa2a2d682007-10-15 17:00:13 +0200732 /*
733 * Update run-time statistics of the 'current'.
734 */
735 update_curr(cfs_rq);
736
Ingo Molnar19b6a2e2007-08-09 11:16:48 +0200737 update_stats_dequeue(cfs_rq, se);
Dmitry Adamushkodb36cc72007-10-15 17:00:06 +0200738 if (sleep) {
Peter Zijlstra67e9fb22007-10-15 17:00:10 +0200739#ifdef CONFIG_SCHEDSTATS
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200740 if (entity_is_task(se)) {
741 struct task_struct *tsk = task_of(se);
742
743 if (tsk->state & TASK_INTERRUPTIBLE)
Ingo Molnard2819182007-08-09 11:16:47 +0200744 se->sleep_start = rq_of(cfs_rq)->clock;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200745 if (tsk->state & TASK_UNINTERRUPTIBLE)
Ingo Molnard2819182007-08-09 11:16:47 +0200746 se->block_start = rq_of(cfs_rq)->clock;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200747 }
Dmitry Adamushkodb36cc72007-10-15 17:00:06 +0200748#endif
Peter Zijlstra67e9fb22007-10-15 17:00:10 +0200749 }
750
Srivatsa Vaddagiri83b699e2007-10-15 17:00:08 +0200751 if (se != cfs_rq->curr)
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200752 __dequeue_entity(cfs_rq, se);
753 account_entity_dequeue(cfs_rq, se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200754}
755
756/*
757 * Preempt the current task with a newly woken task if needed:
758 */
Peter Zijlstra7c92e542007-09-05 14:32:49 +0200759static void
Ingo Molnar2e09bf52007-10-15 17:00:05 +0200760check_preempt_tick(struct cfs_rq *cfs_rq, struct sched_entity *curr)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200761{
Peter Zijlstra11697832007-09-05 14:32:49 +0200762 unsigned long ideal_runtime, delta_exec;
763
Peter Zijlstra6d0f0eb2007-10-15 17:00:05 +0200764 ideal_runtime = sched_slice(cfs_rq, curr);
Peter Zijlstra11697832007-09-05 14:32:49 +0200765 delta_exec = curr->sum_exec_runtime - curr->prev_sum_exec_runtime;
Ingo Molnar3e3e13f2007-11-09 22:39:39 +0100766 if (delta_exec > ideal_runtime)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200767 resched_task(rq_of(cfs_rq)->curr);
768}
769
Srivatsa Vaddagiri83b699e2007-10-15 17:00:08 +0200770static void
Ingo Molnar8494f412007-08-09 11:16:48 +0200771set_next_entity(struct cfs_rq *cfs_rq, struct sched_entity *se)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200772{
Srivatsa Vaddagiri83b699e2007-10-15 17:00:08 +0200773 /* 'current' is not kept within the tree. */
774 if (se->on_rq) {
775 /*
776 * Any task has to be enqueued before it get to execute on
777 * a CPU. So account for the time it spent waiting on the
778 * runqueue.
779 */
780 update_stats_wait_end(cfs_rq, se);
781 __dequeue_entity(cfs_rq, se);
782 }
783
Ingo Molnar79303e92007-08-09 11:16:47 +0200784 update_stats_curr_start(cfs_rq, se);
Ingo Molnar429d43b2007-10-15 17:00:03 +0200785 cfs_rq->curr = se;
Ingo Molnareba1ed42007-10-15 17:00:02 +0200786#ifdef CONFIG_SCHEDSTATS
787 /*
788 * Track our maximum slice length, if the CPU's load is at
789 * least twice that of our own weight (i.e. dont track it
790 * when there are only lesser-weight tasks around):
791 */
Dmitry Adamushko495eca42007-10-15 17:00:06 +0200792 if (rq_of(cfs_rq)->load.weight >= 2*se->load.weight) {
Ingo Molnareba1ed42007-10-15 17:00:02 +0200793 se->slice_max = max(se->slice_max,
794 se->sum_exec_runtime - se->prev_sum_exec_runtime);
795 }
796#endif
Peter Zijlstra4a55b452007-09-05 14:32:49 +0200797 se->prev_sum_exec_runtime = se->sum_exec_runtime;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200798}
799
Peter Zijlstraaa2ac252008-03-14 21:12:12 +0100800static struct sched_entity *
801pick_next(struct cfs_rq *cfs_rq, struct sched_entity *se)
802{
Peter Zijlstra103638d92008-06-27 13:41:16 +0200803 struct rq *rq = rq_of(cfs_rq);
804 u64 pair_slice = rq->clock - cfs_rq->pair_start;
Peter Zijlstraaa2ac252008-03-14 21:12:12 +0100805
Peter Zijlstra103638d92008-06-27 13:41:16 +0200806 if (!cfs_rq->next || pair_slice > sched_slice(cfs_rq, cfs_rq->next)) {
807 cfs_rq->pair_start = rq->clock;
Peter Zijlstraaa2ac252008-03-14 21:12:12 +0100808 return se;
Peter Zijlstra103638d92008-06-27 13:41:16 +0200809 }
Peter Zijlstraaa2ac252008-03-14 21:12:12 +0100810
811 return cfs_rq->next;
812}
813
Ingo Molnar9948f4b2007-08-09 11:16:48 +0200814static struct sched_entity *pick_next_entity(struct cfs_rq *cfs_rq)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200815{
Dmitry Adamushko08ec3df2007-10-15 17:00:13 +0200816 struct sched_entity *se = NULL;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200817
Dmitry Adamushko08ec3df2007-10-15 17:00:13 +0200818 if (first_fair(cfs_rq)) {
819 se = __pick_next_entity(cfs_rq);
Peter Zijlstraaa2ac252008-03-14 21:12:12 +0100820 se = pick_next(cfs_rq, se);
Dmitry Adamushko08ec3df2007-10-15 17:00:13 +0200821 set_next_entity(cfs_rq, se);
822 }
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200823
824 return se;
825}
826
Ingo Molnarab6cde22007-08-09 11:16:48 +0200827static void put_prev_entity(struct cfs_rq *cfs_rq, struct sched_entity *prev)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200828{
829 /*
830 * If still on the runqueue then deactivate_task()
831 * was not called and update_curr() has to be done:
832 */
833 if (prev->on_rq)
Ingo Molnarb7cc0892007-08-09 11:16:47 +0200834 update_curr(cfs_rq);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200835
Peter Zijlstraddc97292007-10-15 17:00:10 +0200836 check_spread(cfs_rq, prev);
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200837 if (prev->on_rq) {
Ingo Molnar5870db52007-08-09 11:16:47 +0200838 update_stats_wait_start(cfs_rq, prev);
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200839 /* Put 'current' back into the tree. */
840 __enqueue_entity(cfs_rq, prev);
841 }
Ingo Molnar429d43b2007-10-15 17:00:03 +0200842 cfs_rq->curr = NULL;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200843}
844
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100845static void
846entity_tick(struct cfs_rq *cfs_rq, struct sched_entity *curr, int queued)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200847{
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200848 /*
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200849 * Update run-time statistics of the 'current'.
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200850 */
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200851 update_curr(cfs_rq);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200852
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100853#ifdef CONFIG_SCHED_HRTICK
854 /*
855 * queued ticks are scheduled to match the slice, so don't bother
856 * validating it and just reschedule.
857 */
Harvey Harrison983ed7a2008-04-24 18:17:55 -0700858 if (queued) {
859 resched_task(rq_of(cfs_rq)->curr);
860 return;
861 }
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100862 /*
863 * don't let the period tick interfere with the hrtick preemption
864 */
865 if (!sched_feat(DOUBLE_TICK) &&
866 hrtimer_active(&rq_of(cfs_rq)->hrtick_timer))
867 return;
868#endif
869
Peter Zijlstrace6c1312007-10-15 17:00:14 +0200870 if (cfs_rq->nr_running > 1 || !sched_feat(WAKEUP_PREEMPT))
Ingo Molnar2e09bf52007-10-15 17:00:05 +0200871 check_preempt_tick(cfs_rq, curr);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200872}
873
874/**************************************************
875 * CFS operations on tasks:
876 */
877
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100878#ifdef CONFIG_SCHED_HRTICK
879static void hrtick_start_fair(struct rq *rq, struct task_struct *p)
880{
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100881 struct sched_entity *se = &p->se;
882 struct cfs_rq *cfs_rq = cfs_rq_of(se);
883
884 WARN_ON(task_rq(p) != rq);
885
886 if (hrtick_enabled(rq) && cfs_rq->nr_running > 1) {
887 u64 slice = sched_slice(cfs_rq, se);
888 u64 ran = se->sum_exec_runtime - se->prev_sum_exec_runtime;
889 s64 delta = slice - ran;
890
891 if (delta < 0) {
892 if (rq->curr == p)
893 resched_task(p);
894 return;
895 }
896
897 /*
898 * Don't schedule slices shorter than 10000ns, that just
899 * doesn't make sense. Rely on vruntime for fairness.
900 */
Peter Zijlstra31656512008-07-18 18:01:23 +0200901 if (rq->curr != p)
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100902 delta = max(10000LL, delta);
903
Peter Zijlstra31656512008-07-18 18:01:23 +0200904 hrtick_start(rq, delta);
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100905 }
906}
Dhaval Giani55e12e52008-06-24 23:39:43 +0530907#else /* !CONFIG_SCHED_HRTICK */
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100908static inline void
909hrtick_start_fair(struct rq *rq, struct task_struct *p)
910{
911}
912#endif
913
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200914/*
915 * The enqueue_task method is called before nr_running is
916 * increased. Here we update the fair scheduling stats and
917 * then put the task into the rbtree:
918 */
Ingo Molnarfd390f62007-08-09 11:16:48 +0200919static void enqueue_task_fair(struct rq *rq, struct task_struct *p, int wakeup)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200920{
921 struct cfs_rq *cfs_rq;
Peter Zijlstra62fb1852008-02-25 17:34:02 +0100922 struct sched_entity *se = &p->se;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200923
924 for_each_sched_entity(se) {
Peter Zijlstra62fb1852008-02-25 17:34:02 +0100925 if (se->on_rq)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200926 break;
927 cfs_rq = cfs_rq_of(se);
Srivatsa Vaddagiri83b699e2007-10-15 17:00:08 +0200928 enqueue_entity(cfs_rq, se, wakeup);
Srivatsa Vaddagirib9fa3df2007-10-15 17:00:12 +0200929 wakeup = 1;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200930 }
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100931
932 hrtick_start_fair(rq, rq->curr);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200933}
934
935/*
936 * The dequeue_task method is called before nr_running is
937 * decreased. We remove the task from the rbtree and
938 * update the fair scheduling stats:
939 */
Ingo Molnarf02231e2007-08-09 11:16:48 +0200940static void dequeue_task_fair(struct rq *rq, struct task_struct *p, int sleep)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200941{
942 struct cfs_rq *cfs_rq;
Peter Zijlstra62fb1852008-02-25 17:34:02 +0100943 struct sched_entity *se = &p->se;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200944
945 for_each_sched_entity(se) {
946 cfs_rq = cfs_rq_of(se);
Ingo Molnar525c2712007-08-09 11:16:48 +0200947 dequeue_entity(cfs_rq, se, sleep);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200948 /* Don't dequeue parent if it has other entities besides us */
Peter Zijlstra62fb1852008-02-25 17:34:02 +0100949 if (cfs_rq->load.weight)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200950 break;
Srivatsa Vaddagirib9fa3df2007-10-15 17:00:12 +0200951 sleep = 1;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200952 }
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +0100953
954 hrtick_start_fair(rq, rq->curr);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200955}
956
957/*
Ingo Molnar1799e352007-09-19 23:34:46 +0200958 * sched_yield() support is very simple - we dequeue and enqueue.
959 *
960 * If compat_yield is turned on then we requeue to the end of the tree.
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200961 */
Dmitry Adamushko4530d7a2007-10-15 17:00:08 +0200962static void yield_task_fair(struct rq *rq)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200963{
Ingo Molnardb292ca2007-12-04 17:04:39 +0100964 struct task_struct *curr = rq->curr;
965 struct cfs_rq *cfs_rq = task_cfs_rq(curr);
966 struct sched_entity *rightmost, *se = &curr->se;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200967
968 /*
Ingo Molnar1799e352007-09-19 23:34:46 +0200969 * Are we the only task in the tree?
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200970 */
Ingo Molnar1799e352007-09-19 23:34:46 +0200971 if (unlikely(cfs_rq->nr_running == 1))
972 return;
973
Ingo Molnardb292ca2007-12-04 17:04:39 +0100974 if (likely(!sysctl_sched_compat_yield) && curr->policy != SCHED_BATCH) {
Peter Zijlstra3e51f332008-05-03 18:29:28 +0200975 update_rq_clock(rq);
Ingo Molnar1799e352007-09-19 23:34:46 +0200976 /*
Dmitry Adamushkoa2a2d682007-10-15 17:00:13 +0200977 * Update run-time statistics of the 'current'.
Ingo Molnar1799e352007-09-19 23:34:46 +0200978 */
Dmitry Adamushko2b1e3152007-10-15 17:00:12 +0200979 update_curr(cfs_rq);
Ingo Molnar1799e352007-09-19 23:34:46 +0200980
981 return;
982 }
983 /*
984 * Find the rightmost entry in the rbtree:
985 */
Dmitry Adamushko2b1e3152007-10-15 17:00:12 +0200986 rightmost = __pick_last_entity(cfs_rq);
Ingo Molnar1799e352007-09-19 23:34:46 +0200987 /*
988 * Already in the rightmost position?
989 */
Peter Zijlstra79b3fef2008-02-18 13:39:37 +0100990 if (unlikely(!rightmost || rightmost->vruntime < se->vruntime))
Ingo Molnar1799e352007-09-19 23:34:46 +0200991 return;
992
993 /*
994 * Minimally necessary key value to be last in the tree:
Dmitry Adamushko2b1e3152007-10-15 17:00:12 +0200995 * Upon rescheduling, sched_class::put_prev_task() will place
996 * 'current' within the tree based on its new key value.
Ingo Molnar1799e352007-09-19 23:34:46 +0200997 */
Dmitry Adamushko30cfdcf2007-10-15 17:00:07 +0200998 se->vruntime = rightmost->vruntime + 1;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +0200999}
1000
1001/*
Gregory Haskinse7693a32008-01-25 21:08:09 +01001002 * wake_idle() will wake a task on an idle cpu if task->cpu is
1003 * not idle and an idle cpu is available. The span of cpus to
1004 * search starts with cpus closest then further out as needed,
1005 * so we always favor a closer, idle cpu.
1006 *
1007 * Returns the CPU we should wake onto.
1008 */
1009#if defined(ARCH_HAS_SCHED_WAKE_IDLE)
1010static int wake_idle(int cpu, struct task_struct *p)
1011{
1012 cpumask_t tmp;
1013 struct sched_domain *sd;
1014 int i;
1015
1016 /*
1017 * If it is idle, then it is the best cpu to run this task.
1018 *
1019 * This cpu is also the best, if it has more than one task already.
1020 * Siblings must be also busy(in most cases) as they didn't already
1021 * pickup the extra load from this cpu and hence we need not check
1022 * sibling runqueue info. This will avoid the checks and cache miss
1023 * penalities associated with that.
1024 */
Gregory Haskins104f6452008-04-28 12:40:01 -04001025 if (idle_cpu(cpu) || cpu_rq(cpu)->cfs.nr_running > 1)
Gregory Haskinse7693a32008-01-25 21:08:09 +01001026 return cpu;
1027
1028 for_each_domain(cpu, sd) {
Hidetoshi Seto1d3504f2008-04-15 14:04:23 +09001029 if ((sd->flags & SD_WAKE_IDLE)
1030 || ((sd->flags & SD_WAKE_IDLE_FAR)
1031 && !task_hot(p, task_rq(p)->clock, sd))) {
Gregory Haskinse7693a32008-01-25 21:08:09 +01001032 cpus_and(tmp, sd->span, p->cpus_allowed);
1033 for_each_cpu_mask(i, tmp) {
1034 if (idle_cpu(i)) {
1035 if (i != task_cpu(p)) {
1036 schedstat_inc(p,
1037 se.nr_wakeups_idle);
1038 }
1039 return i;
1040 }
1041 }
1042 } else {
1043 break;
1044 }
1045 }
1046 return cpu;
1047}
Dhaval Giani55e12e52008-06-24 23:39:43 +05301048#else /* !ARCH_HAS_SCHED_WAKE_IDLE*/
Gregory Haskinse7693a32008-01-25 21:08:09 +01001049static inline int wake_idle(int cpu, struct task_struct *p)
1050{
1051 return cpu;
1052}
1053#endif
1054
1055#ifdef CONFIG_SMP
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001056
Ingo Molnar4ae7d5c2008-03-19 01:42:00 +01001057static const struct sched_class fair_sched_class;
1058
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001059#ifdef CONFIG_FAIR_GROUP_SCHED
Peter Zijlstraf5bfb7d2008-06-27 13:41:39 +02001060/*
1061 * effective_load() calculates the load change as seen from the root_task_group
1062 *
1063 * Adding load to a group doesn't make a group heavier, but can cause movement
1064 * of group shares between cpus. Assuming the shares were perfectly aligned one
1065 * can calculate the shift in shares.
1066 *
1067 * The problem is that perfectly aligning the shares is rather expensive, hence
1068 * we try to avoid doing that too often - see update_shares(), which ratelimits
1069 * this change.
1070 *
1071 * We compensate this by not only taking the current delta into account, but
1072 * also considering the delta between when the shares were last adjusted and
1073 * now.
1074 *
1075 * We still saw a performance dip, some tracing learned us that between
1076 * cgroup:/ and cgroup:/foo balancing the number of affine wakeups increased
1077 * significantly. Therefore try to bias the error in direction of failing
1078 * the affine wakeup.
1079 *
1080 */
Peter Zijlstraf1d239f2008-06-27 13:41:38 +02001081static long effective_load(struct task_group *tg, int cpu,
1082 long wl, long wg)
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001083{
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001084 struct sched_entity *se = tg->se[cpu];
Peter Zijlstraf1d239f2008-06-27 13:41:38 +02001085 long more_w;
1086
1087 if (!tg->parent)
1088 return wl;
1089
1090 /*
Peter Zijlstraf5bfb7d2008-06-27 13:41:39 +02001091 * By not taking the decrease of shares on the other cpu into
1092 * account our error leans towards reducing the affine wakeups.
1093 */
1094 if (!wl && sched_feat(ASYM_EFF_LOAD))
1095 return wl;
1096
1097 /*
Peter Zijlstraf1d239f2008-06-27 13:41:38 +02001098 * Instead of using this increment, also add the difference
1099 * between when the shares were last updated and now.
1100 */
1101 more_w = se->my_q->load.weight - se->my_q->rq_weight;
1102 wl += more_w;
1103 wg += more_w;
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001104
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001105 for_each_sched_entity(se) {
1106#define D(n) (likely(n) ? (n) : 1)
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001107
Peter Zijlstracb5ef422008-06-27 13:41:32 +02001108 long S, rw, s, a, b;
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001109
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001110 S = se->my_q->tg->shares;
1111 s = se->my_q->shares;
Peter Zijlstraf1d239f2008-06-27 13:41:38 +02001112 rw = se->my_q->rq_weight;
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001113
Peter Zijlstracb5ef422008-06-27 13:41:32 +02001114 a = S*(rw + wl);
1115 b = S*rw + s*wg;
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001116
Peter Zijlstracb5ef422008-06-27 13:41:32 +02001117 wl = s*(a-b)/D(b);
Peter Zijlstra83378262008-06-27 13:41:37 +02001118 /*
1119 * Assume the group is already running and will
1120 * thus already be accounted for in the weight.
1121 *
1122 * That is, moving shares between CPUs, does not
1123 * alter the group weight.
1124 */
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001125 wg = 0;
1126#undef D
1127 }
1128
1129 return wl;
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001130}
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001131
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001132#else
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001133
Peter Zijlstra83378262008-06-27 13:41:37 +02001134static inline unsigned long effective_load(struct task_group *tg, int cpu,
1135 unsigned long wl, unsigned long wg)
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001136{
Peter Zijlstra83378262008-06-27 13:41:37 +02001137 return wl;
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001138}
Peter Zijlstra4be9daa2008-06-27 13:41:30 +02001139
Peter Zijlstrabb3469a2008-06-27 13:41:27 +02001140#endif
1141
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001142static int
Ingo Molnar4ae7d5c2008-03-19 01:42:00 +01001143wake_affine(struct rq *rq, struct sched_domain *this_sd, struct rq *this_rq,
1144 struct task_struct *p, int prev_cpu, int this_cpu, int sync,
1145 int idx, unsigned long load, unsigned long this_load,
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001146 unsigned int imbalance)
1147{
Ingo Molnar4ae7d5c2008-03-19 01:42:00 +01001148 struct task_struct *curr = this_rq->curr;
Peter Zijlstra83378262008-06-27 13:41:37 +02001149 struct task_group *tg;
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001150 unsigned long tl = this_load;
1151 unsigned long tl_per_task;
Peter Zijlstra83378262008-06-27 13:41:37 +02001152 unsigned long weight;
Mike Galbraithb3137bc2008-05-29 11:11:41 +02001153 int balanced;
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001154
Mike Galbraithb3137bc2008-05-29 11:11:41 +02001155 if (!(this_sd->flags & SD_WAKE_AFFINE) || !sched_feat(AFFINE_WAKEUPS))
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001156 return 0;
1157
1158 /*
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001159 * If sync wakeup then subtract the (maximum possible)
1160 * effect of the currently running task from the load
1161 * of the current CPU:
1162 */
Peter Zijlstra83378262008-06-27 13:41:37 +02001163 if (sync) {
1164 tg = task_group(current);
1165 weight = current->se.load.weight;
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001166
Peter Zijlstra83378262008-06-27 13:41:37 +02001167 tl += effective_load(tg, this_cpu, -weight, -weight);
1168 load += effective_load(tg, prev_cpu, 0, -weight);
1169 }
1170
1171 tg = task_group(p);
1172 weight = p->se.load.weight;
1173
1174 balanced = 100*(tl + effective_load(tg, this_cpu, weight, weight)) <=
1175 imbalance*(load + effective_load(tg, prev_cpu, 0, weight));
Mike Galbraithb3137bc2008-05-29 11:11:41 +02001176
1177 /*
1178 * If the currently running task will sleep within
1179 * a reasonable amount of time then attract this newly
1180 * woken task:
1181 */
Gregory Haskins2087a1a2008-06-27 14:30:00 -06001182 if (sync && balanced) {
Mike Galbraithb3137bc2008-05-29 11:11:41 +02001183 if (curr->se.avg_overlap < sysctl_sched_migration_cost &&
Gregory Haskins2087a1a2008-06-27 14:30:00 -06001184 p->se.avg_overlap < sysctl_sched_migration_cost)
Mike Galbraithb3137bc2008-05-29 11:11:41 +02001185 return 1;
1186 }
1187
1188 schedstat_inc(p, se.nr_wakeups_affine_attempts);
1189 tl_per_task = cpu_avg_load_per_task(this_cpu);
1190
Ingo Molnarac192d32008-03-16 20:56:26 +01001191 if ((tl <= load && tl + target_load(prev_cpu, idx) <= tl_per_task) ||
Mike Galbraithb3137bc2008-05-29 11:11:41 +02001192 balanced) {
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001193 /*
1194 * This domain has SD_WAKE_AFFINE and
1195 * p is cache cold in this domain, and
1196 * there is no bad imbalance.
1197 */
1198 schedstat_inc(this_sd, ttwu_move_affine);
1199 schedstat_inc(p, se.nr_wakeups_affine);
1200
1201 return 1;
1202 }
1203 return 0;
1204}
1205
Gregory Haskinse7693a32008-01-25 21:08:09 +01001206static int select_task_rq_fair(struct task_struct *p, int sync)
1207{
Gregory Haskinse7693a32008-01-25 21:08:09 +01001208 struct sched_domain *sd, *this_sd = NULL;
Ingo Molnarac192d32008-03-16 20:56:26 +01001209 int prev_cpu, this_cpu, new_cpu;
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001210 unsigned long load, this_load;
Ingo Molnar4ae7d5c2008-03-19 01:42:00 +01001211 struct rq *rq, *this_rq;
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001212 unsigned int imbalance;
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001213 int idx;
Gregory Haskinse7693a32008-01-25 21:08:09 +01001214
Ingo Molnarac192d32008-03-16 20:56:26 +01001215 prev_cpu = task_cpu(p);
1216 rq = task_rq(p);
1217 this_cpu = smp_processor_id();
Ingo Molnar4ae7d5c2008-03-19 01:42:00 +01001218 this_rq = cpu_rq(this_cpu);
Ingo Molnarac192d32008-03-16 20:56:26 +01001219 new_cpu = prev_cpu;
Gregory Haskinse7693a32008-01-25 21:08:09 +01001220
Ingo Molnarac192d32008-03-16 20:56:26 +01001221 /*
1222 * 'this_sd' is the first domain that both
1223 * this_cpu and prev_cpu are present in:
1224 */
Gregory Haskinse7693a32008-01-25 21:08:09 +01001225 for_each_domain(this_cpu, sd) {
Ingo Molnarac192d32008-03-16 20:56:26 +01001226 if (cpu_isset(prev_cpu, sd->span)) {
Gregory Haskinse7693a32008-01-25 21:08:09 +01001227 this_sd = sd;
1228 break;
1229 }
1230 }
1231
1232 if (unlikely(!cpu_isset(this_cpu, p->cpus_allowed)))
Ingo Molnarf4827382008-03-16 21:21:47 +01001233 goto out;
Gregory Haskinse7693a32008-01-25 21:08:09 +01001234
1235 /*
1236 * Check for affine wakeup and passive balancing possibilities.
1237 */
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001238 if (!this_sd)
Ingo Molnarf4827382008-03-16 21:21:47 +01001239 goto out;
Gregory Haskinse7693a32008-01-25 21:08:09 +01001240
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001241 idx = this_sd->wake_idx;
Gregory Haskinse7693a32008-01-25 21:08:09 +01001242
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001243 imbalance = 100 + (this_sd->imbalance_pct - 100) / 2;
Gregory Haskinse7693a32008-01-25 21:08:09 +01001244
Ingo Molnarac192d32008-03-16 20:56:26 +01001245 load = source_load(prev_cpu, idx);
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001246 this_load = target_load(this_cpu, idx);
Gregory Haskinse7693a32008-01-25 21:08:09 +01001247
Ingo Molnar4ae7d5c2008-03-19 01:42:00 +01001248 if (wake_affine(rq, this_sd, this_rq, p, prev_cpu, this_cpu, sync, idx,
1249 load, this_load, imbalance))
1250 return this_cpu;
1251
1252 if (prev_cpu == this_cpu)
Ingo Molnarf4827382008-03-16 21:21:47 +01001253 goto out;
Gregory Haskinse7693a32008-01-25 21:08:09 +01001254
Ingo Molnar098fb9d2008-03-16 20:36:10 +01001255 /*
1256 * Start passive balancing when half the imbalance_pct
1257 * limit is reached.
1258 */
1259 if (this_sd->flags & SD_WAKE_BALANCE) {
1260 if (imbalance*this_load <= 100*load) {
1261 schedstat_inc(this_sd, ttwu_move_balance);
1262 schedstat_inc(p, se.nr_wakeups_passive);
Ingo Molnar4ae7d5c2008-03-19 01:42:00 +01001263 return this_cpu;
Gregory Haskinse7693a32008-01-25 21:08:09 +01001264 }
1265 }
1266
Ingo Molnarf4827382008-03-16 21:21:47 +01001267out:
Gregory Haskinse7693a32008-01-25 21:08:09 +01001268 return wake_idle(new_cpu, p);
1269}
1270#endif /* CONFIG_SMP */
1271
Peter Zijlstra0bbd3332008-04-19 19:44:57 +02001272static unsigned long wakeup_gran(struct sched_entity *se)
1273{
1274 unsigned long gran = sysctl_sched_wakeup_granularity;
1275
1276 /*
Peter Zijlstraa7be37a2008-06-27 13:41:11 +02001277 * More easily preempt - nice tasks, while not making it harder for
1278 * + nice tasks.
Peter Zijlstra0bbd3332008-04-19 19:44:57 +02001279 */
Peter Zijlstrac9c294a2008-06-27 13:41:12 +02001280 if (sched_feat(ASYM_GRAN))
1281 gran = calc_delta_asym(sysctl_sched_wakeup_granularity, se);
1282 else
1283 gran = calc_delta_fair(sysctl_sched_wakeup_granularity, se);
Peter Zijlstra0bbd3332008-04-19 19:44:57 +02001284
1285 return gran;
1286}
1287
1288/*
1289 * Should 'se' preempt 'curr'.
1290 *
1291 * |s1
1292 * |s2
1293 * |s3
1294 * g
1295 * |<--->|c
1296 *
1297 * w(c, s1) = -1
1298 * w(c, s2) = 0
1299 * w(c, s3) = 1
1300 *
1301 */
1302static int
1303wakeup_preempt_entity(struct sched_entity *curr, struct sched_entity *se)
1304{
1305 s64 gran, vdiff = curr->vruntime - se->vruntime;
1306
1307 if (vdiff < 0)
1308 return -1;
1309
1310 gran = wakeup_gran(curr);
1311 if (vdiff > gran)
1312 return 1;
1313
1314 return 0;
1315}
Gregory Haskinse7693a32008-01-25 21:08:09 +01001316
Dhaval Giani354d60c2008-04-19 19:44:59 +02001317/* return depth at which a sched entity is present in the hierarchy */
1318static inline int depth_se(struct sched_entity *se)
1319{
1320 int depth = 0;
1321
1322 for_each_sched_entity(se)
1323 depth++;
1324
1325 return depth;
1326}
1327
Gregory Haskinse7693a32008-01-25 21:08:09 +01001328/*
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001329 * Preempt the current task with a newly woken task if needed:
1330 */
Ingo Molnar2e09bf52007-10-15 17:00:05 +02001331static void check_preempt_wakeup(struct rq *rq, struct task_struct *p)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001332{
1333 struct task_struct *curr = rq->curr;
Srivatsa Vaddagirifad095a2007-10-15 17:00:12 +02001334 struct cfs_rq *cfs_rq = task_cfs_rq(curr);
Srivatsa Vaddagiri8651a862007-10-15 17:00:12 +02001335 struct sched_entity *se = &curr->se, *pse = &p->se;
Dhaval Giani354d60c2008-04-19 19:44:59 +02001336 int se_depth, pse_depth;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001337
1338 if (unlikely(rt_prio(p->prio))) {
Ingo Molnara8e504d2007-08-09 11:16:47 +02001339 update_rq_clock(rq);
Ingo Molnarb7cc0892007-08-09 11:16:47 +02001340 update_curr(cfs_rq);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001341 resched_task(curr);
1342 return;
1343 }
Peter Zijlstraaa2ac252008-03-14 21:12:12 +01001344
Ingo Molnar4ae7d5c2008-03-19 01:42:00 +01001345 if (unlikely(se == pse))
1346 return;
1347
Peter Zijlstraaa2ac252008-03-14 21:12:12 +01001348 cfs_rq_of(pse)->next = pse;
1349
Ingo Molnar91c234b2007-10-15 17:00:18 +02001350 /*
1351 * Batch tasks do not preempt (their preemption is driven by
1352 * the tick):
1353 */
1354 if (unlikely(p->policy == SCHED_BATCH))
1355 return;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001356
Ingo Molnar77d9cc42007-11-09 22:39:39 +01001357 if (!sched_feat(WAKEUP_PREEMPT))
1358 return;
Peter Zijlstrace6c1312007-10-15 17:00:14 +02001359
Dhaval Giani354d60c2008-04-19 19:44:59 +02001360 /*
1361 * preemption test can be made between sibling entities who are in the
1362 * same cfs_rq i.e who have a common parent. Walk up the hierarchy of
1363 * both tasks until we find their ancestors who are siblings of common
1364 * parent.
1365 */
1366
1367 /* First walk up until both entities are at same depth */
1368 se_depth = depth_se(se);
1369 pse_depth = depth_se(pse);
1370
1371 while (se_depth > pse_depth) {
1372 se_depth--;
1373 se = parent_entity(se);
1374 }
1375
1376 while (pse_depth > se_depth) {
1377 pse_depth--;
1378 pse = parent_entity(pse);
1379 }
1380
Ingo Molnar77d9cc42007-11-09 22:39:39 +01001381 while (!is_same_group(se, pse)) {
1382 se = parent_entity(se);
1383 pse = parent_entity(pse);
Ingo Molnar2e09bf52007-10-15 17:00:05 +02001384 }
Ingo Molnar77d9cc42007-11-09 22:39:39 +01001385
Peter Zijlstra0bbd3332008-04-19 19:44:57 +02001386 if (wakeup_preempt_entity(se, pse) == 1)
Ingo Molnar77d9cc42007-11-09 22:39:39 +01001387 resched_task(curr);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001388}
1389
Ingo Molnarfb8d4722007-08-09 11:16:48 +02001390static struct task_struct *pick_next_task_fair(struct rq *rq)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001391{
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +01001392 struct task_struct *p;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001393 struct cfs_rq *cfs_rq = &rq->cfs;
1394 struct sched_entity *se;
1395
1396 if (unlikely(!cfs_rq->nr_running))
1397 return NULL;
1398
1399 do {
Ingo Molnar9948f4b2007-08-09 11:16:48 +02001400 se = pick_next_entity(cfs_rq);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001401 cfs_rq = group_cfs_rq(se);
1402 } while (cfs_rq);
1403
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +01001404 p = task_of(se);
1405 hrtick_start_fair(rq, p);
1406
1407 return p;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001408}
1409
1410/*
1411 * Account for a descheduled task:
1412 */
Ingo Molnar31ee5292007-08-09 11:16:49 +02001413static void put_prev_task_fair(struct rq *rq, struct task_struct *prev)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001414{
1415 struct sched_entity *se = &prev->se;
1416 struct cfs_rq *cfs_rq;
1417
1418 for_each_sched_entity(se) {
1419 cfs_rq = cfs_rq_of(se);
Ingo Molnarab6cde22007-08-09 11:16:48 +02001420 put_prev_entity(cfs_rq, se);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001421 }
1422}
1423
Peter Williams681f3e62007-10-24 18:23:51 +02001424#ifdef CONFIG_SMP
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001425/**************************************************
1426 * Fair scheduling class load-balancing methods:
1427 */
1428
1429/*
1430 * Load-balancing iterator. Note: while the runqueue stays locked
1431 * during the whole iteration, the current task might be
1432 * dequeued so the iterator has to be dequeue-safe. Here we
1433 * achieve that by always pre-iterating before returning
1434 * the current task:
1435 */
Alexey Dobriyana9957442007-10-15 17:00:13 +02001436static struct task_struct *
Peter Zijlstra4a55bd52008-04-19 19:45:00 +02001437__load_balance_iterator(struct cfs_rq *cfs_rq, struct list_head *next)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001438{
Dhaval Giani354d60c2008-04-19 19:44:59 +02001439 struct task_struct *p = NULL;
1440 struct sched_entity *se;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001441
Gregory Haskins6d299f12008-05-12 21:21:14 +02001442 while (next != &cfs_rq->tasks) {
Peter Zijlstra4a55bd52008-04-19 19:45:00 +02001443 se = list_entry(next, struct sched_entity, group_node);
1444 next = next->next;
Dhaval Giani354d60c2008-04-19 19:44:59 +02001445
Gregory Haskins6d299f12008-05-12 21:21:14 +02001446 /* Skip over entities that are not tasks */
1447 if (entity_is_task(se)) {
1448 p = task_of(se);
1449 break;
1450 }
1451 }
Peter Zijlstra4a55bd52008-04-19 19:45:00 +02001452
1453 cfs_rq->balance_iterator = next;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001454 return p;
1455}
1456
1457static struct task_struct *load_balance_start_fair(void *arg)
1458{
1459 struct cfs_rq *cfs_rq = arg;
1460
Peter Zijlstra4a55bd52008-04-19 19:45:00 +02001461 return __load_balance_iterator(cfs_rq, cfs_rq->tasks.next);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001462}
1463
1464static struct task_struct *load_balance_next_fair(void *arg)
1465{
1466 struct cfs_rq *cfs_rq = arg;
1467
Peter Zijlstra4a55bd52008-04-19 19:45:00 +02001468 return __load_balance_iterator(cfs_rq, cfs_rq->balance_iterator);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001469}
1470
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001471static unsigned long
1472__load_balance_fair(struct rq *this_rq, int this_cpu, struct rq *busiest,
1473 unsigned long max_load_move, struct sched_domain *sd,
1474 enum cpu_idle_type idle, int *all_pinned, int *this_best_prio,
1475 struct cfs_rq *cfs_rq)
Peter Zijlstra62fb1852008-02-25 17:34:02 +01001476{
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001477 struct rq_iterator cfs_rq_iterator;
Ingo Molnar6363ca52008-05-29 11:28:57 +02001478
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001479 cfs_rq_iterator.start = load_balance_start_fair;
1480 cfs_rq_iterator.next = load_balance_next_fair;
1481 cfs_rq_iterator.arg = cfs_rq;
Ingo Molnar6363ca52008-05-29 11:28:57 +02001482
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001483 return balance_tasks(this_rq, this_cpu, busiest,
1484 max_load_move, sd, idle, all_pinned,
1485 this_best_prio, &cfs_rq_iterator);
Ingo Molnar6363ca52008-05-29 11:28:57 +02001486}
Ingo Molnar6363ca52008-05-29 11:28:57 +02001487
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001488#ifdef CONFIG_FAIR_GROUP_SCHED
Ingo Molnar6363ca52008-05-29 11:28:57 +02001489static unsigned long
1490load_balance_fair(struct rq *this_rq, int this_cpu, struct rq *busiest,
1491 unsigned long max_load_move,
1492 struct sched_domain *sd, enum cpu_idle_type idle,
1493 int *all_pinned, int *this_best_prio)
1494{
Ingo Molnar6363ca52008-05-29 11:28:57 +02001495 long rem_load_move = max_load_move;
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001496 int busiest_cpu = cpu_of(busiest);
1497 struct task_group *tg;
Peter Zijlstra62fb1852008-02-25 17:34:02 +01001498
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001499 rcu_read_lock();
Peter Zijlstrac8cba852008-06-27 13:41:23 +02001500 update_h_load(busiest_cpu);
1501
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001502 list_for_each_entry(tg, &task_groups, list) {
Peter Zijlstrac8cba852008-06-27 13:41:23 +02001503 struct cfs_rq *busiest_cfs_rq = tg->cfs_rq[busiest_cpu];
Peter Zijlstra42a3ac72008-06-27 13:41:29 +02001504 unsigned long busiest_h_load = busiest_cfs_rq->h_load;
1505 unsigned long busiest_weight = busiest_cfs_rq->load.weight;
Srivatsa Vaddagiri243e0e72008-06-27 13:41:36 +02001506 u64 rem_load, moved_load;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001507
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001508 /*
1509 * empty group
1510 */
Peter Zijlstrac8cba852008-06-27 13:41:23 +02001511 if (!busiest_cfs_rq->task_weight)
Ingo Molnar6363ca52008-05-29 11:28:57 +02001512 continue;
1513
Srivatsa Vaddagiri243e0e72008-06-27 13:41:36 +02001514 rem_load = (u64)rem_load_move * busiest_weight;
1515 rem_load = div_u64(rem_load, busiest_h_load + 1);
Ingo Molnar6363ca52008-05-29 11:28:57 +02001516
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001517 moved_load = __load_balance_fair(this_rq, this_cpu, busiest,
Srivatsa Vaddagiri53fecd82008-06-27 13:41:20 +02001518 rem_load, sd, idle, all_pinned, this_best_prio,
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001519 tg->cfs_rq[busiest_cpu]);
1520
1521 if (!moved_load)
1522 continue;
1523
Peter Zijlstra42a3ac72008-06-27 13:41:29 +02001524 moved_load *= busiest_h_load;
Srivatsa Vaddagiri243e0e72008-06-27 13:41:36 +02001525 moved_load = div_u64(moved_load, busiest_weight + 1);
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001526
1527 rem_load_move -= moved_load;
1528 if (rem_load_move < 0)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001529 break;
1530 }
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001531 rcu_read_unlock();
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001532
Peter Williams43010652007-08-09 11:16:46 +02001533 return max_load_move - rem_load_move;
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001534}
Peter Zijlstrac09595f2008-06-27 13:41:14 +02001535#else
1536static unsigned long
1537load_balance_fair(struct rq *this_rq, int this_cpu, struct rq *busiest,
1538 unsigned long max_load_move,
1539 struct sched_domain *sd, enum cpu_idle_type idle,
1540 int *all_pinned, int *this_best_prio)
1541{
1542 return __load_balance_fair(this_rq, this_cpu, busiest,
1543 max_load_move, sd, idle, all_pinned,
1544 this_best_prio, &busiest->cfs);
1545}
1546#endif
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001547
Peter Williamse1d14842007-10-24 18:23:51 +02001548static int
1549move_one_task_fair(struct rq *this_rq, int this_cpu, struct rq *busiest,
1550 struct sched_domain *sd, enum cpu_idle_type idle)
1551{
1552 struct cfs_rq *busy_cfs_rq;
1553 struct rq_iterator cfs_rq_iterator;
1554
1555 cfs_rq_iterator.start = load_balance_start_fair;
1556 cfs_rq_iterator.next = load_balance_next_fair;
1557
1558 for_each_leaf_cfs_rq(busiest, busy_cfs_rq) {
1559 /*
1560 * pass busy_cfs_rq argument into
1561 * load_balance_[start|next]_fair iterators
1562 */
1563 cfs_rq_iterator.arg = busy_cfs_rq;
1564 if (iter_move_one_task(this_rq, this_cpu, busiest, sd, idle,
1565 &cfs_rq_iterator))
1566 return 1;
1567 }
1568
1569 return 0;
1570}
Dhaval Giani55e12e52008-06-24 23:39:43 +05301571#endif /* CONFIG_SMP */
Peter Williamse1d14842007-10-24 18:23:51 +02001572
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001573/*
1574 * scheduler tick hitting a task of our scheduling class:
1575 */
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +01001576static void task_tick_fair(struct rq *rq, struct task_struct *curr, int queued)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001577{
1578 struct cfs_rq *cfs_rq;
1579 struct sched_entity *se = &curr->se;
1580
1581 for_each_sched_entity(se) {
1582 cfs_rq = cfs_rq_of(se);
Peter Zijlstra8f4d37e2008-01-25 21:08:29 +01001583 entity_tick(cfs_rq, se, queued);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001584 }
1585}
1586
Ingo Molnar8eb172d2007-10-29 21:18:11 +01001587#define swap(a, b) do { typeof(a) tmp = (a); (a) = (b); (b) = tmp; } while (0)
Peter Zijlstra4d78e7b2007-10-15 17:00:04 +02001588
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001589/*
1590 * Share the fairness runtime between parent and child, thus the
1591 * total amount of pressure for CPU stays equal - new tasks
1592 * get a chance to run but frequent forkers are not allowed to
1593 * monopolize the CPU. Note: the parent runqueue is locked,
1594 * the child is not running yet.
1595 */
Ingo Molnaree0827d2007-08-09 11:16:49 +02001596static void task_new_fair(struct rq *rq, struct task_struct *p)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001597{
1598 struct cfs_rq *cfs_rq = task_cfs_rq(p);
Ingo Molnar429d43b2007-10-15 17:00:03 +02001599 struct sched_entity *se = &p->se, *curr = cfs_rq->curr;
Ingo Molnar00bf7bf2007-10-15 17:00:14 +02001600 int this_cpu = smp_processor_id();
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001601
1602 sched_info_queued(p);
1603
Ting Yang7109c4422007-08-28 12:53:24 +02001604 update_curr(cfs_rq);
Peter Zijlstraaeb73b02007-10-15 17:00:05 +02001605 place_entity(cfs_rq, se, 1);
Peter Zijlstra4d78e7b2007-10-15 17:00:04 +02001606
Srivatsa Vaddagiri3c90e6e2007-11-09 22:39:39 +01001607 /* 'curr' will be NULL if the child belongs to a different group */
Ingo Molnar00bf7bf2007-10-15 17:00:14 +02001608 if (sysctl_sched_child_runs_first && this_cpu == task_cpu(p) &&
Srivatsa Vaddagiri3c90e6e2007-11-09 22:39:39 +01001609 curr && curr->vruntime < se->vruntime) {
Dmitry Adamushko87fefa32007-10-15 17:00:08 +02001610 /*
Ingo Molnaredcb60a2007-10-15 17:00:08 +02001611 * Upon rescheduling, sched_class::put_prev_task() will place
1612 * 'current' within the tree based on its new key value.
1613 */
Peter Zijlstra4d78e7b2007-10-15 17:00:04 +02001614 swap(curr->vruntime, se->vruntime);
Peter Zijlstra4d78e7b2007-10-15 17:00:04 +02001615 }
1616
Srivatsa Vaddagirib9dca1e2007-10-17 16:55:11 +02001617 enqueue_task_fair(rq, p, 0);
Ingo Molnarbb61c212007-10-15 17:00:02 +02001618 resched_task(rq->curr);
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001619}
1620
Steven Rostedtcb469842008-01-25 21:08:22 +01001621/*
1622 * Priority of the task has changed. Check to see if we preempt
1623 * the current task.
1624 */
1625static void prio_changed_fair(struct rq *rq, struct task_struct *p,
1626 int oldprio, int running)
1627{
1628 /*
1629 * Reschedule if we are currently running on this runqueue and
1630 * our priority decreased, or if we are not currently running on
1631 * this runqueue and our priority is higher than the current's
1632 */
1633 if (running) {
1634 if (p->prio > oldprio)
1635 resched_task(rq->curr);
1636 } else
1637 check_preempt_curr(rq, p);
1638}
1639
1640/*
1641 * We switched to the sched_fair class.
1642 */
1643static void switched_to_fair(struct rq *rq, struct task_struct *p,
1644 int running)
1645{
1646 /*
1647 * We were most likely switched from sched_rt, so
1648 * kick off the schedule if running, otherwise just see
1649 * if we can still preempt the current task.
1650 */
1651 if (running)
1652 resched_task(rq->curr);
1653 else
1654 check_preempt_curr(rq, p);
1655}
1656
Srivatsa Vaddagiri83b699e2007-10-15 17:00:08 +02001657/* Account for a task changing its policy or group.
1658 *
1659 * This routine is mostly called to set cfs_rq->curr field when a task
1660 * migrates between groups/classes.
1661 */
1662static void set_curr_task_fair(struct rq *rq)
1663{
1664 struct sched_entity *se = &rq->curr->se;
1665
1666 for_each_sched_entity(se)
1667 set_next_entity(cfs_rq_of(se), se);
1668}
1669
Peter Zijlstra810b3812008-02-29 15:21:01 -05001670#ifdef CONFIG_FAIR_GROUP_SCHED
1671static void moved_group_fair(struct task_struct *p)
1672{
1673 struct cfs_rq *cfs_rq = task_cfs_rq(p);
1674
1675 update_curr(cfs_rq);
1676 place_entity(cfs_rq, &p->se, 1);
1677}
1678#endif
1679
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001680/*
1681 * All the scheduling class methods:
1682 */
Ingo Molnar5522d5d2007-10-15 17:00:12 +02001683static const struct sched_class fair_sched_class = {
1684 .next = &idle_sched_class,
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001685 .enqueue_task = enqueue_task_fair,
1686 .dequeue_task = dequeue_task_fair,
1687 .yield_task = yield_task_fair,
Gregory Haskinse7693a32008-01-25 21:08:09 +01001688#ifdef CONFIG_SMP
1689 .select_task_rq = select_task_rq_fair,
1690#endif /* CONFIG_SMP */
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001691
Ingo Molnar2e09bf52007-10-15 17:00:05 +02001692 .check_preempt_curr = check_preempt_wakeup,
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001693
1694 .pick_next_task = pick_next_task_fair,
1695 .put_prev_task = put_prev_task_fair,
1696
Peter Williams681f3e62007-10-24 18:23:51 +02001697#ifdef CONFIG_SMP
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001698 .load_balance = load_balance_fair,
Peter Williamse1d14842007-10-24 18:23:51 +02001699 .move_one_task = move_one_task_fair,
Peter Williams681f3e62007-10-24 18:23:51 +02001700#endif
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001701
Srivatsa Vaddagiri83b699e2007-10-15 17:00:08 +02001702 .set_curr_task = set_curr_task_fair,
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001703 .task_tick = task_tick_fair,
1704 .task_new = task_new_fair,
Steven Rostedtcb469842008-01-25 21:08:22 +01001705
1706 .prio_changed = prio_changed_fair,
1707 .switched_to = switched_to_fair,
Peter Zijlstra810b3812008-02-29 15:21:01 -05001708
1709#ifdef CONFIG_FAIR_GROUP_SCHED
1710 .moved_group = moved_group_fair,
1711#endif
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001712};
1713
1714#ifdef CONFIG_SCHED_DEBUG
Ingo Molnar5cef9ec2007-08-09 11:16:47 +02001715static void print_cfs_stats(struct seq_file *m, int cpu)
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001716{
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001717 struct cfs_rq *cfs_rq;
1718
Peter Zijlstra5973e5b2008-01-25 21:08:34 +01001719 rcu_read_lock();
Ingo Molnarc3b64f12007-08-09 11:16:51 +02001720 for_each_leaf_cfs_rq(cpu_rq(cpu), cfs_rq)
Ingo Molnar5cef9ec2007-08-09 11:16:47 +02001721 print_cfs_rq(m, cpu, cfs_rq);
Peter Zijlstra5973e5b2008-01-25 21:08:34 +01001722 rcu_read_unlock();
Ingo Molnarbf0f6f22007-07-09 18:51:58 +02001723}
1724#endif