diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-01-28 16:51:28 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-01-28 16:51:28 +0100 |
| commit | 30dd68d627f68cca0c2addd006d853379ad720cf (patch) | |
| tree | b5d1c5bcbe091bd22d82611c56dc937b8ddba028 | |
| parent | f00b70b6a17fdfb4e8606df891f6becc8102ef12 (diff) | |
| download | compcert-30dd68d627f68cca0c2addd006d853379ad720cf.tar.gz compcert-30dd68d627f68cca0c2addd006d853379ad720cf.zip | |
Changed the print_globaldef function of the powerpc backend to look like the functions used in the arm and ia32 backend.
| -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 f058cde5..0c4356ec 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -750,15 +750,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) @@ -831,7 +822,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 |