diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2010-01-20 16:26:46 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2010-01-20 16:26:46 +0000 |
| commit | bdc0fadee2dc9669818955486b4c3497016edda5 (patch) | |
| tree | 48047d836d903e84f7e0ae6d74613c2247c4fc81 /debugger/source.ml | |
| parent | 8cd4fc63907a541d05f31a740632948d453f69f9 (diff) | |
merge changes from release/3.11.1 to release/3.11.2
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9540 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'debugger/source.ml')
| -rw-r--r-- | debugger/source.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/debugger/source.ml b/debugger/source.ml index 8975134ff..f0d3d48fb 100644 --- a/debugger/source.ml +++ b/debugger/source.ml @@ -185,3 +185,8 @@ let pos_of_line buffer line = (* --- The first line and column are line 1 and column 1. *) let point_of_coord buffer line column = fst (pos_of_line buffer line) + (pred column) + +let start_and_cnum buffer pos = + let line_number = pos.Lexing.pos_lnum in + let start = point_of_coord buffer line_number 1 in + start, start + (pos.Lexing.pos_cnum - pos.Lexing.pos_bol) |