瀏覽代碼

generate interface type (for instanceof).

Nicolas Cannasse 20 年之前
父節點
當前提交
e04810d15c
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      genswf8.ml

+ 1 - 1
genswf8.ml

@@ -1081,7 +1081,7 @@ let gen_path ctx (p,t) is_extern =
 let gen_type_def ctx t tdef =
 let gen_type_def ctx t tdef =
 	match tdef with
 	match tdef with
 	| TClassDecl c ->
 	| TClassDecl c ->
-		if c.cl_extern || c.cl_interface then 
+		if c.cl_extern then
 			()
 			()
 		else
 		else
 		let id = gen_type ctx t false in
 		let id = gen_type ctx t false in