remove unused code

Author: bobzhang

jscomp/ml/cmi_format.ml

@@ -17,7 +17,7 @@ type pers_flags =
   | Rectypes
   | Deprecated of string
   | Opaque
-  | Unsafe_string
+
 
 type error =
     Not_an_interface of string

jscomp/ml/cmi_format.mli

@@ -17,7 +17,7 @@ type pers_flags =
   | Rectypes
   | Deprecated of string
   | Opaque
-  | Unsafe_string
+
 
 type cmi_infos = {
     cmi_name : string;

jscomp/ml/env.ml

@@ -61,7 +61,6 @@ type error =
   | Illegal_renaming of string * string * string
   | Inconsistent_import of string * string * string
   | Need_recursive_types of string * string
-  | Depend_on_unsafe_string_unit of string * string
   | Missing_module of Location.t * Path.t * Path.t
   | Illegal_value_name of Location.t * string
 
@@ -691,7 +690,6 @@ let save_pers_struct crc ps =
     (function
         | Rectypes -> ()
         | Deprecated _ -> ()
-        | Unsafe_string -> ()
         | Opaque -> add_imported_opaque modname)
     ps.ps_flags;
   Consistbl.set crc_units modname crc ps.ps_filename;
@@ -738,8 +736,6 @@ let acknowledge_pers_struct check modname
     (function
         | Rectypes ->
               error (Need_recursive_types(ps.ps_name, !current_unit))
-        | Unsafe_string ->
-              error (Depend_on_unsafe_string_unit (ps.ps_name, !current_unit));
         | Deprecated _ -> ()
         | Opaque -> add_imported_opaque modname)
     ps.ps_flags;
@@ -797,9 +793,6 @@ let check_pers_struct name =
             Format.sprintf
               "%s uses recursive types"
               name
-        | Depend_on_unsafe_string_unit (name, _) ->
-            Printf.sprintf "%s uses -unsafe-string"
-              name
         | Missing_module _ -> assert false
         | Illegal_value_name _ -> assert false
       in
@@ -2317,11 +2310,6 @@ let report_error ppf = function
       fprintf ppf
         "@[<hov>Unit %s imports from %s, which uses recursive types.@ %s@]"
         export import "The compilation flag -rectypes is required"
-  | Depend_on_unsafe_string_unit(import, export) ->
-      fprintf ppf
-        "@[<hov>Unit %s imports from %s, compiled with -unsafe-string.@ %s@]"
-        export import "This compiler has been configured in strict \
-                       safe-string mode (-force-safe-string)"
   | Missing_module(_, path1, path2) ->
       fprintf ppf "@[@[<hov>";
       if Path.same path1 path2 then

jscomp/ml/env.mli

@@ -236,7 +236,6 @@ type error =
   | Illegal_renaming of string * string * string
   | Inconsistent_import of string * string * string
   | Need_recursive_types of string * string
-  | Depend_on_unsafe_string_unit of string * string
   | Missing_module of Location.t * Path.t * Path.t
   | Illegal_value_name of Location.t * string
 

jscomp/super_errors/super_env.ml

@@ -23,11 +23,6 @@ let report_error ppf = function
     fprintf ppf
       "@[<hov>Unit %s imports from %s, which uses recursive types.@ %s@]"
       export import "The compilation flag -rectypes is required"
-  | Depend_on_unsafe_string_unit(import, export) ->
-    fprintf ppf
-      "@[<hov>Unit %s imports from %s, compiled with -unsafe-string.@ %s@]"
-      export import "This compiler has been configured in strict \
-                     safe-string mode (-force-safe-string)"
   | Missing_module(_, path1, path2) ->
     fprintf ppf "@[@[<hov>";
     if Path.same path1 path2 then