diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-01-28 16:56:46 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-01-28 16:56:46 +0100 |
commit | 803eb70bbbbc5749882efd2a3af339a7e05f1f62 (patch) | |
tree | 6ac39d6ddaf26c220eae07ff142c5b6f735fc521 | |
parent | b5b681b7b55abb18165eaa907b04aefb9b0fddde (diff) | |
parent | 30dd68d627f68cca0c2addd006d853379ad720cf (diff) | |
download | compcert-803eb70bbbbc5749882efd2a3af339a7e05f1f62.tar.gz compcert-803eb70bbbbc5749882efd2a3af339a7e05f1f62.zip |
Merge branch 'master' into dwarf
-rw-r--r-- | powerpc/PrintAsm.ml | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml index 97b57c0e..8a064d52 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -450,15 +450,6 @@ let print_function oc name fn = jumptables := [] end -(* Generation of whole programs *) - -let print_fundef oc name defn = - match defn with - | Internal code -> - print_function oc name code - | External _ -> - () - let print_init oc = function | Init_int8 n -> fprintf oc " .byte %ld\n" (camlint_of_coqint n) @@ -531,7 +522,8 @@ let print_var oc name v = let print_globdef oc (name, gdef) = match gdef with - | Gfun f -> print_fundef oc name f + | Gfun (Internal code) -> print_function oc name code + | Gfun (External ef) -> () | Gvar v -> print_var oc name v end |