Commit 50654491 authored by POTTIER Francois's avatar POTTIER Francois

Disabled some warnings so as to allow compilation with ocamlc 4.02.1.

Changed & to && in tarjan.ml.
parent bb3ab865
......@@ -9,7 +9,7 @@ let flags () =
(* -inline 1000 *)
flag ["ocaml"; "compile"; "native"] (S [A "-inline"; A "1000"]);
(* nazi warnings *)
flag ["ocaml"; "compile"; "my_warnings"] (S[A "-w"; A "@1..49-4-9-33"])
flag ["ocaml"; "compile"; "my_warnings"] (S[A "-w"; A "@1..49-3-4-9-33-41-44"])
(* ---------------------------------------------------------------------------- *)
......
......@@ -151,7 +151,7 @@ end) = struct
dx.low <- dy.low
end
else if (dy.low < dx.low) & dy.stacked then begin
else if (dy.low < dx.low) && dy.stacked then begin
(* The first condition above indicates that $y$ has been
visited before $x$, so $(x, y)$ is a backwards or
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment