From 932f7f853fdad81c2bdc9db42ed87d106db5762f Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Wed, 16 Sep 2020 10:17:27 +0200 Subject: first opweights, bogus weights --- aarch64/OpWeights.ml | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 aarch64/OpWeights.ml (limited to 'aarch64/OpWeights.ml') diff --git a/aarch64/OpWeights.ml b/aarch64/OpWeights.ml new file mode 100644 index 00000000..3662ef1c --- /dev/null +++ b/aarch64/OpWeights.ml @@ -0,0 +1,19 @@ +open Op;; +let resource_bounds = [| 1 |];; + + +let latency_of_op (op : operation) (nargs : int) = 1;; + +let resources_of_op (op : operation) (nargs : int) = [| 1 |];; + +let resources_of_cond (cond : condition) (nargs : int) = [| 1 |];; + +let latency_of_load trap chunk (addr : addressing) (nargs : int) = 3;; +let latency_of_call _ _ = 6;; + +let resources_of_load trap chunk addressing nargs = [| 1 |];; + +let resources_of_store chunk addressing nargs = [| 1 |];; + +let resources_of_call _ _ = resource_bounds;; +let resources_of_builtin _ = resource_bounds;; -- cgit