vim: src/profiler.c annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	d863a33cb220
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	11 * profiler.c: vim script profiler
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	12 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	14 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	15
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	16 #if defined(FEAT_EVAL) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	17 # if defined(FEAT_PROFILE) \|\| defined(FEAT_RELTIME) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	18 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	19 * Store the current time in "tm".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	20 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	21 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	22 profile_start(proftime_T *tm)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	23 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	24 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	25 QueryPerformanceCounter(tm);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	26 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	27 PROF_GET_TIME(tm);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	28 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	29 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	30
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	31 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	32 * Compute the elapsed time from "tm" till now and store in "tm".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	33 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	34 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	35 profile_end(proftime_T *tm)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	36 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	37 proftime_T now;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	38
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	39 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	40 QueryPerformanceCounter(&now);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	41 tm->QuadPart = now.QuadPart - tm->QuadPart;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	42 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	43 PROF_GET_TIME(&now);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	44 tm->tv_fsec = now.tv_fsec - tm->tv_fsec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	45 tm->tv_sec = now.tv_sec - tm->tv_sec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	46 if (tm->tv_fsec < 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	47 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	48 tm->tv_fsec += TV_FSEC_SEC;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	49 --tm->tv_sec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	50 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	51 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	52 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	53
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	54 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	55 * Subtract the time "tm2" from "tm".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	56 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	57 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	58 profile_sub(proftime_T tm, proftime_T tm2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	59 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	60 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	61 tm->QuadPart -= tm2->QuadPart;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	62 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	63 tm->tv_fsec -= tm2->tv_fsec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	64 tm->tv_sec -= tm2->tv_sec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	65 if (tm->tv_fsec < 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	66 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	67 tm->tv_fsec += TV_FSEC_SEC;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	68 --tm->tv_sec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	69 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	70 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	71 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	72
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	73 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	74 * Return a string that represents the time in "tm".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	75 * Uses a static buffer!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	76 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	77 char *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	78 profile_msg(proftime_T *tm)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	79 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	80 static char buf[50];
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	81
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	82 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	83 LARGE_INTEGER fr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	84
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	85 QueryPerformanceFrequency(&fr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	86 sprintf(buf, "%10.6lf", (double)tm->QuadPart / (double)fr.QuadPart);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	87 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	88 sprintf(buf, PROF_TIME_FORMAT, (long)tm->tv_sec, (long)tm->tv_fsec);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	89 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	90 return buf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	91 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	92
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	93 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	94 * Return a float that represents the time in "tm".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	95 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	96 float_T
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	97 profile_float(proftime_T *tm)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	98 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	99 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	100 LARGE_INTEGER fr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	101
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	102 QueryPerformanceFrequency(&fr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	103 return (float_T)tm->QuadPart / (float_T)fr.QuadPart;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	104 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	105 return (float_T)tm->tv_sec + (float_T)tm->tv_fsec / (float_T)TV_FSEC_SEC;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	106 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	107 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	108
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	109 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	110 * Put the time "msec" past now in "tm".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	111 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	112 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	113 profile_setlimit(long msec, proftime_T *tm)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	114 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	115 if (msec <= 0) // no limit
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	116 profile_zero(tm);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	117 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	118 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	119 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	120 LARGE_INTEGER fr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	121
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	122 QueryPerformanceCounter(tm);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	123 QueryPerformanceFrequency(&fr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	124 tm->QuadPart += (LONGLONG)((double)msec / 1000.0 * (double)fr.QuadPart);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	125 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	126 varnumber_T fsec; // this should be 64 bit if possible
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	127
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	128 PROF_GET_TIME(tm);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	129 fsec = (varnumber_T)tm->tv_fsec
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	130 + (varnumber_T)msec * (varnumber_T)(TV_FSEC_SEC / 1000);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	131 tm->tv_fsec = fsec % (long)TV_FSEC_SEC;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	132 tm->tv_sec += fsec / (long)TV_FSEC_SEC;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	133 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	134 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	135 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	136
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	137 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	138 * Return TRUE if the current time is past "tm".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	139 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	140 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	141 profile_passed_limit(proftime_T *tm)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	142 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	143 proftime_T now;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	144
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	145 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	146 if (tm->QuadPart == 0) // timer was not set
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	147 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	148 QueryPerformanceCounter(&now);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	149 return (now.QuadPart > tm->QuadPart);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	150 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	151 if (tm->tv_sec == 0) // timer was not set
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	152 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	153 PROF_GET_TIME(&now);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	154 return (now.tv_sec > tm->tv_sec
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	155 \|\| (now.tv_sec == tm->tv_sec && now.tv_fsec > tm->tv_fsec));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	156 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	157 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	158
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	159 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	160 * Set the time in "tm" to zero.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	161 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	162 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	163 profile_zero(proftime_T *tm)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	164 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	165 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	166 tm->QuadPart = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	167 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	168 tm->tv_fsec = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	169 tm->tv_sec = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	170 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	171 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	172
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	173 # endif // FEAT_PROFILE \|\| FEAT_RELTIME
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	174
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	175 #if defined(FEAT_SYN_HL) && defined(FEAT_RELTIME) && defined(FEAT_PROFILE)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	176 # if defined(HAVE_MATH_H)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	177 # include <math.h>
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	178 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	179
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	180 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	181 * Divide the time "tm" by "count" and store in "tm2".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	182 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	183 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	184 profile_divide(proftime_T tm, int count, proftime_T tm2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	185 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	186 if (count == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	187 profile_zero(tm2);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	188 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	189 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	190 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	191 tm2->QuadPart = tm->QuadPart / count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	192 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	193 double fsec = (tm->tv_sec * (float_T)TV_FSEC_SEC + tm->tv_fsec)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	194 / count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	195
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	196 tm2->tv_sec = floor(fsec / (float_T)TV_FSEC_SEC);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	197 tm2->tv_fsec = vim_round(fsec - (tm2->tv_sec * (float_T)TV_FSEC_SEC));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	198 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	199 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	200 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	201 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	202
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	203 # if defined(FEAT_PROFILE) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	204 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	205 * Functions for profiling.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	206 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	207 static proftime_T prof_wait_time;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	208
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	209 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	210 * Add the time "tm2" to "tm".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	211 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	212 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	213 profile_add(proftime_T tm, proftime_T tm2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	214 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	215 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	216 tm->QuadPart += tm2->QuadPart;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	217 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	218 tm->tv_fsec += tm2->tv_fsec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	219 tm->tv_sec += tm2->tv_sec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	220 if (tm->tv_fsec >= TV_FSEC_SEC)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	221 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	222 tm->tv_fsec -= TV_FSEC_SEC;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	223 ++tm->tv_sec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	224 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	225 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	226 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	227
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	228 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	229 * Add the "self" time from the total time and the children's time.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	230 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	231 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	232 profile_self(proftime_T self, proftime_T total, proftime_T *children)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	233 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	234 // Check that the result won't be negative. Can happen with recursive
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	235 // calls.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	236 #ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	237 if (total->QuadPart <= children->QuadPart)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	238 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	239 #else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	240 if (total->tv_sec < children->tv_sec
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	241 \|\| (total->tv_sec == children->tv_sec
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	242 && total->tv_fsec <= children->tv_fsec))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	243 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	244 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	245 profile_add(self, total);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	246 profile_sub(self, children);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	247 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	248
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	249 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	250 * Get the current waittime.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	251 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	252 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	253 profile_get_wait(proftime_T *tm)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	254 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	255 *tm = prof_wait_time;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	256 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	257
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	258 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	259 * Subtract the passed waittime since "tm" from "tma".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	260 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	261 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	262 profile_sub_wait(proftime_T tm, proftime_T tma)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	263 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	264 proftime_T tm3 = prof_wait_time;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	265
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	266 profile_sub(&tm3, tm);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	267 profile_sub(tma, &tm3);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	268 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	269
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	270 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	271 * Return TRUE if "tm1" and "tm2" are equal.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	272 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	273 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	274 profile_equal(proftime_T tm1, proftime_T tm2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	275 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	276 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	277 return (tm1->QuadPart == tm2->QuadPart);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	278 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	279 return (tm1->tv_fsec == tm2->tv_fsec && tm1->tv_sec == tm2->tv_sec);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	280 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	281 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	282
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	283 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	284 * Return <0, 0 or >0 if "tm1" < "tm2", "tm1" == "tm2" or "tm1" > "tm2"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	285 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	286 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	287 profile_cmp(const proftime_T tm1, const proftime_T tm2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	288 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	289 # ifdef MSWIN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	290 return (int)(tm2->QuadPart - tm1->QuadPart);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	291 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	292 if (tm1->tv_sec == tm2->tv_sec)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	293 return tm2->tv_fsec - tm1->tv_fsec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	294 return tm2->tv_sec - tm1->tv_sec;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	295 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	296 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	297
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	298 static char_u *profile_fname = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	299 static proftime_T pause_time;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	300
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	301 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	302 * Reset all profiling information.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	303 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	304 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	305 profile_reset(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	306 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	307 int id;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	308 int todo;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	309 hashtab_T *functbl;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	310 hashitem_T *hi;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	311
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	312 // Reset sourced files.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	313 for (id = 1; id <= script_items.ga_len; id++)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	314 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	315 scriptitem_T *si = SCRIPT_ITEM(id);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	316 if (si->sn_prof_on)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	317 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	318 si->sn_prof_on = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	319 si->sn_pr_force = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	320 profile_zero(&si->sn_pr_child);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	321 si->sn_pr_nest = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	322 si->sn_pr_count = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	323 profile_zero(&si->sn_pr_total);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	324 profile_zero(&si->sn_pr_self);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	325 profile_zero(&si->sn_pr_start);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	326 profile_zero(&si->sn_pr_children);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	327 ga_clear(&si->sn_prl_ga);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	328 profile_zero(&si->sn_prl_start);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	329 profile_zero(&si->sn_prl_children);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	330 profile_zero(&si->sn_prl_wait);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	331 si->sn_prl_idx = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	332 si->sn_prl_execed = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	333 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	334 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	335
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	336 // Reset functions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	337 functbl = func_tbl_get();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	338 todo = (int)functbl->ht_used;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	339
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	340 FOR_ALL_HASHTAB_ITEMS(functbl, hi, todo)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	341 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	342 ufunc_T *fp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	343 int i;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	344
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	345 if (HASHITEM_EMPTY(hi))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	346 continue;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	347
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	348 todo--;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	349 fp = HI2UF(hi);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	350 if (fp->uf_prof_initialized)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	351 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	352 fp->uf_profiling = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	353 fp->uf_prof_initialized = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	354 fp->uf_tm_count = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	355 profile_zero(&fp->uf_tm_total);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	356 profile_zero(&fp->uf_tm_self);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	357 profile_zero(&fp->uf_tm_children);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	358
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	359 for (i = 0; i < fp->uf_lines.ga_len; i++)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	360 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	361 fp->uf_tml_count[i] = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	362 profile_zero(&fp->uf_tml_total[i]);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	363 profile_zero(&fp->uf_tml_self[i]);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	364 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	365
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	366 profile_zero(&fp->uf_tml_start);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	367 profile_zero(&fp->uf_tml_children);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	368 profile_zero(&fp->uf_tml_wait);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	369 fp->uf_tml_idx = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	370 fp->uf_tml_execed = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	371 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	372 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	373
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	374 VIM_CLEAR(profile_fname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	375 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	376
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	377 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	378 * ":profile cmd args"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	379 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	380 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	381 ex_profile(exarg_T *eap)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	382 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	383 char_u *e;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	384 int len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	385
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	386 e = skiptowhite(eap->arg);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	387 len = (int)(e - eap->arg);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	388 e = skipwhite(e);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	389
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	390 if (len == 5 && STRNCMP(eap->arg, "start", 5) == 0 && *e != NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	391 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	392 VIM_CLEAR(profile_fname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	393 profile_fname = expand_env_save_opt(e, TRUE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	394 do_profiling = PROF_YES;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	395 profile_zero(&prof_wait_time);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	396 set_vim_var_nr(VV_PROFILING, 1L);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	397 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	398 else if (do_profiling == PROF_NONE)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	399 emsg(_(e_first_use_profile_start_fname));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	400 else if (STRCMP(eap->arg, "stop") == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	401 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	402 profile_dump();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	403 do_profiling = PROF_NONE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	404 set_vim_var_nr(VV_PROFILING, 0L);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	405 profile_reset();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	406 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	407 else if (STRCMP(eap->arg, "pause") == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	408 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	409 if (do_profiling == PROF_YES)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	410 profile_start(&pause_time);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	411 do_profiling = PROF_PAUSED;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	412 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	413 else if (STRCMP(eap->arg, "continue") == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	414 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	415 if (do_profiling == PROF_PAUSED)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	416 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	417 profile_end(&pause_time);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	418 profile_add(&prof_wait_time, &pause_time);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	419 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	420 do_profiling = PROF_YES;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	421 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	422 else if (STRCMP(eap->arg, "dump") == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	423 profile_dump();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	424 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	425 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	426 // The rest is similar to ":breakadd".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	427 ex_breakadd(eap);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	428 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	429 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	430
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	431 // Command line expansion for :profile.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	432 static enum
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	433 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	434 PEXP_SUBCMD, // expand :profile sub-commands
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	435 PEXP_FUNC // expand :profile func {funcname}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	436 } pexpand_what;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	437
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	438 static char *pexpand_cmds[] = {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	439 "start",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	440 "stop",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	441 "pause",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	442 "continue",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	443 "func",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	444 "file",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	445 "dump",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	446 NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	447 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	448
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	449 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	450 * Function given to ExpandGeneric() to obtain the profile command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	451 * specific expansion.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	452 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	453 char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	454 get_profile_name(expand_T *xp UNUSED, int idx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	455 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	456 switch (pexpand_what)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	457 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	458 case PEXP_SUBCMD:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	459 return (char_u *)pexpand_cmds[idx];
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	460 default:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	461 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	462 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	463 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	464
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	465 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	466 * Handle command line completion for :profile command.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	467 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	468 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	469 set_context_in_profile_cmd(expand_T xp, char_u arg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	470 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	471 char_u *end_subcmd;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	472
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	473 // Default: expand subcommands.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	474 xp->xp_context = EXPAND_PROFILE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	475 pexpand_what = PEXP_SUBCMD;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	476 xp->xp_pattern = arg;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	477
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	478 end_subcmd = skiptowhite(arg);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	479 if (*end_subcmd == NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	480 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	481
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	482 if ((end_subcmd - arg == 5 && STRNCMP(arg, "start", 5) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	483 \|\| (end_subcmd - arg == 4 && STRNCMP(arg, "file", 4) == 0))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	484 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	485 xp->xp_context = EXPAND_FILES;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	486 xp->xp_pattern = skipwhite(end_subcmd);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	487 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	488 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	489 else if (end_subcmd - arg == 4 && STRNCMP(arg, "func", 4) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	490 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	491 xp->xp_context = EXPAND_USER_FUNC;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	492 xp->xp_pattern = skipwhite(end_subcmd);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	493 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	494 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	495
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	496 xp->xp_context = EXPAND_NOTHING;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	497 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	498
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	499 static proftime_T inchar_time;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32471 diff changeset	500

32669

448aef880252 normalize line endings