1typedef struct gfc_formal_arglist 2{ 3 int next; 4} 5gfc_actual_arglist; 6update_arglist_pass (gfc_actual_arglist* lst, int po, unsigned argpos, 7 const char *name) 8{ 9 ((void)(__builtin_expect(!(argpos > 0), 0) ? __builtin_unreachable(), 0 : 0)); 10 if (argpos == 1) 11 return 0; 12 if (lst) 13 lst->next = update_arglist_pass (lst->next, po, argpos - 1, name); 14 else 15 lst = update_arglist_pass (((void *)0), po, argpos - 1, name); 16} 17