瀏覽代碼

Add s_tvar_kind (#11101)

RblSb 2 年之前
父節點
當前提交
2eb7724a31
共有 1 個文件被更改,包括 14 次插入0 次删除
  1. 14 0
      src/core/tPrinting.ml

+ 14 - 0
src/core/tPrinting.ml

@@ -627,6 +627,20 @@ module Printer = struct
 			"v_pos",s_pos v.v_pos;
 			"v_pos",s_pos v.v_pos;
 		]
 		]
 
 
+	let s_tvar_kind v_kind = match v_kind with
+		| VUser tvar_origin -> "VUser(" ^ (match tvar_origin with
+			| TVOLocalVariable -> "TVOLocalVariable"
+			| TVOArgument -> "TVOArgument"
+			| TVOForVariable -> "TVOForVariable"
+			| TVOPatternVariable -> "TVOPatternVariable"
+			| TVOCatchVariable -> "TVOCatchVariable"
+			| TVOLocalFunction -> "TVOLocalFunction") ^ ")"
+		| VGenerated -> "VGenerated"
+		| VInlined -> "VInlined"
+		| VInlinedConstructorVariable -> "VInlinedConstructorVariable"
+		| VExtractorVariable -> "VExtractorVariable"
+		| VAbstractThis -> "VAbstractThis"
+
 	let s_module_kind = function
 	let s_module_kind = function
 		| MCode -> "MCode"
 		| MCode -> "MCode"
 		| MMacro -> "MMacro"
 		| MMacro -> "MMacro"