if (c_parser_next_token_is (parser, CPP_NAME))
  {
    tree id = c_parser_peek_token (parser)->value;
    location_t loc = c_parser_peek_token (parser)->location;
    /** build_external_ref (id,RID_CbC_CODE , loc); **/
    build_external_ref (loc, id, RID_CbC_CODE, &expr.original_type);
  }
expr = c_parser_expr_no_commas (parser, NULL);
if (TREE_CODE(expr.value) == CALL_EXPR )
  {
    location_t loc = c_parser_peek_token (parser)->location;
    cbc_replace_arguments (loc, expr.value);

    =>            TREE_TYPE(expr.value) = void_type_node;
    /*tree env = NULL_TREE;**/
    CbC_IS_CbC_GOTO (expr.value) = 1;
    CALL_EXPR_TAILCALL (expr.value) = 1;
    add_stmt(expr.value);
    stmt = c_finish_return(loc, NULL_TREE, NULL_TREE); /* stmt = c_finish_return (0); */