Fix for C90

OCamlPro · Apr 24, 2024 · 92482b0 · 92482b0
1 parent c2d67b1
commit 92482b0
Showing 1 changed file with 10 additions and 5 deletions.
diff --git a/libcob/strings.c b/libcob/strings.c
@@ -478,7 +478,8 @@ cob_inspect_init_common_mt (struct cob_inspect_state **pst, cob_field *var)
 		(*pst)->mark = NULL;
 		(*pst)->repdata = NULL;
 	}
-	struct cob_inspect_state *st = *pst;
+	struct cob_inspect_state *st;
+	st = *pst;
 
 	if (COB_FIELD_HAVE_SIGN (var) && !COB_FIELD_SIGN_SEPARATE(var)) {
 		/* it is allowed to TRANSFORM / INSPECT a numeric display signed element;
@@ -503,7 +504,8 @@ void
 cob_inspect_init_mt (struct cob_inspect_state **pst, cob_field *var, const cob_u32_t replacing)
 {
 	cob_inspect_init_common_mt (pst, var);
-	struct cob_inspect_state *st = *pst;
+	struct cob_inspect_state *st;
+	st = *pst;
 	st->replacing = replacing;
 
 	if (st->size > st->mark_size) {
@@ -544,7 +546,8 @@ void
 cob_inspect_init_converting_mt (struct cob_inspect_state **pst, cob_field *var)
 {
 	cob_inspect_init_common_mt (pst, var);
-	struct cob_inspect_state *st = *pst;
+	struct cob_inspect_state *st;
+	st = *pst;
 	st->replacing = 0;	/* only set for pre 3.2 compat because of cob_inspect_finish */
 }
 void
@@ -898,7 +901,8 @@ cob_string_init_mt (struct cob_string_state **pst, cob_field *dst, cob_field *pt
 {
 	if (*pst == NULL)
 		*pst = malloc (sizeof(struct cob_string_state));
-	struct cob_string_state *st = *pst;
+	struct cob_string_state *st;
+	st = *pst;
 
 	st->dst_copy = *dst;
 	st->dst = &st->dst_copy;
@@ -1019,7 +1023,8 @@ cob_unstring_init_mt (
 		*pst = malloc (sizeof(struct cob_unstring_state));
 		(*pst)->dlm_list = NULL;
 	}
-	struct cob_unstring_state *st = *pst;
+	struct cob_unstring_state *st;
+	st = *pst;
 
 	st->src_copy = *src;
 	st->src = &st->src_copy;