File tree Expand file tree Collapse file tree 1 file changed +1
-8
lines changed Expand file tree Collapse file tree 1 file changed +1
-8
lines changed Original file line number Diff line number Diff line change @@ -2747,8 +2747,7 @@ let parseInt (str: string) : exp =
27472747 let t = String. sub str start (String. length str - start - suffixlen) in
27482748 (* Normal Z.of_string does not work here as 0 is not recognized as the prefix for octal here *)
27492749 let i = Z. of_string_base base t in
2750- (* Construct an integer of the first kinds that fits. i must be
2751- * POSITIVE *)
2750+ (* Construct an integer of the first kinds that fits. i must be POSITIVE *)
27522751 let res =
27532752 let rec loop = function
27542753 | k ::rest ->
@@ -2759,12 +2758,6 @@ let parseInt (str: string) : exp =
27592758 loop kinds
27602759 in
27612760 res
2762- (* with e -> begin *)
2763- (* ignore (E.log "int_of_string %s (%s)\n" str *)
2764- (* (Printexc.to_string e)); *)
2765- (* zero *)
2766- (* end *)
2767-
27682761
27692762
27702763let d_unop () u =
You can’t perform that action at this time.
0 commit comments