gcc/f/stu.c

61 static bool ffestu_symter_end_transition_ (ffebld expr);
62 static bool ffestu_symter_exec_transition_ (ffebld expr);
964 /* ffestu_symter_end_transition_ -- Update SYMTERs in expr w/in symbol
966    ffebld expr;
967    ffestu_symter_end_transition_(expr);
969    Any SYMTER in expr's tree with whereNONE gets updated to the
973 ffestu_symter_end_transition_ (ffebld expr)
978   /* Label used for tail recursion (reset expr and go here instead of calling
983   if (expr == NULL)
986   switch (ffebld_op (expr))
989       while (ffebld_trail (expr) != NULL)
991 	  if (ffestu_symter_end_transition_ (ffebld_head (expr)))
993 	  expr = ffebld_trail (expr);
995       expr = ffebld_head (expr);
999       symbol = ffecom_sym_end_transition (ffebld_symter (expr));
1003       ffebld_set_info (expr, ffesymbol_info (symbol));
1013   switch (ffebld_arity (expr))
1016       if (ffestu_symter_end_transition_ (ffebld_left (expr)))
1018       expr = ffebld_right (expr);
1022       expr = ffebld_left (expr);
1032 /* ffestu_symter_exec_transition_ -- Update SYMTERs in expr w/in symbol
1034    ffebld expr;
1035    ffestu_symter_exec_transition_(expr);
1037    Any SYMTER in expr's tree with whereNONE gets updated to the
1041 ffestu_symter_exec_transition_ (ffebld expr)
1046   /* Label used for tail recursion (reset expr and go here instead of calling
1051   if (expr == NULL)
1054   switch (ffebld_op (expr))
1057       while (ffebld_trail (expr) != NULL)
1059 	  if (ffestu_symter_exec_transition_ (ffebld_head (expr)))
1061 	  expr = ffebld_trail (expr);
1063       expr = ffebld_head (expr);
1067       symbol = ffecom_sym_exec_transition (ffebld_symter (expr));
1071       ffebld_set_info (expr, ffesymbol_info (symbol));
1081   switch (ffebld_arity (expr))
1084       if (ffestu_symter_exec_transition_ (ffebld_left (expr)))
1086       expr = ffebld_right (expr);
1090       expr = ffebld_left (expr);