Merge remote-tracking branch 'origin/master'

This commit is contained in:
Arnaud DABY-SEESARAM 2022-12-15 16:18:17 +01:00
commit 19fd3bc1b9

View File

@ -26,9 +26,9 @@ let pp_sim fmt ((sn, _): sim_node) =
| SRVar (s, None) :: t ->
Format.fprintf fmt "\t<%s : real> uninitialized yet.\n%a" s aux t
| SIVar (s, Some i) :: t ->
Format.fprintf fmt "\t<%s : real> = %d\n%a" s i aux t
Format.fprintf fmt "\t<%s : int> = %d\n%a" s i aux t
| SBVar (s, Some b) :: t ->
Format.fprintf fmt "\t<%s : real> = %s\n%a" s (Bool.to_string b) aux t
Format.fprintf fmt "\t<%s : bool> = %s\n%a" s (Bool.to_string b) aux t
| SRVar (s, Some r) :: t ->
Format.fprintf fmt "\t<%s : real> = %f\n%a" s r aux t
in