aboutsummaryrefslogtreecommitdiff
path: root/french/aster/files/post-patch-bibc__supervis__aster_utils.c
diff options
context:
space:
mode:
Diffstat (limited to 'french/aster/files/post-patch-bibc__supervis__aster_utils.c')
-rw-r--r--french/aster/files/post-patch-bibc__supervis__aster_utils.c22
1 files changed, 22 insertions, 0 deletions
diff --git a/french/aster/files/post-patch-bibc__supervis__aster_utils.c b/french/aster/files/post-patch-bibc__supervis__aster_utils.c
new file mode 100644
index 000000000000..e0b218c18538
--- /dev/null
+++ b/french/aster/files/post-patch-bibc__supervis__aster_utils.c
@@ -0,0 +1,22 @@
+--- bibc/supervis/aster_utils.c.orig 2020-10-20 16:45:20.000000000 +0200
++++ bibc/supervis/aster_utils.c 2020-11-22 17:01:12.951054000 +0100
+@@ -18,6 +18,8 @@
+
+ /* person_in_charge: mathieu.courtois at edf.fr */
+
++#include <string.h>
++#define __STDC_WANT_LIB_EXT1__ 1
+ #include "aster_utils.h"
+ #include "aster_module.h"
+ #include "aster_fort.h"
+@@ -91,7 +93,9 @@
+ /* Initialise un blanc une chaine de caractères (sans '\0' à la fin).
+ * S'applique à une chaine allouée par le Fortran.
+ */
+- memset(fstr, ' ', flen);
++ if (memset_s(fstr, flen, ' ', flen) != 0) {
++ MYABORT("Erreur sur memset_s");
++ }
+ }
+
+ char * MakeBlankFStr( _IN STRING_SIZE flen )