Commit c946b2d5 authored by gerd's avatar gerd

Bugfix in replace_matched_substrings.


git-svn-id: https://godirepo.camlcity.org/svn/lib-xstr/[email protected] e4cd5726-45db-0310-8eb3-84e3bb775810
parent 4ebd71c3
......@@ -35,7 +35,7 @@ $(XARCHIVE): $(XOBJECTS)
# general rules:
OPTIONS =
OCAMLC = ocamlc $(UNSAFE) $(OPTIONS) $(ROPTIONS)
OCAMLC = ocamlc -g $(UNSAFE) $(OPTIONS) $(ROPTIONS)
OCAMLOPT = ocamlopt $(UNSAFE) $(OPTIONS) $(ROPTIONS)
OCAMLDEP = ocamldep $(OPTIONS)
OCAMLFIND = ocamlfind
......
(* $Id: xstr_match.ml,v 1.7 1999/07/08 02:41:10 gerd Exp $
(* $Id: xstr_match.ml,v 1.8 2000/09/23 13:43:22 gerd Exp $
* ----------------------------------------------------------------------
* String matching
*)
......@@ -540,7 +540,7 @@ let replace_matched_substrings ml rl fl s =
(if amount=0 then k+1 else k+amount)
end
else
left_to_right trans k_gapstart (l+1)
left_to_right trans k_gapstart (k+1)
in
......@@ -678,6 +678,9 @@ let mknegset s =
* History:
*
* $Log: xstr_match.ml,v $
* Revision 1.8 2000/09/23 13:43:22 gerd
* Bugfix in replace_matched_substrings.
*
* Revision 1.7 1999/07/08 02:41:10 gerd
* Bugfix in 'Record' matching: the variable was not reset to
* its old values in the case the matching fails.
......
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