解除死掉的全局变量引用

2 files changed, 24 insertions, 0 deletions

diff --git a/server/src/vm/global.lua b/server/src/vm/global.lua
index dea30525..99f05e37 100644
--- a/server/src/vm/global.lua
+++ b/server/src/vm/global.lua
@@ -12,6 +12,7 @@ return function (lsp)
         end
 
         global = t._G
+        global:set('_G', true)
         for k, v in pairs(t) do
             global:setChild(k, v)
         end
diff --git a/server/src/vm/value.lua b/server/src/vm/value.lua
index 60f0c663..67b4536c 100644
--- a/server/src/vm/value.lua
+++ b/server/src/vm/value.lua
@@ -38,6 +38,19 @@ local function create (tp, source, literal)
     return self
 end
 
+local function isDeadGlobalChild(value)
+    if value._lib then
+        return false
+    end
+    for srcId in pairs(value._info) do
+        local src = sourceMgr.list[srcId]
+        if src then
+            return false
+        end
+    end
+    return true
+end
+
 function mt:setType(tp, rate)
     if type(tp) == 'table' then
         for _, ctp in ipairs(tp) do
@@ -92,6 +105,12 @@ function mt:rawGet(index)
     if not child then
         return nil
     end
+    if self:get '_G' then
+        if isDeadGlobalChild(child) then
+            self._child[index] = nil
+            return nil
+        end
+    end
     return child
 end
 
@@ -182,6 +201,10 @@ function mt:rawEach(callback, foundIndex)
             end
             foundIndex[index] = true
         end
+        if self:get '_G' and isDeadGlobalChild(value) then
+            self._child[index] = nil
+            goto CONTINUE
+        end
         local res = callback(index, value)
         if res ~= nil then
             return res