comby-tools/comby
1
1
Fork 0
mirror of https://github.com/comby-tools/comby.git synced 2024-09-11 13:25:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

don't access unsafe buffer

Browse Source
This commit is contained in:
Rijnard van Tonder 2020-07-06 18:40:50 -07:00
parent 3e852c4ed5
commit d65d1f646d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/matchers/omega.ml
View File

@ -755,9 +755,8 @@ module Make (Syntax : Syntax.S) (Info : Info.S) = struct
let state = Buffered.feed state (`String template) in
Buffered.feed state `Eof
|> function
| Buffered.Done ({ len; buf; _ }, p) ->
let c = Bigarray.Array1.unsafe_get buf (len - 1) in
if len <> 0 then failwith @@ Format.sprintf "Input left over in template where not expected: %d: %c" len c;
| Buffered.Done ({ len; _ }, p) ->
if len <> 0 then failwith @@ Format.sprintf "Input left over in template where not expected: %d" len;
Ok p
| _ -> Or_error.error_string "Template could not be parsed."