From 5b05d3668571bd9b748b781b0cc29ae10f745f61 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Thu, 10 Mar 2016 13:35:48 +0100
Subject: Code cleanup.

Removed some unused variables, functions etc. and resolved some
problems which occur if all warnings except 3,4,9 and 29 are active.
Bug 18394.
---
 backend/PrintAsm.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'backend/PrintAsm.ml')

diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml
index 6c1eda57..6eff7c02 100644
--- a/backend/PrintAsm.ml
+++ b/backend/PrintAsm.ml
@@ -12,9 +12,8 @@
 (* *********************************************************************)
 
 open AST
-open Asm
 open Camlcoq
-open Datatypes
+open !Datatypes
 open DwarfPrinter
 open PrintAsmaux
 open Printf
@@ -105,7 +104,7 @@ module Printer(Target:TARGET) =
     let print_globdef oc (name,gdef) =
       match gdef with
       | Gfun (Internal code) -> print_function oc name code
-      | Gfun (External ef) ->   ()
+      | Gfun (External _) ->   ()
       | Gvar v -> print_var oc name v
 
     module DwarfTarget: DwarfTypes.DWARF_TARGET =
@@ -119,7 +118,7 @@ module Printer(Target:TARGET) =
     module DebugPrinter = DwarfPrinter (DwarfTarget)
   end
 
-let print_program oc p db =
+let print_program oc p =
   let module Target = (val (sel_target ()):TARGET) in
   let module Printer = Printer(Target) in
   Fileinfo.reset_filenames ();
-- 
cgit