about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-10-04 11:19:23 -0700
committerKartik Agaram <vc@akkartik.com>2020-10-04 11:19:23 -0700
commit9f182aefbe8d60071f502a21d2e27b98e4e7e459 (patch)
tree3815d1f2b816fe749a3faeb843e9fc9c8525de8b
parentb8d613e7c2379b26cd4e989e736c6d389e78a5fe (diff)
downloadmu-9f182aefbe8d60071f502a21d2e27b98e4e7e459.tar.gz
6947 - change exponent separator since 'e' is hex
-rw-r--r--408print-float.mu6
1 files changed, 3 insertions, 3 deletions
diff --git a/408print-float.mu b/408print-float.mu
index 69dd3da6..d1782044 100644
--- a/408print-float.mu
+++ b/408print-float.mu
@@ -8,7 +8,7 @@
 #                          mantissa                  exponent
 #                    = 0 | 000000000000000000000000 | 01111110
 #                          zero-pad mantissa          exponent
-#                   =   +1.000000                   e -01
+#                   =   +1.000000                   p -01
 fn test-print-float-normal {
   var screen-on-stack: screen
   var screen/esi: (addr screen) <- address screen-on-stack
@@ -21,7 +21,7 @@ fn test-print-float-normal {
   half <- divide two-f
   print-float screen, half
   #
-  check-screen-row screen, 1, "1.000000e-01 ", "F - test-print-float-normal"
+  check-screen-row screen, 1, "1.000000p-01 ", "F - test-print-float-normal"
 }
 
 fn test-print-float-zero {
@@ -150,7 +150,7 @@ $print-float:body: {
   mantissa <- and 0x7fffff
   print-int32-hex-bits screen, mantissa, 0x18
   # print exponent
-  print-string screen, "e"
+  print-string screen, "p"
   exponent <- subtract 0x7f
   compare exponent, 0
   {