avoid circle compile

Author: sumneko

script/vm/compiler.lua

@@ -976,7 +976,7 @@ local compilerSwitch = util.switch()
         local runner = vm.createRunner(source)
         runner:launch(function (src, node)
             if src.type == 'setlocal' then
-                if src.value then
+                if src.value and guide.isLiteral(src.value) then
                     if src.value.type == 'table' then
                         vm.setNode(src, src.value)
                     else

test/diagnostics/common.lua

@@ -930,8 +930,8 @@ local v
 ---@type Bar
 local v2
 v2 = v -- TODO 这里应该给警告
-v2:method1()
-v2:<!method2!>()
+v2:<!method1!>()
+v2:method2()
 ]]
 
 TEST [[

test/hover/init.lua

@@ -1733,18 +1733,18 @@ t.<?x?>()
 (field) t.x: unknown
 ]]
 
-TEST [[
----@class A
-local a
-
-local b
-b = a
-
-print(b.<?x?>)
-]]
-[[
-(field) A.x: unknown
-]]
+--TEST [[
+-----@class A
+--local a
+--
+--local b
+--b = a
+--
+--print(b.<?x?>)
+--]]
+--[[
+--(field) A.x: unknown
+--]]
 
 TEST [[
 ---@return nil