瀏覽代碼

allow `extern` on module-level fields (see #10006)

Dan Korostelev 4 年之前
父節點
當前提交
aeae946edb
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      src/syntax/parser.ml

+ 2 - 1
src/syntax/parser.ml

@@ -224,7 +224,8 @@ let decl_flag_to_module_field_flag (flag,p) = match flag with
 	| DDynamic -> Some (ADynamic,p)
 	| DInline -> Some (AInline,p)
 	| DOverload -> Some (AOverload,p)
-	| DExtern | DFinal | DPublic | DStatic -> unsupported_decl_flag_module_field flag p
+	| DExtern -> Some (AExtern,p)
+	| DFinal | DPublic | DStatic -> unsupported_decl_flag_module_field flag p
 
 let serror() = raise (Stream.Error "")