From 1d8f2f2a85768b57d447ae123c7a523947f0f4f7 Mon Sep 17 00:00:00 2001
From: Adrien Guatto <adrien.guatto@laposte.net>
Date: Fri, 3 Sep 2010 11:50:52 +0200
Subject: [PATCH] Removed useless code for old module handling in cgen.

---
 compiler/obc/c/cgen.ml | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/compiler/obc/c/cgen.ml b/compiler/obc/c/cgen.ml
index e2e2350..2d03a68 100644
--- a/compiler/obc/c/cgen.ml
+++ b/compiler/obc/c/cgen.ml
@@ -58,27 +58,6 @@ let rec struct_name ty =
 let int_of_static_exp se =
   Static.int_of_static_exp NamesEnv.empty se
 
-(* Functions to deal with opened modules set. *)
-type world = { mutable opened_modules : S.t }
-let world = { opened_modules = S.empty }
-
-let add_opened_module (m:string) =
-  world.opened_modules <-
-    S.add (String.uncapitalize (cname_of_name m)) world.opened_modules
-let get_opened_modules () =
-  S.elements  world.opened_modules
-let remove_opened_module (m:string) =
-  world.opened_modules <- S.remove m world.opened_modules
-let reset_opened_modules () =
-  world.opened_modules <- S.empty
-
-let shortname = function
-  | Name(n) -> n
-  | Modname(q) ->
-      if q.qual <> "Pervasives" then
-        add_opened_module q.qual;
-      q.id
-
 (** Returns the information concerning a node given by name. *)
 let node_info classln =
   match classln with
@@ -324,7 +303,6 @@ and cop_of_op_aux var_env op_name cexps =
           | _ -> Cfun_call(op, cexps)
         end
     | Modname {qual = m; id = op} ->
-        add_opened_module m;
         Cfun_call(op,cexps)
     | Name(op) ->
         Cfun_call(op,cexps)