瀏覽代碼

Fix libs warnings

Rudy Ges 2 年之前
父節點
當前提交
f6a263f836
共有 6 個文件被更改,包括 7 次插入7 次删除
  1. 1 1
      libs/extlib-leftovers/dune
  2. 1 1
      libs/ilib/dune
  3. 2 2
      libs/neko/ncompile.ml
  4. 1 1
      libs/swflib/dune
  5. 1 1
      libs/ttflib/dune
  6. 1 1
      libs/ziplib/dune

+ 1 - 1
libs/extlib-leftovers/dune

@@ -2,7 +2,7 @@
 
 (env
 	(_
-		(flags (-w -27 -w -32))
+		(flags (-w -3 -w -27 -w -32))
 	)
 )
 

+ 1 - 1
libs/ilib/dune

@@ -2,7 +2,7 @@
 
 (env
 	(_
-		(flags (-w -27))
+		(flags (-w -3 -w -27))
 	)
 )
 

+ 2 - 2
libs/neko/ncompile.ml

@@ -673,8 +673,8 @@ and compile_builtin ctx tail b el p =
 			write ctx (Call 1);
 			(* // insert an infinite loop in order to
 			// comply with bytecode checker *)
-			let _ = jmp ctx in
-			()
+			let _jmp = jmp ctx in
+			ignore(_jmp)
 		) dtraps;
 	| ("goto" , _) ->
 		error "Invalid $goto statement" p

+ 1 - 1
libs/swflib/dune

@@ -2,7 +2,7 @@
 
 (env
 	(_
-		(flags (-w -27))
+		(flags (-w -3 -w -27))
 	)
 )
 

+ 1 - 1
libs/ttflib/dune

@@ -2,7 +2,7 @@
 
 (env
 	(_
-		(flags (-w -27 -w -35))
+		(flags (-w -3 -w -27 -w -35))
 	)
 )
 

+ 1 - 1
libs/ziplib/dune

@@ -2,7 +2,7 @@
 
 (env
 	(_
-		(flags (-w -27 -w -35 -w -50))
+		(flags (-w -3 -w -27 -w -35 -w -50))
 	)
 )