From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mx0a-00069f02.pphosted.com (mx0a-00069f02.pphosted.com [205.220.165.32]) by sourceware.org (Postfix) with ESMTPS id 054453854169 for ; Fri, 30 Sep 2022 00:10:32 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 054453854169 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=oracle.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=oracle.com Received: from pps.filterd (m0246629.ppops.net [127.0.0.1]) by mx0b-00069f02.pphosted.com (8.17.1.5/8.17.1.5) with ESMTP id 28TMit4j026778; Fri, 30 Sep 2022 00:10:30 GMT DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=oracle.com; h=from : to : cc : subject : date : message-id : in-reply-to : references : content-transfer-encoding : content-type : mime-version; s=corp-2022-7-12; bh=Os/4y3BWTEHBuDWaRYhFMNtb23eoCgdpcUBIFuTx3fo=; b=2O74uGXxxsWCieZ8slI6v+OV2BBuTij4gOocKtkETvtwFNJ3DMeCCJuf2k0X6g+phJgV 8RQF7n/vd+WNZKECFLkRB/Prhec14O1tEyGolizrffI1UehfzJ9nRCqrfrk3pdxKLyRN xvwlXC+IRl8GYfl5QZCTGCZ27MRlL+97eSU/I0Mq64k6zixURWFOQm9sbfcNyxtUjDS4 MQH5wapYOovwiXynMLpFTYE87/C2WCpNhOQSgfQRLF+vXrxaY/8g5wl6sAXhWvIvGra1 z5Rlw8cNTjEsdiAnhCUhvkUSIDjos0nsUg/5Soo8gBiqXiekS2FCLmq8bUyC78OiDOA4 BA== Received: from iadpaimrmta01.imrmtpd1.prodappiadaev1.oraclevcn.com (iadpaimrmta01.appoci.oracle.com [130.35.100.223]) by mx0b-00069f02.pphosted.com (PPS) with ESMTPS id 3jst0kx3x1-1 (version=TLSv1.2 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=OK); Fri, 30 Sep 2022 00:10:29 +0000 Received: from pps.filterd (iadpaimrmta01.imrmtpd1.prodappiadaev1.oraclevcn.com [127.0.0.1]) by iadpaimrmta01.imrmtpd1.prodappiadaev1.oraclevcn.com (8.17.1.5/8.17.1.5) with ESMTP id 28U05weZ036872; Fri, 30 Sep 2022 00:10:28 GMT Received: from nam12-bn8-obe.outbound.protection.outlook.com (mail-bn8nam12lp2173.outbound.protection.outlook.com [104.47.55.173]) by iadpaimrmta01.imrmtpd1.prodappiadaev1.oraclevcn.com (PPS) with ESMTPS id 3jtpvh84gw-1 (version=TLSv1.2 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=OK); Fri, 30 Sep 2022 00:10:28 +0000 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=Lr/VwXOv4l28na82kQxECONdwnbgBjXoQyY8Hn/6n68My3K8zsyoM4lWI327Sjp9LyZX6NxR4uwwgW6KDYVC+e9UTvncQVm0yIoM9VFlUQvDxBb9MOqslcblxV2eOvR2N5mDC9yh6xAf0sySQ5sG25MX+N90yZg6wIcqwwUiQRCVJzUB9tWUxXdOQxAHNaAK1gtU9K2oewuuKAfjVA20Dlo3RK3n7ESWJ11otyc5tTUVFItDJIbsdoGzn363i8O24ABmNkP6Ar6NSwFHpnIBkFvGC1BDUCtJWSv2haOjMGQiUgbf+soTECMHHCzcIQ87NFBA/HgQmKHakAppa1ON8A== 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=Os/4y3BWTEHBuDWaRYhFMNtb23eoCgdpcUBIFuTx3fo=; b=PNuKerxs59kGvBbUz5copA5oIX2kzMy7KJVMf4LYGJHXyEZT4B4YgrlqBGD0IlOpKauFn7MsPXDJmBOkHXdk1XNMni+SgoX2VCMznx/seIowjqWjGVs+yNkifFni0Q6AV+XIP9QBNtNt1PNXLth8VfFYid9h+Um9qZZtBtzI+irchMv6buzsmQ+UiMc153Mdj8iSmXpuefRnRLk/qdd0TwF1VLyQ7x09gVaJSkA3b7iJA5MJwxLS6MJww8Y+GhcrLZV5DOohmyG1ZOPTWdffLeVKtD2/xO/BlqjqVybcFR4pktkETwRBTVYCsdJ9U1wOHWpWUu/kpd8tnOmXIN8GZg== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=pass smtp.mailfrom=oracle.com; dmarc=pass action=none header.from=oracle.com; dkim=pass header.d=oracle.com; arc=none DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=oracle.onmicrosoft.com; s=selector2-oracle-onmicrosoft-com; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=Os/4y3BWTEHBuDWaRYhFMNtb23eoCgdpcUBIFuTx3fo=; b=iEMhLe6zdxPHP01Kv1dpddf7JKGleQRRSuOY7VU08mcdmuDbsWDC8/1VljrrSS/D793qAKUFvRAiuvUMUy89QQfVkwZYeHZ4te6gZAVLayVCzbspclrzh2EfzHzhd7uw0nbof9yFp6fQNjngwcLtMAMbdnjcWh1wrEM+8lUQWd0= Received: from MWHPR1001MB2158.namprd10.prod.outlook.com (2603:10b6:301:2d::17) by BLAPR10MB5251.namprd10.prod.outlook.com (2603:10b6:208:332::5) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.5676.19; Fri, 30 Sep 2022 00:10:26 +0000 Received: from MWHPR1001MB2158.namprd10.prod.outlook.com ([fe80::80a7:f7f3:4303:54e4]) by MWHPR1001MB2158.namprd10.prod.outlook.com ([fe80::80a7:f7f3:4303:54e4%5]) with mapi id 15.20.5676.017; Fri, 30 Sep 2022 00:10:26 +0000 From: Indu Bhagat To: binutils@sourceware.org Cc: nickc@redhat.com, weimin.pan@oracle.com Subject: [PATCH,V1 09/14] unwinder: Add SFrame unwinder tests Date: Thu, 29 Sep 2022 17:04:35 -0700 Message-Id: <20220930000440.1672106-10-indu.bhagat@oracle.com> X-Mailer: git-send-email 2.37.2 In-Reply-To: <20220930000440.1672106-1-indu.bhagat@oracle.com> References: <20220930000440.1672106-1-indu.bhagat@oracle.com> Content-Transfer-Encoding: 8bit Content-Type: text/plain X-ClientProxiedBy: MW4PR04CA0110.namprd04.prod.outlook.com (2603:10b6:303:83::25) To MWHPR1001MB2158.namprd10.prod.outlook.com (2603:10b6:301:2d::17) MIME-Version: 1.0 X-MS-PublicTrafficType: Email X-MS-TrafficTypeDiagnostic: MWHPR1001MB2158:EE_|BLAPR10MB5251:EE_ X-MS-Office365-Filtering-Correlation-Id: b0dbb4b0-e072-48a3-b2b3-08daa2782ccb X-MS-Exchange-SenderADCheck: 1 X-MS-Exchange-AntiSpam-Relay: 0 X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: +dNRi+KXgk8Mjyzil7yBAxsle6JwSEgTUFI6rZPrpO110v7/0MIDOkBfT4IhX+k/MFQBLPBXg9ygFVOdpFvOLvNeVI/zks2NjdfIoKJmSamxoRwMsegOsg7sQSktCb+Hizoljfx+B0JCE01HIVr7xkTUdilEoAuRz81Fn6HfVaPDJm/203pJLySdEN9IfynLwsXCG4Tdozfn7ccrUERH5vv/wt9iDHIUWhEbHj1NTJ9J3gQ6dumiFbp/VBQD6QSTrsgRDr8z4doRFah7NO6QGvDitvwU3XcJBiIzdEkqurbQmD9oCUQLl0TQ0XFt3WV104k4ZObDdeeepwdo/XBlepMWXW8kAxqSVKkV+M/Iw55i8pe1z7a3kQU0pO7lrpYVaJlIaGmDm8thUfJizfN+Ty/TGyfLZzFCevct2WEXSi/zE0E0wU79bu7M056EpMY3spJA3eK9OGQ9mXjCpOg9Kgc0C0g5TWHawLc458zQzxpUPpoZpeL2G6uXogQHrVwsXoIGm3loXHuVoc8nKkhqrCgqH1mnvWAn1n8MxOjdNOkKgSj4UIcp+BRytT48OmbtOMxodVU6bSCVQ8ksCAtd40hQ26OFgiHbupEkoXbw/nNyBtwM0vR2Ld0HQyDk9poKNi6U2U3sd2JrElxox9Oi89qJzBensYjn6hROy2wWZBXiKTWjq72PUAP+pcqF9dLJdBIuflj5s9tpHxjrtUSD/ioEcjAZYcu+AdJJBDTMlhB8+UI7jaNheftF7CXDnJjsitj+UL75NZ30B6AHB0rwY4jPNjw5qoaHg8arib3rFp5KQc5nJb3+WYiUS7lS4SZq X-Forefront-Antispam-Report: CIP:255.255.255.255;CTRY:;LANG:en;SCL:1;SRV:;IPV:NLI;SFV:NSPM;H:MWHPR1001MB2158.namprd10.prod.outlook.com;PTR:;CAT:NONE;SFS:(13230022)(346002)(39860400002)(376002)(366004)(396003)(136003)(451199015)(6512007)(26005)(6486002)(38100700002)(478600001)(107886003)(86362001)(41300700001)(8936002)(316002)(6666004)(6916009)(2906002)(6506007)(8676002)(83380400001)(5660300002)(44832011)(30864003)(1076003)(2616005)(186003)(4326008)(36756003)(66476007)(66556008)(66946007)(2004002)(579004);DIR:OUT;SFP:1101; X-MS-Exchange-AntiSpam-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-MessageData-0: =?us-ascii?Q?cA9u9zOOIFf4QSgjFGD+7pY2zllWHGBZZm/1W1WMWOfaxxZjAw1qnUtwWSNE?= =?us-ascii?Q?osighfYMP+znSB1yIRSXpJ5rDiq53ks2QcO+gEXbKvY4fjezLwJtgh3tqjRh?= =?us-ascii?Q?Z61YteSZsvzFZv7b9hACrS7o1wcW0Vrp5wlmkgPGBNl8Wg/4E4ae0+nhDhLR?= =?us-ascii?Q?PEshntr2ySOHMNaiEUp/2FPP5gsyGj+EkxIC1p51PH5/V9Tn22X0ULpIjvTM?= =?us-ascii?Q?w2DEFW26dHPmErqL36Sq6seqsQ/ma765dqfMslznboo0WXIXyvGreqxGYdaw?= =?us-ascii?Q?sYQnTldzineUmt79frxmFIJTKJd/LrDAdO4KgrCtS5V+qy8tU63oVKlVKM6S?= =?us-ascii?Q?JuOq75QCPlBHQKLhGDuHnsTJ9SG91AUs6B1mmx9a6PzEPtWgOziF/YWxhHKy?= =?us-ascii?Q?4IZGdmYr0XOR0aR7+LrWbYjYRYOnDDN13SwLCvryYhyhY/YmVHREcAYo7865?= =?us-ascii?Q?oYPUqKdIORelI0ZxeVVHfvVGiXbX1NleG306CMbS/Y+3B61iXFHG26iThjCz?= =?us-ascii?Q?U3D1mbdoOa5ABQk1Zpkh+Ir0q0qVnHonUYDQz9DBaEdUmn7gjID4T6tetNk6?= =?us-ascii?Q?e1HnBVevTiUSx3yxeKH7y6DB03/s3pCwogydtZg8vY3VXn5nCsOSTxDMCi01?= =?us-ascii?Q?ZXwEGsvUMmRwCxkfPK9hK42GQ3U80jBh37kKljfB4jjapliVwNYdLl8/X0Lw?= =?us-ascii?Q?IRGs7YK/AaLUBL4+t/Kkq6/SeTjqqf0jf30A/OAN450mj4BQlC8jpZlXKg9O?= =?us-ascii?Q?mGA6EEsbNwLxGMUD15C4NJvvyJfyRNNBKfqBc1ffrowJVlZpNYtaT8lMPm+A?= =?us-ascii?Q?EZqnz5/yvepEs3OxhhmR0jE96KzE9GpOJmmPoL+MxopB42CgNheTSH+rDYsE?= =?us-ascii?Q?5nYuMQfGqFIgVq/rZvGvvU1ujLVPk4AedOwRxHB8NPO7909Z7jTxOdhpcBWF?= =?us-ascii?Q?L1tnvfr8FThjPJOJWkNJMwF00Z8132Y8unG19IMIl03lo7pg/aLBqOlPs0FS?= =?us-ascii?Q?UIhtkmEJOTY7Iop9bHoa7HIKvq040q6S2an74zsOF23dVPuN3bKUO15ZVsso?= =?us-ascii?Q?Ybu4J+IjuMnEYltoMmvvRVF09wKqoKBPfgGxdz3yWvkJFh5YZbgHA3G9pmD2?= =?us-ascii?Q?nJKqwdnnBnnVC1zGvGXoF5tGQPQUSqhQD8ZuJqqb7zywUtTYVzVxJvbOUsRG?= =?us-ascii?Q?uHvuP/ZNJ2YZtltFsdDHnfBuSmp1B6+EMCFX6rHMdGY5aHgWvn0r3IMHqjJl?= =?us-ascii?Q?r6PGZuEToYdvGEacBBFN8iD1o3z2IDLuWKqvGu9aj3uc7wTWu7ogQYiEU/mK?= =?us-ascii?Q?8GfgpEYFyr0ThGj3COAQa/IwYX6zxddpqrDH8HD60midZFrvxve23qg6L2gt?= =?us-ascii?Q?uHVoTHHV36cl1ySFMpJlma+UTVUR2umU54H7QlNK0ELK/aYKI1E5KL9jOxcY?= =?us-ascii?Q?QiegxprJULXqwN2tndWHd+sGb//yyjYeXPVNgTrUc7uAQe9rlUxTzLLr+6wk?= =?us-ascii?Q?Ql6fsfw3SCMb51AvtFeBuzCIdO5ZVlvKS8cfWa2zlG8Yj4chsQuXOiBE0Qt2?= =?us-ascii?Q?TRoON6QseofNcf0CSKHui8fYqKlCaBDgaakofIPo?= X-OriginatorOrg: oracle.com X-MS-Exchange-CrossTenant-Network-Message-Id: b0dbb4b0-e072-48a3-b2b3-08daa2782ccb X-MS-Exchange-CrossTenant-AuthSource: MWHPR1001MB2158.namprd10.prod.outlook.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 30 Sep 2022 00:10:25.9856 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 4e2c6054-71cb-48f1-bd6c-3a9705aca71b X-MS-Exchange-CrossTenant-MailboxType: HOSTED X-MS-Exchange-CrossTenant-UserPrincipalName: lL/hVS9rXf4zUEagUBZr4rDE8m6jnB2pjQJ3zjTWXPE4GFe20PkKoj285e1F3W8YZlAES7gLDIaxtzj2cvwPjg== X-MS-Exchange-Transport-CrossTenantHeadersStamped: BLAPR10MB5251 X-Proofpoint-Virus-Version: vendor=baseguard engine=ICAP:2.0.205,Aquarius:18.0.895,Hydra:6.0.528,FMLib:17.11.122.1 definitions=2022-09-29_13,2022-09-29_03,2022-06-22_01 X-Proofpoint-Spam-Details: rule=notspam policy=default score=0 mlxlogscore=999 malwarescore=0 suspectscore=0 adultscore=0 mlxscore=0 spamscore=0 bulkscore=0 phishscore=0 classifier=spam adjust=0 reason=mlx scancount=1 engine=8.12.0-2209130000 definitions=main-2209290150 X-Proofpoint-GUID: 8cMnGxiJP1hGM2Azj_in4BhvEGjLU68D X-Proofpoint-ORIG-GUID: 8cMnGxiJP1hGM2Azj_in4BhvEGjLU68D X-Spam-Status: No, score=-13.3 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,GIT_PATCH_0,KAM_SHORT,RCVD_IN_DNSWL_LOW,RCVD_IN_MSPIKE_H2,SPF_HELO_NONE,SPF_NONE,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: From: Weimin Pan Add tests for backtracing using SFrame section. PS: libsframe/configure has NOT been included in the patch. Please regenerate. ChangeLog: * libsframe/Makefile.in: Regenerated. * libsframe/configure: Regenerated. <-- [REMOVED FROM THE PATCH. PLEASE REGENERATE] * libsframe/configure.ac: Check for cross compilation. * libsframe/testsuite/Makefile.in: Regenerated. * libsframe/testsuite/config/default.exp: Load sframe-lib.exp. * libsframe/testsuite/libsframe.decode/Makefile.in: Regenerated. * libsframe/testsuite/libsframe.encode/Makefile.in: Regenerated. * libsframe/testsuite/lib/sframe-lib.exp: New file. Add procedures for handling unwinder tests. * libsframe/testsuite/libsframe.unwind/backtrace.c: New test. * libsframe/testsuite/libsframe.unwind/backtrace.lk: New test. * libsframe/testsuite/libsframe.unwind/inline-cmds.c: New test. * libsframe/testsuite/libsframe.unwind/inline-cmds.lk: New test. * libsframe/testsuite/libsframe.unwind/inline.c: New test. * libsframe/testsuite/libsframe.unwind/inline.lk: New test. * libsframe/testsuite/libsframe.unwind/solib-lib1.c: New test. * libsframe/testsuite/libsframe.unwind/solib-lib2.c: New test. * libsframe/testsuite/libsframe.unwind/solib-main.c: New test. * libsframe/testsuite/libsframe.unwind/solib-main.d: New test. * libsframe/testsuite/libsframe.unwind/solib.exp: New file. * libsframe/testsuite/libsframe.unwind/solib_lib1.h: New test. * libsframe/testsuite/libsframe.unwind/solib_lib2.h: New test. * libsframe/testsuite/libsframe.unwind/tailcall.c: New test. * libsframe/testsuite/libsframe.unwind/tailcall.lk: New test. * libsframe/testsuite/libsframe.unwind/ttest.c: New test. * libsframe/testsuite/libsframe.unwind/ttest.lk: New test. * libsframe/testsuite/libsframe.unwind/unwind.exp: New file. --- libsframe/Makefile.in | 1 + libsframe/configure.ac | 12 ++ libsframe/testsuite/Makefile.in | 1 + libsframe/testsuite/config/default.exp | 3 + libsframe/testsuite/lib/sframe-lib.exp | 180 ++++++++++++++++ .../testsuite/libsframe.decode/Makefile.in | 1 + .../testsuite/libsframe.encode/Makefile.in | 1 + .../testsuite/libsframe.unwind/backtrace.c | 145 +++++++++++++ .../testsuite/libsframe.unwind/backtrace.lk | 3 + .../testsuite/libsframe.unwind/inline-cmds.c | 136 ++++++++++++ .../testsuite/libsframe.unwind/inline-cmds.lk | 3 + libsframe/testsuite/libsframe.unwind/inline.c | 97 +++++++++ .../testsuite/libsframe.unwind/inline.lk | 3 + .../testsuite/libsframe.unwind/solib-lib1.c | 8 + .../testsuite/libsframe.unwind/solib-lib2.c | 51 +++++ .../testsuite/libsframe.unwind/solib-main.c | 47 ++++ .../testsuite/libsframe.unwind/solib-main.d | 3 + .../testsuite/libsframe.unwind/solib.exp | 75 +++++++ .../testsuite/libsframe.unwind/solib_lib1.h | 3 + .../testsuite/libsframe.unwind/solib_lib2.h | 3 + .../testsuite/libsframe.unwind/tailcall.c | 103 +++++++++ .../testsuite/libsframe.unwind/tailcall.lk | 3 + libsframe/testsuite/libsframe.unwind/ttest.c | 127 +++++++++++ libsframe/testsuite/libsframe.unwind/ttest.lk | 3 + .../testsuite/libsframe.unwind/unwind.exp | 200 ++++++++++++++++++ 25 files changed, 1212 insertions(+) create mode 100644 libsframe/testsuite/lib/sframe-lib.exp create mode 100644 libsframe/testsuite/libsframe.unwind/backtrace.c create mode 100644 libsframe/testsuite/libsframe.unwind/backtrace.lk create mode 100644 libsframe/testsuite/libsframe.unwind/inline-cmds.c create mode 100644 libsframe/testsuite/libsframe.unwind/inline-cmds.lk create mode 100644 libsframe/testsuite/libsframe.unwind/inline.c create mode 100644 libsframe/testsuite/libsframe.unwind/inline.lk create mode 100644 libsframe/testsuite/libsframe.unwind/solib-lib1.c create mode 100644 libsframe/testsuite/libsframe.unwind/solib-lib2.c create mode 100644 libsframe/testsuite/libsframe.unwind/solib-main.c create mode 100644 libsframe/testsuite/libsframe.unwind/solib-main.d create mode 100644 libsframe/testsuite/libsframe.unwind/solib.exp create mode 100644 libsframe/testsuite/libsframe.unwind/solib_lib1.h create mode 100644 libsframe/testsuite/libsframe.unwind/solib_lib2.h create mode 100644 libsframe/testsuite/libsframe.unwind/tailcall.c create mode 100644 libsframe/testsuite/libsframe.unwind/tailcall.lk create mode 100644 libsframe/testsuite/libsframe.unwind/ttest.c create mode 100644 libsframe/testsuite/libsframe.unwind/ttest.lk create mode 100644 libsframe/testsuite/libsframe.unwind/unwind.exp diff --git a/libsframe/Makefile.in b/libsframe/Makefile.in index f5c32b7c9b9..c803340ca7b 100644 --- a/libsframe/Makefile.in +++ b/libsframe/Makefile.in @@ -331,6 +331,7 @@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ +CROSS_COMPILE = @CROSS_COMPILE@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ diff --git a/libsframe/configure.ac b/libsframe/configure.ac index 82fafee5068..9f54b9a4cf3 100644 --- a/libsframe/configure.ac +++ b/libsframe/configure.ac @@ -57,6 +57,18 @@ ACX_PROG_CC_WARNING_ALMOST_PEDANTIC([-Wno-long-long]) # corrected. ACX_PROG_CC_WARNINGS_ARE_ERRORS([manual]) +# Determine if we are cross compiling +AC_CANONICAL_HOST +is_cross_compiler= +if test x"${host}" = x"${target}" ; then + is_cross_compiler=no +else + is_cross_compiler=yes +fi +CROSS_COMPILE=$is_cross_compiler +AC_SUBST([CROSS_COMPILE]) + + dnl The libsframebt library needs to be built with SFrame info. dnl If the build assembler is not capable of generate SFrame then dnl the library is not built. diff --git a/libsframe/testsuite/Makefile.in b/libsframe/testsuite/Makefile.in index b89a4a4d052..376f39db38a 100644 --- a/libsframe/testsuite/Makefile.in +++ b/libsframe/testsuite/Makefile.in @@ -204,6 +204,7 @@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ +CROSS_COMPILE = @CROSS_COMPILE@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ diff --git a/libsframe/testsuite/config/default.exp b/libsframe/testsuite/config/default.exp index c45e25d3357..29dacbc2917 100644 --- a/libsframe/testsuite/config/default.exp +++ b/libsframe/testsuite/config/default.exp @@ -52,3 +52,6 @@ if {![info exists CFLAGS]} { if {![info exists CFLAGS_FOR_TARGET]} { set CFLAGS_FOR_TARGET $CFLAGS } + +# load the utility procedures +load_lib sframe-lib.exp diff --git a/libsframe/testsuite/lib/sframe-lib.exp b/libsframe/testsuite/lib/sframe-lib.exp new file mode 100644 index 00000000000..1f29afa7735 --- /dev/null +++ b/libsframe/testsuite/lib/sframe-lib.exp @@ -0,0 +1,180 @@ +# Support routines for libsframe testsuite. +# Copyright (C) 2022 Free Software Foundation, Inc. +# +# This file is part of the GNU Binutils. +# +# This file 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, write to the Free Software +# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, +# MA 02110-1301, USA. + +load_file $srcdir/../../ld/testsuite/lib/ld-lib.exp + +set unwind_test_file_name "" + +proc run_native_host_cmd { command } { + global link_output + global ld + + verbose -log "$command" + set run_output "" + try { + set run_output [exec "sh" "-c" "$command" "2>@1"] + set status 0 + } trap CHILDSTATUS {results options} { + set status [lindex [dict get $options -errorcode] 2] + set run_output $results + } + regsub "\n$" $run_output "" run_output + if { [lindex $status 0] != 0 && [string match "" $run_output] } then { + append run_output "child process exited abnormally" + } + + if [string match "" $run_output] then { + return "" + } + + verbose -log "$run_output" + return "$run_output" +} + +# Compile and link a C source file for execution on the host. +proc compile_link_one_host_cc { src output additional_args } { + global CC + global CFLAGS + + return [run_native_host_cmd "../libtool --quiet --tag=CC --mode=link $CC $CFLAGS $src -o $output $additional_args" ] +} + +proc make_unwind_parallel_path { args } { + global objdir + set joiner [list "file" "join" $objdir] + set joiner [concat $joiner $args] + return [eval $joiner] +} + +proc standard_output_file {basename} { + global objdir subdir unwind_test_file_name + + set dir [make_unwind_parallel_path outputs $subdir $unwind_test_file_name] + file mkdir $dir + return [file join $dir $basename] +} + +proc standard_testfile {args} { + global unwind_test_file_name + global subdir + global unwind_test_file_last_vars + + # Outputs. + global testfile binfile + + set testfile $unwind_test_file_name + set binfile [standard_output_file ${testfile}] + + if {[llength $args] == 0} { + set args .c + } + + # Unset our previous output variables. + # This can help catch hidden bugs. + if {[info exists unwind_test_file_last_vars]} { + foreach varname $unwind_test_file_last_vars { + global $varname + catch {unset $varname} + } + } + # 'executable' is often set by tests. + set unwind_test_file_last_vars {executable} + + set suffix "" + foreach arg $args { + set varname srcfile$suffix + global $varname + + # Handle an extension. + if {$arg == ""} { + set arg $testfile.c + } else { + set first [string range $arg 0 0] + if { $first == "." || $first == "-" } { + set arg $testfile$arg + } + } + + set $varname $arg + lappend unwind_test_file_last_vars $varname + + if {$suffix == ""} { + set suffix 2 + } else { + incr suffix + } + } +} + +# Build a shared object DEST from SOURCES. +proc unwind_compile_so {sources dest} { + global CFLAGS + set obj_options $CFLAGS + lappend obj_options "additional_flags=-fPIC -Wa,--gsframe" + + set outdir [file dirname $dest] + set objects "" + foreach source $sources { + set sourcebase [file tail $source] + set object ${outdir}/${sourcebase}.o + + if {[target_compile $source $object object \ + $obj_options] != ""} { + return -1 + } + + lappend objects $object + } + + set link_options "additional_flags=-shared" + + set destbase [file tail $dest] + lappend link_options "additional_flags=-Wl,-soname,$destbase" + + if {[target_compile "${objects}" "${dest}" executable $link_options] != ""} { + catch "exec rm ${objects}" status + return -1 + } + catch "exec rm ${objects}" status + return "" +} + +# Build a binary of TYPE from SOURCE at path DEST. +proc unwind_compile {source dest type options} { + set new_options "" + + foreach opt $options { + if {[regexp {^shlib=(.*)} $opt dummy_var shlib_name] + && $type == "executable"} { + lappend source "-Wl,$shlib_name" + } else { + lappend new_options $opt + } + } + set options $new_options + + verbose "options are $options" + verbose "source is $source $dest $type $options" + + lappend options "additional_flags=-rdynamic -Wa,--gsframe ./../.libs/libsframebt.a ./../.libs/libsframe.a" + set result [target_compile $source $dest $type $options] + + return $result +} diff --git a/libsframe/testsuite/libsframe.decode/Makefile.in b/libsframe/testsuite/libsframe.decode/Makefile.in index 210d9ae6856..fa3b558eb91 100644 --- a/libsframe/testsuite/libsframe.decode/Makefile.in +++ b/libsframe/testsuite/libsframe.decode/Makefile.in @@ -200,6 +200,7 @@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ +CROSS_COMPILE = @CROSS_COMPILE@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ diff --git a/libsframe/testsuite/libsframe.encode/Makefile.in b/libsframe/testsuite/libsframe.encode/Makefile.in index f72a378263d..f51045e2ecc 100644 --- a/libsframe/testsuite/libsframe.encode/Makefile.in +++ b/libsframe/testsuite/libsframe.encode/Makefile.in @@ -191,6 +191,7 @@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ +CROSS_COMPILE = @CROSS_COMPILE@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ diff --git a/libsframe/testsuite/libsframe.unwind/backtrace.c b/libsframe/testsuite/libsframe.unwind/backtrace.c new file mode 100644 index 00000000000..072cb2f8f08 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/backtrace.c @@ -0,0 +1,145 @@ +/* Copyright (C) 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 . */ + +/* This is a revised version of gdb/testsuite/gdb.base/backtrace.c. */ + +#ifdef __has_attribute +# if !__has_attribute (noclone) +# define ATTRIBUTE_NOCLONE +# endif +#endif +#ifndef ATTRIBUTE_NOCLONE +# define ATTRIBUTE_NOCLONE __attribute__((noclone)) +#endif + +#include +#include +#include +#include +#include +#include "sframe-backtrace-api.h" + +#define BT_BUF_SIZE 100 + +/* Expected funclist. */ +static const char *const func_list[] = +{ + "show_bt", + "baz", + "bar", + "foo", + "main" +}; + +void __attribute__((__noinline__,__noclone__)) +show_bt () +{ + void *buffer[BT_BUF_SIZE]; + int j, nptrs, err; + char **strings; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs != 5) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return; + } + + /* Get these addresses symbolically. */ + strings = backtrace_symbols (buffer, nptrs); + if (strings == NULL) { + perror("backtrace_symbols"); + exit(EXIT_FAILURE); + } + + /* Verify the results. */ + for (j = 0; j < nptrs; j++) + if (!strstr (strings[j], func_list[j])) + break; + + free(strings); + + printf ("%s: backtrace test\n", j == nptrs ? "PASS" : "FAIL"); +} + +int __attribute__((__noinline__,__noclone__)) +baz () +{ + void *buffer[BT_BUF_SIZE]; + int nptrs, err; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return -1; + } + + show_bt (); + return 0; +} + +int __attribute__((__noinline__,__noclone__)) +bar () +{ + void *buffer[BT_BUF_SIZE]; + int nptrs, err; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return -1; + } + + return baz (); +} + +int __attribute__((__noinline__,__noclone__)) +foo () +{ + void *buffer[BT_BUF_SIZE]; + int nptrs, err; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return -1; + } + + return bar (); +} + +int __attribute__((__noinline__,__noclone__)) +main () +{ + void *buffer[BT_BUF_SIZE]; + int nptrs, err; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return -1; + } + + return foo (); +} diff --git a/libsframe/testsuite/libsframe.unwind/backtrace.lk b/libsframe/testsuite/libsframe.unwind/backtrace.lk new file mode 100644 index 00000000000..fdc78ebe34d --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/backtrace.lk @@ -0,0 +1,3 @@ +# source: backtrace.c +# link: on +PASS: backtrace test diff --git a/libsframe/testsuite/libsframe.unwind/inline-cmds.c b/libsframe/testsuite/libsframe.unwind/inline-cmds.c new file mode 100644 index 00000000000..a6ceb50a956 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/inline-cmds.c @@ -0,0 +1,136 @@ +/* Copyright (C) 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 . */ + +/* This is only ever run if it is compiled with a new-enough GCC, but + we don't want the compilation to fail if compiled by some other + compiler. */ + +/* This is a revised version of gdb/testsuite/gdb.opt/inline-cmds.c. */ + +#ifdef __GNUC__ +#define ATTR __attribute__((always_inline)) +#else +#define ATTR +#endif + +#include +#include +#include +#include +#include +#include "sframe-backtrace-api.h" + +#define BT_BUF_SIZE 10 + +int x, y; +volatile int z = 0; +volatile int result; + +void bar(void); +void marker(void); +void noinline(void); + +inline ATTR int func1(void) +{ + bar (); + return x * y; +} + +inline ATTR int func2(void) +{ + return x * func1 (); +} + +inline ATTR void func3(void) +{ + bar (); +} + +inline ATTR void outer_inline1(void) +{ + noinline (); +} + +inline ATTR void outer_inline2(void) +{ + outer_inline1 (); +} + +int main (void) +{ /* start of main */ + int val; + + x = 7; + y = 8; + + outer_inline2 (); + + return 0; +} + + +/* funclist for inline-cmds. */ +const char *const func_list[] = +{ + "noinline", + "main" +}; + +void bar(void) +{ + x += y; +} + +void marker(void) +{ + x += y - z; +} + +inline ATTR void inlined_fn(void) +{ + x += y + z; + + void *buffer[BT_BUF_SIZE]; + char **strings; + /* Call the unwinder to get an array of return addresses. */ + int j, err; + int nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1 || nptrs != 2) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return; + } + + /* Get these addresses symbolically. */ + strings = backtrace_symbols (buffer, nptrs); + if (strings == NULL) + { + perror("backtrace_symbols"); + exit(EXIT_FAILURE); + } + + /* Verify the results. */ + for (j = 0; j < nptrs; j++) + if (!strstr (strings[j], func_list[j])) + break; + + free(strings); + printf ("%s: inline-cmds test\n", j == nptrs ? "PASS" : "FAIL"); +} + +void noinline(void) +{ + inlined_fn (); /* inlined */ +} diff --git a/libsframe/testsuite/libsframe.unwind/inline-cmds.lk b/libsframe/testsuite/libsframe.unwind/inline-cmds.lk new file mode 100644 index 00000000000..053b66bd683 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/inline-cmds.lk @@ -0,0 +1,3 @@ +# source: inline-cmds.c +# link: on +PASS: inline-cmds test diff --git a/libsframe/testsuite/libsframe.unwind/inline.c b/libsframe/testsuite/libsframe.unwind/inline.c new file mode 100644 index 00000000000..86c93136b9a --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/inline.c @@ -0,0 +1,97 @@ +/* Copyright (C) 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 . */ + +/* This is a revised version of gdb/testsuite/gdb.opt/inline-bt.c. */ + +#include +#include +#include +#include +#include +#include "sframe-backtrace-api.h" + +#define ATTR __attribute__((always_inline)) + +#define BT_BUF_SIZE 32 + +int x, y; +volatile int z = 0; +volatile int result; + +/* funclist. */ +const char *const flist[] = +{ + "main" +}; + +void bar(void) +{ + x += y; +} + +inline ATTR int func1(void) +{ + bar (); + return x * y; +} + +inline ATTR int func2(void) +{ + void *buffer[BT_BUF_SIZE]; + int ok = 0, nptrs, err; + char **strings; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1) + { + printf ("SFrame error: %s\n", sframe_bt_errmsg (err)); + return -1; + } + + /* Get these addresses symbolically. */ + strings = backtrace_symbols (buffer, nptrs); + if (strings == NULL) { + perror("backtrace_symbols"); + exit(EXIT_FAILURE); + } + + /* Verify the results. */ + if (nptrs == 1 && strstr (strings[0], flist[0])) + ok = 1; + + free(strings); + + printf ("%s: unwind test\n", ok == 1 ? "PASS" : "FAIL"); + + return x * func1 (); +} + +int main (void) +{ + int val; + + x = 7; + y = 8; + bar (); + + val = func1 (); + result = val; + + val = func2 (); + result = val; + + return 0; +} diff --git a/libsframe/testsuite/libsframe.unwind/inline.lk b/libsframe/testsuite/libsframe.unwind/inline.lk new file mode 100644 index 00000000000..88f846b0fce --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/inline.lk @@ -0,0 +1,3 @@ +# source: inline.c +# link: on +PASS: unwind test diff --git a/libsframe/testsuite/libsframe.unwind/solib-lib1.c b/libsframe/testsuite/libsframe.unwind/solib-lib1.c new file mode 100644 index 00000000000..f4eebf927d9 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/solib-lib1.c @@ -0,0 +1,8 @@ +#include "solib_lib1.h" + +unsigned int +adder(unsigned int a, unsigned int b, int (*call)(int)) +{ + (void)(*call)(a+b); + return (a+b); +} diff --git a/libsframe/testsuite/libsframe.unwind/solib-lib2.c b/libsframe/testsuite/libsframe.unwind/solib-lib2.c new file mode 100644 index 00000000000..aea949c0d08 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/solib-lib2.c @@ -0,0 +1,51 @@ +#include +#include +#include +#include "sframe-backtrace-api.h" +#include "solib_lib2.h" + +#define BT_BUF_SIZE 100 + +/* funclist for running "ttest.x 3". */ +static const char *const bt_list[] = +{ + "adder2", + "bar", + "adder", + "main" +}; + +unsigned int +adder2 (unsigned int a, unsigned int b, int (*call)(int)) +{ + void *buffer[BT_BUF_SIZE]; + int i, nptrs, err; + char **strings; + + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1 || nptrs != 4) + { +/* printf ("bcktrace failed: %d %d\n", nptrs, err); */ + printf ("SFrame error: %s\n", sframe_bt_errmsg (err)); + return(-1); + } + + strings = backtrace_symbols (buffer, nptrs); + if (strings == NULL) + { + perror("backtrace_symbols"); + return(-1); + } + + /* Verify the results. */ + for (i = 0; i < nptrs; i++) + if (!strstr (strings[i], bt_list[i])) + break; + + free (strings); + + printf ("%s: unwind solib test\n", i == nptrs ? "PASS" : "FAIL"); + + (void)(*call) (a+b); + return (a+b); +} diff --git a/libsframe/testsuite/libsframe.unwind/solib-main.c b/libsframe/testsuite/libsframe.unwind/solib-main.c new file mode 100644 index 00000000000..4161f13d652 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/solib-main.c @@ -0,0 +1,47 @@ +/* Copyright (C) 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 . */ + +#include +#include +#include +#include +#include "sframe-backtrace-api.h" +#include "solib_lib1.h" +#include "solib_lib2.h" + +#define BT_BUF_SIZE 100 + +int foo (int x) +{ + return ++x; +} + +int bar (int x) +{ + x = adder2 (x, x+1, foo); + + return ++x; +} + +int main (void) +{ + unsigned int a = 1; + unsigned int b = 2; + unsigned int result = 0; + + result = adder (a,b, bar); + + return 0; +} diff --git a/libsframe/testsuite/libsframe.unwind/solib-main.d b/libsframe/testsuite/libsframe.unwind/solib-main.d new file mode 100644 index 00000000000..483ded5a1e5 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/solib-main.d @@ -0,0 +1,3 @@ +# source: solib-main.c +# link: on +PASS: unwind solib test diff --git a/libsframe/testsuite/libsframe.unwind/solib.exp b/libsframe/testsuite/libsframe.unwind/solib.exp new file mode 100644 index 00000000000..267452c58ad --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/solib.exp @@ -0,0 +1,75 @@ +# 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 . + +# Run the test only if sframebt library exists. +if [catch "exec ls $objdir/../.libs/libsframebt.la" status] then { + return; +} + +# Run the tests only if we are not cross compiling. +if [string equal $CROSS_COMPILE "yes"] { + return; +} + +set experimental "" + +# Shared object files. +set libname1 "solib-lib1" +set srcfile_lib1 ${srcdir}/${subdir}/${libname1}.c +set binfile_lib1 ${objdir}/${libname1}.so +set libname2 "solib-lib2" +set srcfile_lib2 ${srcdir}/${subdir}/${libname2}.c +set binfile_lib2 ${objdir}/${libname2}.so + +# Binary file. +set testfile "solib-main" +set srcfile ${srcdir}/${subdir}/${testfile}.c +set binfile [standard_output_file ${testfile}] +set bin_flags [list debug shlib=${binfile_lib1} shlib=${binfile_lib2}] + +if { [unwind_compile_so ${srcfile_lib1} ${binfile_lib1}] != "" + || [unwind_compile_so ${srcfile_lib2} ${binfile_lib2}] != "" + || [unwind_compile ${srcfile} ${binfile} executable $bin_flags] != "" } { + untested "failed to compile" + return -1 +} + +if {[info exists env(LD_LIBRARY_PATH)]} { + set old_ld_lib $env(LD_LIBRARY_PATH) +} +set env(LD_LIBRARY_PATH) "${objdir}" + +set solib_output "${binfile} ${binfile_lib1} ${binfile_lib2}" +set results [run_host_cmd ${binfile} $solib_output] + +set f [open "tmpdir/solib.out" "w"] +puts $f $results +close $f + +if { [regexp_diff "tmpdir/solib.out" "${srcdir}/${subdir}/${testfile}.d"] } then { + fail "$test_name" +} else { + pass "$test_name" +} + +catch "exec rm ${binfile_lib1}" status +catch "exec rm ${binfile_lib2}" status +catch "exec rm tmpdir/solib.out" status + +if {[info exists old_ld_lib]} { + set env(LD_LIBRARY_PATH) $old_ld_lib +} else { + unset env(LD_LIBRARY_PATH) +} diff --git a/libsframe/testsuite/libsframe.unwind/solib_lib1.h b/libsframe/testsuite/libsframe.unwind/solib_lib1.h new file mode 100644 index 00000000000..d40eac0769c --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/solib_lib1.h @@ -0,0 +1,3 @@ +#include + +extern unsigned int adder(unsigned int a, unsigned int b, int (*call)(int)); diff --git a/libsframe/testsuite/libsframe.unwind/solib_lib2.h b/libsframe/testsuite/libsframe.unwind/solib_lib2.h new file mode 100644 index 00000000000..61b72122771 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/solib_lib2.h @@ -0,0 +1,3 @@ +#include + +extern unsigned int adder2(unsigned int a, unsigned int b, int (*call)(int)); diff --git a/libsframe/testsuite/libsframe.unwind/tailcall.c b/libsframe/testsuite/libsframe.unwind/tailcall.c new file mode 100644 index 00000000000..7ffa728a27e --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/tailcall.c @@ -0,0 +1,103 @@ +/* Copyright (C) 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 . */ + +#include +#include +#include +#include +#include +#include "sframe-backtrace-api.h" + +#ifdef __has_attribute +# if !__has_attribute (noclone) +# define ATTRIBUTE_NOCLONE +# endif +#endif +#ifndef ATTRIBUTE_NOCLONE +# define ATTRIBUTE_NOCLONE __attribute__((noclone)) +#endif + +#define BT_BUF_SIZE 16 + +/* funclist for running tailcall. */ +const char *const func_list[] = +{ + "show_bt", + "dec", + "dec", + "main" +}; + +void show_bt () +{ + void *buffer[BT_BUF_SIZE]; + int j, nptrs, err; + char **strings; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1 || nptrs != 4) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return; + } + + /* Get these addresses symbolically. */ + strings = backtrace_symbols (buffer, nptrs); + if (strings == NULL) { + perror("backtrace_symbols"); + exit(EXIT_FAILURE); + } + + /* Verify the results. */ + for (j = 0; j < nptrs; j++) + if (!strstr (strings[j], func_list[j])) + break; + + free(strings); + + printf ("%s: tailcall test\n", j == nptrs ? "PASS" : "FAIL"); +} + +/* An example of tail recursive function. */ +void __attribute__((__noinline__,__noclone__)) +dec (int n) +{ + void *buffer[BT_BUF_SIZE]; + int nptrs, err; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return; + } + + if (n < 0) + return; + + if (n == 2) + show_bt (); + + /* The last executed statement is recursive call. */ + dec (n-1); +} + +int +main (void) +{ + dec (3); +} diff --git a/libsframe/testsuite/libsframe.unwind/tailcall.lk b/libsframe/testsuite/libsframe.unwind/tailcall.lk new file mode 100644 index 00000000000..3d7ab98ddba --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/tailcall.lk @@ -0,0 +1,3 @@ +# source: tailcall.c +# link: on +PASS: tailcall test diff --git a/libsframe/testsuite/libsframe.unwind/ttest.c b/libsframe/testsuite/libsframe.unwind/ttest.c new file mode 100644 index 00000000000..5e245db93c9 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/ttest.c @@ -0,0 +1,127 @@ +/* Copyright (C) 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 . */ + +/* This is the revised version of the example in "man backtrace". */ + +#include +#include +#include +#include +#include +#include "sframe-backtrace-api.h" + +#ifdef __has_attribute +# if !__has_attribute (noclone) +# define ATTRIBUTE_NOCLONE +# endif +#endif +#ifndef ATTRIBUTE_NOCLONE +# define ATTRIBUTE_NOCLONE __attribute__((noclone)) +#endif + +#define BT_BUF_SIZE 100 + +/* funclist */ +static const char *const func_list[] = +{ + "myfunc3", + "()", + "myfunc", + "myfunc", + "myfunc", + "main" +}; + +void myfunc3 (void) +{ + void *buffer[BT_BUF_SIZE]; + int j, nptrs, err; + char **strings; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1 || nptrs != 6) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return; + } + + /* Get these addresses symbolically. */ + strings = backtrace_symbols (buffer, nptrs); + if (strings == NULL) { + perror("backtrace_symbols"); + exit(EXIT_FAILURE); + } + + /* Verify the results. */ + for (j = 0; j < nptrs; j++) + if (!strstr (strings[j], func_list[j])) + break; + + free(strings); + + printf ("%s: unwind test\n", j == nptrs ? "PASS" : "FAIL"); +} + +static void __attribute__((__noinline__,__noclone__)) +/* "static" means don't export the symbol. */ +myfunc2 (void) +{ + void *buffer[BT_BUF_SIZE]; + int nptrs, err; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return; + } + + myfunc3 (); +} + +void __attribute__((__noinline__,__noclone__)) +myfunc (int ncalls) +{ + void *buffer[BT_BUF_SIZE]; + int nptrs, err; + + /* Call the unwinder to get an array of return addresses. */ + nptrs = sframe_backtrace (buffer, BT_BUF_SIZE, &err); + if (nptrs == -1) + { + printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs); + return; + } + + if (ncalls > 1) + myfunc (ncalls - 1); + else + myfunc2 (); +} + +int +main (int argc, char *argv[]) +{ + int cnt; + if (argc != 2) { + cnt = 3; + } + else + cnt = atoi(argv[1]); + myfunc (cnt); + exit (EXIT_SUCCESS); +} diff --git a/libsframe/testsuite/libsframe.unwind/ttest.lk b/libsframe/testsuite/libsframe.unwind/ttest.lk new file mode 100644 index 00000000000..80aa2241402 --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/ttest.lk @@ -0,0 +1,3 @@ +# source: ttest.c +# link: on +PASS: unwind test diff --git a/libsframe/testsuite/libsframe.unwind/unwind.exp b/libsframe/testsuite/libsframe.unwind/unwind.exp new file mode 100644 index 00000000000..0c047fad06c --- /dev/null +++ b/libsframe/testsuite/libsframe.unwind/unwind.exp @@ -0,0 +1,200 @@ +# Copyright (C) 2022 Free Software Foundation, Inc. +# +# This file is part of the GNU Binutils. +# +# 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, write to the Free Software +# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, +# MA 02110-1301, USA. +# + +# Run the tests only if sframebt library exists. + +if [catch "exec ls $objdir/../.libs/libsframebt.la" status] then { + verbose -log "$objdir/../.libs/libsframebt.la not found."; + verbose -log "Skipping SFrame unwind tests"; + return; +} + +# Run the tests only if we are not cross compiling. +if [string equal $CROSS_COMPILE "yes"] { + return; +} + +if {[info exists env(LC_ALL)]} { + set old_lc_all $env(LC_ALL) +} +set env(LC_ALL) "C" + +proc run_unwind_test { name } { + global CC + global CFLAGS + global copyfile env runtests srcdir subdir verbose + + # Append additional flags for unwinder to work properly + set unwind_cflags "-Wa,--gsframe -rdynamic" + + if ![runtest_file_p $runtests $name] then { + return + } + + if [string match "*/*" $name] { + set file $name + set name [file tail $name] + } else { + set file "$srcdir/$subdir/$name" + } + + set opt_array [slurp_options "${file}.lk"] + if { $opt_array == -1 } { + perror "error reading options from $file.lk" + unresolved $subdir/$name + return + } + set run_ld 0 + set shared "-shared" + set opts(link) {} + set opts(link_flags) {} + set opts(nonshared) {} + set opts(unwind) {} + set opts(name) {} + set opts(source) {} + set opts(xfail) {} + + foreach i $opt_array { + set opt_name [lindex $i 0] + set opt_val [lindex $i 1] + if { $opt_name == "" } { + set in_extra 1 + continue + } + if ![info exists opts($opt_name)] { + perror "unknown option $opt_name in file $file.lk" + unresolved $subdir/$name + return + } + + set opts($opt_name) [concat $opts($opt_name) $opt_val] + } + + if { [llength $opts(unwind)] == 0 } { + set opts(unwind) "$file.c" + } else { + set opts(unwind) "[file dirname $file]/$opts(unwind)" + } + + if { [llength $opts(name)] == 0 } { + set opts(name) $opts(unwind) + } + + if { [llength $opts(link)] != 0 + || [llength $opts(source)] > 1 } { + set run_ld 1 + } + + if { [llength $opts(nonshared)] != 0 } { + set shared "" + } + + set testname $opts(name) + if { $opts(name) == "" } { + set testname "$subdir/$name" + } + + # Compile and link the unwind program. + set comp_output [compile_link_one_host_cc $opts(unwind) "tmpdir/test_x" "./../.libs/libsframebt.la ./../.libs/libsframe.la"] + + if { $comp_output != ""} { + send_log "compilation of unwind program $opts(unwind) failed with <$comp_output>" + perror "compilation of unwind program $opts(unwind) failed" + fail $testname + return 0 + } + + # Compile the inputs and posibly link them together. + + set unwind "" + if { [llength $opts(source)] > 0 } { + set unwind "" + if { $run_ld } { + set unwind_output "tmpdir/test_x ./../.libs/libsframebt.a ./../.libs/libsframe.a" + # set unwind_output "tmpdir/out.so" + # set unwind_flags "-fPIC $shared $opts(link_flags)" + } else { + set unwind_output "tmpdir/out.o" + # set unwind_flags "-fPIC -c" + } + if [board_info [target_info name] exists cflags] { + append unwind_flags " [board_info [target_info name] cflags]" + } + if [board_info [target_info name] exists ldflags] { + append unwind_flags " [board_info [target_info name] ldflags]" + } + set src {} + foreach sfile $opts(source) { + if [is_remote host] { + lappend src [remote_download host [file join [file dirname $file] $sfile]] + } else { + lappend src [file join [file dirname $file] $sfile] + } + } + + set comp_output [run_host_cmd "$CC" "$CFLAGS $unwind_cflags [concat $src] -o $unwind_output"] + + if { $comp_output != ""} { + send_log "compilation of SFrame test program [concat $src] failed with <$comp_output>" + fail $testname + return 0 + } + } + + # Time to setup xfailures. + foreach targ $opts(xfail) { + if [match_target $targ] { + setup_xfail "*-*-*" + break + } + } + + # Invoke the unwind program on the outputs. + + verbose -log "$srcdir" + set results [run_host_cmd tmpdir/test_x $unwind_output] + + set f [open "tmpdir/test_x.out" "w"] + puts $f $results + close $f + + if { [regexp_diff "tmpdir/test_x.out" "${file}.lk"] } then { + fail $testname + if { $verbose == 2 } then { verbose "output is [file_contents tmpdir/test_x.out]" 2 } + return 0 + } + + pass $testname + return 0 +} + +set sframe_test_list [lsort [glob -nocomplain $srcdir/$subdir/*.lk]] + +foreach sframe_test $sframe_test_list { + verbose [file rootname $sframe_test] + verbose running unwind test on $sframe_test + run_unwind_test [file rootname $sframe_test] +} + +if {[info exists old_lc_all]} { + set env(LC_ALL) $old_lc_all +} else { + unset env(LC_ALL) +} -- 2.37.2