gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-07 23:24:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add -jp=fl mode and minor fixes.

Browse Source
This commit is contained in:
Mike Pall 2013-09-10 00:02:20 +02:00
parent 2befb8b1de
commit 29078518c1
3 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/jit/p.lua
View File

@ -21,7 +21,7 @@
--
-- The following dump features are available:
--
-- f Stack dump: function name, Otherwise module:line. Default mode
-- f Stack dump: function name, otherwise module:line. Default mode.
-- F Stack dump: ditto, but always prepend module.
-- l Stack dump: module:line.
-- <number> stack dump depth (callee < caller). Default: 1.
@ -33,7 +33,7 @@
-- r Show raw sample counts. Default: show percentages.
-- a Annotate excerpts from source code files.
-- A Annotate complete source code files.
-- G Produce output suitable for graphical tools (e.g. flame graphs).
-- G Produce raw output suitable for graphical tools (e.g. flame graphs).
-- m<number> Minimum sample percentage to be shown. Default: 3.
-- i<number> Sampling interval in milliseconds. Default: 10.
--
@ -87,6 +87,8 @@ local function prof_cb(th, samples, vmmode)
if prof_split == 2 then
local k1, k2 = key_stack:match("(.-) [<>] (.*)")
if k2 then key_stack, key_stack2 = k1, k2 end
elseif prof_split == 3 then
key_stack2 = profile.dumpstack(th, "l", 1)
end
end
-- Order keys.
@ -138,7 +140,8 @@ local function prof_top(count1, count2, samples, indent)
if count2 then
local r = count2[k]
if r then
prof_top(r, nil, v, prof_depth < 0 and " -> " or " <- ")
prof_top(r, nil, v, (prof_split == 3 or prof_split == 1) and " -- " or
(prof_depth < 0 and " -> " or " <- "))
end
end
end
@ -221,7 +224,7 @@ local function prof_finish()
profile.stop()
local samples = prof_samples
if samples == 0 then
if prof_raw ~= true then out:write("[no samples collected]\n") end
if prof_raw ~= true then out:write("[No samples collected]\n") end
return
end
if prof_ann then
@ -254,6 +257,9 @@ local function prof_start(mode)
prof_split = 2
if prof_depth == -1 or m["-"] then prof_depth = -2
elseif prof_depth == 1 then prof_depth = 2 end
elseif mode:find("[fF].*l") then
scope = "l"
prof_split = 3
else
prof_split = (scope == "" or mode:find("[zv].*[lfF]")) and 1 or 0
end
@ -271,7 +277,8 @@ local function prof_start(mode)
elseif scope == "" then
prof_fmt = false
else
prof_fmt = flags..scope..(prof_depth >= 0 and "Z < " or "Z > ")
local sc = prof_split == 3 and m.f or m.F or scope
prof_fmt = flags..sc..(prof_depth >= 0 and "Z < " or "Z > ")
end
prof_count1 = {}
prof_count2 = {}

6
src/jit/zone.lua
View File

@ -35,7 +35,11 @@ return setmetatable({
end
}, {
__call = function(t, zone)
if zone then t[#t+1] = zone else return assert(remove(t)) end
if zone then
t[#t+1] = zone
else
return (assert(remove(t), "empty zone stack"))
end
end
})

4
src/lib_jit.c
View File

@ -563,7 +563,7 @@ static void jit_profile_callback(lua_State *L2, lua_State *L, int samples,
}
}
/* profile.start(mode, func) */
/* profile.start(mode, cb) */
LJLIB_CF(jit_profile_start)
{
GCtab *registry = tabV(registry(L));
@ -597,7 +597,7 @@ LJLIB_CF(jit_profile_stop)
return 0;
}
/* profile.dumpstack([thread,] fmt, depth) */
/* dump = profile.dumpstack([thread,] fmt, depth) */
LJLIB_CF(jit_profile_dumpstack)
{
lua_State *L2 = L;