diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-11-27 15:37:32 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-11-27 15:37:32 +0100 |
commit | 56690956f52349c3398b3de6f8ec3987501e9034 (patch) | |
tree | 5fc98e863bb41018084b2110f0ae950189a7b7d6 /powerpc/Unusedglob1.ml | |
parent | 853a40b117495ebf883593633f680cd5c92f5951 (diff) | |
parent | c3b615f875ed2cf8418453c79c4621d2dc61b0a0 (diff) | |
download | compcert-56690956f52349c3398b3de6f8ec3987501e9034.tar.gz compcert-56690956f52349c3398b3de6f8ec3987501e9034.zip |
Merge branch 'master' into dwarf
Diffstat (limited to 'powerpc/Unusedglob1.ml')
-rw-r--r-- | powerpc/Unusedglob1.ml | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/powerpc/Unusedglob1.ml b/powerpc/Unusedglob1.ml deleted file mode 100644 index 2d3efe39..00000000 --- a/powerpc/Unusedglob1.ml +++ /dev/null @@ -1,67 +0,0 @@ -(* *********************************************************************) -(* *) -(* The Compcert verified compiler *) -(* *) -(* Xavier Leroy, INRIA Paris-Rocquencourt *) -(* *) -(* Copyright Institut National de Recherche en Informatique et en *) -(* Automatique. All rights reserved. This file is distributed *) -(* under the terms of the INRIA Non-Commercial License Agreement. *) -(* *) -(* *********************************************************************) - -(* Identifiers referenced from a PowerPC Asm instruction *) - -open Datatypes -open AST -open Asm - -let referenced_constant = function - | Cint n -> [] - | Csymbol_low(s, ofs) -> [s] - | Csymbol_high(s, ofs) -> [s] - | Csymbol_sda(s, ofs) -> [s] - | Csymbol_rel_low(s, ofs) -> [s] - | Csymbol_rel_high(s, ofs) -> [s] - -let referenced_builtin ef = - match ef with - | EF_vload_global(chunk, id, ofs) -> [id] - | EF_vstore_global(chunk, id, ofs) -> [id] - | _ -> [] - -let referenced_instr = function - | Pbl(s, _) -> [s] - | Pbs(s, _) -> [s] - | Paddi(_, _, c) - | Paddic(_, _, c) - | Paddis(_, _, c) - | Pandi_(_, _, c) - | Pandis_(_, _, c) - | Pcmplwi(_, c) - | Pcmpwi(_, c) - | Plbz(_, c, _) - | Plfd(_, c, _) - | Plfd_a(_, c, _) - | Plfs(_, c, _) - | Plha(_, c, _) - | Plhz(_, c, _) - | Plwz(_, c, _) - | Plwz_a(_, c, _) - | Pmulli(_, _, c) - | Pori(_, _, c) - | Poris(_, _, c) - | Pstb(_, c, _) - | Pstfd(_, c, _) - | Pstfd_a(_, c, _) - | Pstfs(_, c, _) - | Psth(_, c, _) - | Pstw(_, c, _) - | Pstw_a(_, c, _) - | Psubfic(_, _, c) - | Pxori(_, _, c) - | Pxoris(_, _, c) -> referenced_constant c - | Pbuiltin(ef, _, _) -> referenced_builtin ef - | _ -> [] - -let code_of_function f = f.fn_code |