Remove unused CLocation.init_curr_source_file

Summary:
public
CLocation.init_curr_source_file is now a no-op, so remove it.

Reviewed By: jvillard

Differential Revision: D2815238

fb-gh-sync-id: 00c8a08

infer/src/clang/cFrontend.ml

@@ -141,7 +141,6 @@ let do_source_file source_file ast =
   let tenv = Sil.create_tenv () in
   CTypes_decl.add_predefined_types tenv;
   init_global_state source_file;
-  CLocation.init_curr_source_file source_file;
   Config.nLOC := FileLOC.file_get_loc (DB.source_file_to_string source_file);
   Printing.log_out "\n Start building call/cfg graph for '%s'....\n"
     (DB.source_file_to_string source_file);

infer/src/clang/cLocation.ml

@@ -17,8 +17,6 @@ open Utils
 (* in this variable. *)
 let curr_file = ref DB.source_file_empty
 
-let init_curr_source_file _ = ()
-
 let source_file_from_path path =
   if Filename.is_relative path then
     (Printing.log_err

infer/src/clang/cLocation.mli

@@ -25,8 +25,6 @@ val should_translate_enum : Clang_ast_t.source_range -> bool
 
 val update_curr_file : Clang_ast_t.decl_info -> unit
 
-val init_curr_source_file : DB.source_file -> unit
-
 val check_source_file : string -> unit
 
 val source_file_from_path : string -> DB.source_file