Quik 8.6 Critical error ACCESS_VIOLATION

for i = 0, size - 1 do

local function getRawCandles(ds, maxSize)
    local size = 0
    local T, O, H, L, C, V = {}, {}, {}, {}, {}, {}

    if ds and ds:Size() > 0 then
        table.ssort({ 0, 1 }, function(a, b)
            local dsSize = ds:Size()
            if maxSize == nil then
                maxSize = dsSize
            end
            local count, offset
            if dsSize <= maxSize then
                count, offset = dsSize, 0
            else
                count, offset = maxSize, dsSize - maxSize
            end
            for i = 1, count do
                local j = i + offset
                T[i] = ds:T(j)
                O[i] = ds:O(j)
                H[i] = ds:H(j)
                L[i] = ds:L(j)
                C[i] = ds:C(j)
                V[i] = ds:V(j)
            end
            size = count
            return true
        end)
    end
    return { size = size, T = T, O = O, H = H, L = L, C = C, V = V, }
end

static void translator(unsigned int code, struct EXCEPTION_POINTERS * p)
{
   throw seh_exception(code, p);
}

int QLuaScript::execute_lua_callback(lua_State * s, int nargs, int nresults)
{
   int ret = 0;
   _se_translator_function pfn = _set_se_translator(translator);
   try
   {
      ret = lua_pcall(s, nargs, nresults, 0);
      _set_se_translator(pfn);
   }
   catch(const std::exception & ex)
   {
      sprintf(this->error_desc, "%s", ex.what());
      this->kill_script();
      _set_se_translator(pfn);
      ret = ???;
   }
   catch(const seh_exception & ex)
   {
      sprintf(this->error_desc, "Critical error %s in script %s",
         ex.code_as_string(), this->script_name);
      this->kill_script();
      _set_se_translator(pfn);
      ret = ???;
   }
   return ret;
}

local sleep  = _G.sleep
local isRun  = true

function _G.main()

    local sec_code = 'SRZ0'
    local class_code = 'SPBFUT'

    local ds = _G.CreateDataSource(class_code, sec_code, _G.INTERVAL_M5)
    if not ds then
        isRun = false
    end

    local index = 0
    if isRun then
        while isRun do
            local last = ds:Size()
            if last ~= 0 then
                while index < last-1 do
                    index = index + 1
                    ds:T(index)
                end
                ds:Close(last)
                ds:T(last)
            end
            sleep(100)
        end
    end
end