Commit c425d12b authored by TOLLENAERE Nicolas's avatar TOLLENAERE Nicolas
Browse files

Valgrind friendly version

parent 5a52ca15
......@@ -11,6 +11,7 @@
#include "sizes.h"
#include <blis/blis.h>
#include <cblas.h>
#include <papi.h>
#define USE_AVX512
......@@ -272,6 +273,7 @@ int main() {
//free(time_str);
fake_read(dev_null, c, I_SIZE * J_SIZE);
PAPI_shutdown();
free(a);
free(b);
free(c);
......
......@@ -471,6 +471,7 @@ int is_matmul(M_TYPE * A, M_TYPE * B, M_TYPE * C, IND_TYPE NI, IND_TYPE NJ, IND_
max_check.val, max_check.i,max_check.j,
max_error / max_c.val);
}
free(Check);
return (err_count == 0);
}
......
......@@ -49,7 +49,7 @@ let custom_tile i_dim j_dim k_dim a b _ = let open T_tile in
A (k_dim); A (i_dim); A (j_dim)]
let dull_tile i_dim j_dim k_dim _ _ _ = let open T_tile in
[V j_dim; A j_dim; A i_dim; A k_dim]
[(*V j_dim;*) A j_dim; A i_dim; A k_dim]
(* weird results
let i = Int.(8 * 1056)
and j = Int.(16 * 3328)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment