Revision 629392e1
Added by Pierre-Loïc Garoche almost 4 years ago
src/clocks.ml | ||
---|---|---|
359 | 359 |
| Cvar |
360 | 360 |
| Cunivar -> () |
361 | 361 |
| Con (ck,c,l) -> |
362 |
fprintf fmt "%a when %s(%a)" print_ck_suffix ck l print_carrier c |
|
362 |
if !Options.kind2_print then |
|
363 |
print_ck_suffix fmt ck |
|
364 |
else |
|
365 |
fprintf fmt "%a when %s(%a)" print_ck_suffix ck l print_carrier c |
|
363 | 366 |
| Clink ck' -> |
364 | 367 |
print_ck_suffix fmt ck' |
365 | 368 |
| Ccarrying (cr,ck') -> |
Also available in: Unified diff
No more when suffix in clocked variables with kind2 option