Changeset 1200 for trunk/AGRIF/LIB/WorkWithglobliste.c
- Timestamp:
- 2008-09-24T15:05:20+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AGRIF/LIB/WorkWithglobliste.c
r774 r1200 73 73 } 74 74 } 75 76 void checkandchangedims(listvar *listsecondpass) 77 { 78 listvar *parcours; 79 listvar *parcours1; 80 variable * newvar; 81 variable * oldvar; 82 83 int out ; 84 85 printliste(List_Global_Var); 86 printliste(List_SubroutineDeclaration_Var); 87 88 parcours = listsecondpass; 89 while (parcours) 90 { 91 newvar = parcours->var; 92 parcours1 = List_SubroutineDeclaration_Var; 93 out = 0; 94 while (parcours1 && out == 0) 95 { 96 oldvar = parcours1->var; 97 if (!strcasecmp(newvar->v_nomvar,oldvar->v_nomvar) && !strcasecmp(newvar->v_subroutinename,subroutinename)) 98 { 99 if (newvar->v_dimensiongiven == 1) 100 { 101 strcpy(oldvar->v_dimension->dim.last,newvar->v_dimension->dim.last); 102 strcpy(oldvar->v_dimension->dim.first,newvar->v_dimension->dim.first); 103 } 104 out = 1; 105 } 106 parcours1 = parcours1->suiv; 107 } 108 parcours = parcours->suiv; 109 } 110 printliste(List_SubroutineDeclaration_Var); 111 }
Note: See TracChangeset
for help on using the changeset viewer.