From e3d0b8b5395a7d5bb1935c261b386081ee0adad1 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Wed, 19 Feb 1997 16:09:23 +0000
Subject: Suite du portage (nombreuses modifs)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1281 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 debugger/events.ml | 55 +-----------------------------------------------------
 1 file changed, 1 insertion(+), 54 deletions(-)

(limited to 'debugger/events.ml')

diff --git a/debugger/events.ml b/debugger/events.ml
index 60178ee69e..ab0055b9e4 100644
--- a/debugger/events.ml
+++ b/debugger/events.ml
@@ -47,7 +47,7 @@ let current_point () =
   match !current_event with
     None ->
       raise Not_found
-  | Some {ev_char = point; ev_file = mdle} ->
+  | Some {ev_char = point; ev_module = mdle} ->
       (mdle, point)
 
 let current_event_is_before () =
@@ -58,56 +58,3 @@ let current_event_is_before () =
       true
   | _ ->
       false
-
-(*** Finding events. ***)
-
-(* List the events in `module'. *)
-let events_in_module mdle =
-  let filename = String.uncapitalize mdle ^ ".ml" in
-  filter
-    (function {ev_file = f} -> f = filename)
-    !Symbols.events
-
-(* First event after the given position. *)
-(* Raise `Not_found' if no such event. *)
-let event_after_pos mdle position =
-  match
-    List.fold_right
-      (function
-      	 ({ev_char = pos1} as ev) ->
-	   if pos1 < position then
-	     function x -> x
-	   else
-	     function
-	       None ->
-	         Some ev
-             | (Some {ev_char = pos2} as old) ->
-	         if pos1 < pos2 then
-		   Some ev
-		 else
-		   old)
-      (events_in_module mdle)
-      None
-  with
-    None ->
-      raise Not_found
-  | Some x ->
-      x
-
-(* Nearest event from given position. *)
-(* Raise `Not_found' if no such event. *)
-let event_near_pos mdle position =
-  match events_in_module mdle with
-    [] ->
-      raise Not_found
-  | [event] ->
-      event
-  | a::l ->
-      List.fold_right
-      	(fun ({ev_char = pos1} as ev) ({ev_char = pos2} as old) ->
-	   if abs (position - pos1) < abs (position - pos2) then
-	     ev
-	   else
-	     old)
-	l
-	a
-- 
cgit v1.2.1