djustment for build without curses and fix C90 warnings

Fix warnings in screenio.c fix C90 warnings. libcob: * screenio.c (cob_sys_scr_dump, cob_sys_scr_restore) fixed C90 warnings
OCamlPro · Jul 11, 2024 · 73ad00d · 73ad00d
1 parent 314adc1
commit 73ad00d
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 6 deletions.
diff --git a/libcob/ChangeLog b/libcob/ChangeLog
@@ -1,4 +1,8 @@
 
+2024-07-11  Chuck Haatvedt <[email protected]>
+
+	* screenio.c (cob_sys_scr_dump, cob_sys_scr_restore) fixed C90 warnings
+
 2024-07-11  Chuck Haatvedt <[email protected]>
 
 	* screenio.c (cob_sys_scr_dump, cob_sys_scr_restore) fixed C90 warnings

diff --git a/libcob/screenio.c b/libcob/screenio.c
@@ -4921,14 +4921,14 @@ cob_sys_set_scr_size (unsigned char *line, unsigned char *col)
 int
 cob_sys_scr_dump(unsigned char *parm)
 {
-	COB_CHK_PARMS (CBL_GC_SCR_DUMP, 1);
-	init_cob_screen_if_needed ();
-
 #ifdef	WITH_EXTENDED_SCREENIO
 	int	result;
 	FILE	*filep;
 	const char *filename = cob_get_param_str_buffered (1);
 
+	COB_CHK_PARMS (CBL_GC_SCR_DUMP, 1);
+	init_cob_screen_if_needed ();
+
 	if (filename && (filep = fopen(filename, "wb")) != NULL)
 	{
 		refresh();
@@ -4948,14 +4948,14 @@ cob_sys_scr_dump(unsigned char *parm)
 		/* restore the current stdscr screen from a file */
 int cob_sys_scr_restore(unsigned char *parm)
 {
-	COB_CHK_PARMS (CBL_GC_SCR_RESTORE, 1);
-	init_cob_screen_if_needed ();
-
 #ifdef	WITH_EXTENDED_SCREENIO
 	int	result;
 	FILE	*filep;
 	const char	*filename = cob_get_param_str_buffered (1);
 
+	COB_CHK_PARMS (CBL_GC_SCR_RESTORE, 1);
+	init_cob_screen_if_needed ();
+
 	if (filename && (filep = fopen(filename, "rb")) != NULL)
 	{
 		WINDOW *replacement = getwin(filep);