vim: src/profiler.c annotate

annotate src/profiler.c @ 17370:ba06a1c42274 v8.1.1684

patch 8.1.1684: profiling functionality is spread out commit https://github.com/vim/vim/commit/fa55cfc69d2b14761e2a8bd85bc1e0d82df770aa Author: Bram Moolenaar <Bram@vim.org> Date: Sat Jul 13 22:59:32 2019 +0200 patch 8.1.1684: profiling functionality is spread out Problem: Profiling functionality is spread out. Solution: Put profiling functionality in profiling.c. (Yegappan Lakshmanan, closes #4666)

author	Bram Moolenaar <Bram@vim.org>
date	Sat, 13 Jul 2019 23:00:06 +0200
parents
children	8f44c630c366

rev	line source
17370 ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 * profiler.c: vim script profiler
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #include "vim.h"
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	15
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	16 #if defined(FEAT_EVAL) \|\| defined(PROTO)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	17 # if defined(FEAT_PROFILE) \|\| defined(FEAT_RELTIME) \|\| defined(PROTO)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 * Store the current time in "tm".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 profile_start(proftime_T *tm)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	24 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	25 QueryPerformanceCounter(tm);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	26 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	27 gettimeofday(tm, NULL);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	30
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	31 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	32 * Compute the elapsed time from "tm" till now and store in "tm".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	33 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 profile_end(proftime_T *tm)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	37 proftime_T now;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	38
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 QueryPerformanceCounter(&now);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 tm->QuadPart = now.QuadPart - tm->QuadPart;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	42 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	43 gettimeofday(&now, NULL);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 tm->tv_usec = now.tv_usec - tm->tv_usec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 tm->tv_sec = now.tv_sec - tm->tv_sec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 if (tm->tv_usec < 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	47 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	48 tm->tv_usec += 1000000;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 --tm->tv_sec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	51 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	52 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	53
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 * Subtract the time "tm2" from "tm".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	56 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 profile_sub(proftime_T tm, proftime_T tm2)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	59 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	60 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	61 tm->QuadPart -= tm2->QuadPart;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	62 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	63 tm->tv_usec -= tm2->tv_usec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	64 tm->tv_sec -= tm2->tv_sec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	65 if (tm->tv_usec < 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	66 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	67 tm->tv_usec += 1000000;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	68 --tm->tv_sec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	69 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	71 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	72
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	73 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	74 * Return a string that represents the time in "tm".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	75 * Uses a static buffer!
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	77 char *
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	78 profile_msg(proftime_T *tm)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	79 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	80 static char buf[50];
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	81
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	82 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	83 LARGE_INTEGER fr;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	84
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	85 QueryPerformanceFrequency(&fr);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	86 sprintf(buf, "%10.6lf", (double)tm->QuadPart / (double)fr.QuadPart);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	87 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 sprintf(buf, "%3ld.%06ld", (long)tm->tv_sec, (long)tm->tv_usec);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 return buf;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	92
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 # if defined(FEAT_FLOAT) \|\| defined(PROTO)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 * Return a float that represents the time in "tm".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 float_T
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 profile_float(proftime_T *tm)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 LARGE_INTEGER fr;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	102
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	103 QueryPerformanceFrequency(&fr);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 return (float_T)tm->QuadPart / (float_T)fr.QuadPart;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	105 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 return (float_T)tm->tv_sec + (float_T)tm->tv_usec / 1000000.0;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	107 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	110
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 * Put the time "msec" past now in "tm".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	114 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 profile_setlimit(long msec, proftime_T *tm)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 if (msec <= 0) /* no limit */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 profile_zero(tm);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	120 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	121 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 LARGE_INTEGER fr;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	123
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	124 QueryPerformanceCounter(tm);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 QueryPerformanceFrequency(&fr);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 tm->QuadPart += (LONGLONG)((double)msec / 1000.0 * (double)fr.QuadPart);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	127 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	128 long usec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	129
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 gettimeofday(tm, NULL);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	131 usec = (long)tm->tv_usec + (long)msec * 1000;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 tm->tv_usec = usec % 1000000L;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 tm->tv_sec += usec / 1000000L;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	134 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	135 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	136 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	137
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 * Return TRUE if the current time is past "tm".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 int
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 profile_passed_limit(proftime_T *tm)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	143 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 proftime_T now;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	145
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	146 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 if (tm->QuadPart == 0) /* timer was not set */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 return FALSE;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 QueryPerformanceCounter(&now);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	150 return (now.QuadPart > tm->QuadPart);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	152 if (tm->tv_sec == 0) /* timer was not set */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	153 return FALSE;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	154 gettimeofday(&now, NULL);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	155 return (now.tv_sec > tm->tv_sec
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 \|\| (now.tv_sec == tm->tv_sec && now.tv_usec > tm->tv_usec));
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	159
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 * Set the time in "tm" to zero.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 profile_zero(proftime_T *tm)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	166 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 tm->QuadPart = 0;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	168 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	169 tm->tv_usec = 0;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 tm->tv_sec = 0;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	173
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	174 # endif /* FEAT_PROFILE \|\| FEAT_RELTIME */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	175
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 #if defined(FEAT_SYN_HL) && defined(FEAT_RELTIME) && defined(FEAT_FLOAT) && defined(FEAT_PROFILE)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 # if defined(HAVE_MATH_H)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	178 # include <math.h>
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	179 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	180
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 * Divide the time "tm" by "count" and store in "tm2".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	185 profile_divide(proftime_T tm, int count, proftime_T tm2)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	186 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	187 if (count == 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 profile_zero(tm2);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	190 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 tm2->QuadPart = tm->QuadPart / count;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 double usec = (tm->tv_sec * 1000000.0 + tm->tv_usec) / count;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	195
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 tm2->tv_sec = floor(usec / 1000000.0);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 tm2->tv_usec = vim_round(usec - (tm2->tv_sec * 1000000.0));
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	198 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	199 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	200 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	201 #endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	202
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	203 # if defined(FEAT_PROFILE) \|\| defined(PROTO)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 * Functions for profiling.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 static proftime_T prof_wait_time;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	208
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	209 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	210 * Add the time "tm2" to "tm".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 profile_add(proftime_T tm, proftime_T tm2)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	214 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	215 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	216 tm->QuadPart += tm2->QuadPart;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	217 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 tm->tv_usec += tm2->tv_usec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	219 tm->tv_sec += tm2->tv_sec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	220 if (tm->tv_usec >= 1000000)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	221 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	222 tm->tv_usec -= 1000000;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	223 ++tm->tv_sec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	224 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	225 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	226 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	227
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	228 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	229 * Add the "self" time from the total time and the children's time.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	230 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	231 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	232 profile_self(proftime_T self, proftime_T total, proftime_T *children)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	233 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	234 /* Check that the result won't be negative. Can happen with recursive
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	235 * calls. */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	236 #ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	237 if (total->QuadPart <= children->QuadPart)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	238 return;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	239 #else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	240 if (total->tv_sec < children->tv_sec
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	241 \|\| (total->tv_sec == children->tv_sec
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	242 && total->tv_usec <= children->tv_usec))
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	243 return;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	244 #endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 profile_add(self, total);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	246 profile_sub(self, children);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	247 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	248
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	249 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	250 * Get the current waittime.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	251 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	252 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	253 profile_get_wait(proftime_T *tm)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	254 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	255 *tm = prof_wait_time;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	256 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	257
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	258 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	259 * Subtract the passed waittime since "tm" from "tma".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	260 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	261 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	262 profile_sub_wait(proftime_T tm, proftime_T tma)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	263 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	264 proftime_T tm3 = prof_wait_time;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	265
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	266 profile_sub(&tm3, tm);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	267 profile_sub(tma, &tm3);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	268 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	269
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	270 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	271 * Return TRUE if "tm1" and "tm2" are equal.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	272 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	273 int
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	274 profile_equal(proftime_T tm1, proftime_T tm2)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	275 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	276 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	277 return (tm1->QuadPart == tm2->QuadPart);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	278 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	279 return (tm1->tv_usec == tm2->tv_usec && tm1->tv_sec == tm2->tv_sec);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	280 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	281 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	282
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	283 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	284 * Return <0, 0 or >0 if "tm1" < "tm2", "tm1" == "tm2" or "tm1" > "tm2"
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	285 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	286 int
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	287 profile_cmp(const proftime_T tm1, const proftime_T tm2)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	288 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	289 # ifdef MSWIN
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	290 return (int)(tm2->QuadPart - tm1->QuadPart);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	291 # else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	292 if (tm1->tv_sec == tm2->tv_sec)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	293 return tm2->tv_usec - tm1->tv_usec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	294 return tm2->tv_sec - tm1->tv_sec;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	295 # endif
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	296 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	297
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	298 static char_u *profile_fname = NULL;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	299 static proftime_T pause_time;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	300
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	301 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	302 * ":profile cmd args"
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	303 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	304 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	305 ex_profile(exarg_T *eap)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	306 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	307 char_u *e;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	308 int len;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	309
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	310 e = skiptowhite(eap->arg);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	311 len = (int)(e - eap->arg);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	312 e = skipwhite(e);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	313
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 if (len == 5 && STRNCMP(eap->arg, "start", 5) == 0 && *e != NUL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	315 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	316 vim_free(profile_fname);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	317 profile_fname = expand_env_save_opt(e, TRUE);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	318 do_profiling = PROF_YES;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	319 profile_zero(&prof_wait_time);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	320 set_vim_var_nr(VV_PROFILING, 1L);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	321 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	322 else if (do_profiling == PROF_NONE)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	323 emsg(_("E750: First use \":profile start {fname}\""));
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	324 else if (STRCMP(eap->arg, "pause") == 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	325 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	326 if (do_profiling == PROF_YES)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	327 profile_start(&pause_time);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 do_profiling = PROF_PAUSED;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	329 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	330 else if (STRCMP(eap->arg, "continue") == 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	331 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	332 if (do_profiling == PROF_PAUSED)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	333 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	334 profile_end(&pause_time);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	335 profile_add(&prof_wait_time, &pause_time);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	336 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	337 do_profiling = PROF_YES;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	338 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	339 else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	340 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	341 /* The rest is similar to ":breakadd". */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	342 ex_breakadd(eap);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	343 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	345
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	346 /* Command line expansion for :profile. */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	347 static enum
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	348 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	349 PEXP_SUBCMD, /* expand :profile sub-commands */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	350 PEXP_FUNC /* expand :profile func {funcname} */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	351 } pexpand_what;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	352
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	353 static char *pexpand_cmds[] = {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	354 "start",
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	355 #define PROFCMD_START 0
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	356 "pause",
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	357 #define PROFCMD_PAUSE 1
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	358 "continue",
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	359 #define PROFCMD_CONTINUE 2
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	360 "func",
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	361 #define PROFCMD_FUNC 3
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	362 "file",
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	363 #define PROFCMD_FILE 4
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	364 NULL
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	365 #define PROFCMD_LAST 5
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	366 };
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	367
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	368 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	369 * Function given to ExpandGeneric() to obtain the profile command
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	370 * specific expansion.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	371 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	372 char_u *
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	373 get_profile_name(expand_T *xp UNUSED, int idx)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	374 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	375 switch (pexpand_what)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	376 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	377 case PEXP_SUBCMD:
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	378 return (char_u *)pexpand_cmds[idx];
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	379 /* case PEXP_FUNC: TODO */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	380 default:
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	381 return NULL;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	382 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	383 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	384
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	385 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	386 * Handle command line completion for :profile command.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	387 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	388 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	389 set_context_in_profile_cmd(expand_T xp, char_u arg)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	390 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	391 char_u *end_subcmd;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	392
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	393 /* Default: expand subcommands. */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	394 xp->xp_context = EXPAND_PROFILE;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	395 pexpand_what = PEXP_SUBCMD;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	396 xp->xp_pattern = arg;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	397
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	398 end_subcmd = skiptowhite(arg);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	399 if (*end_subcmd == NUL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	400 return;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	401
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	402 if (end_subcmd - arg == 5 && STRNCMP(arg, "start", 5) == 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	403 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	404 xp->xp_context = EXPAND_FILES;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	405 xp->xp_pattern = skipwhite(end_subcmd);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	406 return;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	407 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	408
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	409 /* TODO: expand function names after "func" */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	410 xp->xp_context = EXPAND_NOTHING;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	411 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	412
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	413 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	414 * Dump the profiling info.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	415 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	416 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	417 profile_dump(void)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	418 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	419 FILE *fd;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	420
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	421 if (profile_fname != NULL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	422 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	423 fd = mch_fopen((char *)profile_fname, "w");
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	424 if (fd == NULL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	425 semsg(_(e_notopen), profile_fname);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	426 else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	427 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	428 script_dump_profile(fd);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	429 func_dump_profile(fd);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	430 fclose(fd);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	431 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	432 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	433 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	434
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	435 static proftime_T inchar_time;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	436
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	437 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	438 * Called when starting to wait for the user to type a character.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	439 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	440 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	441 prof_inchar_enter(void)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	442 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	443 profile_start(&inchar_time);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	444 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	445
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	446 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	447 * Called when finished waiting for the user to type a character.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	448 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	449 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	450 prof_inchar_exit(void)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	451 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	452 profile_end(&inchar_time);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	453 profile_add(&prof_wait_time, &inchar_time);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	454 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	455
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	456
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	457 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	458 * Return TRUE when a function defined in the current script should be
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	459 * profiled.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	460 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	461 int
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	462 prof_def_func(void)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	463 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	464 if (current_sctx.sc_sid > 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	465 return SCRIPT_ITEM(current_sctx.sc_sid).sn_pr_force;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	466 return FALSE;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	467 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	468
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	469 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	470 prof_sort_list(
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	471 FILE *fd,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	472 ufunc_T **sorttab,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	473 int st_len,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	474 char *title,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	475 int prefer_self) /* when equal print only self time */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	476 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	477 int i;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	478 ufunc_T *fp;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	479
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	480 fprintf(fd, "FUNCTIONS SORTED ON %s TIME\n", title);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	481 fprintf(fd, "count total (s) self (s) function\n");
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	482 for (i = 0; i < 20 && i < st_len; ++i)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	483 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	484 fp = sorttab[i];
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	485 prof_func_line(fd, fp->uf_tm_count, &fp->uf_tm_total, &fp->uf_tm_self,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	486 prefer_self);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	487 if (fp->uf_name[0] == K_SPECIAL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	488 fprintf(fd, " <SNR>%s()\n", fp->uf_name + 3);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	489 else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	490 fprintf(fd, " %s()\n", fp->uf_name);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	491 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	492 fprintf(fd, "\n");
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	493 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	494
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	495 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	496 * Print the count and times for one function or function line.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	497 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	498 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	499 prof_func_line(
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	500 FILE *fd,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	501 int count,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	502 proftime_T *total,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	503 proftime_T *self,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	504 int prefer_self) /* when equal print only self time */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	505 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	506 if (count > 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	507 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	508 fprintf(fd, "%5d ", count);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	509 if (prefer_self && profile_equal(total, self))
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	510 fprintf(fd, " ");
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	511 else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	512 fprintf(fd, "%s ", profile_msg(total));
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	513 if (!prefer_self && profile_equal(total, self))
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	514 fprintf(fd, " ");
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	515 else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	516 fprintf(fd, "%s ", profile_msg(self));
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	517 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	518 else
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	519 fprintf(fd, " ");
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	520 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	521
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	522 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	523 * Compare function for total time sorting.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	524 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	525 int
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	526 prof_total_cmp(const void s1, const void s2)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	527 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	528 ufunc_T p1, p2;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	529
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	530 p1 = (ufunc_T *)s1;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	531 p2 = (ufunc_T *)s2;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	532 return profile_cmp(&p1->uf_tm_total, &p2->uf_tm_total);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	533 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	534
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	535 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	536 * Compare function for self time sorting.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	537 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	538 int
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	539 prof_self_cmp(const void s1, const void s2)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	540 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	541 ufunc_T p1, p2;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	542
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	543 p1 = (ufunc_T *)s1;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	544 p2 = (ufunc_T *)s2;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	545 return profile_cmp(&p1->uf_tm_self, &p2->uf_tm_self);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	546 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	547
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	548 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	549 * Start profiling function "fp".
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	550 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	551 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	552 func_do_profile(ufunc_T *fp)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	553 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	554 int len = fp->uf_lines.ga_len;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	555
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	556 if (!fp->uf_prof_initialized)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	557 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	558 if (len == 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	559 len = 1; /* avoid getting error for allocating zero bytes */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	560 fp->uf_tm_count = 0;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	561 profile_zero(&fp->uf_tm_self);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	562 profile_zero(&fp->uf_tm_total);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	563 if (fp->uf_tml_count == NULL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	564 fp->uf_tml_count = ALLOC_CLEAR_MULT(int, len);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	565 if (fp->uf_tml_total == NULL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	566 fp->uf_tml_total = ALLOC_CLEAR_MULT(proftime_T, len);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	567 if (fp->uf_tml_self == NULL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	568 fp->uf_tml_self = ALLOC_CLEAR_MULT(proftime_T, len);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	569 fp->uf_tml_idx = -1;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	570 if (fp->uf_tml_count == NULL \|\| fp->uf_tml_total == NULL
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	571 \|\| fp->uf_tml_self == NULL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	572 return; /* out of memory */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	573 fp->uf_prof_initialized = TRUE;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	574 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	575
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	576 fp->uf_profiling = TRUE;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	577 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	578
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	579 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	580 * Prepare profiling for entering a child or something else that is not
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	581 * counted for the script/function itself.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	582 * Should always be called in pair with prof_child_exit().
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	583 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	584 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	585 prof_child_enter(
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	586 proftime_T tm) / place to store waittime */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	587 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	588 funccall_T *fc = get_current_funccal();
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	589
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	590 if (fc != NULL && fc->func->uf_profiling)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	591 profile_start(&fc->prof_child);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	592 script_prof_save(tm);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	593 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	594
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	595 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	596 * Take care of time spent in a child.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	597 * Should always be called after prof_child_enter().
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	598 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	599 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	600 prof_child_exit(
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	601 proftime_T tm) / where waittime was stored */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	602 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	603 funccall_T *fc = get_current_funccal();
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	604
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	605 if (fc != NULL && fc->func->uf_profiling)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	606 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	607 profile_end(&fc->prof_child);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	608 profile_sub_wait(tm, &fc->prof_child); /* don't count waiting time */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	609 profile_add(&fc->func->uf_tm_children, &fc->prof_child);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	610 profile_add(&fc->func->uf_tml_children, &fc->prof_child);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	611 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	612 script_prof_restore(tm);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	613 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	614
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	615 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	616 * Called when starting to read a function line.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	617 * "sourcing_lnum" must be correct!
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	618 * When skipping lines it may not actually be executed, but we won't find out
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	619 * until later and we need to store the time now.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	620 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	621 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	622 func_line_start(void *cookie)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	623 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	624 funccall_T fcp = (funccall_T )cookie;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	625 ufunc_T *fp = fcp->func;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	626
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	627 if (fp->uf_profiling && sourcing_lnum >= 1
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	628 && sourcing_lnum <= fp->uf_lines.ga_len)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	629 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	630 fp->uf_tml_idx = sourcing_lnum - 1;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	631 /* Skip continuation lines. */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	632 while (fp->uf_tml_idx > 0 && FUNCLINE(fp, fp->uf_tml_idx) == NULL)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	633 --fp->uf_tml_idx;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	634 fp->uf_tml_execed = FALSE;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	635 profile_start(&fp->uf_tml_start);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	636 profile_zero(&fp->uf_tml_children);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	637 profile_get_wait(&fp->uf_tml_wait);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	638 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	639 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	640
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	641 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	642 * Called when actually executing a function line.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	643 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	644 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	645 func_line_exec(void *cookie)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	646 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	647 funccall_T fcp = (funccall_T )cookie;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	648 ufunc_T *fp = fcp->func;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	649
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	650 if (fp->uf_profiling && fp->uf_tml_idx >= 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	651 fp->uf_tml_execed = TRUE;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	652 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	653
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	654 /*
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	655 * Called when done with a function line.
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	656 */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	657 void
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	658 func_line_end(void *cookie)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	659 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	660 funccall_T fcp = (funccall_T )cookie;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	661 ufunc_T *fp = fcp->func;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	662
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	663 if (fp->uf_profiling && fp->uf_tml_idx >= 0)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	664 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	665 if (fp->uf_tml_execed)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	666 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	667 ++fp->uf_tml_count[fp->uf_tml_idx];
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	668 profile_end(&fp->uf_tml_start);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	669 profile_sub_wait(&fp->uf_tml_wait, &fp->uf_tml_start);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	670 profile_add(&fp->uf_tml_total[fp->uf_tml_idx], &fp->uf_tml_start);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	671 profile_self(&fp->uf_tml_self[fp->uf_tml_idx], &fp->uf_tml_start,
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	672 &fp->uf_tml_children);
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	673 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	674 fp->uf_tml_idx = -1;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	675 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	676 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	677 # endif /* FEAT_PROFILE */
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	678
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	679 #endif

Mercurial > vim

annotate src/profiler.c @ 17370:ba06a1c42274 v8.1.1684