|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/share/systemtap/tapset/ |
Upload File : |
// IO scheduler tapset
// Copyright (C) 2005, 2006 IBM Corp.
//
// This file is part of systemtap, and is free software. You can
// redistribute it and/or modify it under the terms of the GNU General
// Public License (GPL); either version 2, or (at your option) any
// later version.
%{
#include <linux/blkdev.h>
#include <linux/elevator.h>
%}
/* when a request is retrieved from request queue */
probe ioscheduler.elv_next_request
= kernel.function("elv_next_request")
{
%( kernel_v >= "2.6.10" %?
elevator_name = kernel_string($q->elevator->elevator_type->elevator_name)
%:
elevator_name = kernel_string($q->elevator->elevator_name)
%)
}
probe ioscheduler.elv_next_request.return
= kernel.function("elv_next_request").return
{
if($return == 0) {
req = 0
req_flags = 0
disk_major = -1
disk_minor = -1
} else {
req = $return
req_flags = $return->flags
if($return->rq_disk == 0) {
disk_major = -1
disk_minor = -1
} else {
disk_major = $return->rq_disk->major
disk_minor = $return->rq_disk->first_minor
}
}
}
/* when a request is added to the request queue */
probe ioscheduler.elv_add_request
= kernel.function("__elv_add_request")
{
%( kernel_v >= "2.6.10" %?
elevator_name = kernel_string($q->elevator->elevator_type->elevator_name)
%:
elevator_name = kernel_string($q->elevator->elevator_name)
%)
if($rq == 0) {
disk_major = -1
disk_minor = -1
} else {
if($rq->rq_disk == 0) {
disk_major = -1
disk_minor = -1
} else {
disk_major = $rq->rq_disk->major
disk_minor = $rq->rq_disk->first_minor
}
}
req = $rq
req_flags = $rq->flags
}
/* when a request is completed */
probe ioscheduler.elv_completed_request
= kernel.function("elv_completed_request")
{
%( kernel_v >= "2.6.10" %?
elevator_name = kernel_string($q->elevator->elevator_type->elevator_name)
%:
elevator_name = kernel_string($q->elevator->elevator_name)
%)
if($rq == 0) {
disk_major = -1
disk_minor = -1
} else {
if($rq->rq_disk == 0) {
disk_major = -1
disk_minor = -1
} else {
disk_major = $rq->rq_disk->major
disk_minor = $rq->rq_disk->first_minor
}
}
req = $rq
req_flags = $rq->flags
}
function disk_major_from_request:long(var_q:long)
%{ /* pure */
struct request_queue *q;
struct request *rq;
q = (struct request_queue *)((long)THIS->var_q);
if(list_empty(&(q->queue_head)))
THIS->__retvalue = -1;
else {
rq = list_entry_rq(q->queue_head.next);
THIS->__retvalue = rq->rq_disk->first_minor;
}
%}
function disk_minor_from_request:long(var_q:long)
%{ /* pure */
struct request_queue *q;
struct request *rq;
q = (struct request_queue *)((long)THIS->var_q);
if(list_empty(&(q->queue_head)))
THIS->__retvalue = -1;
else {
rq = list_entry_rq(q->queue_head.next);
THIS->__retvalue = rq->rq_disk->first_minor;
}
%}