octave-max: src/profiler.cc annotate

annotate src/profiler.cc @ 12920:5d18231eee00

Extend profiling support to operators. * profiler.h: Always use std::string with profiler name instead of octave_function references for identifying functions. * profiler.cc: Adapt for that. * ov-builtin.cc: Ditto. * ov-mex-fcn.cc: Ditto. * ov-usr-fcn.cc: Ditto. * pt-binop.cc (tree_binary_expression::rvalue1): Collect profiler data. * pt-unop.cc (tree_prefix_expression::rvalue1): Ditto. (tree_postfix_expression::rvalue1): Ditto.

author	Daniel Kraft <d@domob.eu>
date	Fri, 29 Jul 2011 17:51:39 +0200
parents	39d813616c8f
children	a451ae847adb

rev	line source
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	1 /*
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	2
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	3 Copyright (C) 2011 Daniel Kraft
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	4
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	5 This file is part of Octave.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	6
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	8 under the terms of the GNU General Public License as published by the
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	10 option) any later version.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	11
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	15 for more details.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	16
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	17 You should have received a copy of the GNU General Public License
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	18 along with Octave; see the file COPYING. If not, see
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	19 <http://www.gnu.org/licenses/>.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	20
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	21 */
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	22
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	23 #ifdef HAVE_CONFIG_H
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	24 #include <config.h>
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	25 #endif
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	26
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	27 #include <iostream>
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	28
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	29 #include "defun.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	30 #include "oct-time.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	31 #include "ov-struct.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	32 #include "pager.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	33 #include "profiler.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	34
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	35 profile_data_accumulator::enter::enter (profile_data_accumulator& a,
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	36 const std::string& f)
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	37 : acc (a)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	38 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	39 if (acc.is_active ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	40 {
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	41 fcn = f;
5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	42 acc.enter_function (fcn);
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	43 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	44 else
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	45 fcn = "";
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	46 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	47
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	48 profile_data_accumulator::enter::~enter ()
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	49 {
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	50 if (fcn != "")
5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	51 acc.exit_function (fcn);
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	52 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	53
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	54 profile_data_accumulator::stats::stats ()
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	55 : time (0.0), calls (0), recursive (false),
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	56 parents (), children ()
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	57 {}
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	58
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	59 // With the help of a mapping name -> index, convert a function_set list
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	60 // to an Octave array of indices.
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	61 octave_value
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	62 profile_data_accumulator::stats::function_set_value (const function_set& list,
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	63 const fcn_index_map& idx)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	64 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	65 const octave_idx_type n = list.size ();
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	66
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	67 RowVector retval (n);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	68 octave_idx_type i = 0;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	69 for (function_set::const_iterator p = list.begin (); p != list.end (); ++p)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	70 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	71 fcn_index_map::const_iterator q = idx.find (*p);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	72 assert (q != idx.end ());
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	73 retval (i) = q->second;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	74 ++i;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	75 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	76 assert (i == n);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	77
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	78 return retval;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	79 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	80
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	81 profile_data_accumulator::profile_data_accumulator ()
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	82 : enabled (false), call_stack (), data (), last_time (-1.0)
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	83 {}
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	84
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	85 void
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	86 profile_data_accumulator::set_active (bool value)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	87 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	88 // If we enable, clear the call-stack. This ensures we freshly start
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	89 // with collecting times now.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	90 if (value)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	91 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	92 while (!call_stack.empty ())
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	93 call_stack.pop_back ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	94 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	95
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	96 enabled = value;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	97 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	98
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	99 void
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	100 profile_data_accumulator::enter_function (const std::string& fcn)
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	101 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	102 // The enter class will check and only call us if the profiler is active.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	103 assert (is_active ());
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	104
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	105 // If there is already an active function, add to its time before
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	106 // pushing the new one.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	107 if (!call_stack.empty ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	108 add_current_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	109
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	110 // Update non-timing related data for the function entered.
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	111 stats& entry = data[fcn];
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	112 ++entry.calls;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	113 if (!call_stack.empty ())
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	114 {
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	115 const std::string parent_name = call_stack.back ();
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	116 entry.parents.insert (parent_name);
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	117 data[parent_name].children.insert (fcn);
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	118 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	119 if (!entry.recursive)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	120 for (call_stack_type::iterator i = call_stack.begin ();
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	121 i != call_stack.end (); ++i)
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	122 if (*i == fcn)
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	123 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	124 entry.recursive = true;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	125 break;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	126 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	127
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	128 call_stack.push_back (fcn);
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	129 last_time = query_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	130 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	131
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	132 void
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	133 profile_data_accumulator::exit_function (const std::string& fcn)
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	134 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	135 assert (!call_stack.empty ());
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	136 assert (fcn == call_stack.back ());
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	137
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	138 // Usually, if we are disabled this function is not even called. But the
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	139 // call disabling the profiler is an exception. So also check here
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	140 // and only record the time if enabled.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	141 if (is_active ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	142 add_current_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	143
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	144 call_stack.pop_back ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	145
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	146 // If this was an "inner call", we resume executing the parent function
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	147 // up the stack. So note the start-time for this!
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	148 last_time = query_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	149 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	150
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	151 void
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	152 profile_data_accumulator::reset (void)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	153 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	154 if (is_active ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	155 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	156 error ("Can't reset active profiler.");
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	157 return;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	158 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	159
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	160 data.clear ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	161 last_time = -1.0;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	162 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	163
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	164 octave_value
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	165 profile_data_accumulator::get_data (void) const
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	166 {
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	167 const octave_idx_type n = data.size ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	168
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	169 // For the parent/child data, we need to map function key-names
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	170 // to the indices they correspond to in the output array. Find them out
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	171 // in a preparation step.
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	172 fcn_index_map fcn_indices;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	173 octave_idx_type i = 0;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	174 for (stats_map::const_iterator p = data.begin (); p != data.end (); ++p)
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	175 {
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	176 fcn_indices[p->first] = i + 1;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	177 ++i;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	178 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	179 assert (i == n);
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	180
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	181 Cell rv_names (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	182 Cell rv_times (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	183 Cell rv_calls (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	184 Cell rv_recursive (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	185 Cell rv_parents (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	186 Cell rv_children (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	187
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	188 i = 0;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	189 for (stats_map::const_iterator p = data.begin (); p != data.end (); ++p)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	190 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	191 const stats& entry = p->second;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	192
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	193 rv_names (i) = octave_value (p->first);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	194 rv_times (i) = octave_value (entry.time);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	195 rv_calls (i) = octave_value (entry.calls);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	196 rv_recursive (i) = octave_value (entry.recursive);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	197 rv_parents (i) = stats::function_set_value (entry.parents, fcn_indices);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	198 rv_children (i) = stats::function_set_value (entry.children, fcn_indices);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	199
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	200 ++i;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	201 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	202 assert (i == n);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	203
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	204 Octave_map retval;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	205
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	206 retval.assign ("FunctionName", rv_names);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	207 retval.assign ("TotalTime", rv_times);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	208 retval.assign ("NumCalls", rv_calls);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	209 retval.assign ("IsRecursive", rv_recursive);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	210 retval.assign ("Parents", rv_parents);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	211 retval.assign ("Children", rv_children);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	212
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	213 return retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	214 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	215
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	216 double
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	217 profile_data_accumulator::query_time (void) const
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	218 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	219 octave_time now;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	220 return now.double_value ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	221 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	222
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	223 void
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	224 profile_data_accumulator::add_current_time (void)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	225 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	226 const double t = query_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	227 assert (last_time >= 0.0 && last_time <= t);
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	228
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	229 assert (!call_stack.empty ());
12920 5d18231eee00 Extend profiling support to operators. Daniel Kraft <d@domob.eu> parents: 12870 diff changeset	230 const std::string name = call_stack.back ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	231
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	232 // The entry for this function should already be created; namely
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	233 // when entering the function via the non-timing data collection!
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	234 stats_map::iterator pos = data.find (name);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	235 assert (pos != data.end ());
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	236 pos->second.time += t - last_time;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	237 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	238
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	239 profile_data_accumulator profiler;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	240
12870 39d813616c8f Restore the docstrings for internal profiler functions as C++ comments Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12869 diff changeset	241 // Enable or disable the profiler data collection.
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	242 DEFUN (__profiler_enable, args, ,
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	243 "-- texinfo --\n\
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	244 @deftypefn {Function File} __profiler_enable ()\n\
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	245 Undocumented internal function.\n\
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	246 @end deftypefn")
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	247 {
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	248 octave_value_list retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	249
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	250 const int nargin = args.length ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	251 if (nargin > 0)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	252 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	253 if (nargin > 1)
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	254 {
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	255 print_usage ();
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	256 return retval;
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	257 }
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	258
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	259 profiler.set_active (args(0).bool_value ());
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	260 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	261
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	262 retval(0) = profiler.is_active ();
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	263
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	264 return retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	265 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	266
12870 39d813616c8f Restore the docstrings for internal profiler functions as C++ comments Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12869 diff changeset	267 // Clear all collected profiling data.
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	268 DEFUN (__profiler_reset, args, ,
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	269 "-- texinfo --\n\
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	270 @deftypefn {Function File} __profiler_reset ()\n\
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	271 Undocumented internal function.\n\
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	272 @end deftypefn")
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	273 {
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	274 octave_value_list retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	275 const int nargin = args.length ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	276
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	277 if (nargin > 0)
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	278 warning ("profiler_reset: ignoring extra arguments");
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	279
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	280 profiler.reset ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	281
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	282 return retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	283 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	284
12870 39d813616c8f Restore the docstrings for internal profiler functions as C++ comments Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12869 diff changeset	285 // Query the timings collected by the profiler.
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	286 DEFUN (__profiler_data, args, ,
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	287 "-- texinfo --\n\
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	288 @deftypefn {Function File} __profiler_data ()\n\
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	289 Undocumented internal function.\n\
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	290 @end deftypefn")
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	291 {
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	292 octave_value_list retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	293 const int nargin = args.length ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	294
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	295 if (nargin > 0)
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	296 warning ("profiler_data: ignoring extra arguments");
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	297
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	298 retval(0) = profiler.get_data ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	299
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	300 return retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	301 }

Mercurial > hg > octave-max

annotate src/profiler.cc @ 12920:5d18231eee00