Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

Merge remote-tracking branch 'origin/master'

Browse Source
This commit is contained in:
Arnaud DABY-SEESARAM 2022-12-15 16:18:17 +01:00
commit 19fd3bc1b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/simulation.ml
View File

@ -26,9 +26,9 @@ let pp_sim fmt ((sn, _): sim_node) =
| SRVar (s, None) :: t -> | SRVar (s, None) :: t ->
Format.fprintf fmt "\t<%s : real> uninitialized yet.\n%a" s aux t Format.fprintf fmt "\t<%s : real> uninitialized yet.\n%a" s aux t
| SIVar (s, Some i) :: 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 -> | 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 -> | SRVar (s, Some r) :: t ->
Format.fprintf fmt "\t<%s : real> = %f\n%a" s r aux t Format.fprintf fmt "\t<%s : real> = %f\n%a" s r aux t
in in