patch-2.4.2 linux/drivers/s390/block/dasd_profile.c
Next file: linux/drivers/s390/block/dasd_types.h
Previous file: linux/drivers/s390/block/dasd_proc.c
Back to the patch index
Back to the overall index
- Lines: 209
- Date:
Wed Dec 31 16:00:00 1969
- Orig file:
v2.4.1/linux/drivers/s390/block/dasd_profile.c
- Orig date:
Fri May 12 11:41:44 2000
diff -u --recursive --new-file v2.4.1/linux/drivers/s390/block/dasd_profile.c linux/drivers/s390/block/dasd_profile.c
@@ -1,208 +0,0 @@
-#include <linux/mm.h>
-
-#include <linux/dasd.h>
-
-#include "dasd_types.h"
-
-#define PRINTK_HEADER "dasd_profile:"
-
-static long dasd_io_reqs=0; /* number of requests processed at all */
-static long dasd_io_secs[16]; /* histogram of request's sizes */
-static long dasd_io_times[16]; /* histogram of requests's times */
-static long dasd_io_timps[16]; /* histogram of requests's times per sector */
-static long dasd_io_time1[16]; /* histogram of time from build to start */
-static long dasd_io_time2[16]; /* histogram of time from start to irq */
-static long dasd_io_time2ps[16]; /* histogram of time from start to irq */
-static long dasd_io_time3[16]; /* histogram of time from irq to end */
-
-void
-dasd_profile_add ( cqr_t *cqr )
-{
- int ind;
- long strtime,irqtime,endtime,tottime;
- long tottimeps,sectors;
- long help;
- if ( ! cqr -> req )
- return;
- sectors = cqr -> req -> nr_sectors;
- strtime = ((cqr->startclk - cqr->buildclk) >> 12);
- irqtime = ((cqr->stopclk - cqr->startclk) >> 12);
- endtime = ((cqr->endclk - cqr->stopclk) >> 12);
- tottime = ((cqr->endclk - cqr->buildclk) >> 12);
- tottimeps = tottime / sectors;
-
- if (! dasd_io_reqs ++){
- for ( ind = 0; ind < 16; ind ++) {
- dasd_io_secs[ind] = 0;
- dasd_io_times[ind]=0;
- dasd_io_timps[ind]=0;
- dasd_io_time1[ind]=0;
- dasd_io_time2[ind]=0;
- dasd_io_time2ps[ind]=0;
- dasd_io_time3[ind]=0;
- }
- };
-
- for ( ind = 0, help = sectors >> 3;
- ind < 15 && help;
- help = help >> 1,ind ++);
- dasd_io_secs[ind] ++;
-
- for ( ind = 0, help = tottime >> 3;
- ind < 15 && help;
- help = help >> 1,ind ++);
- dasd_io_times[ind] ++;
-
- for ( ind = 0, help = tottimeps >> 3;
- ind < 15 && help;
- help = help >> 1,ind ++);
- dasd_io_timps[ind] ++;
-
- for ( ind = 0, help = strtime >> 3;
- ind < 15 && help;
- help = help >> 1,ind ++);
- dasd_io_time1[ind] ++;
-
- for ( ind = 0, help = irqtime >> 3;
- ind < 15 && help;
- help = help >> 1,ind ++);
- dasd_io_time2[ind] ++;
-
- for ( ind = 0, help = (irqtime/sectors) >> 3;
- ind < 15 && help;
- help = help >> 1,ind ++);
- dasd_io_time2ps[ind] ++;
-
- for ( ind = 0, help = endtime >> 3;
- ind < 15 && help;
- help = help >> 1,ind ++);
- dasd_io_time3[ind] ++;
-}
-
-int
-dasd_proc_read_statistics ( char * buf, char **start,
- off_t off, int len, int d)
-{
- int i;
- int shift, help;
-
- for ( shift = 0, help = dasd_io_reqs;
- help > 8192;
- help = help >> 1,shift ++);
- len = sprintf ( buf, "%ld dasd I/O requests\n", dasd_io_reqs);
- len += sprintf ( buf+len, "__<4 ___8 __16 __32 __64 _128 _256 _512 __1k __2k __4k __8k _16k _32k _64k >64k\n");
- len += sprintf ( buf+len, "Histogram of sizes (512B secs)\n");
- for ( i = 0; i < 16; i ++) {
- len += sprintf ( buf+len, "%4ld ",dasd_io_secs[i] >> shift );
- }
- len += sprintf ( buf+len, "\n");
- len += sprintf ( buf+len, "Histogram of I/O times\n");
- for ( i = 0; i < 16; i ++) {
- len += sprintf ( buf+len, "%4ld ",dasd_io_times[i] >> shift );
- }
- len += sprintf ( buf+len, "\n");
- len += sprintf ( buf+len, "Histogram of I/O times per sector\n");
- for ( i = 0; i < 16; i ++) {
- len += sprintf ( buf+len, "%4ld ",dasd_io_timps[i] >> shift );
- }
- len += sprintf ( buf+len, "\n");
- len += sprintf ( buf+len, "Histogram of I/O time till ssch\n");
- for ( i = 0; i < 16; i ++) {
- len += sprintf ( buf+len, "%4ld ",dasd_io_time1[i] >> shift );
- }
- len += sprintf ( buf+len, "\n");
- len += sprintf ( buf+len, "Histogram of I/O time between ssch and irq\n");
- for ( i = 0; i < 16; i ++) {
- len += sprintf ( buf+len, "%4ld ",dasd_io_time2[i] >> shift );
- }
- len += sprintf ( buf+len, "\n");
- len += sprintf ( buf+len, "Histogram of I/O time between ssch and irq per sector\n");
- for ( i = 0; i < 16; i ++) {
- len += sprintf ( buf+len, "%4ld ",dasd_io_time2ps[i] >> shift );
- }
- len += sprintf ( buf+len, "\n");
- len += sprintf ( buf+len, "Histogram of I/O time between irq and end\n");
- for ( i = 0; i < 16; i ++) {
- len += sprintf ( buf+len, "%4ld ",dasd_io_time3[i] >> shift );
- }
- len += sprintf ( buf+len, "\n");
- return len;
-}
-typedef
-struct {
- union {
- unsigned long long clock;
- struct {
- unsigned int ts1;
- unsigned int ts2 : 20;
- unsigned int unused : 8;
- unsigned int cpu : 4;
- } __attribute__ ((packed)) s;
- } __attribute__ ((packed)) u;
- unsigned long caller_address;
- unsigned long tag;
-} __attribute__ ((packed)) dasd_debug_entry;
-
-static dasd_debug_entry *dasd_debug_area = NULL;
-static dasd_debug_entry *dasd_debug_actual;
-static spinlock_t debug_lock = SPIN_LOCK_UNLOCKED;
-
-void
-dasd_debug ( unsigned long tag )
-{
- long flags;
- dasd_debug_entry *d;
- /* initialize in first call ... */
- if ( ! dasd_debug_area ) {
- dasd_debug_actual = dasd_debug_area =
- (dasd_debug_entry *) get_free_page (GFP_ATOMIC);
- if ( ! dasd_debug_area ) {
- PRINT_WARN("No debug area allocated\n");
- return;
- }
- memset (dasd_debug_area,0,PAGE_SIZE);
- }
- /* renormalize to page */
- spin_lock_irqsave(&debug_lock,flags);
- dasd_debug_actual = (dasd_debug_entry *)
- ( (unsigned long) dasd_debug_area +
- ( ( (unsigned long)dasd_debug_actual -
- (unsigned long)dasd_debug_area ) % PAGE_SIZE ) );
- d = dasd_debug_actual ++;
- spin_unlock_irqrestore(&debug_lock,flags);
- /* write CPUID to lowest 12 bits of clock... */
- __asm__ __volatile__ ( "STCK %0"
- :"=m" (d->u.clock));
- d->tag = tag;
- d -> caller_address = (unsigned long) __builtin_return_address(0);
- d->u.s.cpu = smp_processor_id();
-}
-
-int
-dasd_proc_read_debug ( char * buf, char **start,
- off_t off, int len, int dd)
-{
- dasd_debug_entry *d;
- char tag[9] = { 0, };
- long flags;
- spin_lock_irqsave(&debug_lock,flags);
- len = 0;
- for( d = dasd_debug_area;
- len < 4068 ;
- d ++ ) {
- if ( *(char*)(&d->tag) == 'D' ) {
- memcpy(tag,&(d->tag),4);
- tag[4]=0;
- }
- else {
- sprintf(tag,"%08lx", d->tag);
- tag[8]=0;
- }
- len += sprintf ( buf+len,
- "%x %08x%05x %08lx (%8s)\n",
- d->u.s.cpu, d->u.s.ts1, d->u.s.ts2,
- d->caller_address,tag);
- }
- spin_unlock_irqrestore(&debug_lock,flags);
- return len;
-}
FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen (who was at: slshen@lbl.gov)