69 lines
1.7 KiB
Bash
69 lines
1.7 KiB
Bash
|
#!/bin/bash
|
||
|
|
|
||
|
|
#
|
||
|
|
# Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
|
||
|
|
# Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
|
||
|
|
# Name: qer_trace.sh - Query Execution Row-source Trace script
|
||
|
|
# Version: 0.2
|
||
|
|
# Author: Tanel Poder (http://blog.tanelpoder.com)
|
||
|
|
#
|
||
|
|
# Notes: Comment out the kcbgtcr:entry and kcbgtcr:return functions if you
|
||
|
|
# want to reduce the amount of output this script generates or see the
|
||
|
|
# output being indented more and more to the right without returning
|
||
|
|
# (dtrace doesn't recognize the return call in some cases)
|
||
|
|
|
||
|
|
dtrace -Fp $1 -n '
|
||
|
|
|
||
|
|
pid$target:oracle:opifch*:entry
|
||
|
|
{}
|
||
|
|
|
||
|
|
pid$target:oracle:opifch*:return
|
||
|
|
{ printf("= %x", arg1) }
|
||
|
|
|
||
|
|
struct qer_rws {
|
||
|
|
uint16_t rws_id;
|
||
|
|
uint16_t rws_parent;
|
||
|
|
};
|
||
|
|
|
||
|
|
struct qer_rws op;
|
||
|
|
|
||
|
|
pid$target:oracle:qer*Fetch*:entry
|
||
|
|
/*, pid$target:oracle:kpofcr:entry
|
||
|
|
, pid$target:oracle:rwsfcd:entry */
|
||
|
|
{
|
||
|
|
op.rws_parent = *(uint32_t *)copyin(arg0,2);
|
||
|
|
op.rws_id = *(uint32_t *)copyin(arg0+2,2);
|
||
|
|
printf("op=%d par=%d rows=%d", op.rws_id, op.rws_parent, arg4)
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
pid$target:oracle:qer*Fetch*:return
|
||
|
|
/*, pid$target:oracle:kpofcr:return
|
||
|
|
, pid$target:oracle:rwsfcd:return */
|
||
|
|
{ printf("= %d", arg1) }
|
||
|
|
|
||
|
|
|
||
|
|
struct kcb_dba_t {
|
||
|
|
uint32_t ts;
|
||
|
|
uint16_t rfile;
|
||
|
|
uint32_t block;
|
||
|
|
};
|
||
|
|
|
||
|
|
struct kcb_dba_t dba;
|
||
|
|
|
||
|
|
pid$target:oracle:kcbgtcr:entry
|
||
|
|
{
|
||
|
|
|
||
|
|
dba.ts = *(uint32_t *) copyin(arg0,4);
|
||
|
|
dba.rfile = *(uint32_t *) copyin(arg0+4,4) >> 22 & 0x000003FF ;
|
||
|
|
dba.block = *(uint32_t *) copyin(arg0+4,4) & 0x003FFFFF ;
|
||
|
|
|
||
|
|
printf("ts=%d rfile=%x block=%d %x x$kcbwh.indx=%x", dba.ts, dba.rfile, dba.block, arg1,arg2);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
pid$target:oracle:kcbgtcr:return
|
||
|
|
{ printf("= %x %x", arg0, arg1) }
|
||
|
|
|
||
|
|
'
|