diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 1998-12-02 10:39:54 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 1998-12-02 10:39:54 +0000 |
| commit | b83b27899119824923f754caf251f17bc02bae3f (patch) | |
| tree | 2eaf8cb53c309d057cd1e5f8ccae26411b6d8311 /debugger/debugcom.ml | |
| parent | d0abd87e0bee6d1fad4eda5fbfbdeacb496e3bed (diff) | |
Warning du compilateur.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2210 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'debugger/debugcom.ml')
| -rw-r--r-- | debugger/debugcom.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/debugger/debugcom.ml b/debugger/debugcom.ml index ccb20b174..ac8103294 100644 --- a/debugger/debugcom.ml +++ b/debugger/debugcom.ml @@ -118,6 +118,9 @@ let initial_frame () = let pc = input_binary_int !conn.io_in in (stack_pos, pc) +let set_initial_frame () = + let _ = initial_frame () in () + (* Move up one frame *) (* Return stack position and current pc. If there's no frame above, return (-1, 0). *) |