Отладка QUIK 8.11

static int getVersionFromLuaState(lua_State * s)
{
   struct helper
   {
      struct extradata
      {
         lua_State * pstate;
         int luaver;
      };
      typedef const extradata ** (* pfn_getextradata)(lua_State *);
      static const extradata ** getextradata_default(lua_State *)
      {
         static const extradata ed = { 0 };
         static const extradata * ped = &ed;
         return &ped;
      }
      static pfn_getextradata init_getextradata(HMODULE hmod)
      {
         if(hmod)
         {
            FARPROC pfn = ::GetProcAddress(hmod, "luaI_getextraspace");
            if(pfn)
               return reinterpret_cast<pfn_getextradata>(pfn);
         }
         return getextradata_default;
      }
      static int extract_version(const extradata ** pped, lua_State * s)
      {
         if(pped)
         {
            const extradata * ped = *pped;
            if(ped)
            {
               if(s == ped->pstate)
                  return ped->luaver;
            }
         }
         return 0;
      }
      static int try51(lua_State * s)
      {
         static pfn_getextradata getextradata = init_getextradata(::GetModuleHandleW(L"lua5.1.dll"));
         return extract_version(getextradata(s), s);
      }
      static int try53(lua_State * s)
      {
         static pfn_getextradata getextradata = init_getextradata(::GetModuleHandleW(L"lua53.dll"));
         return extract_version(getextradata(s), s);
      }
      static int try54(lua_State * s)
      {
         static pfn_getextradata getextradata = init_getextradata(::GetModuleHandleW(L"lua54.dll"));
         return extract_version(getextradata(s), s);
      }
   };
   int result = helper::try54(s);
   if(!result)
   {
      result = helper::try53(s);
      if(!result)
         result = helper::try51(s);
   }
   return result;
}