first opweights, bogus weights

1 files changed, 19 insertions, 0 deletions

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;;