Move warned_positions from global to Common.context scope

Co-authored-by: Simn <634365+Simn@users.noreply.github.com>

Author: Copilot

src/compiler/server/server.ml

@@ -202,7 +202,6 @@ let process sctx entry comm args =
 	let t0 = Extc.time() in
 	ServerMessage.arguments args;
 	ServerCompilationContext.reset sctx;
-	Hashtbl.clear DeprecationCheck.warned_positions;
 
 	let stats = Stats.create () in
 	let after_compilation ctx =

src/context/common.ml

@@ -348,6 +348,7 @@ type context = {
 	module_lut : module_lut;
 	module_nonexistent_lut : (path,bool) lookup;
 	fake_modules : (Path.UniqueKey.t,module_def) Hashtbl.t;
+	warned_positions : (string * int, string * Globals.pos * warning_option list list) Hashtbl.t;
 	mutable has_error : bool;
 	pass_debug_messages : string DynArray.t;
 	(* output *)
@@ -803,6 +804,7 @@ let create io timer_ctx compilation_step sctx version args display_mode =
 		error_ext = (fun _ -> die "" __LOC__);
 		get_messages = (fun() -> []);
 		filter_messages = (fun _ -> ());
+		warned_positions = Hashtbl.create 0;
 		pass_debug_messages = DynArray.create();
 		basic = {
 			tvoid = mk_mono();
@@ -923,6 +925,7 @@ let clone com is_macro_context =
 		dump_config = com.dump_config;
 		file_contents = com.file_contents;
 		(* reinits *)
+		warned_positions = Hashtbl.create 0;
 		cache = None;
 		stage = CCreated;
 		display_information = {

src/context/display/deprecationCheck.ml

@@ -17,13 +17,11 @@ let create_context com = {
 	curmod = null_module;
 }
 
-let warned_positions = Hashtbl.create 0
-
 let warn_deprecation dctx s p_usage =
 	let pkey p = (p.pfile,p.pmin) in
-	if not (Hashtbl.mem warned_positions (pkey p_usage)) then begin
+	if not (Hashtbl.mem dctx.com.warned_positions (pkey p_usage)) then begin
 		let options = Warning.from_meta (dctx.class_meta @ dctx.field_meta) in
-		Hashtbl.add warned_positions (pkey p_usage) (s,p_usage,options);
+		Hashtbl.add dctx.com.warned_positions (pkey p_usage) (s,p_usage,options);
 		module_warning dctx.com dctx.curmod WDeprecated options s p_usage;
 	end
 

src/context/display/diagnosticsPrinter.ml

@@ -190,7 +190,7 @@ let json_of_diagnostics com dctx =
 				add DKDeprecationWarning p MessageSeverity.Warning (Some wobj.w_name) (JString s);
 			| WMDisable -> ()
 			end
-		) DeprecationCheck.warned_positions;
+		) com.warned_positions;
 	| WMDisable ->
 		()
 	end;