Sophie

Sophie

distrib > Fedora > 15 > i386 > by-pkgid > 3d216108f5c4f8b10186b134da42f06c > files > 1

ocaml-bisect-1.0-4.fc15.src.rpm

--- bisect-1.0.old/src/instrument.ml	2009-12-17 18:31:36.000000000 +0000
+++ bisect-1.0/src/instrument.ml	2011-01-06 16:37:33.558696380 +0000
@@ -149,8 +149,8 @@
     method class_str_item csi =
       match super#class_str_item csi with
       | Ast.CrIni (loc, e) -> Ast.CrIni (loc, (wrap_expr Common.Class_init e))
-      | Ast.CrMth (loc, id, priv, e, ct) -> Ast.CrMth (loc, id, priv, (wrap_expr Common.Class_meth e), ct)
-      | Ast.CrVal (loc, id, mut, e) -> Ast.CrVal (loc, id, mut, (wrap_expr Common.Class_val e))
+      | Ast.CrMth (loc, id, override, priv, e, ct) -> Ast.CrMth (loc, id, override, priv, (wrap_expr Common.Class_meth e), ct)
+      | Ast.CrVal (loc, id, override, mut, e) -> Ast.CrVal (loc, id, override, mut, (wrap_expr Common.Class_val e))
       | x -> x
     method expr e =
       let e' = super#expr e in