Changeset 774 for trunk/AGRIF/LIB/UtilFortran.c

Timestamp:

2007-12-18T17:45:53+01:00 (16 years ago)

Author:

rblod

Message:

Update Agrif, see ticket:#39

File:

• trunk/AGRIF/LIB/UtilFortran.c (modified) (7 diffs)

trunk/AGRIF/LIB/UtilFortran.c

@@ -31 +31 @@
 /* knowledge of the CeCILL-C license and that you accept its terms.           */
 /******************************************************************************/
-/* version 1.6                                                                */
+/* version 1.7                                                                */
 /******************************************************************************/
 #include <stdio.h>
@@ -268 +268 @@
    newvar = (listnom *)malloc(sizeof(listnom));
    strcpy(newvar->o_nom,nom);
+   Save_Length(nom,23);
    newvar->suiv = NULL;
 
@@ -297 +298 @@
    listnom *parcours_nomprec;
    int out;
-   char ligne[LONGNOM];
-
-   if ( firstpass == 0 )
-   {
+   char ligne[LONG_C];
+
+   if ( firstpass == 0 )
+   {
+      parcours_nomprec = (listnom *)NULL;
       parcours_nom = List_NameOfModule;
       out = 0 ;
@@ -382 +384 @@
    listnom *parcours_nomprec;
    int out;
-   char ligne[LONGNOM];
-
-   if ( firstpass == 0 )
-   {
+   char ligne[LONG_C];
+
+   if ( firstpass == 0 )
+   {
+      parcours_nomprec = (listnom *)NULL;
       parcours_nom = List_NameOfModule;
       out = 0 ;
@@ -558 +561 @@
 {
    listvar *parcours;
-   int out;
 
    if ( firstpass == 1 )
@@ -590 +592 @@
          newvar = (listname *)malloc(sizeof(listname));
          strcpy(newvar->n_name,nom);
+         Save_Length(nom,20);
          newvar->suiv = NULL;
          List_Pointer_Var = newvar;
@@ -611 +614 @@
               newvar = (listname *)malloc(sizeof(listname));
               strcpy(newvar->n_name,nom);
+              Save_Length(nom,20);
               newvar->suiv = NULL;
               parcours->suiv = newvar;