diff --git a/infer/src/llvm/lMain.ml b/infer/src/llvm/lMain.ml
index 3342aa9f4..762644d58 100644
--- a/infer/src/llvm/lMain.ml
+++ b/infer/src/llvm/lMain.ml
@@ -37,7 +37,6 @@ let store_icfg tenv cg cfg source_file =
 
 let store_tenv tenv =
   let tenv_filename = DB.global_tenv_fname () in
-  (* TODO: this prevents per compilation step incremental analysis at this stage *)
   if DB.file_exists tenv_filename then DB.file_remove tenv_filename;
   Sil.store_tenv_to_file tenv_filename tenv
 
diff --git a/infer/src/llvm/lTrans.ml b/infer/src/llvm/lTrans.ml
index 1646c3c21..4590ed21f 100644
--- a/infer/src/llvm/lTrans.ml
+++ b/infer/src/llvm/lTrans.ml
@@ -11,7 +11,7 @@ open LAst
 exception ImproperTypeError of string
 exception Unimplemented of string
 
-let trans_variable : LAst.variable -> Sil.exp = function (* HACK *)
+let trans_variable : LAst.variable -> Sil.exp = function (* TODO: use unique stamps *)
   | Global id -> Sil.Var (Ident.create_normal (Ident.string_to_name id) 0)
   | Local id -> Sil.Var (Ident.create_normal (Ident.string_to_name id) 0)
 
@@ -24,7 +24,7 @@ let trans_operand : LAst.operand -> Sil.exp = function
   | Const const -> trans_constant const
 
 let rec trans_typ : LAst.typ -> Sil.typ = function
-  | Tint i -> Sil.Tint Sil.IInt (* need to actually check what size int is needed here *)
+  | Tint i -> Sil.Tint Sil.IInt (* TODO: check what size int is needed here *)
   | Tfloat -> Sil.Tfloat Sil.FFloat
   | Tptr tp -> Sil.Tptr (trans_typ tp, Sil.Pk_pointer)
   | Tvector (i, tp)