deprecate warning for fun%raw

bobzhang · bobzhang · commit 7d9d9a99d1f7 · 2020-02-17T17:21:20.000+08:00
diff --git a/jscomp/syntax/ast_exp_extension.ml b/jscomp/syntax/ast_exp_extension.ml
@@ -71,6 +71,7 @@ let handle_extension record_as_js_object e (self : Bs_ast_mapper.mapper)
       | PStr [
         {pstr_desc = Pstr_eval({pexp_desc = Pexp_fun(Nolabel,_,pat,body)} as e,_)}]        
          -> 
+        Location.prerr_warning loc (Preprocessor "Special raw form for function is deprecated, plain [%raw \"..\"] is recommended"); 
         let str_exp : Parsetree.expression = 
          begin match pat.ppat_desc, body.pexp_desc with 
          | Ppat_construct ({txt = Lident "()"}, None), Pexp_constant(
diff --git a/jscomp/test/bs_hashtbl_string_test.ml b/jscomp/test/bs_hashtbl_string_test.ml
@@ -1,4 +1,4 @@
-
+[@@@warning "-22"]
 type seed = int
 external caml_hash_mix_string : seed -> string -> seed  = "caml_hash_mix_string"
 external final_mix : seed -> seed = "caml_hash_final_mix"
diff --git a/lib/4.06.1/bsdep.ml b/lib/4.06.1/bsdep.ml
@@ -46734,6 +46734,7 @@ let handle_extension record_as_js_object e (self : Bs_ast_mapper.mapper)
       | PStr [
         {pstr_desc = Pstr_eval({pexp_desc = Pexp_fun(Nolabel,_,pat,body)} as e,_)}]        
          -> 
+        Location.prerr_warning loc (Preprocessor "Special raw form for function is deprecated, plain [%raw \"..\"] is recommended"); 
         let str_exp : Parsetree.expression = 
          begin match pat.ppat_desc, body.pexp_desc with 
          | Ppat_construct ({txt = Lident "()"}, None), Pexp_constant(
diff --git a/lib/4.06.1/bsppx.ml b/lib/4.06.1/bsppx.ml
@@ -303557,6 +303557,7 @@ let handle_extension record_as_js_object e (self : Bs_ast_mapper.mapper)
       | PStr [
         {pstr_desc = Pstr_eval({pexp_desc = Pexp_fun(Nolabel,_,pat,body)} as e,_)}]        
          -> 
+        Location.prerr_warning loc (Preprocessor "Special raw form for function is deprecated, plain [%raw \"..\"] is recommended"); 
         let str_exp : Parsetree.expression = 
          begin match pat.ppat_desc, body.pexp_desc with 
          | Ppat_construct ({txt = Lident "()"}, None), Pexp_constant(
diff --git a/lib/4.06.1/unstable/js_compiler.ml b/lib/4.06.1/unstable/js_compiler.ml
@@ -303208,6 +303208,7 @@ let handle_extension record_as_js_object e (self : Bs_ast_mapper.mapper)
       | PStr [
         {pstr_desc = Pstr_eval({pexp_desc = Pexp_fun(Nolabel,_,pat,body)} as e,_)}]        
          -> 
+        Location.prerr_warning loc (Preprocessor "Special raw form for function is deprecated, plain [%raw \"..\"] is recommended"); 
         let str_exp : Parsetree.expression = 
          begin match pat.ppat_desc, body.pexp_desc with 
          | Ppat_construct ({txt = Lident "()"}, None), Pexp_constant(
diff --git a/lib/4.06.1/unstable/js_refmt_compiler.ml b/lib/4.06.1/unstable/js_refmt_compiler.ml
@@ -303208,6 +303208,7 @@ let handle_extension record_as_js_object e (self : Bs_ast_mapper.mapper)
       | PStr [
         {pstr_desc = Pstr_eval({pexp_desc = Pexp_fun(Nolabel,_,pat,body)} as e,_)}]        
          -> 
+        Location.prerr_warning loc (Preprocessor "Special raw form for function is deprecated, plain [%raw \"..\"] is recommended"); 
         let str_exp : Parsetree.expression = 
          begin match pat.ppat_desc, body.pexp_desc with 
          | Ppat_construct ({txt = Lident "()"}, None), Pexp_constant(
diff --git a/lib/4.06.1/whole_compiler.ml b/lib/4.06.1/whole_compiler.ml
@@ -400371,6 +400371,7 @@ let handle_extension record_as_js_object e (self : Bs_ast_mapper.mapper)
       | PStr [
         {pstr_desc = Pstr_eval({pexp_desc = Pexp_fun(Nolabel,_,pat,body)} as e,_)}]        
          -> 
+        Location.prerr_warning loc (Preprocessor "Special raw form for function is deprecated, plain [%raw \"..\"] is recommended"); 
         let str_exp : Parsetree.expression = 
          begin match pat.ppat_desc, body.pexp_desc with 
          | Ppat_construct ({txt = Lident "()"}, None), Pexp_constant(

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-`
	`1`	`+[@@@warning "-22"]`
`2`	`2`	`type seed = int`
`3`	`3`	`external caml_hash_mix_string : seed -> string -> seed = "caml_hash_mix_string"`
`4`	`4`	`external final_mix : seed -> seed = "caml_hash_final_mix"`