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

Correct copy-pasted int and bool cases

Browse Source
This commit is contained in:
Benjamin Loison 2022-12-15 16:08:22 +01:00
parent e84a6e387d
commit 342aba4426
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