From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from NAM11-DM6-obe.outbound.protection.outlook.com (mail-dm6nam11on2044.outbound.protection.outlook.com [40.107.223.44]) by sourceware.org (Postfix) with ESMTPS id 0FE4E3858D39 for ; Wed, 2 Mar 2022 13:24:22 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 0FE4E3858D39 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=Of/dkkhOYA2hnih8ZrZVFRalKniP5hxkTRKJ2kOi/wIILNh1HQqNWqfw1W8IhsG/RsQhtLs6Hk4SLGOfKtYHewK9DX+VDy1GPEWGH4drncsupWpiqZlZtZuVpbbF57GP/xmR9Xn92ucpNK98wR0/dSwTeCQAI9ORr+3InjzK136+zzwRqxn1rxCkrZOknRuV932xnEx23HjF/98xAUaXjzNprWx7LVTHWvGbJKpnd1ICatAnrHCiM5/SE/i1HUwL11oaVE7YBCfOsXEJFssfv9w/LgQhfJQySsMsX+vs3KnMJr0JYJbLxjChJZznfHAErFoq6L/EopsndKfPIoEJ5g== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector9901; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-AntiSpam-MessageData-ChunkCount:X-MS-Exchange-AntiSpam-MessageData-0:X-MS-Exchange-AntiSpam-MessageData-1; bh=IvrQyIZ1ssiZ4XU5xc31rsNHPo/GcoWNBsL8tFDP5sA=; b=VvKzLZNmPFcI31EPPdc2o1G6HWGO3wN+4O91LMGnnbNa6yd0nyztPgUgnaG7NeHYCpaDyeQWDNCVdICM0naEgYGpwKDKD2eC9g930vkvn9EffBy+PLgNLAP/h4b0irxMipsAigTiLTlgTxxwzLi25tGJvhHWu0SHSlCowKEGE6nNl9gGXIbynCTSwHOETH+I7lJccUrBi+8ZkWk0+W+P7VnBh275DOpCdy8UPCriV2ivkDQ7PhqNotH3nCkAiTips+dBlGANq2ohI8dtjyHuye52kdtcYO2GlZ0uddQCiXrZ5vSNHUQr8u7uoZiWMuiwlea3PuDanRiF+t5RSfqwGQ== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=pass smtp.mailfrom=labware.com; dmarc=pass action=none header.from=labware.com; dkim=pass header.d=labware.com; arc=none Received: from DM6PR17MB3113.namprd17.prod.outlook.com (2603:10b6:5:6::10) by PH0PR17MB4312.namprd17.prod.outlook.com (2603:10b6:510:1f::13) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.5038.14; Wed, 2 Mar 2022 13:24:16 +0000 Received: from DM6PR17MB3113.namprd17.prod.outlook.com ([fe80::78f9:3a56:7d30:e2c9]) by DM6PR17MB3113.namprd17.prod.outlook.com ([fe80::78f9:3a56:7d30:e2c9%6]) with mapi id 15.20.5017.027; Wed, 2 Mar 2022 13:24:16 +0000 From: Jan Vrany To: gdb-patches@sourceware.org Cc: Jan Vrany Subject: [PATCH v4] gdb/mi: PR20684, preserve user selected thread and frame when invoking MI commands Date: Wed, 2 Mar 2022 13:23:30 +0000 Message-Id: <20220302132330.1083078-1-jan.vrany@labware.com> X-Mailer: git-send-email 2.34.1 In-Reply-To: <87a6e8znbi.fsf@redhat.com> References: <87a6e8znbi.fsf@redhat.com> Content-Transfer-Encoding: 8bit Content-Type: text/plain X-ClientProxiedBy: LO2P265CA0028.GBRP265.PROD.OUTLOOK.COM (2603:10a6:600:61::16) To DM6PR17MB3113.namprd17.prod.outlook.com (2603:10b6:5:6::10) MIME-Version: 1.0 X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: b1bdbf61-0f78-401c-bbd4-08d9fc4ff2ec X-MS-TrafficTypeDiagnostic: PH0PR17MB4312:EE_ X-Microsoft-Antispam-PRVS: X-MS-Exchange-SenderADCheck: 1 X-MS-Exchange-AntiSpam-Relay: 0 X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: FT0yYCwXQUYOnsb11pD/IH99bAvFodCl0cXCZhct1Jb6L1/y6xl+3wiTk6MsuB7yGv0lHabjPWIdzOAI2Dv4GMEcpFqRZtUQSKRDr+umvqFSqhGa9gaO20IzvLxe3SEbzkzLusQXRa15GtlHMgvtJSwGHn3BpzdQyTOwNt3BF6XxMzs2/7j91BxdExc38hPnQR5aDd12NHAhTxuGSEitOF4+YbefGLroLbSg7HGE98f8d1iIQKug8wI2poXAdaFChiEJTPhfk3Lm6GFQzEFFV4jBmFFHn9eJIVenj3/ZxuKQzz2udWWO/htl9cacbmQnchfsQhf2e2GkfzR6SKyRvX/I4qFtfJCmmq202psGitzZlXcDJ0Y+q/vIxymEFvA+vW9oYItNm9CCmFi+61U00mtZQs2XCBGm4c1XGY+feqUNC6DvclIvO8Uvsxm2QwNlG4vNF7Ic7GwVyHnXAW+bV1KRfrELya0dcdAeiv1MjQ+Z07PZ/Dnv5GTf4XdH7zTw31NkSVXTrMJZ2AfvMsPNuna0QV+xuImUCtKJ2k+MLANMzQO5/GtyZ4ym8Ptev+bdo1MMbISGZuF2dHdnXz2e+LMvATZWCRswnnBCyPq3aGmOPwzsBzsS5EsZGmbzhbP7yJNubOF8XEdNkAIAXWd3nrbK+d7Q1c5yCOTuw7A65pLEZoNrqdCi3dFhe1WjfWQr3s/CAke0QDX6vaVC2YACd8brFpFOpusq6TFOCKzCYVWOzfzcRmClaKAvq3DKnlWD9zLJ3L63nI0wj/Zg3G9Z07JjIun05BjzX02vkhG9ND4= X-Forefront-Antispam-Report: CIP:255.255.255.255; CTRY:; LANG:en; SCL:1; SRV:; IPV:NLI; SFV:NSPM; H:DM6PR17MB3113.namprd17.prod.outlook.com; PTR:; CAT:NONE; SFS:(13230001)(366004)(6506007)(38350700002)(38100700002)(2906002)(6512007)(52116002)(186003)(83380400001)(2616005)(26005)(107886003)(1076003)(6916009)(316002)(8936002)(4326008)(8676002)(966005)(6486002)(66476007)(66556008)(5660300002)(508600001)(36756003)(66946007)(6666004)(30864003)(44832011)(86362001)(2004002); DIR:OUT; SFP:1101; X-MS-Exchange-AntiSpam-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-MessageData-0: =?us-ascii?Q?P1LWOEVlzTHe+BJ5Lixl5nwGeop6fE8lKECandfk6KQUJrfFwYAB+fK0J8DF?= =?us-ascii?Q?Ves+h7zPr4+6HkrqV72IF3hJ3TvJi/6eilCyz0ru61YaX3qoX/aZCoBb9TjI?= =?us-ascii?Q?w8YUWJs0loy4bY7Q1ykpYBmRqyuorQ4hi0MjnAFRBM0FW4ajRiQBSQMYmlMJ?= =?us-ascii?Q?X1qO83eUPXLay8fDO5EKrEsSSP5NMOrzYj+oPRfbgdgCOPltdmd6l2n7sEzj?= =?us-ascii?Q?F/jJZl79hAIPzPSC1pU1F+zVv6ESlyLd4LQPvI9TpFr2MMgCbdjhPretN16L?= =?us-ascii?Q?IUQpQlaIQRPOkwcIUPYt4EMxktsOIE+AONdLKsYJSEha9FTThC+A2Yh/N/Qr?= =?us-ascii?Q?peI6txRnzD+DwohyLK0qvoPBXBS8DFENgwZu5attXfp6HoDzaWRtEN1ndC2Q?= =?us-ascii?Q?4uc1d5ijosgg8BYlZDXIuuZ9QkQoEcRAlobT/B8C2x/AhJOSxWYbh2Aw0uPu?= =?us-ascii?Q?RXApSvdisnrSJOwDnagpzb8uve0FvTcE/xKQXZW9SG4D1aNZnsPS7rH15oE5?= =?us-ascii?Q?EW7Z70qFg0mLu77prrgBxnP4vuw2CDBpeuwjCd6uK8HryrM49T2C8T3Avfsz?= =?us-ascii?Q?M/VlZIvvRO/5zsTwhTKrscxrhxNX7e7WBjVOrI+/+YVimCPgR0n1mVbL93O0?= =?us-ascii?Q?k6YJJpdfnTHCizWhtJ26RxruE8MFOnm1+DPCzu1Pov7LEcEwCyU/NSF/4KRM?= =?us-ascii?Q?PLsV3cC/PZGwx0+LeAz4x4We3HHiC06216hUvs0TOTbWeNsXHg+6SmiKCQ6+?= =?us-ascii?Q?f7vp1KS8OzbKqPm/os9IxYbRm7JaVYmo31KiaokOb1ASaifec2bzz5H7Xb7J?= =?us-ascii?Q?9kzrxJ76fZLLSS8T+3DdiPTmPxjrEiQtvFYqDUeTHxfK6lA/1Jx/wxafWRSS?= =?us-ascii?Q?JYM2pS5ZVwyrZ+QqYfeO4lr0gjGLzkMvRhBVCdHXrXwjkFJzDJpBFKuTdoxv?= =?us-ascii?Q?TUKT41ctwWeTEjQiIkRCwn0rrK6ZT1G0XCpmQIyHnKVqAD/0I8FiG5kLplCu?= =?us-ascii?Q?1qB3ajeQybb9By5IOGplfA5hstzeCKe046Y87aA/a0OnAOuS49Z12GoamUUb?= =?us-ascii?Q?YmT0sI1hrcdrzXx6cztUaWbzVpCxJWJ3w/BcOH81AEpjvQ3tGz1mCO0OMX9j?= =?us-ascii?Q?xHoALngiRGDhtAXQaAuLyHe9UxrwHCZsy0S/QgBd0NgrnnkfyqTEyoRAkc0R?= =?us-ascii?Q?mVGw9brkwJCM/CDkWfpTStY+M47LeMajikgSI5dcJPx/YtT3+bAn9lKh790z?= =?us-ascii?Q?/jJo9vRJa2P0qCI5zPtgjOdbvh4+qQVQ2OFhMopu0wPxRyGsRu27rlNtCEY5?= =?us-ascii?Q?4xJz+ArSOPsREQnpaHbtCkjzZk9Idhqcw4PqShmAVzwFSxL8pZ31wv00BUto?= =?us-ascii?Q?AAe/T5CexEPI1p8Vnpzdx/MdOAw/fYUa9z3U+beZPz68Sj8Wq/8xiQcaOmf7?= =?us-ascii?Q?IVDc0Jiqe6yRBGluK6VLTMQNjFLpAnmB46KqO+cWlYxEuhhOSDG7p/fTBrdN?= =?us-ascii?Q?9kuv5z6B2p0O8FsyZfsphD9a9XzyzD+pPwZdX0cefoExg3Rhk+oyZgrKTwnD?= =?us-ascii?Q?b8mpk7CjvB5e85uQeh/ez7fVoyvS+eaArLS9uWoVHigYsexG+hR4dJEh9zRm?= =?us-ascii?Q?0sBiWHE2qzl8+jImW8ouyT8=3D?= X-OriginatorOrg: labware.com X-MS-Exchange-CrossTenant-Network-Message-Id: b1bdbf61-0f78-401c-bbd4-08d9fc4ff2ec X-MS-Exchange-CrossTenant-AuthSource: DM6PR17MB3113.namprd17.prod.outlook.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 02 Mar 2022 13:24:16.2227 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: b5db0322-1aa0-4c0a-859c-ad0f96966f4c X-MS-Exchange-CrossTenant-MailboxType: HOSTED X-MS-Exchange-CrossTenant-UserPrincipalName: t+kUU2oKnfVrcPbGO+b9Cthi1Z97feOXRGhE4WCnzRAI+guhzq2Ch6cq5ra3ZoZDwbe+fXaIYBcP26I2QQB1hw== X-MS-Exchange-Transport-CrossTenantHeadersStamped: PH0PR17MB4312 X-Spam-Status: No, score=-11.2 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, GIT_PATCH_0, KAM_ASCII_DIVIDERS, KAM_SHORT, RCVD_IN_DNSWL_NONE, RCVD_IN_MSPIKE_H2, SPF_HELO_PASS, SPF_PASS, TXREP, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 02 Mar 2022 13:24:24 -0000 When invoking MI commands with --thread and/or --frame, user selected thread and frame was not preserved: (gdb) info thread &"info thread\n" ~" Id Target Id Frame \n" ~"* 1 Thread 0x7ffff7c30740 (LWP 19302) \"user-selected-c\" main () at /home/uuu/gdb/gdb/testsuite/gdb.mi/user-selected-context-sync.c:60\n" ~" 2 Thread 0x7ffff7c2f700 (LWP 19306) \"user-selected-c\" child_sub_function () at /home/uuu/gdb/gdb/testsuite/gdb.mi/user-selected-context-sync.c:30\n" ~" 3 Thread 0x7ffff742e700 (LWP 19307) \"user-selected-c\" child_sub_function () at /home/uuu/gdb/gdb/testsuite/gdb.mi/user-selected-context-sync.c:30\n" ^done (gdb) info frame &"info frame\n" ~"Stack level 0, frame at 0x7fffffffdf90:\n" ~" rip = 0x555555555207 in main (/home/uuu/gdb/gdb/testsuite/gdb.mi/user-selected-context-sync.c:60); saved rip = 0x7ffff7c5709b\n" ~" source language c.\n" ~" Arglist at 0x7fffffffdf80, args: \n" ~" Locals at 0x7fffffffdf80, Previous frame's sp is 0x7fffffffdf90\n" ~" Saved registers:\n " ~" rbp at 0x7fffffffdf80, rip at 0x7fffffffdf88\n" ^done (gdb) -stack-info-depth --thread 3 ^done,depth="4" (gdb) info thread &"info thread\n" ~" Id Target Id Frame \n" ~" 1 Thread 0x7ffff7c30740 (LWP 19302) \"user-selected-c\" main () at /home/uuu/gdb/gdb/testsuite/gdb.mi/user-selected-context-sync.c:60\n" ~" 2 Thread 0x7ffff7c2f700 (LWP 19306) \"user-selected-c\" child_sub_function () at /home/uuu/gdb/gdb/testsuite/gdb.mi/user-selected-context-sync.c:30\n" ~"* 3 Thread 0x7ffff742e700 (LWP 19307) \"user-selected-c\" child_sub_function () at /home/uuu/gdb/gdb/testsuite/gdb.mi/user-selected-context-sync.c:30\n" ^done (gdb) info frame &"info frame\n" ~"Stack level 0, frame at 0x7ffff742dee0:\n" ~" rip = 0x555555555169 in child_sub_function (/home/uuu/gdb/gdb/testsuite/gdb.mi/user-selected-context-sync.c:30); saved rip = 0x555555555188\n" ~" called by frame at 0x7ffff742df00\n" ~" source language c.\n" ~" Arglist at 0x7ffff742ded0, args: \n" ~" Locals at 0x7ffff742ded0, Previous frame's sp is 0x7ffff742dee0\n" ~" Saved registers:\n " ~" rbp at 0x7ffff742ded0, rip at 0x7ffff742ded8\n" ^done (gdb) This caused problems for frontends that provide access to CLI because UI may silently change the context for CLI commands (as demonstrated above). This commit fixes the problem by restoring thread and frame in mi_cmd_execute (). With this change, there are only two GDB/MI commands that can change user selected context: -thread-select and -stack-select-frame. This allows us to remove all and rather complicated logic of notifying about user selected context change from mi_execute_command (), leaving it to these two commands themselves to notify. Bug: https://sourceware.org/bugzilla/show_bug.cgi?id=20684 --- gdb/mi/mi-cmd-stack.c | 11 ++ gdb/mi/mi-cmds.h | 12 ++ gdb/mi/mi-main.c | 74 ++------- gdb/testsuite/gdb.mi/mi-cmd-user-context.exp | 155 +++++++++++++++++++ 4 files changed, 189 insertions(+), 63 deletions(-) create mode 100644 gdb/testsuite/gdb.mi/mi-cmd-user-context.exp diff --git a/gdb/mi/mi-cmd-stack.c b/gdb/mi/mi-cmd-stack.c index e63f1706149..1be8aa81c3d 100644 --- a/gdb/mi/mi-cmd-stack.c +++ b/gdb/mi/mi-cmd-stack.c @@ -36,6 +36,8 @@ #include "mi-parse.h" #include "gdbsupport/gdb_optional.h" #include "safe-ctype.h" +#include "inferior.h" +#include "observable.h" enum what_to_list { locals, arguments, all }; @@ -756,7 +758,16 @@ mi_cmd_stack_select_frame (const char *command, char **argv, int argc) if (argc == 0 || argc > 1) error (_("-stack-select-frame: Usage: FRAME_SPEC")); + ptid_t previous_ptid = inferior_ptid; + select_frame_for_mi (parse_frame_specification (argv[0])); + + /* Notify if the thread has effectively changed. */ + if (inferior_ptid != previous_ptid) + { + gdb::observers::user_selected_context_changed.notify + (USER_SELECTED_THREAD | USER_SELECTED_FRAME); + } } void diff --git a/gdb/mi/mi-cmds.h b/gdb/mi/mi-cmds.h index 2a93a9f5476..785652ee1c9 100644 --- a/gdb/mi/mi-cmds.h +++ b/gdb/mi/mi-cmds.h @@ -23,6 +23,7 @@ #define MI_MI_CMDS_H #include "gdbsupport/gdb_optional.h" +#include "mi/mi-main.h" enum print_values { PRINT_NO_VALUES, @@ -163,6 +164,17 @@ struct mi_command wrong. */ void invoke (struct mi_parse *parse) const; + /* Return whether this command preserves user selected context (thread + and frame). */ + bool preserve_user_selected_context () const + { + /* Here we exploit the fact that if MI command is supposed to change + user context, then it should not emit change notifications. Therefore if + command does not suppress user context change notifications, then it should + preserve the context. */ + return m_suppress_notification != &mi_suppress_notification.user_selected_context; + } + protected: /* The core of command invocation, this needs to be overridden in each diff --git a/gdb/mi/mi-main.c b/gdb/mi/mi-main.c index 4860da7536a..23e2373dcec 100644 --- a/gdb/mi/mi-main.c +++ b/gdb/mi/mi-main.c @@ -1879,34 +1879,6 @@ mi_print_exception (const char *token, const struct gdb_exception &exception) fputs_unfiltered ("\n", mi->raw_stdout); } -/* Determine whether the parsed command already notifies the - user_selected_context_changed observer. */ - -static int -command_notifies_uscc_observer (struct mi_parse *command) -{ - if (command->op == CLI_COMMAND) - { - /* CLI commands "thread" and "inferior" already send it. */ - return (startswith (command->command, "thread ") - || startswith (command->command, "inferior ")); - } - else /* MI_COMMAND */ - { - if (strcmp (command->command, "interpreter-exec") == 0 - && command->argc > 1) - { - /* "thread" and "inferior" again, but through -interpreter-exec. */ - return (startswith (command->argv[1], "thread ") - || startswith (command->argv[1], "inferior ")); - } - - else - /* -thread-select already sends it. */ - return strcmp (command->command, "thread-select") == 0; - } -} - void mi_execute_command (const char *cmd, int from_tty) { @@ -1932,8 +1904,6 @@ mi_execute_command (const char *cmd, int from_tty) if (command != NULL) { - ptid_t previous_ptid = inferior_ptid; - command->token = token; if (do_timings) @@ -1963,37 +1933,6 @@ mi_execute_command (const char *cmd, int from_tty) bpstat_do_actions (); - if (/* The notifications are only output when the top-level - interpreter (specified on the command line) is MI. */ - top_level_interpreter ()->interp_ui_out ()->is_mi_like_p () - /* Don't try report anything if there are no threads -- - the program is dead. */ - && any_thread_p () - /* If the command already reports the thread change, no need to do it - again. */ - && !command_notifies_uscc_observer (command.get ())) - { - int report_change = 0; - - if (command->thread == -1) - { - report_change = (previous_ptid != null_ptid - && inferior_ptid != previous_ptid - && inferior_ptid != null_ptid); - } - else if (inferior_ptid != null_ptid) - { - struct thread_info *ti = inferior_thread (); - - report_change = (ti->global_num != command->thread); - } - - if (report_change) - { - gdb::observers::user_selected_context_changed.notify - (USER_SELECTED_THREAD | USER_SELECTED_FRAME); - } - } } } @@ -2037,6 +1976,7 @@ mi_cmd_execute (struct mi_parse *parse) set_current_program_space (inf->pspace); } + gdb::optional thread_saver; if (parse->thread != -1) { thread_info *tp = find_thread_global_id (parse->thread); @@ -2047,9 +1987,13 @@ mi_cmd_execute (struct mi_parse *parse) if (tp->state == THREAD_EXITED) error (_("Thread id: %d has terminated"), parse->thread); + if (parse->cmd->preserve_user_selected_context ()) + thread_saver.emplace (); + switch_to_thread (tp); } + gdb::optional frame_saver; if (parse->frame != -1) { struct frame_info *fid; @@ -2057,8 +2001,12 @@ mi_cmd_execute (struct mi_parse *parse) fid = find_relative_frame (get_current_frame (), &frame); if (frame == 0) - /* find_relative_frame was successful */ - select_frame (fid); + { + if (parse->cmd->preserve_user_selected_context ()) + frame_saver.emplace (); + + select_frame (fid); + } else error (_("Invalid frame id: %d"), frame); } diff --git a/gdb/testsuite/gdb.mi/mi-cmd-user-context.exp b/gdb/testsuite/gdb.mi/mi-cmd-user-context.exp new file mode 100644 index 00000000000..a373dd3a4b0 --- /dev/null +++ b/gdb/testsuite/gdb.mi/mi-cmd-user-context.exp @@ -0,0 +1,155 @@ +# Copyright 2022 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# Test that GDB/MI commands preserve user selected context when +# passed --thread and/or --frame. + +load_lib mi-support.exp + +standard_testfile user-selected-context-sync.c + +if {[build_executable $testfile.exp $testfile ${srcfile} "debug pthreads"] == -1} { + untested "failed to compile" + return -1 +} + +set main_break_line [gdb_get_line_number "main break line"] + +set any "\[^\r\n\]*" +set nl "\[\r\n\]" + +mi_clean_restart $binfile +mi_create_breakpoint "$srcfile:$main_break_line" "set breakpoint in main" +mi_run_cmd +mi_expect_stop "breakpoint-hit" "main" "" $srcfile $main_break_line \ + { "" "disp=\"keep\"" } "run to breakpoint in main" + +mi_gdb_test "thread" \ + ".*Current thread is 1.*" \ + "info thread 1" + +#========================= + +mi_gdb_test "-stack-info-depth --thread 3" \ + "\\^done,depth=.*" \ + "-stack-info-depth --thread 3" + +mi_gdb_test "thread" \ + ".*Current thread is 1.*" \ + "info thread 2" + +#========================= + +mi_gdb_test "-thread-select 3" \ + "\\^done,.*" \ + "-thread-select 3" + +mi_gdb_test "thread" \ + ".*Current thread is 3.*" \ + "info thread 3" + +#========================= + +mi_gdb_test "-thread-select --thread 2 1" \ + "\\^done,.*" \ + "-thread-select --thread 2 1" + +mi_gdb_test "thread" \ + ".*Current thread is 1.*" \ + "info thread 4" + +#========================= + +mi_gdb_test "-thread-select --thread 2 2" \ + "\\^done,.*" \ + "-thread-select --thread 2 2" + +mi_gdb_test "thread" \ + ".*Current thread is 2.*" \ + "info thread 5" + +#========================= + +mi_gdb_test "frame" \ + ".*#0 0x.*" \ + "frame 1" + +mi_gdb_test "-stack-info-frame --thread 2 --frame 1" \ + "\\^done,frame=\{level=\"1\".*" \ + "-stack-info-frame 1" + +mi_gdb_test "thread" \ + ".*Current thread is 2.*" \ + "info thread 6" + +mi_gdb_test "frame" \ + ".*#0 0x.*" \ + "frame 2" + +#========================= + +mi_gdb_test "-stack-info-frame --thread 3 --frame 1" \ + "\\^done,frame=\{level=\"1\".*" \ + "-stack-info-frame 2" + +mi_gdb_test "thread" \ + ".*Current thread is 2.*" \ + "info thread 7" + +mi_gdb_test "frame" \ + ".*#0 0x.*" \ + "frame 3" + +#========================= + +mi_gdb_test "-stack-select-frame --thread 2 --frame 0 1" \ + "\\^done" \ + "--stack-select-frame 1" + +mi_gdb_test "thread" \ + ".*Current thread is 2.*" \ + "info thread 8" + +mi_gdb_test "frame" \ + ".*#1 0x.*" \ + "frame 4" + +#========================= + +mi_gdb_test "-stack-select-frame --thread 2 --frame 2 2" \ + "\\^done" \ + "--stack-select-frame 2" + +mi_gdb_test "thread" \ + ".*Current thread is 2.*" \ + "info thread 9" + +mi_gdb_test "frame" \ + ".*#2 0x.*" \ + "frame 5" + +#========================= + +mi_gdb_test "-stack-select-frame --thread 1 --frame 0 0" \ + "\\^done" \ + "--stack-select-frame 3" + +mi_gdb_test "thread" \ + ".*Current thread is 1.*" \ + "info thread 10" + +mi_gdb_test "frame" \ + ".*#0 main.*" \ + "frame 6" -- 2.34.1