2 * QEMU throttling infrastructure
4 * Copyright (C) Nodalink, EURL. 2013-2014
5 * Copyright (C) Igalia, S.L. 2015
8 * BenoƮt Canet <benoit.canet@nodalink.com>
9 * Alberto Garcia <berto@igalia.com>
11 * This program is free software; you can redistribute it and/or
12 * modify it under the terms of the GNU General Public License as
13 * published by the Free Software Foundation; either version 2 or
14 * (at your option) version 3 of the License.
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
21 * You should have received a copy of the GNU General Public License
22 * along with this program; if not, see <http://www.gnu.org/licenses/>.
25 #include "qemu/osdep.h"
26 #include "qapi/error.h"
27 #include "qemu/throttle.h"
28 #include "qemu/timer.h"
29 #include "block/aio.h"
31 /* This function make a bucket leak
33 * @bkt: the bucket to make leak
34 * @delta_ns: the time delta
36 void throttle_leak_bucket(LeakyBucket
*bkt
, int64_t delta_ns
)
40 /* compute how much to leak */
41 leak
= (bkt
->avg
* (double) delta_ns
) / NANOSECONDS_PER_SECOND
;
43 /* make the bucket leak */
44 bkt
->level
= MAX(bkt
->level
- leak
, 0);
46 /* if we allow bursts for more than one second we also need to
47 * keep track of bkt->burst_level so the bkt->max goal per second
49 if (bkt
->burst_length
> 1) {
50 leak
= (bkt
->max
* (double) delta_ns
) / NANOSECONDS_PER_SECOND
;
51 bkt
->burst_level
= MAX(bkt
->burst_level
- leak
, 0);
55 /* Calculate the time delta since last leak and make proportionals leaks
57 * @now: the current timestamp in ns
59 static void throttle_do_leak(ThrottleState
*ts
, int64_t now
)
61 /* compute the time elapsed since the last leak */
62 int64_t delta_ns
= now
- ts
->previous_leak
;
65 ts
->previous_leak
= now
;
71 /* make each bucket leak */
72 for (i
= 0; i
< BUCKETS_COUNT
; i
++) {
73 throttle_leak_bucket(&ts
->cfg
.buckets
[i
], delta_ns
);
77 /* do the real job of computing the time to wait
79 * @limit: the throttling limit
80 * @extra: the number of operation to delay
81 * @ret: the time to wait in ns
83 static int64_t throttle_do_compute_wait(double limit
, double extra
)
85 double wait
= extra
* NANOSECONDS_PER_SECOND
;
90 /* This function compute the wait time in ns that a leaky bucket should trigger
92 * @bkt: the leaky bucket we operate on
93 * @ret: the resulting wait time in ns or 0 if the operation can go through
95 int64_t throttle_compute_wait(LeakyBucket
*bkt
)
97 double extra
; /* the number of extra units blocking the io */
98 double bucket_size
; /* I/O before throttling to bkt->avg */
99 double burst_bucket_size
; /* Before throttling to bkt->max */
106 /* If bkt->max is 0 we still want to allow short bursts of I/O
107 * from the guest, otherwise every other request will be throttled
108 * and performance will suffer considerably. */
109 bucket_size
= (double) bkt
->avg
/ 10;
110 burst_bucket_size
= 0;
112 /* If we have a burst limit then we have to wait until all I/O
113 * at burst rate has finished before throttling to bkt->avg */
114 bucket_size
= bkt
->max
* bkt
->burst_length
;
115 burst_bucket_size
= (double) bkt
->max
/ 10;
118 /* If the main bucket is full then we have to wait */
119 extra
= bkt
->level
- bucket_size
;
121 return throttle_do_compute_wait(bkt
->avg
, extra
);
124 /* If the main bucket is not full yet we still have to check the
125 * burst bucket in order to enforce the burst limit */
126 if (bkt
->burst_length
> 1) {
127 assert(bkt
->max
> 0); /* see throttle_is_valid() */
128 extra
= bkt
->burst_level
- burst_bucket_size
;
130 return throttle_do_compute_wait(bkt
->max
, extra
);
137 /* This function compute the time that must be waited while this IO
139 * @direction: throttle direction
142 static int64_t throttle_compute_wait_for(ThrottleState
*ts
,
143 ThrottleDirection direction
)
145 static const BucketType to_check
[THROTTLE_MAX
][4] = {
153 THROTTLE_OPS_WRITE
}, };
154 int64_t wait
, max_wait
= 0;
157 for (i
= 0; i
< ARRAY_SIZE(to_check
[THROTTLE_READ
]); i
++) {
158 BucketType index
= to_check
[direction
][i
];
159 wait
= throttle_compute_wait(&ts
->cfg
.buckets
[index
]);
160 if (wait
> max_wait
) {
168 /* compute the timer for this type of operation
170 * @direction: throttle direction
171 * @now: the current clock timestamp
172 * @next_timestamp: the resulting timer
173 * @ret: true if a timer must be set
175 static bool throttle_compute_timer(ThrottleState
*ts
,
176 ThrottleDirection direction
,
178 int64_t *next_timestamp
)
182 /* leak proportionally to the time elapsed */
183 throttle_do_leak(ts
, now
);
185 /* compute the wait time if any */
186 wait
= throttle_compute_wait_for(ts
, direction
);
188 /* if the code must wait compute when the next timer should fire */
190 *next_timestamp
= now
+ wait
;
194 /* else no need to wait at all */
195 *next_timestamp
= now
;
199 /* Add timers to event loop */
200 void throttle_timers_attach_aio_context(ThrottleTimers
*tt
,
201 AioContext
*new_context
)
203 ThrottleDirection dir
;
205 for (dir
= THROTTLE_READ
; dir
< THROTTLE_MAX
; dir
++) {
206 if (tt
->timer_cb
[dir
]) {
208 aio_timer_new(new_context
, tt
->clock_type
, SCALE_NS
,
209 tt
->timer_cb
[dir
], tt
->timer_opaque
);
215 * Initialize the ThrottleConfig structure to a valid state
216 * @cfg: the config to initialize
218 void throttle_config_init(ThrottleConfig
*cfg
)
221 memset(cfg
, 0, sizeof(*cfg
));
222 for (i
= 0; i
< BUCKETS_COUNT
; i
++) {
223 cfg
->buckets
[i
].burst_length
= 1;
227 /* To be called first on the ThrottleState */
228 void throttle_init(ThrottleState
*ts
)
230 memset(ts
, 0, sizeof(ThrottleState
));
231 throttle_config_init(&ts
->cfg
);
234 /* To be called first on the ThrottleTimers */
235 void throttle_timers_init(ThrottleTimers
*tt
,
236 AioContext
*aio_context
,
237 QEMUClockType clock_type
,
238 QEMUTimerCB
*read_timer_cb
,
239 QEMUTimerCB
*write_timer_cb
,
242 assert(read_timer_cb
|| write_timer_cb
);
243 memset(tt
, 0, sizeof(ThrottleTimers
));
245 tt
->clock_type
= clock_type
;
246 tt
->timer_cb
[THROTTLE_READ
] = read_timer_cb
;
247 tt
->timer_cb
[THROTTLE_WRITE
] = write_timer_cb
;
248 tt
->timer_opaque
= timer_opaque
;
249 throttle_timers_attach_aio_context(tt
, aio_context
);
252 /* destroy a timer */
253 static void throttle_timer_destroy(QEMUTimer
**timer
)
255 if (*timer
== NULL
) {
263 /* Remove timers from event loop */
264 void throttle_timers_detach_aio_context(ThrottleTimers
*tt
)
266 ThrottleDirection dir
;
268 for (dir
= THROTTLE_READ
; dir
< THROTTLE_MAX
; dir
++) {
269 throttle_timer_destroy(&tt
->timers
[dir
]);
273 /* To be called last on the ThrottleTimers */
274 void throttle_timers_destroy(ThrottleTimers
*tt
)
276 throttle_timers_detach_aio_context(tt
);
279 /* is any throttling timer configured */
280 bool throttle_timers_are_initialized(ThrottleTimers
*tt
)
282 ThrottleDirection dir
;
284 for (dir
= THROTTLE_READ
; dir
< THROTTLE_MAX
; dir
++) {
285 if (tt
->timers
[dir
]) {
293 /* Does any throttling must be done
295 * @cfg: the throttling configuration to inspect
296 * @ret: true if throttling must be done else false
298 bool throttle_enabled(ThrottleConfig
*cfg
)
302 for (i
= 0; i
< BUCKETS_COUNT
; i
++) {
303 if (cfg
->buckets
[i
].avg
> 0) {
311 /* check if a throttling configuration is valid
312 * @cfg: the throttling configuration to inspect
313 * @ret: true if valid else false
314 * @errp: error object
316 bool throttle_is_valid(ThrottleConfig
*cfg
, Error
**errp
)
319 bool bps_flag
, ops_flag
;
320 bool bps_max_flag
, ops_max_flag
;
322 bps_flag
= cfg
->buckets
[THROTTLE_BPS_TOTAL
].avg
&&
323 (cfg
->buckets
[THROTTLE_BPS_READ
].avg
||
324 cfg
->buckets
[THROTTLE_BPS_WRITE
].avg
);
326 ops_flag
= cfg
->buckets
[THROTTLE_OPS_TOTAL
].avg
&&
327 (cfg
->buckets
[THROTTLE_OPS_READ
].avg
||
328 cfg
->buckets
[THROTTLE_OPS_WRITE
].avg
);
330 bps_max_flag
= cfg
->buckets
[THROTTLE_BPS_TOTAL
].max
&&
331 (cfg
->buckets
[THROTTLE_BPS_READ
].max
||
332 cfg
->buckets
[THROTTLE_BPS_WRITE
].max
);
334 ops_max_flag
= cfg
->buckets
[THROTTLE_OPS_TOTAL
].max
&&
335 (cfg
->buckets
[THROTTLE_OPS_READ
].max
||
336 cfg
->buckets
[THROTTLE_OPS_WRITE
].max
);
338 if (bps_flag
|| ops_flag
|| bps_max_flag
|| ops_max_flag
) {
339 error_setg(errp
, "bps/iops/max total values and read/write values"
340 " cannot be used at the same time");
345 !cfg
->buckets
[THROTTLE_OPS_TOTAL
].avg
&&
346 !cfg
->buckets
[THROTTLE_OPS_READ
].avg
&&
347 !cfg
->buckets
[THROTTLE_OPS_WRITE
].avg
) {
348 error_setg(errp
, "iops size requires an iops value to be set");
352 for (i
= 0; i
< BUCKETS_COUNT
; i
++) {
353 LeakyBucket
*bkt
= &cfg
->buckets
[i
];
354 if (bkt
->avg
> THROTTLE_VALUE_MAX
|| bkt
->max
> THROTTLE_VALUE_MAX
) {
355 error_setg(errp
, "bps/iops/max values must be within [0, %lld]",
360 if (!bkt
->burst_length
) {
361 error_setg(errp
, "the burst length cannot be 0");
365 if (bkt
->burst_length
> 1 && !bkt
->max
) {
366 error_setg(errp
, "burst length set without burst rate");
370 if (bkt
->max
&& bkt
->burst_length
> THROTTLE_VALUE_MAX
/ bkt
->max
) {
371 error_setg(errp
, "burst length too high for this burst rate");
375 if (bkt
->max
&& !bkt
->avg
) {
376 error_setg(errp
, "bps_max/iops_max require corresponding"
381 if (bkt
->max
&& bkt
->max
< bkt
->avg
) {
382 error_setg(errp
, "bps_max/iops_max cannot be lower than bps/iops");
390 /* Used to configure the throttle
392 * @ts: the throttle state we are working on
393 * @clock_type: the group's clock_type
394 * @cfg: the config to set
396 void throttle_config(ThrottleState
*ts
,
397 QEMUClockType clock_type
,
404 /* Zero bucket level */
405 for (i
= 0; i
< BUCKETS_COUNT
; i
++) {
406 ts
->cfg
.buckets
[i
].level
= 0;
407 ts
->cfg
.buckets
[i
].burst_level
= 0;
410 ts
->previous_leak
= qemu_clock_get_ns(clock_type
);
413 /* used to get config
415 * @ts: the throttle state we are working on
416 * @cfg: the config to write
418 void throttle_get_config(ThrottleState
*ts
, ThrottleConfig
*cfg
)
424 /* Schedule the read or write timer if needed
426 * NOTE: this function is not unit tested due to it's usage of timer_mod
428 * @tt: the timers structure
429 * @direction: throttle direction
430 * @ret: true if the timer has been scheduled else false
432 bool throttle_schedule_timer(ThrottleState
*ts
,
434 ThrottleDirection direction
)
436 int64_t now
= qemu_clock_get_ns(tt
->clock_type
);
437 int64_t next_timestamp
;
441 assert(direction
< THROTTLE_MAX
);
442 timer
= tt
->timers
[direction
];
445 must_wait
= throttle_compute_timer(ts
,
450 /* request not throttled */
455 /* request throttled and timer pending -> do nothing */
456 if (timer_pending(timer
)) {
460 /* request throttled and timer not pending -> arm timer */
461 timer_mod(timer
, next_timestamp
);
465 /* do the accounting for this operation
467 * @direction: throttle direction
468 * @size: the size of the operation
470 void throttle_account(ThrottleState
*ts
, ThrottleDirection direction
,
473 static const BucketType bucket_types_size
[THROTTLE_MAX
][2] = {
474 { THROTTLE_BPS_TOTAL
, THROTTLE_BPS_READ
},
475 { THROTTLE_BPS_TOTAL
, THROTTLE_BPS_WRITE
}
477 static const BucketType bucket_types_units
[THROTTLE_MAX
][2] = {
478 { THROTTLE_OPS_TOTAL
, THROTTLE_OPS_READ
},
479 { THROTTLE_OPS_TOTAL
, THROTTLE_OPS_WRITE
}
484 assert(direction
< THROTTLE_MAX
);
485 /* if cfg.op_size is defined and smaller than size we compute unit count */
486 if (ts
->cfg
.op_size
&& size
> ts
->cfg
.op_size
) {
487 units
= (double) size
/ ts
->cfg
.op_size
;
490 for (i
= 0; i
< ARRAY_SIZE(bucket_types_size
[THROTTLE_READ
]); i
++) {
493 bkt
= &ts
->cfg
.buckets
[bucket_types_size
[direction
][i
]];
495 if (bkt
->burst_length
> 1) {
496 bkt
->burst_level
+= size
;
499 bkt
= &ts
->cfg
.buckets
[bucket_types_units
[direction
][i
]];
501 if (bkt
->burst_length
> 1) {
502 bkt
->burst_level
+= units
;
507 /* return a ThrottleConfig based on the options in a ThrottleLimits
509 * @arg: the ThrottleLimits object to read from
510 * @cfg: the ThrottleConfig to edit
511 * @errp: error object
513 void throttle_limits_to_config(ThrottleLimits
*arg
, ThrottleConfig
*cfg
,
516 if (arg
->has_bps_total
) {
517 cfg
->buckets
[THROTTLE_BPS_TOTAL
].avg
= arg
->bps_total
;
519 if (arg
->has_bps_read
) {
520 cfg
->buckets
[THROTTLE_BPS_READ
].avg
= arg
->bps_read
;
522 if (arg
->has_bps_write
) {
523 cfg
->buckets
[THROTTLE_BPS_WRITE
].avg
= arg
->bps_write
;
526 if (arg
->has_iops_total
) {
527 cfg
->buckets
[THROTTLE_OPS_TOTAL
].avg
= arg
->iops_total
;
529 if (arg
->has_iops_read
) {
530 cfg
->buckets
[THROTTLE_OPS_READ
].avg
= arg
->iops_read
;
532 if (arg
->has_iops_write
) {
533 cfg
->buckets
[THROTTLE_OPS_WRITE
].avg
= arg
->iops_write
;
536 if (arg
->has_bps_total_max
) {
537 cfg
->buckets
[THROTTLE_BPS_TOTAL
].max
= arg
->bps_total_max
;
539 if (arg
->has_bps_read_max
) {
540 cfg
->buckets
[THROTTLE_BPS_READ
].max
= arg
->bps_read_max
;
542 if (arg
->has_bps_write_max
) {
543 cfg
->buckets
[THROTTLE_BPS_WRITE
].max
= arg
->bps_write_max
;
545 if (arg
->has_iops_total_max
) {
546 cfg
->buckets
[THROTTLE_OPS_TOTAL
].max
= arg
->iops_total_max
;
548 if (arg
->has_iops_read_max
) {
549 cfg
->buckets
[THROTTLE_OPS_READ
].max
= arg
->iops_read_max
;
551 if (arg
->has_iops_write_max
) {
552 cfg
->buckets
[THROTTLE_OPS_WRITE
].max
= arg
->iops_write_max
;
555 if (arg
->has_bps_total_max_length
) {
556 if (arg
->bps_total_max_length
> UINT_MAX
) {
557 error_setg(errp
, "bps-total-max-length value must be in"
558 " the range [0, %u]", UINT_MAX
);
561 cfg
->buckets
[THROTTLE_BPS_TOTAL
].burst_length
= arg
->bps_total_max_length
;
563 if (arg
->has_bps_read_max_length
) {
564 if (arg
->bps_read_max_length
> UINT_MAX
) {
565 error_setg(errp
, "bps-read-max-length value must be in"
566 " the range [0, %u]", UINT_MAX
);
569 cfg
->buckets
[THROTTLE_BPS_READ
].burst_length
= arg
->bps_read_max_length
;
571 if (arg
->has_bps_write_max_length
) {
572 if (arg
->bps_write_max_length
> UINT_MAX
) {
573 error_setg(errp
, "bps-write-max-length value must be in"
574 " the range [0, %u]", UINT_MAX
);
577 cfg
->buckets
[THROTTLE_BPS_WRITE
].burst_length
= arg
->bps_write_max_length
;
579 if (arg
->has_iops_total_max_length
) {
580 if (arg
->iops_total_max_length
> UINT_MAX
) {
581 error_setg(errp
, "iops-total-max-length value must be in"
582 " the range [0, %u]", UINT_MAX
);
585 cfg
->buckets
[THROTTLE_OPS_TOTAL
].burst_length
= arg
->iops_total_max_length
;
587 if (arg
->has_iops_read_max_length
) {
588 if (arg
->iops_read_max_length
> UINT_MAX
) {
589 error_setg(errp
, "iops-read-max-length value must be in"
590 " the range [0, %u]", UINT_MAX
);
593 cfg
->buckets
[THROTTLE_OPS_READ
].burst_length
= arg
->iops_read_max_length
;
595 if (arg
->has_iops_write_max_length
) {
596 if (arg
->iops_write_max_length
> UINT_MAX
) {
597 error_setg(errp
, "iops-write-max-length value must be in"
598 " the range [0, %u]", UINT_MAX
);
601 cfg
->buckets
[THROTTLE_OPS_WRITE
].burst_length
= arg
->iops_write_max_length
;
604 if (arg
->has_iops_size
) {
605 cfg
->op_size
= arg
->iops_size
;
608 throttle_is_valid(cfg
, errp
);
611 /* write the options of a ThrottleConfig to a ThrottleLimits
613 * @cfg: the ThrottleConfig to read from
614 * @var: the ThrottleLimits to write to
616 void throttle_config_to_limits(ThrottleConfig
*cfg
, ThrottleLimits
*var
)
618 var
->bps_total
= cfg
->buckets
[THROTTLE_BPS_TOTAL
].avg
;
619 var
->bps_read
= cfg
->buckets
[THROTTLE_BPS_READ
].avg
;
620 var
->bps_write
= cfg
->buckets
[THROTTLE_BPS_WRITE
].avg
;
621 var
->iops_total
= cfg
->buckets
[THROTTLE_OPS_TOTAL
].avg
;
622 var
->iops_read
= cfg
->buckets
[THROTTLE_OPS_READ
].avg
;
623 var
->iops_write
= cfg
->buckets
[THROTTLE_OPS_WRITE
].avg
;
624 var
->bps_total_max
= cfg
->buckets
[THROTTLE_BPS_TOTAL
].max
;
625 var
->bps_read_max
= cfg
->buckets
[THROTTLE_BPS_READ
].max
;
626 var
->bps_write_max
= cfg
->buckets
[THROTTLE_BPS_WRITE
].max
;
627 var
->iops_total_max
= cfg
->buckets
[THROTTLE_OPS_TOTAL
].max
;
628 var
->iops_read_max
= cfg
->buckets
[THROTTLE_OPS_READ
].max
;
629 var
->iops_write_max
= cfg
->buckets
[THROTTLE_OPS_WRITE
].max
;
630 var
->bps_total_max_length
= cfg
->buckets
[THROTTLE_BPS_TOTAL
].burst_length
;
631 var
->bps_read_max_length
= cfg
->buckets
[THROTTLE_BPS_READ
].burst_length
;
632 var
->bps_write_max_length
= cfg
->buckets
[THROTTLE_BPS_WRITE
].burst_length
;
633 var
->iops_total_max_length
= cfg
->buckets
[THROTTLE_OPS_TOTAL
].burst_length
;
634 var
->iops_read_max_length
= cfg
->buckets
[THROTTLE_OPS_READ
].burst_length
;
635 var
->iops_write_max_length
= cfg
->buckets
[THROTTLE_OPS_WRITE
].burst_length
;
636 var
->iops_size
= cfg
->op_size
;
638 var
->has_bps_total
= true;
639 var
->has_bps_read
= true;
640 var
->has_bps_write
= true;
641 var
->has_iops_total
= true;
642 var
->has_iops_read
= true;
643 var
->has_iops_write
= true;
644 var
->has_bps_total_max
= true;
645 var
->has_bps_read_max
= true;
646 var
->has_bps_write_max
= true;
647 var
->has_iops_total_max
= true;
648 var
->has_iops_read_max
= true;
649 var
->has_iops_write_max
= true;
650 var
->has_bps_read_max_length
= true;
651 var
->has_bps_total_max_length
= true;
652 var
->has_bps_write_max_length
= true;
653 var
->has_iops_total_max_length
= true;
654 var
->has_iops_read_max_length
= true;
655 var
->has_iops_write_max_length
= true;
656 var
->has_iops_size
= true;