view src/librsb-1-setenv.patch @ 6516:5ef7d51c2195

readline: Update to version 8.2-001. * src/readline.mk: Update version and checksum. * src/readline-0-001-upstream.patch: Upstream patch re-formatted to apply in MXE Octave. See: https://ftp.gnu.org/pub/gnu/readline/readline-8.2-patches/readline82-001 * src/readline-0-002-upstream.patch: Remove upstream patch for previous version. * src/readline-1-input.patch, src/readline-1-sigwinch.patch: Update patches. * src/readline-3-fd_set.patch: Add patch to guard functions that use types that aren't available on Windows. * src/gdb-1-readline-8.2.patch: Cherry-pick upstream patch. * dist-files.mk: Update files in list.
author Markus Mützel <markus.muetzel@gmx.de>
date Sat, 12 Nov 2022 17:00:41 +0100
parents 86edd6018826
children
line wrap: on
line source

--- librsb-1.3.0.1/rsb_test_matops.c.orig	2022-02-24 11:11:02.000000000 +0100
+++ librsb-1.3.0.1/rsb_test_matops.c	2022-10-15 13:44:55.920772450 +0200
@@ -1979,7 +1979,7 @@
 			RSB_STDOUT("# Memory benchmark took %.3lfs\n",dt);
 	}
 
-#ifdef RSB_HAVE_UNISTD_H
+#ifdef RSB_HAVE_SETENV
 {
 	/* special environmental variables set just for the sake of being saved in .rpr files */
 #ifdef RSB_CC
@@ -6536,7 +6536,7 @@
 			RSB_STDOUT("# Memory benchmark took %.3lfs\n",dt);
 	}
 
-#ifdef RSB_HAVE_UNISTD_H
+#ifdef RSB_HAVE_SETENV
 {
 	/* special environmental variables set just for the sake of being saved in .rpr files */
 #ifdef RSB_CC
@@ -10962,7 +10962,7 @@
 			RSB_STDOUT("# Memory benchmark took %.3lfs\n",dt);
 	}
 
-#ifdef RSB_HAVE_UNISTD_H
+#ifdef RSB_HAVE_SETENV
 {
 	/* special environmental variables set just for the sake of being saved in .rpr files */
 #ifdef RSB_CC
 
 --- librsb-1.3.0.1/rsbench.c.orig	2022-10-15 13:54:32.053382000 +0200
+++ librsb-1.3.0.1/rsbench.c	2022-10-15 13:54:58.038005553 +0200
@@ -479,7 +479,15 @@
 	{
 		const rsb_char_t *name=ava, *value=esp+1;
 		*esp=RSB_NUL;
+		#ifdef RSB_HAVE_SETENV
 		setenv(name, value, /*overwrite*/1);
+		#else
+		rsb_char_t buf[1000];
+		strcpy(buf, name);
+		strcat(buf, "=");
+		strcat(buf, value);
+		putenv(buf);
+		#endif
 		RSBENCH_STDOUT("# Calling setenv() with arguments %s and %s\n",name,value);
 	}
 	if( ava )