have string states in thread-local-storage

OCamlPro · Jul 22, 2024 · 94cf589 · 94cf589
1 parent 4a6eb17
commit 94cf589
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/libcob/strings.c b/libcob/strings.c
@@ -96,9 +96,9 @@ static const cob_field_attr	const_strall_attr =
 				{COB_TYPE_ALPHANUMERIC_ALL, 0, 0, 0, NULL};
 
 /* Static structures for backward compatibility */
-static struct cob_inspect_state	 	share_inspect_state;
-static struct cob_string_state		share_string_state;
-static struct cob_unstring_state	share_unstring_state;
+COB_TLS struct cob_inspect_state	share_inspect_state;
+COB_TLS struct cob_string_state		share_string_state;
+COB_TLS struct cob_unstring_state	share_unstring_state;
 
 static unsigned char		*figurative_ptr;
 static size_t			figurative_size;