This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.
| Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
|---|---|---|
| Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
| Other format: | [Raw text] | |
+ /* Add current_attr to the symbol attributes. */
+ src_attr = (char *) (&(current_attr));
+ dest_attr = (char *) (&(sym->attr));
+ for (i = 0; i < (int) sizeof (sym->attr); i++)
+ {
+ *dest_attr = (*dest_attr) | (*src_attr);
+ dest_attr++;
+ src_attr++;
+ }
Cheers, - Tobi
| Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
|---|---|---|
| Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |