forgot to commit iterate changes

iu-parfunc · Jan 20, 2024 · 663ab3b · 663ab3b
1 parent 80f6cbf
commit 663ab3b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/gibbon-compiler/src/Gibbon/Passes/Codegen.hs b/gibbon-compiler/src/Gibbon/Passes/Codegen.hs
@@ -661,7 +661,7 @@ codegenTail venv fenv sort_fns (LetTimedT flg bnds rhs body) ty sync_deps =
                                                          gib_ptr_bumpalloc_restore_state();
                                                          } |]
                                        , C.BlockDecl [cdecl| double $id:itertime = gib_difftimespecs(&$(cid (toVar begn)), &$(cid (toVar end))); |]
-                                       , C.BlockStm [cstm| printf("itertime: %lf\n", $id:itertime); |]
+                                       , C.BlockStm [cstm| printf("itertime: %e\n", $id:itertime); |]
                                        , C.BlockStm [cstm| gib_vector_inplace_update($id:times, $id:iters, &($id:itertime)); |]
                                        ]
                                 -- TODO: Find a better way to get a name for the region id.                                

diff --git a/gibbon-rts/rts-c/gibbon_rts.c b/gibbon-rts/rts-c/gibbon_rts.c
@@ -690,10 +690,10 @@ void gib_print_timing_array(GibVector *times) {
     for(GibInt i = 0; i < n; i++) {
         d = gib_vector_nth(times, i);
         if (i == (n-1)) {
-            printf("%f",*d);
+            printf("%e",*d);
         }
         else {
-            printf("%f, ",*d);
+            printf("%e, ",*d);
         }
     }
     printf("]\n");