Fix save-temps with object targets

* Do not move object files if they were specified as an explicit
  target on the command line (typically cobc -c --save-temps=DIR -o
  foo.o foo.cob should keep foo.o in the current directory)

cobc/ChangeLog

@@ -1,4 +1,12 @@
 
+2023-11-29  Fabrice Le Fessant <[email protected]>
+
+	* cobc.c (cobc_clean_up): do not move object files if they were
+	  specified as an explicit target on the command line
+	* parser.y: add "emit_statement_before", "drop_last_statement"
+	  and "replace_last_statement" function for later eventual use.
+	  They are commented using a macro.
+
 2023-07-26  Simon Sobisch <[email protected]>
 
 	* typeck.c (search_set_keys): improving SEARCH ALL syntax checks

cobc/cobc.c

@@ -2287,7 +2287,11 @@ cobc_clean_up (const int status)
 		if (fn->need_assemble
 		 && (status
 			||  cb_compile_level > CB_LEVEL_ASSEMBLE
-			|| (cb_compile_level == CB_LEVEL_ASSEMBLE && save_temps))) {
+			|| (cb_compile_level == CB_LEVEL_ASSEMBLE
+			    && save_temps
+			    /* do not move object if a name was
+			     * specified on the command line */
+			    && !output_name))) {
 			cobc_check_action (fn->object);
 		}
 		clean_up_intermediates (fn, status);

libcob/ChangeLog

@@ -1,4 +1,11 @@
 
+2023-11-29  Fabrice Le Fessant <[email protected]>
+
+	* common.h: export "cob_get_strerror" as a public function
+	* common.c: (cob_expand_env_string): use "getpid" instead
+	  of "cob_sys_getpid" to use the correct PID in case of "fork"
+	* coblocal.h: include "config.h"
+
 2023-07-28  Simon Sobisch <[email protected]>
 
 	* screenio.c, common.c: replace use of NCURSES_MOUSE_VERSION by

libcob/coblocal.h

@@ -22,6 +22,8 @@
 #ifndef COB_LOCAL_H
 #define COB_LOCAL_H
 
+#include "config.h"
+
 /* We use this file to define/prototype things that should not be
    exported to user space
 */

libcob/common.c

@@ -907,7 +907,7 @@ cob_get_source_line ()
 }
 
 /* reentrant version of strerror */
-static char *
+char *
 cob_get_strerror (void)
 {
 	size_t size;
@@ -7801,7 +7801,7 @@ cob_expand_env_string (char *strval)
 			k--;
 		} else if (strval[k] == '$'
 		        && strval[k+1] == '$') {	/* Replace $$ with process-id */
-			j += sprintf (&env[j], "%d", cob_sys_getpid());
+			j += sprintf (&env[j], "%d", getpid());
 			k++;
 		/* CHECME: possibly add $f /$b as basename of executable [or, when passed to cob_init the first name] 
 		           along with $d date as yyyymmdd and $t as hhmmss */

libcob/common.h

@@ -1645,6 +1645,7 @@ COB_EXPIMP int		cob_last_exception_is	(const int);
 
 COB_EXPIMP int		cob_last_exit_code	(void);
 COB_EXPIMP const char*	cob_last_runtime_error	(void);
+COB_EXPIMP char*        cob_get_strerror (void);
 
 COB_EXPIMP void		cob_runtime_hint	(const char *, ...) COB_A_FORMAT12;
 COB_EXPIMP void		cob_runtime_error	(const char *, ...) COB_A_FORMAT12;