浏览代码

minor : force all packages forbid for cross platform

Nicolas Cannasse 16 年之前
父节点
当前提交
6b8c272d41
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      main.ml

+ 1 - 0
main.ml

@@ -410,6 +410,7 @@ try
 	let ext = (match com.platform with
 	let ext = (match com.platform with
 		| Cross ->
 		| Cross ->
 			(* no platform selected *)
 			(* no platform selected *)
+			set_platform Cross "cross" "";
 			no_output := true; ""
 			no_output := true; ""
 		| Flash | Flash9 ->
 		| Flash | Flash9 ->
 			Common.define com ("flash" ^ string_of_int com.flash_version);
 			Common.define com ("flash" ^ string_of_int com.flash_version);