diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-03-14 10:35:25 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-03-14 10:35:25 +0100 |
commit | 890141acb930bdb6f985244f81833331382f7b66 (patch) | |
tree | cc32d6be06feaebca5076727f5531959e8e37530 /powerpc/PrintAsm.ml | |
parent | 67e8b783c7e794d995675a332f118533e6a9b14a (diff) | |
parent | 3e01154d693e1c457e1e974f5e9ebaa4601050aa (diff) | |
download | compcert-890141acb930bdb6f985244f81833331382f7b66.tar.gz compcert-890141acb930bdb6f985244f81833331382f7b66.zip |
Merge branch 'master' into struct-passing
Diffstat (limited to 'powerpc/PrintAsm.ml')
-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 |