Commit d51a1796 authored by Raphael Rieu-Helft's avatar Raphael Rieu-Helft

Restore compatibility with Ocaml <4.03

parent 79c452d0
......@@ -257,7 +257,7 @@ module C = struct
| Tsyntax (s1, l1), Tsyntax (s2, l2) ->
List.length l1 = List.length l2
&& List.for_all2 group_types l1 l2
&& String.equal s1 s2
&& s1 = s2
&& (not (String.contains s1 '*'))
| Tptr t, Tptr t' -> group_types t t'
| Tarray _, _ -> false
......
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