Merge branch 'fix-negative-pos-error' into 'dev'

Improve error handling of negative start positions.

See merge request ligolang/ligo!321

src/passes/1-parser/cameligo.ml

@@ -33,15 +33,22 @@ module Errors = struct
               file
     in
     let message () = str in
-    let loc = Region.make 
+    let loc = if start.pos_cnum = -1 then
+      Region.make
+        ~start: Pos.min
+        ~stop:(Pos.from_byte end_)    
+    else
+      Region.make
         ~start:(Pos.from_byte start)
         ~stop:(Pos.from_byte end_)
     in 
-    let data = [
+    let data =
+      [
         ("parser_loc",
           fun () -> Format.asprintf "%a" Location.pp_lift @@ loc
         )
-    ] in
+      ]    
+    in
     error ~data title message
   
   let unrecognized_error source (start: Lexing.position) (end_: Lexing.position) lexbuf = 

src/passes/1-parser/pascaligo.ml

@@ -62,15 +62,22 @@ module Errors = struct
               file
     in
     let message () = str in    
-    let loc = Region.make
+    let loc = if start.pos_cnum = -1 then
+      Region.make
+        ~start: Pos.min
+        ~stop:(Pos.from_byte end_)    
+    else
+      Region.make
         ~start:(Pos.from_byte start)
         ~stop:(Pos.from_byte end_)
     in 
-    let data = [
+    let data =
+      [
         ("parser_loc",
           fun () -> Format.asprintf "%a" Location.pp_lift @@ loc
         )
-    ] in
+      ]    
+    in
     error ~data title message
 
   let unrecognized_error source (start: Lexing.position) (end_: Lexing.position) lexbuf =

src/passes/1-parser/reasonligo.ml

@@ -44,15 +44,22 @@ module Errors = struct
               file
     in
     let message () = str in
-    let loc = Region.make
+    let loc = if start.pos_cnum = -1 then
+      Region.make
+        ~start: Pos.min
+        ~stop:(Pos.from_byte end_)    
+    else
+      Region.make
         ~start:(Pos.from_byte start)
         ~stop:(Pos.from_byte end_)
     in 
-    let data = [
-      ("location",
+    let data =
+      [
+        ("parser_loc",
           fun () -> Format.asprintf "%a" Location.pp_lift @@ loc
         )
-    ] in
+      ]    
+    in
     error ~data title message
 
   let unrecognized_error source (start: Lexing.position) (end_: Lexing.position) lexbuf =