Upcase signal values

2022-12-07 17:53:17 +03:00 · 2022-12-07 17:53:17 +03:00 · 90905544d4
commit 90905544d4
parent ab5db7f6e8
1 changed files with 4 additions and 4 deletions
--- a/_web_server/server/playground-server.scm
+++ b/_web_server/server/playground-server.scm
@ -304,10 +304,10 @@
                                        (- x1 x0 (* data-hw 2))
                                        (- y1 y0))
                           (format-inex "<text x=\"~a\" y=\"~a\">" 0 text-position)
-                           (if (or (eq? sig-type 'real)
-                                   (< sig-width 4))
-                               value
-                               (string-upcase
+                           (string-upcase
+                            (if (or (eq? sig-type 'real)
+                                    (<= sig-width 4))
+                                value
                                (vcd-binary->hex value #t)))
                           "</text></svg>"))))