aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBernhard Schommer <bernhardschommer@gmail.com>2022-08-30 11:07:22 +0200
committerXavier Leroy <xavier.leroy@college-de-france.fr>2022-09-03 10:41:35 +0200
commit941c3f023f473731d5a3399d950c746d0cadf46a (patch)
tree7f0a2cfa063f835a76cdf27e9ab51ecc812ce199
parentd5fda4fde03571e6dbc46729767924be7ac41920 (diff)
downloadcompcert-941c3f023f473731d5a3399d950c746d0cadf46a.tar.gz
compcert-941c3f023f473731d5a3399d950c746d0cadf46a.zip
Remove unused functions.
The `reset_constants` was only used for ARM and there it was superfluous since the jumptables, which it additionally resets in contrast to `reset_literals`, are always empty since jumptables are handled directly in during printing of the instruction. The `exists_constants` function is now also unused since we test directly for the different sizes in `emit_constants`.
-rw-r--r--backend/PrintAsmaux.ml7
1 files changed, 0 insertions, 7 deletions
diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml
index f5741113..fd978c34 100644
--- a/backend/PrintAsmaux.ml
+++ b/backend/PrintAsmaux.ml
@@ -98,13 +98,6 @@ let reset_literals () =
Hashtbl.clear literal32_labels;
Hashtbl.clear literal64_labels
-let reset_constants () =
- jumptables := [];
- reset_literals ()
-
-let exists_constants () =
- Hashtbl.length literal32_labels > 0 || Hashtbl.length literal64_labels > 0
-
(* Variables used for the handling of varargs *)
let current_function_stacksize = ref 0l