diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-02-28 03:26:12 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-05-21 03:07:27 +0200 |
| commit | db1719fbac08b5582fafddd4b76ef92f69cc5bc1 (patch) | |
| tree | a88bf6867103dbf87d701cc2e2205e67b5f4e7d0 /lib/stateid.ml | |
| parent | 382ee49700c4b4ee78ba95b2e86866ebd3b35d74 (diff) | |
[ide] Remove special option `-ideslave`
This has no effect anymore, verbose printing is controlled now by
the regular, common `quiet` flag.
Diffstat (limited to 'lib/stateid.ml')
| -rw-r--r-- | lib/stateid.ml | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lib/stateid.ml b/lib/stateid.ml index a258d5052..5485c4bf1 100644 --- a/lib/stateid.ml +++ b/lib/stateid.ml @@ -11,15 +11,11 @@ type t = int let initial = 1 let dummy = 0 -let fresh, in_range = +let fresh = let cur = ref initial in - (fun () -> incr cur; !cur), (fun id -> id >= 0 && id <= !cur) + fun () -> incr cur; !cur let to_string = string_of_int -let of_int id = - (* Coqide too to parse ids too, but cannot check if they are valid. - * Hence we check for validity only if we are an ide slave. *) - if !Flags.ide_slave then assert (in_range id); - id +let of_int id = id let to_int id = id let newer_than id1 id2 = id1 > id2 |