- let preamble_len = String.length matches.(1) in
- sprintf "\n(*\nerror-at: %d-%d\n*)\n" (preamble_len + start_pos)
- (preamble_len + start_pos + error_token_len) in
+ let preamble_len = Glib.Utf8.length matches.(1) in
+ sprintf "\n(*\nerror-at: %d-%d\n*)\n"
+ (preamble_len + Stdpp.first_pos target_pos)
+ (preamble_len + Stdpp.first_pos target_pos + error_token_len) in