From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from AUS01-SY4-obe.outbound.protection.outlook.com (mail-sy4aus01olkn2185.outbound.protection.outlook.com [40.92.62.185]) by sourceware.org (Postfix) with ESMTPS id BAB793858407 for ; Sat, 23 Apr 2022 09:15:15 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org BAB793858407 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=Z3oduhx3Cgp5ep9E6ilrIqmC7adTptgj5aAT+ljmld0OkrSmS18xarPNdKMlCrayQGNGxxUne/4xriNC1rRVi81KuHRlZvdDF2YwTIZ/M1Kd1bNKcwkrwr/5REBh/nA78xSk739ioZg1hwO1JG7mmJ0g1cSwaR8nspHSyf0g5NG13VmHBudWlIkQd5aDjd7bewhlIh1iy1c4ZsqexEGWaUc7IxwoYJKrlMCPDz9Vz9jkIh3s/ZwMXIh/atBvih8uwpDRdGnNUD1CrK9+Co3AKk9GSUc7V8ZTaRBU2kADmCVY+An9OcJJeD4dZjvIvxawYl16RkTk9n/FQ0iNyhG3wg== 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=X8ydi29EgHt/hXjtUtIvUrkk28DsWrHvsu7Vj++sU98=; b=cmODNkfbpp+zUOMwO1AmQ0YvB5kkroa1OHoM+PmXtyTR7+QHja98RY1uEREjJXHEbr2qgNzmAq+oPB5/p7HXGqzX9/mQltut4XuGTew7WNyXXuXme0/AwCEKxx2P9pgKb3+FZHTFURV5DrUsP0ou+MgS5mFgEjZ6gvHxc4BGWrVGXWnOHyiHm0PaAzVe2dRiG+3I+s27dQmV1929dwOSk1sUPnL5+HRXZqtRIiEKXZCkLBVHK4DN2QdCQtPjCk7WGjwyF3BOrGuJcAMr6rgzcdATXvLXw5OxIQnSxvT5znM/c/CyN2d6mDmixUBeERPJBf7ybVR4N9F3c+08eoF9Vw== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=none; dmarc=none; dkim=none; arc=none Received: from MEAP282MB0293.AUSP282.PROD.OUTLOOK.COM (2603:10c6:220:71::10) by SYBP282MB2724.AUSP282.PROD.OUTLOOK.COM (2603:10c6:10:153::14) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.5186.15; Sat, 23 Apr 2022 09:15:12 +0000 Received: from MEAP282MB0293.AUSP282.PROD.OUTLOOK.COM ([fe80::5804:c2bb:bc94:3cec]) by MEAP282MB0293.AUSP282.PROD.OUTLOOK.COM ([fe80::5804:c2bb:bc94:3cec%6]) with mapi id 15.20.5186.018; Sat, 23 Apr 2022 09:15:12 +0000 From: Enze Li To: pedro@palves.net, tom@tromey.com Cc: gdb-patches@sourceware.org Subject: [PATCH v8 1/3] gdb: Add new 'print nibbles' feature Date: Sat, 23 Apr 2022 17:14:54 +0800 Message-ID: X-Mailer: git-send-email 2.35.3 In-Reply-To: References: Content-Transfer-Encoding: 8bit Content-Type: text/plain X-TMN: [MCpY+fy1SQ+EHN+40LchqIC2Zgdp46uD] X-ClientProxiedBy: HK2PR02CA0172.apcprd02.prod.outlook.com (2603:1096:201:1f::32) To MEAP282MB0293.AUSP282.PROD.OUTLOOK.COM (2603:10c6:220:71::10) X-Microsoft-Original-Message-ID: <20220423091454.19037-1-lienze2010@hotmail.com> MIME-Version: 1.0 X-MS-Exchange-MessageSentRepresentingType: 1 X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: 7dfe04d2-f804-4a22-46f0-08da2509c555 X-MS-TrafficTypeDiagnostic: SYBP282MB2724:EE_ X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: PKDNBrIp1thN83ZYQ4RpDoLxtXNkj80ZA5qx3arLv4ydzHbumNKpG3Er18xHaquNeY2VKoSusmHCrtU9+U9Cr9I6hAarU49u1W6VJFSM32PVMa7+f7wErX2wzUH1rpAcc65U0d4qouLJBlAiY8ja1uRl6FtNMyljgTTrjgabuZxprSPrEb/U4dF/a5YA2lVL/cX+ctyz2aum+LZtzhjrt4Y2Lyj++5fXRdYzlmCcwzXmB7tNrUi1shyX9yiSBGxJJRCrukP+BJfcj8feI60c4JbMwhpg2fxa8/JERaXfjLH7eakIJUFATEH5lbrBKmPUE4YTUMzRUlQkrM/DFaqZCNyjkbJDcndcpkl4yZ3HKdh96mHg2zlCqvifCUzwTT3tEDANuSJHSIQhvUtGqc871subjw3eCfxCI4hZScJqzX70IBFdBusCxRjAfn9nYQZQB6LupOcrcOSvcCIbmU6TI6s1fT3fDOceIvk+EXeZ/wH96gZTN+M444KWZt2kKJXmVmcSCTizCEQxAIG/7SuQXF/9b/FaU3ExQcb50YejkpjxRv8cVJUsWqUbuijtJFBywCC5Ipp0EgEGsv7BL5BaTQ== X-MS-Exchange-AntiSpam-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-MessageData-0: =?us-ascii?Q?g044gvZQVRJrqtLNohE4V+LXk30OQ6t1Kwzt62RxCK4MZYLDPsyTxaxW7w7Z?= =?us-ascii?Q?UMqVEMAj0jgv6UJCXGiu1nYxsEhKOyCjapg1GFEfr0AjpgSuCVkcTZWPqCWM?= =?us-ascii?Q?bwNiRHdJj+D0e+5Za2EnZ5mHi+DO9bsQBRdMP0OQojmdoFr2F1vXxKUC3eaA?= =?us-ascii?Q?pKVXn/kfEszWv6QTI2Fib19zpg4r0DKhbhrHpCRAVelu+lb9tSziQt8n4oYf?= =?us-ascii?Q?g+KCiNUmX/GB5yQipUxFv4jNJA/4oN+sQVO/YbQdIuXapF5TBkHwr+uMyqxs?= =?us-ascii?Q?Ltiwl9a1gzsmkCL/pxMPiUJwq9OtdStwiQapF08d7obQ2+pAPAxxMFHI/vLS?= =?us-ascii?Q?qzA2nCZ6fzITV/Yy7g4r6SuMiDEV12R+Im7IqOvnextYSPdNnakXj7SWe10P?= =?us-ascii?Q?kRN3e2Yea94or5ZR5dE3L+6+uSJzGXiYq3UX5TXeT0lAE9a1/It5GwlBCJMp?= =?us-ascii?Q?Heg4xNiHCFlSL6XTimK4LZdFAcjh2YtZJZ8waRqz8j1zfVMjcolJvBKv/IX7?= =?us-ascii?Q?G9kkWVdSr1sPPybMbPBOMIF5/T6f+Fzr8fsnD1z5xfBZaAPN+H8pQFyxn9P4?= =?us-ascii?Q?4OG5dhPqC32JXglna3L74vvwbsMQ3F69nm7KB/4M/ZPRmLTW5I87ySJ5qNoH?= =?us-ascii?Q?tbXoCUEIJYt1KrYPPwwzH1MjFQBT4DHIxLTZQMo/jdDLPbnI/wI89EMjm+Ae?= =?us-ascii?Q?eVE0dmxLU8vXslYMrVrJVWrO6XcQT7D3/H0Ii1w1D0hyamiX217S2ZLSsslA?= =?us-ascii?Q?wzQwWuERmAATRPy6ZSRZUmOswW6GrNcdjketesxBcvlNVQ495MhU4gyy4SOF?= =?us-ascii?Q?HDhiaPGyiHes1Z0R+o9LEB+wOUHTqUsTM0x3745fKE5MVZuEfpkORJbjweGe?= =?us-ascii?Q?R9MMwIdsTpOcMDLAImfmknw0Wifb2mm0D+COKEfamuQ/C9T1w61z48xU9v51?= =?us-ascii?Q?4ZbBJKdhu63Os5VabRNR2b3w8wrWs4P2t9WugLfNcMatVlRNB2lp3cRN0Jzi?= =?us-ascii?Q?P2VYOm2GSitfgQhZB/K1odRCcfr09Zf8rncgJX0o8/hO/PeAyjCfOBiVuVdf?= =?us-ascii?Q?nB2AvsAa4JtR5NWVv3chxOa4X5vVEHbsLi2+sXJexl9ONKn7JZ9yT3OCds3m?= =?us-ascii?Q?RN6C1pjBl44HRoxfSLXr/FwhpMT7yeMEsVDzFtDka4VrkGyd+XfsrdsfIioL?= =?us-ascii?Q?s1iS6NYIXCg4tlxAjjVuzyrIPX4xcOgUYJGlx74LWiBHy9UjShmkMLeqyTuZ?= =?us-ascii?Q?nsW2KU+hrCm9SKmfkuMIv5PcNttJqMayDfg8e/LWljUoBhUP2xMO4wyWyGay?= =?us-ascii?Q?J6ssActpgdZXNceEeFoUi6Aya/5FJUZ4+ARNpUGG0ZemSHFG87PseAHaYroO?= =?us-ascii?Q?hzlnzfutJ3Eg+F7Sa6KXFki1WxldJSZ010QwgayxGWC1cv1W93yrPE+NQwQ3?= =?us-ascii?Q?rWvq7/h8oiE=3D?= X-OriginatorOrg: sct-15-20-4755-11-msonline-outlook-746f3.templateTenant X-MS-Exchange-CrossTenant-Network-Message-Id: 7dfe04d2-f804-4a22-46f0-08da2509c555 X-MS-Exchange-CrossTenant-AuthSource: MEAP282MB0293.AUSP282.PROD.OUTLOOK.COM X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 23 Apr 2022 09:15:12.6042 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 84df9e7f-e9f6-40af-b435-aaaaaaaaaaaa X-MS-Exchange-CrossTenant-RMS-PersistedConsumerOrg: 00000000-0000-0000-0000-000000000000 X-MS-Exchange-Transport-CrossTenantHeadersStamped: SYBP282MB2724 X-Spam-Status: No, score=-10.9 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_ENVFROM_END_DIGIT, FREEMAIL_FROM, GIT_PATCH_0, RCVD_IN_DNSWL_NONE, SPF_HELO_PASS, SPF_PASS, TXREP 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: Sat, 23 Apr 2022 09:15:18 -0000 Make an introduction of a new print setting that can be set by 'set print nibbles [on|off]'. The default value if OFF, which can be changed by user manually. Of course, 'show print nibbles' is also included in the patch. The new feature displays binary values by group, with four bits per group. The motivation for this work is to enhance the readability of binary values. Here's a GDB session before this patch is applied. (gdb) print var_a $1 = 1230 (gdb) print/t var_a $2 = 10011001110 With this patch applied, we can use the new print setting to display the new form of the binary values. (gdb) print var_a $1 = 1230 (gdb) print/t var_a $2 = 10011001110 (gdb) set print nibbles on (gdb) print/t var_a $3 = 0100 1100 1110 Tested on x86_64 openSUSE Tumbleweed(VERSION_ID="20220413"). --- gdb/c-lang.c | 4 +++ gdb/language.h | 7 ++++ gdb/printcmd.c | 2 +- gdb/rust-lang.h | 5 +++ gdb/testsuite/gdb.base/options.exp | 1 + gdb/testsuite/gdb.base/printcmds.exp | 43 +++++++++++++++++++++++++ gdb/valprint.c | 48 +++++++++++++++++++++++++++- gdb/valprint.h | 6 +++- 8 files changed, 113 insertions(+), 3 deletions(-) diff --git a/gdb/c-lang.c b/gdb/c-lang.c index be9ee073f58..a1b26524c38 100644 --- a/gdb/c-lang.c +++ b/gdb/c-lang.c @@ -857,6 +857,10 @@ class cplus_language : public language_defn const char *natural_name () const override { return "C++"; } + /* See language.h */ + const char *get_digit_separator () const override + { return "\'"; } + /* See language.h. */ const std::vector &filename_extensions () const override diff --git a/gdb/language.h b/gdb/language.h index f2885000259..c6812c52634 100644 --- a/gdb/language.h +++ b/gdb/language.h @@ -282,6 +282,13 @@ struct language_defn virtual const char *natural_name () const = 0; + /* Digit separator of the language. */ + + virtual const char *get_digit_separator () const + { + return " "; + } + /* Return a vector of file extensions for this language. The extension must include the ".", like ".c". If this language doesn't need to provide any filename extensions, this may be an empty vector (which is diff --git a/gdb/printcmd.c b/gdb/printcmd.c index 102058a8579..ba1bf0ed2f5 100644 --- a/gdb/printcmd.c +++ b/gdb/printcmd.c @@ -485,7 +485,7 @@ print_scalar_formatted (const gdb_byte *valaddr, struct type *type, break; case 't': - print_binary_chars (stream, valaddr, len, byte_order, size > 0); + print_binary_chars (stream, valaddr, len, byte_order, size > 0, options); break; case 'x': print_hex_chars (stream, valaddr, len, byte_order, size > 0); diff --git a/gdb/rust-lang.h b/gdb/rust-lang.h index 514494a2c82..6da57f8633f 100644 --- a/gdb/rust-lang.h +++ b/gdb/rust-lang.h @@ -71,6 +71,11 @@ class rust_language : public language_defn /* See language.h. */ + const char *get_digit_separator () const override + { return "_"; } + + /* See language.h. */ + const std::vector &filename_extensions () const override { static const std::vector extensions = { ".rs" }; diff --git a/gdb/testsuite/gdb.base/options.exp b/gdb/testsuite/gdb.base/options.exp index 41466614282..d10e7f8d66f 100644 --- a/gdb/testsuite/gdb.base/options.exp +++ b/gdb/testsuite/gdb.base/options.exp @@ -168,6 +168,7 @@ proc_with_prefix test-print {{prefix ""}} { "-elements" "-max-depth" "-memory-tag-violations" + "-nibbles" "-null-stop" "-object" "-pretty" diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp index 3260c8a3c09..04d390d3658 100644 --- a/gdb/testsuite/gdb.base/printcmds.exp +++ b/gdb/testsuite/gdb.base/printcmds.exp @@ -709,6 +709,48 @@ proc test_print_char_arrays {} { gdb_test_no_output "set print address off" "address off char arrays" } +proc test_print_nibbles {} { + gdb_test_no_output "set print nibbles on" + foreach lang_line { + {"ada" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"asm" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"c" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"c++" "0" "0" "0011'0000" "1111'1111" "1111" "0001" "1111'0000'1111"} + {"d" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"fortran" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"go" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"minimal" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"objective-c" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"opencl" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"pascal" "0" "0" "0011 0000" "1111 1111" "1111" "0001" "1111 0000 1111"} + {"rust" "0" "0" "0011_0000" "1111_1111" "1111" "0001" "1111_0000_1111"} + } { + set lang [lindex $lang_line 0] + set val1 [lindex $lang_line 1] + set val2 [lindex $lang_line 2] + set val3 [lindex $lang_line 3] + set val4 [lindex $lang_line 4] + set val5 [lindex $lang_line 5] + set val6 [lindex $lang_line 6] + set val7 [lindex $lang_line 7] + set val8 [lindex $lang_line 8] + + with_test_prefix "$lang" { + gdb_test_no_output "set language $lang" + gdb_test "p/t 0" $val1 + gdb_test "p/t 0x0" $val2 + gdb_test "p/t 0x30" $val3 + gdb_test "p/t 0xff" $val4 + gdb_test "p/t 0x0f" $val5 + gdb_test "p/t 0x01" $val6 + gdb_test "p/t 0xf0f" $val7 + gdb_test "p/t 0x70f" $val8 + gdb_test_no_output "set language auto" + } + } + gdb_test_no_output "set print nibbles off" +} + proc test_print_string_constants {} { global gdb_prompt @@ -1086,6 +1128,7 @@ test_print_int_arrays test_print_typedef_arrays test_artificial_arrays test_print_char_arrays +test_print_nibbles # We used to do the runto main here. test_print_string_constants test_print_array_constants diff --git a/gdb/valprint.c b/gdb/valprint.c index 47114676934..e63ec30f4c7 100644 --- a/gdb/valprint.c +++ b/gdb/valprint.c @@ -105,6 +105,7 @@ struct value_print_options user_print_options = 0, /* vtblprint */ 1, /* unionprint */ 1, /* addressprint */ + false, /* nibblesprint */ 0, /* objectprint */ PRINT_MAX_DEFAULT, /* print_max */ 10, /* repeat_count_threshold */ @@ -257,6 +258,17 @@ show_unionprint (struct ui_file *file, int from_tty, value); } +/* Controls the format of printing binary values. */ + +static void +show_nibbles (struct ui_file *file, int from_tty, + struct cmd_list_element *c, const char *value) +{ + gdb_printf (file, + _("Printing binary values in groups is %s.\n"), + value); +} + /* If nonzero, causes machine addresses to be printed in certain contexts. */ static void @@ -1357,18 +1369,23 @@ print_floating (const gdb_byte *valaddr, struct type *type, void print_binary_chars (struct ui_file *stream, const gdb_byte *valaddr, - unsigned len, enum bfd_endian byte_order, bool zero_pad) + unsigned len, enum bfd_endian byte_order, bool zero_pad, + const struct value_print_options *options) { const gdb_byte *p; unsigned int i; int b; bool seen_a_one = false; + const char *digit_separator = nullptr; /* Declared "int" so it will be signed. This ensures that right shift will shift in zeros. */ const int mask = 0x080; + if (options->nibblesprint) + digit_separator = current_language->get_digit_separator(); + if (byte_order == BFD_ENDIAN_BIG) { for (p = valaddr; @@ -1380,6 +1397,9 @@ print_binary_chars (struct ui_file *stream, const gdb_byte *valaddr, for (i = 0; i < (HOST_CHAR_BIT * sizeof (*p)); i++) { + if (options->nibblesprint && seen_a_one && i % 4 == 0) + gdb_putc (*digit_separator, stream); + if (*p & (mask >> i)) b = '1'; else @@ -1387,6 +1407,13 @@ print_binary_chars (struct ui_file *stream, const gdb_byte *valaddr, if (zero_pad || seen_a_one || b == '1') gdb_putc (b, stream); + else if (options->nibblesprint) + { + if ((0xf0 & (mask >> i) && (*p & 0xf0)) + || (0x0f & (mask >> i) && (*p & 0x0f))) + gdb_putc (b, stream); + } + if (b == '1') seen_a_one = true; } @@ -1400,6 +1427,9 @@ print_binary_chars (struct ui_file *stream, const gdb_byte *valaddr, { for (i = 0; i < (HOST_CHAR_BIT * sizeof (*p)); i++) { + if (options->nibblesprint && seen_a_one && i % 4 == 0) + gdb_putc (*digit_separator, stream); + if (*p & (mask >> i)) b = '1'; else @@ -1407,6 +1437,13 @@ print_binary_chars (struct ui_file *stream, const gdb_byte *valaddr, if (zero_pad || seen_a_one || b == '1') gdb_putc (b, stream); + else if (options->nibblesprint) + { + if ((0xf0 & (mask >> i) && (*p & 0xf0)) + || (0x0f & (mask >> i) && (*p & 0x0f))) + gdb_putc (b, stream); + } + if (b == '1') seen_a_one = true; } @@ -2837,6 +2874,15 @@ static const gdb::option::option_def value_print_option_defs[] = { NULL, /* help_doc */ }, + boolean_option_def { + "nibbles", + [] (value_print_options *opt) { return &opt->nibblesprint; }, + show_nibbles, /* show_cmd_cb */ + N_("Set whether to print binary values in groups of four bits."), + N_("Show whether to print binary values in groups of four bits."), + NULL, /* help_doc */ + }, + uinteger_option_def { "elements", [] (value_print_options *opt) { return &opt->print_max; }, diff --git a/gdb/valprint.h b/gdb/valprint.h index ff536fbe4f0..d6ad45d7580 100644 --- a/gdb/valprint.h +++ b/gdb/valprint.h @@ -44,6 +44,9 @@ struct value_print_options /* Controls printing of addresses. */ bool addressprint; + /* Controls printing of nibbles. */ + bool nibblesprint; + /* Controls looking up an object's derived type using what we find in its vtables. */ bool objectprint; @@ -149,7 +152,8 @@ extern void value_print_scalar_formatted int size, struct ui_file *stream); extern void print_binary_chars (struct ui_file *, const gdb_byte *, - unsigned int, enum bfd_endian, bool); + unsigned int, enum bfd_endian, bool, + const struct value_print_options *options); extern void print_octal_chars (struct ui_file *, const gdb_byte *, unsigned int, enum bfd_endian); -- 2.35.3