FFEINFO_kindtypeINTEGERDEFAULT,
ffecom_pointer_kind (),
ffeexpr_cb_end_loc_ (ffelexToken ft UNUSED, ffebld expr, ffelexToken t){  ffeexprExpr_ e;  /* First push the (%LOC) expression as an operand onto the expression     stack. */  e = ffeexpr_expr_new_ ();  e->type = FFEEXPR_exprtypeOPERAND_;  e->token = ffeexpr_stack_->tokens[0];  e->u.operand = ffebld_new_percent_loc (expr);  ffebld_set_info (e->u.operand,		   ffeinfo_new (FFEINFO_basictypeINTEGER,				FFEINFO_kindtypeINTEGERDEFAULT,				0,				FFEINFO_kindENTITY,				FFEINFO_whereFLEETING,				FFETARGET_charactersizeNONE));#if 0				/* ~~ */  e->u.operand = ffeexpr_collapse_percent_loc (e->u.operand, ft);#endif  ffeexpr_exprstack_push_operand_ (e);  /* Now, if the token is a close parenthese, we're in great shape so return     the next handler. */  if (ffelex_token_type (t) == FFELEX_typeCLOSE_PAREN)    {      ffelex_token_kill (ffeexpr_stack_->tokens[1]);      return (ffelexHandler) ffeexpr_token_binary_;    }  /* Oops, naughty user didn't specify the close paren! */  if (ffest_ffebad_start (FFEBAD_MISSING_CLOSE_PAREN))    {      ffebad_here (0, ffelex_token_where_line (t), ffelex_token_where_column (t));      ffebad_here (1, ffelex_token_where_line (ffeexpr_stack_->tokens[1]),		   ffelex_token_where_column (ffeexpr_stack_->tokens[1]));      ffebad_finish ();    }  ffelex_token_kill (ffeexpr_stack_->tokens[1]);  return    (ffelexHandler) ffeexpr_find_close_paren_ (t,					       (ffelexHandler)					       ffeexpr_token_binary_);}