Browse Source

Fix libs warnings

Rudy Ges 2 years ago
parent
commit
f6a263f836
6 changed files with 7 additions and 7 deletions
  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))
 	)
 )