浏览代码

[display] add missing display file check to extern arguments

probably closes #7814
Simon Krajewski 6 年之前
父节点
当前提交
23aec237a6
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/typing/typeloadFields.ml

+ 1 - 1
src/typing/typeloadFields.ml

@@ -1099,7 +1099,7 @@ let create_method (ctx,cctx,fctx) c f fd p =
 				else
 					ignore(TypeloadFunction.process_function_arg ctx n t ct fctx.is_display_field pn)
 				end;
-				if DisplayPosition.encloses_display_position pn then begin
+				if fctx.is_display_field && DisplayPosition.encloses_display_position pn then begin
 					let v = add_local_with_origin ctx TVOArgument n t pn in
 					DisplayEmitter.display_variable ctx v pn;
 				end