3

我有以下qsort示例来尝试 luajit 中的回调。但是它有一个内存泄漏（luajit: not enough memory执行时），这对我来说并不明显。

有人可以给我一些关于如何创建正确回调示例的提示吗？

local ffi = require("ffi")

-- ===============================================================================

ffi.cdef[[
    void qsort(void *base, size_t nel, size_t width, int (*compar)(const void *, const void *));
]]


function compare(a, b)
    return a[0] - b[0] 
end

-- ===============================================================================

-- Explicitly convert to a callback via cast
local callback = ffi.cast("int (*)(const char *, const char *)", compare)

local data     = "efghabcd"
local size     = 8 
local loopSize = 1000 * 1000 * 100.

local bytes    = ffi.new("char[15]")

-- ===============================================================================

for i=1,loopSize do 
    ffi.copy(bytes, data, size)
    ffi.C.qsort(bytes, size, 1, callback)
end

平台：OSX 10.8 luajit：2.0.1

4

1 回答 1

1

问题似乎是 lua 永远没有机会在紧密循环内执行完整的垃圾收集循环。正如评论所暗示的，您可以通过collectgarbage()在循环中调用自己来纠正此问题。

请注意，调用collectgarbage()每次迭代都会影响您正在做的任何事情的运行时间。为了尽量减少这种情况，您应该设置一个阈值来限制collectgarbage()调用频率：

local memthreshold = 2 ^ 20 / 1024
local start = os.clock()
for i = 1, loopSize do
    ffi.copy(bytes, data, size)
    ffi.C.qsort(bytes, size, 1, callback)
    if collectgarbage'count' > memthreshold then
      collectgarbage()
    end
end
local elapse = os.clock() - start
print("elapsed:", elapse..'s')
于 2013-07-07T21:19:30.633 回答