From mboxrd@z Thu Jan 1 00:00:00 1970 Authentication-Results: smtp.subspace.kernel.org; arc=pass header.oldest-pass=0 smtp.remote-ip=205.220.165.32 ARC-Seal: i=2; d=subspace.kernel.org; s=arc20261015; a=rsa-sha256; cv=pass; t=1793389145; b=DQxvBaBoavZljS9Or9I8Pki9Bdl97tRv/Yr0LcUj+pmG29CWEWnpXURYHYS//gz1gAWX 5+o2Tm0Pw6ieKxHPo6sDcTJUTsOvTESYgdUcadxG9AjeHuCrmOMoBM0ks2ytnCprrql07 0+wWafzVSXgEj4YpfZ5a40MB4kIWvigtNKM+AaBGvSZhjvQX7ikMehToY2UZp8ffWdjIY wQw9j9xhSu2818cn8/hatdJttdTjaAVHR/Canf/BsEOsqwP5kVAHn7IpyCpV2SHznenJ2 ij7+QCdGYunR0FCyTBr+XpQtXDr587F8/7wO3BuVVmqNCf2qSoA1+M2XQIGQ8OqrVfw== ARC-Message-Signature: i=2; d=subspace.kernel.org; s=arc20261015; a=rsa-sha256; c=relaxed/relaxed; t=1793389145; h=DMARC-Filter:Received:DKIM-Signature:Received:Received:Received: DKIM-Signature:Received:Received:Date:Message-ID:From:To:Subject: Content-Type:X-ClientProxiedBy:MIME-Version: X-MS-TrafficTypeDiagnostic:X-MS-PublicTrafficType:client-request-id: request-id:X-MS-Office365-Filtering-Correlation-Id: X-MS-Exchange-SenderADCheck:X-MS-Exchange-AntiSpam-Relay: X-Microsoft-Antispam:X-Microsoft-Antispam-Message-Info: X-Forefront-Antispam-Report: X-MS-Exchange-AntiSpam-MessageData-ChunkCount: X-MS-Exchange-AntiSpam-MessageData-0:X-Exchange-RoutingPolicyChecked: X-MS-Exchange-AntiSpam-ExternalHop-MessageData-ChunkCount: X-MS-Exchange-AntiSpam-ExternalHop-MessageData-0:X-OriginatorOrg: X-MS-Exchange-CrossTenant-Network-Message-Id: X-MS-Exchange-CrossTenant-AuthSource:X-MS-Exchange-CrossTenant-AuthAs: X-MS-Exchange-CrossTenant-OriginalArrivalTime: X-MS-Exchange-CrossTenant-FromEntityHeader: X-MS-Exchange-CrossTenant-Id:X-MS-Exchange-CrossTenant-MailboxType: X-MS-Exchange-CrossTenant-UserPrincipalName: X-MS-Exchange-Transport-CrossTenantHeadersStamped: X-Proofpoint-Virus-Version:X-Proofpoint-Spam-Details: X-Proofpoint-Spam-Details-Enc:X-Proofpoint-GUID: X-Proofpoint-Spam-Info:X-Authority-Analysis:X-Proofpoint-ORIG-GUID; bh=TP/F7SGl7mHoNFvqoWFqH90d6Jyz8E8urfMAhdvcEC0=; b=cGsGq1MkbF/HT8wIV+e64kA81Sgfa+EcSxJlLksRd8hLmcLCpoUVro8foWmq6Uv8Vyrp Gz2SxGiO5MIkjmgz1Sdnak4emOyzrkjvgfwuISEt0hAeM3Rnd2zpkrop/m5ZReek/B+uh PEoQG5FwRzL6HHwSRT17xdVmuhsoSyZxtfT17UGV4dZWohOcgCEGN3X2gWJMoBwo0QYGT JMbBVXbBxEcdiEqCl1iK2H7JPGNsLE4uygNDL806UtaleerC40zG9GQ6vakpF1w27xp/8 bN2b5FCDpzFwPTfxSV624yAQ3n74GxqMwwqHZP1RDFuT4Bn+NhVc+Rg6n4OpaMQA/7A== ARC-Authentication-Results: i=2; smtp.subspace.kernel.org; dmarc=pass header.from=oracle.com; spf=pass smtp.mailfrom=oracle.com; dkim=pass header.d=oracle.com header.i=@oracle.com header.a=rsa-sha256 header.s=corp-2025-04-25 header.b=CsjjZS24; dkim=pass header.d=oracle.onmicrosoft.com header.i=@oracle.onmicrosoft.com header.a=rsa-sha256 header.s=selector2-oracle-onmicrosoft-com header.b=fbE0ALsV; arc=pass header.oldest-pass=0 smtp.remote-ip=205.220.165.32 Received: from mx0a-00069f02.pphosted.com (mx0a-00069f02.pphosted.com [205.220.165.32]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (prime256v1) server-digest SHA256) (No client certificate requested) by smtp.subspace.kernel.org (Postfix) with ESMTPS id B11D8606A31A for ; Fri, 30 Oct 2026 19:39:01 +0000 (UTC) DMARC-Filter: OpenDMARC Filter v1.4.2 smtp.subspace.kernel.org B11D8606A31A Authentication-Results: smtp.subspace.kernel.org; dmarc=pass (p=reject dis=none) header.from=oracle.com Authentication-Results: smtp.subspace.kernel.org; spf=pass smtp.mailfrom=oracle.com Authentication-Results: smtp.subspace.kernel.org; dkim=pass (2048-bit key, unprotected) header.d=oracle.com header.i=@oracle.com header.a=rsa-sha256 header.s=corp-2025-04-25 header.b=CsjjZS24; dkim=pass (1024-bit key, unprotected) header.d=oracle.onmicrosoft.com header.i=@oracle.onmicrosoft.com header.a=rsa-sha256 header.s=selector2-oracle-onmicrosoft-com header.b=fbE0ALsV Received: from pps.filterd (m0333521.ppops.net [127.0.0.1]) by mx0b-00069f02.pphosted.com (8.18.1.11/8.18.1.11) with ESMTP id 69UEXU1E437445 for ; Fri, 30 Oct 2026 19:39:01 GMT DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=oracle.com; h= content-type:date:from:message-id:mime-version:subject:to; s= corp-2025-04-25; bh=TP/F7SGl7mHoNFvqoWFqH90d6Jyz8E8urfMAhdvcEC0=; b= CsjjZS24OXF11JLwbmqjaQoUpPh1fBrNGh//g6LR6HC2FQi8vVvI08RvedLPwFKY q7TG/8zruDrmD9fRm99fy+7xJ2mrZWjXXsVujXXyUq8OdPn4OmwzcI22mPx5h0oo U40JxM+SgcvUcqUFkI4VwmckTfNMcolOK0oiJJ2E8U1R67GdIdYQG9zoDVRmuFqW Qcq2DOd/AfEohTaDo1k9OrON7/EfQU5/3j83wIy78htRA5r+1WNq9agoPd6zwUYm Dj/ADJIM3oVsljCMENaAb57SzP8Hbuq4MQr55KO2oMC411Ccc2sI4DLEYe1qjApG H6SYxh3h9uPU+v17q+c8EA== Received: from phxpaimrmta02.imrmtpd1.prodappphxaev1.oraclevcn.com (phxpaimrmta02.appoci.oracle.com [147.154.114.232]) by mx0b-00069f02.pphosted.com (PPS) with ESMTPS id 4hme5p1drf-1 (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384 bits=256 verify=OK) for ; Fri, 30 Oct 2026 19:38:57 +0000 (GMT) Received: from pps.filterd (phxpaimrmta02.imrmtpd1.prodappphxaev1.oraclevcn.com [127.0.0.1]) by phxpaimrmta02.imrmtpd1.prodappphxaev1.oraclevcn.com (8.18.1.11/8.18.1.11) with ESMTP id 69UHvxF9474935 for ; Fri, 30 Oct 2026 19:38:56 GMT Received: from ch4pr04cu002.outbound.protection.outlook.com (mail-northcentralusazon11013067.outbound.protection.outlook.com [40.107.201.67]) by phxpaimrmta02.imrmtpd1.prodappphxaev1.oraclevcn.com (PPS) with ESMTPS id 4hn01jb7bq-2 (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384 bits=256 verify=FAIL) for ; Fri, 30 Oct 2026 19:38:54 +0000 (GMT) ARC-Seal: i=1; a=rsa-sha256; s=arcselector10001; d=microsoft.com; cv=none; b=AILeMPWRjA2xC+ldYzxC8T47NXcM+DzC0oQlsaYLWeG9NbuSrDKAaCaSKDS7iRb5BV/bXpOoyRLDRPx1urI+swWtbf9mdQnOxUf38q8aWYPnLeQ3VrNcZ2M+HjIfRYH3oHLD2WeuejKloEM4hQ4IuW1X2z2lpXdEVjVd2wRF50NAD8uzFEZlc/nOggJtwYRdVTs8G8Mt0DHUOVgQ6wUQPLPP9FuPJe2laMhsDnG2YACxgZoCxWMWxVj+X61aPyepZQB7RGxGsyXLpm1ZOIC92RqJp3R9LfgDlhUagyQSbjgD08ij1DB22kaU0NAcaCQaoNzGKEiLoWGr+y7c2q/pUg== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector10001; 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=TP/F7SGl7mHoNFvqoWFqH90d6Jyz8E8urfMAhdvcEC0=; b=Mbs0TLF9uSu/pHko15r4h4aRCCfYbO1belnFNG5K3lOC9UcMUa04ECn2rghs3wPXFPUnFoDK7t4X1M84u42B5ajmDZEAzNmy9gGlsENnIlYIr/ozW3eXbo/7UsD2xleGvACUfeEhwUEVNIfvVQBA/iyRdm9rD6sLTvr+ZfCwti3/crfYaVld4ahmtaDz4tdE63DIQyqsK2Zm0AZZtg87wKhL6eEfMkhifxkpGhz91d1WI6mTMZnUwoRMR5mNwFgclaMRSSUNikb3kkURMyjjudhjx37pJzPrzUm4e7PmvXw/fRHNQx3Y8lTzc0OGHgugJCAKZ023rFYvdXhvlvYh5A== 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=TP/F7SGl7mHoNFvqoWFqH90d6Jyz8E8urfMAhdvcEC0=; b=fbE0ALsVSl8NcLPgjiaBbXPey4zftOyXfvPl6QPwsg78emQ1pI80opIrNXRbTK7Kqc8Jam5CYbQTsilFqVvztmypo9ViHVFl3ucojtD/oxbdRDjl+PQlblfWZ1H9sC733O8w1xBAakY6P0Lr/iRdzVwIQWGXgyLp8dko+xCyPEs= Authentication-Results: mx.microsoft.com 1; dkim=none (message not signed) header.d=none;dmarc=none action=none header.from=oracle.com; Received: from CO1PR10MB4769.namprd10.prod.outlook.com (2603:10b6:303:98::16) by DSVPR10MB997891.namprd10.prod.outlook.com with HTTP via P2P; Fri, 30 Oct 2026 19:38:38 +0000 Received: from CO1PR10MB4769.namprd10.prod.outlook.com ([fe80::ada4:9b51:3a74:3649]) by CO1PR10MB4769.namprd10.prod.outlook.com ([fe80::ada4:9b51:3a74:3649%5]) with mapi id 15.21.0569.009; Fri, 30 Oct 2026 19:38:37 +0000 Date: Fri, 30 Oct 2026 19:37:01 +0000 Message-ID: From: Kris Van Hees To: dtrace@lists.linux.dev, dtrace-devel@oss.oracle.com Subject: [PATCH 18/20] test: use fully qualified probe descriptions Content-Type: text/plain X-ClientProxiedBy: PH8PR05CA0002.namprd05.prod.outlook.com (2603:10b6:510:2cc::20) To CO1PR10MB4769.namprd10.prod.outlook.com (2603:10b6:303:98::16) X-Mailing-List: dtrace@lists.linux.dev List-Id: List-Post: List-Help: List-Subscribe: List-Unsubscribe: List-Owner: Precedence: list MIME-Version: 1.0 X-MS-TrafficTypeDiagnostic: CO1PR10MB4769:EE_|DSVPR10MB997891:EE_ X-MS-PublicTrafficType: Email client-request-id: 98300a1c-eb73-4384-9cf8-d899c5ebf81b request-id: bb40d5c8-8f7b-4020-81c4-08df36bd63ba X-MS-Office365-Filtering-Correlation-Id: bb40d5c8-8f7b-4020-81c4-08df36bd63ba X-MS-Exchange-SenderADCheck: 1 X-MS-Exchange-AntiSpam-Relay: 0 X-Microsoft-Antispam: BCL:0;ARA:13230040|23010399003|1800799024|366016|376014|261026135527099003|261028144727099003|261026140227099003|260925022911599003|261022115727099003|261022075727099003|261026130827099003|260925021911599003|260925021311599003|261021121427099003|56012099006|261022113327099003|261022105027099003|261021135927099003|261009220027099003|5023799004|261021123027099003|261009223027099003|10067099003|261009221227099003|261021130227099003|261009221727099003|261021133027099003|261009223327099003|261026121527099003|6133799003|13003099007|18002099003|3023799007; X-Microsoft-Antispam-Message-Info: QTmyolbnuBDOw4/RlNdXQyzED7iU3GkLwSPYDh/bd+0sni8zIW5iOOABp1QWH6ppkZrd8V4p9opPEu5QYYqdrXRBDA6eZrGpjPNRbMoV/PehK8zhDHFQcS9n6pCtmZMwuMRUIFCNKNf3gvX5MmGLpA8McMXbpz3D/UC5YIj03yMAjlswJpqrqhePrj7xwCbTby5WyOsAvk7vm90V6yF4FXNmMf6QYShdpNbjqpfTNo2lMjK4m56+79807r8EcxpK/tbTA+3BNIdVFp8cijxFuR9oRRzrJbJn2XzJZcNIbLvjE0EmRW0cgBfJbegfL48dq01TbZKawxUVK3K5ZmihtPSAB0bPShW4RtNX9idz6vKmiGZKJrZnamasnGorQmzkbN/kffJCMCaEzQXQWNiJiunv61wTOmNY+OIR7ylEG8gY3eFe6LT9o0nKMwGR5coSbO66hYscTjGy0spP/eBbAwu9r0eUrkc1L13XOJIa78oAe1LO+ZaxIIKhPaeOmgQamqM8DAyzOnSvpJDIzsMUYhzgux+nnoe22rya6Fso8GqGDDc4SeBaEDmf0xvlqGEOWeZhx20ycRbs30EuH60b0WtU05OmrG+Wv7gPBgj2zlL3k4O3RSBNr/E8g0Idw/KvtY93u3GLzSiUJ6F5olWB1GOFpPELhfeC3e4HJwKrCBg= X-Forefront-Antispam-Report: CIP:255.255.255.255;CTRY:;LANG:en;SCL:1;SRV:;IPV:NLI;SFV:NSPM;H:;PTR:;CAT:NONE;SFS:(13230040)(23010399003)(1800799024)(366016)(376014)(261026135527099003)(261028144727099003)(261026140227099003)(260925022911599003)(261022115727099003)(261022075727099003)(261026130827099003)(260925021911599003)(260925021311599003)(261021121427099003)(56012099006)(261022113327099003)(261022105027099003)(261021135927099003)(261009220027099003)(5023799004)(261021123027099003)(261009223027099003)(10067099003)(261009221227099003)(261021130227099003)(261009221727099003)(261021133027099003)(261009223327099003)(261026121527099003)(6133799003)(13003099007)(18002099003)(3023799007);DIR:OUT;SFP:1101; X-MS-Exchange-AntiSpam-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-MessageData-0: =?us-ascii?Q?8d7y0/kGHgW5zasIV+h1D4YJaX6oW09OrSEh2RM/Il6GP0TIbnudTn0Ir+jb?= =?us-ascii?Q?sRa3lqe9E/A7oWAVBJMZ8Ndn5FTZk2muCZR20h5Kb92sB6UJQiuikLwpAQ50?= =?us-ascii?Q?I2tk1364u845RSc0w92nDsndiBqB4KgLXTZcYyxNpB8BW6JNtNd0cYDOD1i4?= =?us-ascii?Q?v4wGFb7qB12jVGrJCkR+rt3cRZZ0N/iZXLSQA3KUruIxuy9x7azTzM65cXXi?= =?us-ascii?Q?pBt3r6U+P0vtRrZ/WgoLV0V4X8++pyaQgns4IOiDGZZCqfTARjkI8bWBu36l?= =?us-ascii?Q?g3xwEnoFl4i204BLyTqqtEFldJjZnW9r4mrhdLl6SE02hSd7XWukkv/RSGFO?= =?us-ascii?Q?Qg5uv3VzeSyFtfoKHJbU/y9E9WZByWbks5Pshqu9kG0okvzfQDQjnbM/JBd6?= =?us-ascii?Q?0dgEMFD8B4Ok2N0vSVxOJA+lWVhMf3jfnUcScRmp5Os5Vb/IWmOFrHhEt5Pr?= =?us-ascii?Q?+91GpbrS039pAsXIlOQ9Km9Yseu+k9lha/ihi/TWFf6MnjrxzdBtey/fxIFa?= =?us-ascii?Q?WFdDv8Ohu3kheZF3tVC7UcWYBCno79/eDoI/jdaDIg7SKG0+MpQrCf0TNsZH?= =?us-ascii?Q?IALWlZH4xXEzg+YPeM5KZaS69ZEygcTgfuV5NpU6Tql8J573Y5Pa0/hSU5c+?= =?us-ascii?Q?3Pqa9qx1+SwEo0LhrOl/O6EUHXmtD2tdvR4ScPSjmK4xM2vsvSu1cOoQ8Mtj?= =?us-ascii?Q?p9yyWBPHRvrDRpSLjmeHya4wTWD4OWWblSQmA6ZOHy5ITRl2cG16bjpFNTh4?= =?us-ascii?Q?pCIFZWlsn668fMUktYDm1k/xWHUmQOZxgQWoxKftCsfEJTAK9sN9FyuxNYH5?= =?us-ascii?Q?AmHO8AmS6u+LRdVCnw3IeMWiaUlq44aEks0jQTS1Nk76UV1U27Hd5KZRhKHN?= =?us-ascii?Q?jCmP0k8WT5pZpftZRH1UzSeFXzsIfKPNlvAIEZ1+WmMb1PtlfEqmOgjPgUJN?= =?us-ascii?Q?Yb340l4ZJJhylG3s5YzDjvci2QqDy/Qk2/jV1uk9+Oh/MgYkuqvtp7Ei5wCG?= =?us-ascii?Q?RPJvMuotNn5Qo0csp23KyBNLWAtUT3+GEnaXul7vwF/7YcLNKKTj5kzRCpM1?= =?us-ascii?Q?58br17PJHaHDrtbZ24s7sjCYZTYyC0HLrKKo0o9JX5tfFiD+sb/fTjTmEB/4?= =?us-ascii?Q?jzOMmVr5y3tAiHf/OZUsuW2GDjW3kkvzZyyq1P/tPG3lX59Jv56pvAEetm9d?= =?us-ascii?Q?6hy0vaphIctfvsAEEPDIFD18p8Abrm0aqJHgbbb6XjBD+krga49A9IT9sHRH?= =?us-ascii?Q?e3ZTHgS9KhIAhKUV64IWxEdyexnAOTFRPUF1xYtlwjmUnCMdNrkhdOkh9qT4?= =?us-ascii?Q?tiXX1NMBUJ0dcsXESDCwjt9l5YVeGAof4/inDelPXq80Y654OXSmO/PwOVZ2?= =?us-ascii?Q?S9bLFqWlE4U6OLh4E1ac9qsHoOEacbU3un/h5phq1BGlw6vql5tzHyWHnZrd?= =?us-ascii?Q?ypHJ8N6P3067XXhiYnaavU+hXBr+4eqGTKemSISStcpjrPmAW2idioKPd8wT?= =?us-ascii?Q?jgvvkssgdxINSLHfn6Sa6IDxWUEGjZeuOaM1JEH3u34DjdujfI7gezAlo2i1?= =?us-ascii?Q?8NzEfm0SPzZtfQ4D7zEsR6WJ1taJB/S9ut7jQYNIjnHgBF3QYLF7uj8hRYgK?= =?us-ascii?Q?lMWL7qsZP+3sGcDrjX0L34yeV8RDc6MXEfYqzXNuBeZsXEyAw1Vzda7pcrl6?= =?us-ascii?Q?4n6onvNHLHjJI1kHs47W6J8ytzliXGkBE2Gh4MWBMJgglhVRD5W/4AY+pBZo?= =?us-ascii?Q?82X9uRhc5FZf7OBFwh2/fZYLAlDmD/c=3D?= X-Exchange-RoutingPolicyChecked: QEOPLynLtM4HTJ58MgeFTuP9acbKBl+D+6Lr32Kcp22DTGihp7yURWA/PyfuVlX2Wp2TJDY16vHp9o+63HC5RLG70jgmVF6WqfEcG7pPUACsyp3XvpMKJC8OmbUg48+uJxTJ56wWov8K83PlHO8D8iZfZfBZfauJwq1IChF1UGIrEiKHQBzO60q5pEIUzstlMWhOo1Bcxaxb3utez1gB34FPlDgZkmXkYK7HA4Z9WaU7+/sFju3eFgF6NnNBT2jUTCeoVNPjPqRs9oWO7dhfGlBJ24nVfoqvy24ZSUjNXCV0xAQ60FHAoTcQqdBcJRrM2GYSGR4nXjdyjsHESKMaWA== X-MS-Exchange-AntiSpam-ExternalHop-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-ExternalHop-MessageData-0: be+NbeeAt50Sn0gGEW7bG0gufSUsCVopIf70uzZQbJWHWQg/ZqybDweM6f7bbVwNEtxOs2D00oQV4gCxQ4IVshebIj6FlNN07nQix9IPUARm4StAWfZNexlYuSGnuL52ZuGtOJnGpvKMk3d2rNfJH/NcyDmjzhdGR8TyGo31mO0dpEa1zIq3jzjGrb2XBZGK+jJMbnRUkXtfBum6A6mtI0FSpaOcxWWIuOTKD61kQFiqyifX2aGUXIngLVvCUXWTlPpTObaWNt2BXZUNfBsxqcN4/9lW/0URj4sL5MMxu1D5VLaCGU6uGfw6cBiOfm5LTrkw92JJi1HLzixm8O1DY/GiX6ojMzHdN9y4poDG/G3/LeT6xnp8r05q9OhVlEn+dPAY/1UCZtK7hS++YoEo2u/qIGImf/vfXYdyfhecaD2Vo0D5um3jtEWHPEVYanbW1r1bBLB0Hq5MYHCasLn6GO5bTWE3KaSoDsYlv7dpKXvgD3KzTetpN/7oF1vplshsw9fKCjeFPb69fb5SKfPvHVDEwYnSW8UlyB9MjZfsVL3lewcDbuuwEifD86tdx3MYohSy7RZ1Bx6TP2LTaNZ0UbGAU0DNlV4RUeVrJnMWZxQ= X-OriginatorOrg: oracle.com X-MS-Exchange-CrossTenant-Network-Message-Id: bb40d5c8-8f7b-4020-81c4-08df36bd63ba X-MS-Exchange-CrossTenant-AuthSource: CO1PR10MB4769.namprd10.prod.outlook.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 30 Oct 2026 19:38:37.2608 (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: ag8DD2vC0ty0BtJzQ9XF2QzT0kbjOddXp30m9mpsshTWb9cM9lCYSvgO7FohhYbBkLB94w4hBnZVKxwILkXP6nPfQZLsYDL/DP5rzU3ePAs= X-MS-Exchange-Transport-CrossTenantHeadersStamped: DSVPR10MB997891 X-Proofpoint-Virus-Version: vendor=baseguard engine=ICAP:2.0.293,Aquarius:18.0.1176,Hydra:6.1.138,FMLib:17.12.100.49 definitions=2026-10-30_06,2026-10-21_02,2025-10-01_01 X-Proofpoint-Spam-Details: rule=notspam policy=default score=0 spamscore=0 mlxlogscore=999 mlxscore=0 phishscore=0 adultscore=0 suspectscore=0 lowpriorityscore=0 malwarescore=0 bulkscore=0 classifier=spam adjust=0 reason=mlx scancount=1 engine=8.22.0-2610190000 definitions=main-2610300078 X-Proofpoint-Spam-Details-Enc: AW1haW4tMjYxMDMwMDA3OCBTYWx0ZWRfXxmCGa3R7eIUs 0Kw6WIwmo8HkSpTXfBj/APafAUDfmzAu6qf3TuzG92OMF6Mj45YjKvnVy9qGtgz924fyauD6nSC RiinUJKCJepOmfDMZIz9etNi7qWwFtgX5ywYakymf8Oh+bxUmJmx1tZdsj32xpIjKIY5qAZlUbg xF722Qsvbbd7Pzr4kwXoJrWIaYxODQJASsEFTpXHKtnLfLoTfJaqVyKcrP+IfcT0kr4xLydGgZG cBJHXrwuwyj+wGTRUvhFIR6Gh+unA2H5XKLFefWaEW7OyHwBuoUvqm6YF/ORMuG9wau/A2ips8Y OdCecM7YkLyo78pOOAE4dLBqdBQR9JXxra98goJ8tCBPtkGbByNeL2/xoyOWXmniZYywKvLJrxr TajGJMXnRnIYQIgBlPOOxOzSXr8+b0ny4DytyKDvDxiPFNKCxpitnZ6KZiLqBxz5x0yTHXuSaN+ OeMbCrzQwQ11jbGCuKw== X-Proofpoint-GUID: pafMsbR7cXXHECoKxIYv6QJ-nkMR3-5Z X-Proofpoint-Spam-Info: AW1haW4tMjYxMDMwMDA3OCBTYWx0ZWRfXyO+VLJ1sHk1h etzgR0NP9GPj1HS9HiQtGRERBKpGvKxfNnVxVuMAsXC5KcI7zXp/gzzA119kQs/et+Imyv2x43i wfPR1huyJdIHTRnqVvbzkWxlRKsfLwcs1xa0LrtTBuG6h2qad0j9 X-Authority-Analysis: v=2.4 cv=fKGsTpae c=1 sm=1 tr=0 ts=6ae4f252 cx=c_pps a=OOZaFjgC48PWsiFpTAqLcw==:117 a=OOZaFjgC48PWsiFpTAqLcw==:17 a=6eWqkTHjU83fiwn7nKZWdM+Sl24=:19 a=z/mQ4Ysz8XfWz/Q5cLBRGdckG28=:19 a=lCpzRmAYbLLaTzLvsPZ7Mbvzbb8=:19 a=xqWC_Br6kY4A:10 a=660iZSQnnn4A:10 a=GoEa3M9JfhUA:10 a=VkNPw1HP01LnGYTKEx00:22 a=jiCTI4zE5U7BLdzWsZGv:22 a=x0eKOSpe3m1H3M0S9YoZ:22 a=yPCof4ZbAAAA:8 a=bxUUU-tHNHsy43OkuEkA:9 a=eSrJE1WmpNw9kA4I:21 X-Proofpoint-ORIG-GUID: pafMsbR7cXXHECoKxIYv6QJ-nkMR3-5Z Qualify probe descriptions in standalone D tests, embedded and generated D programs, and preprocessor definitions. Update expected diagnostics that echo the qualified descriptions. Preserve abbreviated or invalid descriptions where probe specification or matching is the subject of the test. --- test/demo/act/time.d | 6 ++-- test/demo/builtin/argX.d | 2 +- test/demo/builtin/caller.d | 2 +- test/demo/builtin/curthread.d | 2 +- test/demo/builtin/errno.d | 2 +- test/demo/builtin/execname.d | 2 +- test/demo/builtin/gid.d | 2 +- test/demo/builtin/id.d | 2 +- test/demo/builtin/ipl.d | 2 +- test/demo/builtin/pid.d | 2 +- test/demo/builtin/ppid.d | 2 +- test/demo/builtin/probefunc.d | 2 +- test/demo/builtin/probemod.d | 2 +- test/demo/builtin/probename.d | 2 +- test/demo/builtin/probeprov.d | 2 +- test/demo/builtin/stackdepth.d | 2 +- test/demo/builtin/tid.d | 2 +- test/demo/builtin/timestamp.d | 2 +- test/demo/builtin/ucaller.d | 2 +- test/demo/builtin/uid.d | 2 +- test/demo/builtin/ustackdepth.d | 2 +- test/demo/builtin/vtimestamp.d | 2 +- test/demo/builtin/walltimestamp.d | 2 +- test/demo/builtin/zonename.d | 2 +- test/demo/dt_test/fired.d | 6 ++-- test/demo/dtrace/begin.d | 4 +-- test/demo/dtrace/end.d | 8 ++--- test/demo/dtrace/error.d | 6 ++-- test/demo/intro/hello.d | 4 +-- test/demo/io/iocpu.d | 4 +-- test/demo/io/iosnoop.d | 4 +-- test/demo/io/iothrough.d | 4 +-- test/demo/io/iotime.d | 4 +-- test/demo/io/whoio.d | 4 +-- test/demo/io/whowrite.d | 4 +-- test/demo/ip/ipio.d | 4 +-- test/demo/ip/ipproto.d | 4 +-- test/demo/out/printa.d | 4 +-- test/demo/proc/sig.d | 4 +-- test/demo/proc/whoexec.d | 4 +-- test/demo/profile/prof.d | 6 ++-- test/demo/profile/profpri.d | 4 +-- test/demo/profile/restest.d | 6 ++-- test/demo/sched/firebird.d | 4 +-- test/demo/sched/pritime.d | 6 ++-- test/demo/sched/whofor.d | 4 +-- test/demo/sched/whopreempt.d | 4 +-- test/demo/sched/whosteal.d | 4 +-- test/demo/script/interp.d | 2 +- test/demo/sdt/callout.d | 4 +-- test/demo/sdt/interval.d | 4 +-- test/demo/sdt/intr.d | 6 ++-- test/demo/struct/rwinfo.d | 4 +-- test/demo/vars/clause.d | 10 +++--- .../locking/tst.exit-process-kill-races.sh | 6 ++-- test/smoke/tst.ksym_addr.d | 4 +-- test/stress/buffering/err.resize1.d | 4 +-- test/stress/buffering/err.resize2.d | 4 +-- test/stress/buffering/tst.resize1.d | 4 +-- test/stress/buffering/tst.resize2.d | 4 +-- test/stress/buffering/tst.resize3-manual.d | 10 +++--- test/stress/buffering/tst.resize3.d | 10 +++--- test/stress/fbtprovider/tst.basic.d | 4 +-- test/stress/fbtprovider/tst.return.d | 4 +-- test/stress/fbtsafety/tst.basename.d | 4 +-- test/stress/fbtsafety/tst.caller.d | 4 +-- test/stress/fbtsafety/tst.cleanpath.d | 4 +-- test/stress/fbtsafety/tst.copyin.d | 8 ++--- test/stress/fbtsafety/tst.ddi_pathname.d | 4 +-- test/stress/fbtsafety/tst.dirname.d | 4 +-- test/stress/fbtsafety/tst.errno.d | 6 ++-- test/stress/fbtsafety/tst.execname.d | 6 ++-- test/stress/fbtsafety/tst.gid.d | 6 ++-- test/stress/fbtsafety/tst.hton.d | 4 +-- test/stress/fbtsafety/tst.index.d | 4 +-- test/stress/fbtsafety/tst.msgdsize.d | 4 +-- test/stress/fbtsafety/tst.msgsize.d | 4 +-- test/stress/fbtsafety/tst.null.d | 8 ++--- test/stress/fbtsafety/tst.pid.d | 6 ++-- test/stress/fbtsafety/tst.ppid.d | 6 ++-- test/stress/fbtsafety/tst.progenyof.d | 6 ++-- test/stress/fbtsafety/tst.random.d | 8 ++--- test/stress/fbtsafety/tst.rw.d | 4 +-- test/stress/fbtsafety/tst.shortstr.d | 20 +++++------ test/stress/fbtsafety/tst.stack.d | 4 +-- test/stress/fbtsafety/tst.stackdepth.d | 4 +-- test/stress/fbtsafety/tst.stddev.d | 4 +-- test/stress/fbtsafety/tst.strchr.d | 4 +-- test/stress/fbtsafety/tst.strjoin.d | 4 +-- test/stress/fbtsafety/tst.strstr.d | 4 +-- test/stress/fbtsafety/tst.strtok.d | 4 +-- test/stress/fbtsafety/tst.substr.d | 4 +-- test/stress/fbtsafety/tst.ucaller.d | 6 ++-- test/stress/fbtsafety/tst.uid.d | 6 ++-- test/stress/fbtsafety/tst.unalign.d | 8 ++--- test/stress/fbtsafety/tst.uregs.d | 4 +-- test/stress/fbtsafety/tst.ustack.d | 4 +-- test/stress/fbtsafety/tst.ustackdepth.d | 4 +-- test/stress/fbtsafety/tst.zonename.d | 6 ++-- test/stress/misc/tst.roch.d | 8 ++--- test/stress/options/tst.cpu-BEGIN.sh | 4 +-- test/stress/options/tst.cpu-END.sh | 4 +-- test/stress/options/tst.cpu-profile.sh | 4 +-- test/stress/options/tst.cpu-tick.sh | 4 +-- test/unittest/actions/default/tst.default.d | 18 +++++----- .../actions/exit/err.D_PROTO_ARG.str.d | 4 +-- .../actions/exit/err.D_PROTO_ARG.void.d | 4 +-- .../exit/err.D_PROTO_LEN.missing_arg.d | 4 +-- .../exit/err.D_PROTO_LEN.too_many_args.d | 4 +-- test/unittest/actions/exit/err.fail.d | 4 +-- test/unittest/actions/exit/tst.begin-exit.d | 8 ++--- test/unittest/actions/exit/tst.end-exit.d | 6 ++-- test/unittest/actions/exit/tst.expr.d | 4 +-- test/unittest/actions/exit/tst.kill.sh | 4 +-- .../actions/exit/tst.probe-begin-exit.d | 8 ++--- .../actions/exit/tst.probe-end-exit.d | 8 ++--- test/unittest/actions/exit/tst.probe-exit.d | 8 ++--- test/unittest/actions/exit/tst.success.d | 4 +-- .../actions/freopen/err.D_FREOPEN_INVALID.d | 4 +-- .../actions/freopen/err.freopen-destructive.d | 4 +-- .../actions/freopen/tst.badfreopen.sh | 8 ++--- .../freopen/tst.freopen-destructive-ok.d | 4 +-- .../actions/freopen/tst.freopen-single.sh | 10 +++--- test/unittest/actions/freopen/tst.freopen.sh | 8 ++--- .../printa/err.D_PRINTA_AGGARG.fmt_int_arg.d | 4 +-- .../err.D_PRINTA_AGGARG.fmt_mixed_args.d | 4 +-- .../printa/err.D_PRINTA_AGGARG.int_arg.d | 4 +-- .../printa/err.D_PRINTA_AGGARG.mixed_args.d | 4 +-- .../actions/printa/err.D_PRINTA_AGGKEY.d | 4 +-- .../actions/printa/err.D_PRINTA_AGGPROTO.d | 4 +-- .../printa/err.D_PRINTA_PROTO.fmt_no_arg.d | 4 +-- .../err.D_PRINTF_ARG_PROTO.key_no_val.d | 4 +-- .../actions/printa/err.D_PROTO_LEN.no_arg.d | 4 +-- .../actions/printf/err.D_PRINTF_AGG_CONV.d | 4 +-- .../err.D_PRINTF_ARG_EXTRA.addr_width.d | 4 +-- .../err.D_PRINTF_ARG_EXTRA.too_many_vals.d | 4 +-- .../actions/printf/err.D_PRINTF_ARG_FMT.d | 4 +-- .../err.D_PRINTF_ARG_PROTO.missing_val.d | 4 +-- .../printf/err.D_PRINTF_ARG_PROTO.prec.d | 4 +-- .../err.D_PRINTF_ARG_PROTO.too_few_vals.d | 4 +-- .../err.D_PRINTF_ARG_PROTO.width-prec.d | 4 +-- .../printf/err.D_PRINTF_ARG_PROTO.width.d | 4 +-- .../printf/err.D_PRINTF_ARG_TYPE.agg.d | 4 +-- .../printf/err.D_PRINTF_ARG_TYPE.mismatch.d | 4 +-- .../printf/err.D_PRINTF_ARG_TYPE.void.d | 4 +-- .../printf/err.D_PRINTF_ARG_TYPE.width-prec.d | 4 +-- .../err.D_PRINTF_DYN_PROTO.missing_prec-2.d | 4 +-- .../err.D_PRINTF_DYN_PROTO.missing_prec.d | 4 +-- .../err.D_PRINTF_DYN_PROTO.missing_width-2.d | 4 +-- .../err.D_PRINTF_DYN_PROTO.missing_width.d | 4 +-- .../printf/err.D_PRINTF_DYN_TYPE.prec.d | 4 +-- .../printf/err.D_PRINTF_DYN_TYPE.width-prec.d | 4 +-- .../printf/err.D_PRINTF_DYN_TYPE.width.d | 4 +-- .../actions/printf/err.D_PRINTF_FMT_EMPTY.d | 4 +-- .../unittest/actions/printf/err.D_PROTO_ARG.d | 4 +-- .../unittest/actions/printf/err.D_PROTO_LEN.d | 4 +-- .../actions/printf/err.D_SYNTAX.double_prec.d | 4 +-- .../printf/err.D_SYNTAX.double_width.d | 4 +-- .../printf/err.D_SYNTAX.explicit_arg-2.d | 4 +-- .../printf/err.D_SYNTAX.explicit_arg-3.d | 4 +-- .../printf/err.D_SYNTAX.explicit_arg.d | 4 +-- .../printf/err.D_SYNTAX.missing_fmt-2.d | 4 +-- .../printf/err.D_SYNTAX.missing_fmt-3.d | 4 +-- .../actions/printf/err.D_SYNTAX.missing_fmt.d | 4 +-- .../actions/printf/err.D_SYNTAX.pct_flags.d | 4 +-- .../actions/printf/err.D_SYNTAX.prec-width.d | 4 +-- .../printf/err.D_SYNTAX.unknown_conv.d | 4 +-- test/unittest/actions/printf/tst.conv_A.d | 4 +-- .../actions/printf/tst.conv_E_double.d | 4 +-- .../actions/printf/tst.conv_E_float.d | 4 +-- .../actions/printf/tst.conv_G_double.d | 4 +-- .../actions/printf/tst.conv_G_float.d | 4 +-- test/unittest/actions/printf/tst.conv_T.sh | 4 +-- test/unittest/actions/printf/tst.conv_Y.sh | 4 +-- test/unittest/actions/printf/tst.conv_a.d | 4 +-- test/unittest/actions/printf/tst.conv_c.d | 4 +-- .../actions/printf/tst.conv_d_signed.d | 4 +-- .../actions/printf/tst.conv_d_unsigned.d | 4 +-- .../actions/printf/tst.conv_e_double.d | 4 +-- .../actions/printf/tst.conv_e_float.d | 4 +-- .../actions/printf/tst.conv_f_double.d | 4 +-- .../actions/printf/tst.conv_f_float.d | 4 +-- .../actions/printf/tst.conv_g_double.d | 4 +-- .../actions/printf/tst.conv_g_float.d | 4 +-- .../actions/printf/tst.conv_s_alloca_var.d | 4 +-- .../actions/printf/tst.conv_s_copyin.d | 4 +-- .../actions/printf/tst.conv_s_copyinstr.d | 4 +-- .../actions/printf/tst.no-conv.first.d | 4 +-- .../actions/printf/tst.no-conv.last.d | 4 +-- .../actions/printf/tst.no-conv.middle.d | 4 +-- .../actions/printf/tst.no-conv.only.d | 4 +-- test/unittest/actions/raise/tst.raise1.d | 4 +-- test/unittest/actions/raise/tst.raise2.d | 4 +-- test/unittest/actions/raise/tst.raise3.d | 4 +-- test/unittest/actions/raise/tst.sigdefs.sh | 8 ++--- .../actions/return/err.D_PROTO_ARG.str.d | 4 +-- .../actions/return/err.D_PROTO_ARG.void.d | 4 +-- .../return/err.D_PROTO_LEN.missing_arg.d | 4 +-- .../return/err.D_PROTO_LEN.too_many_args.d | 4 +-- .../unittest/actions/return/err.destructive.d | 4 +-- .../actions/return/err.not_allowed-1.d | 4 +-- .../actions/return/err.not_allowed-2.d | 4 +-- .../actions/return/err.not_allowed-3.d | 4 +-- test/unittest/actions/return/err.wrong-1.d | 4 +-- test/unittest/actions/return/err.wrong-2.d | 4 +-- .../unittest/actions/return/tst.destructive.d | 4 +-- .../return/tst.override-getpid-entry.sh | 4 +-- .../return/tst.override-getpid-return.sh | 4 +-- .../unittest/actions/setopt/err.D_PROTO_ARG.d | 4 +-- .../setopt/err.D_PROTO_LEN.missing_arg.d | 4 +-- .../setopt/err.D_PROTO_LEN.too_many_args.d | 4 +-- test/unittest/actions/setopt/tst.badopt.d | 4 +-- test/unittest/actions/symmod/tst.symmod.sh | 4 +-- .../actions/system/err.system-destructive.d | 4 +-- .../system/tst.system-destructive-ok.d | 4 +-- test/unittest/actions/system/tst.system-int.d | 4 +-- test/unittest/actions/system/tst.system-str.d | 4 +-- .../trace/err.D_PROTO_LEN.missing_arg.d | 4 +-- .../trace/err.D_PROTO_LEN.too_many_args.d | 4 +-- test/unittest/actions/trace/err.D_TRACE_DYN.d | 4 +-- .../unittest/actions/trace/err.D_TRACE_VOID.d | 4 +-- test/unittest/actions/trace/tst.alloca.d | 2 +- .../actions/trace/tst.array-char-multi-nul.d | 4 +-- .../trace/tst.array-char-str-multi-nul.d | 4 +-- .../actions/trace/tst.array-char-str-no-nul.d | 4 +-- .../actions/trace/tst.array-char-str.d | 4 +-- .../trace/tst.array-char-unprintable.d | 4 +-- test/unittest/actions/trace/tst.array.d | 4 +-- test/unittest/actions/trace/tst.expr.d | 4 +-- .../actions/trace/tst.int16_t-quiet.d | 4 +-- test/unittest/actions/trace/tst.int16_t.d | 4 +-- .../actions/trace/tst.int32_t-quiet.d | 4 +-- test/unittest/actions/trace/tst.int32_t.d | 4 +-- .../actions/trace/tst.int64_t-quiet.d | 4 +-- test/unittest/actions/trace/tst.int64_t.d | 4 +-- .../unittest/actions/trace/tst.int8_t-quiet.d | 4 +-- test/unittest/actions/trace/tst.int8_t.d | 4 +-- test/unittest/actions/trace/tst.str-empty.d | 4 +-- test/unittest/actions/trace/tst.str-quiet.d | 4 +-- test/unittest/actions/trace/tst.str.d | 4 +-- .../actions/trace/tst.struct-1-byte.d | 4 +-- test/unittest/actions/trace/tst.struct.d | 4 +-- .../actions/trace/tst.uint16_t-quiet.d | 4 +-- test/unittest/actions/trace/tst.uint16_t.d | 4 +-- .../actions/trace/tst.uint32_t-quiet.d | 4 +-- test/unittest/actions/trace/tst.uint32_t.d | 4 +-- .../actions/trace/tst.uint64_t-quiet.d | 4 +-- test/unittest/actions/trace/tst.uint64_t.d | 4 +-- .../actions/trace/tst.uint8_t-quiet.d | 4 +-- test/unittest/actions/trace/tst.uint8_t.d | 4 +-- test/unittest/actions/trace/tst.union.d | 4 +-- .../aggs/err.D_AGG_FUNC.non_agg_func.d | 4 +-- test/unittest/aggs/err.D_AGG_MDIM.multi_dim.d | 4 +-- .../aggs/err.D_AGG_NULL.idx_no_func.d | 4 +-- test/unittest/aggs/err.D_AGG_NULL.no_func.d | 4 +-- .../aggs/err.D_AGG_REDEF.diff_funcs.d | 6 ++-- .../aggs/err.D_AGG_REDEF.idx_diff_funcs.d | 4 +-- .../aggs/err.D_AGG_SCALAR.avg_str_val.d | 4 +-- .../err.D_AGG_SCALAR.llquantize_str_val.d | 4 +-- .../aggs/err.D_AGG_SCALAR.lquantize_str_val.d | 4 +-- .../aggs/err.D_AGG_SCALAR.max_str_val.d | 4 +-- .../aggs/err.D_AGG_SCALAR.min_str_val.d | 4 +-- .../aggs/err.D_AGG_SCALAR.quantize_str_val.d | 4 +-- .../aggs/err.D_AGG_SCALAR.stddev_str_val.d | 4 +-- .../aggs/err.D_AGG_SCALAR.sum_str_val.d | 4 +-- test/unittest/aggs/err.D_CG_EXPR.from_expr.d | 4 +-- .../aggs/err.D_CLEAR_AGGARG.clear_no_agg.d | 4 +-- .../aggs/err.D_FUNC_IDENT.probe_as_func.d | 4 +-- .../aggs/err.D_FUNC_UNDEF.badaggfunc.d | 4 +-- .../unittest/aggs/err.D_IDENT_UNDEF.no_func.d | 4 +-- test/unittest/aggs/err.D_KEY_TYPE.agg_key.d | 4 +-- .../aggs/err.D_KEY_TYPE.dyn_expr_key.d | 4 +-- test/unittest/aggs/err.D_KEY_TYPE.void_key.d | 4 +-- test/unittest/aggs/err.D_LLQUANT_FACTORTYPE.d | 4 +-- .../aggs/err.D_LLQUANT_FACTORVAL.too_big.d | 4 +-- .../aggs/err.D_LLQUANT_FACTORVAL.too_small.d | 4 +-- test/unittest/aggs/err.D_LLQUANT_HMAGTYPE.d | 4 +-- .../aggs/err.D_LLQUANT_HMAGVAL.lt_lmag.d | 4 +-- .../unittest/aggs/err.D_LLQUANT_HMAGVAL.neg.d | 4 +-- .../aggs/err.D_LLQUANT_HMAGVAL.overflow.d | 4 +-- .../aggs/err.D_LLQUANT_HMAGVAL.too_big.d | 4 +-- test/unittest/aggs/err.D_LLQUANT_LMAGTYPE.d | 4 +-- .../unittest/aggs/err.D_LLQUANT_LMAGVAL.neg.d | 4 +-- .../aggs/err.D_LLQUANT_LMAGVAL.too_big.d | 4 +-- .../unittest/aggs/err.D_LLQUANT_MATCHFACTOR.d | 4 +-- test/unittest/aggs/err.D_LLQUANT_MATCHHMAG.d | 4 +-- test/unittest/aggs/err.D_LLQUANT_MATCHLMAG.d | 4 +-- test/unittest/aggs/err.D_LLQUANT_MATCHSTEPS.d | 4 +-- test/unittest/aggs/err.D_LLQUANT_STEPTYPE.d | 4 +-- .../err.D_LLQUANT_STEPTYPE.llqstepszero.d | 4 +-- .../aggs/err.D_LLQUANT_STEPTYPE.neg.d | 4 +-- ...D_LLQUANT_STEPVAL.factor_divides_steps_1.d | 4 +-- ...D_LLQUANT_STEPVAL.factor_divides_steps_2.d | 4 +-- ...D_LLQUANT_STEPVAL.factor_divides_steps_3.d | 4 +-- .../err.D_LLQUANT_STEPVAL.llqdividefactor.d | 4 +-- .../err.D_LLQUANT_STEPVAL.llqmultiplefactor.d | 4 +-- ...r.D_LLQUANT_STEPVAL.steps_divides_factor.d | 4 +-- .../aggs/err.D_LLQUANT_STEPVAL.too_big.d | 4 +-- .../unittest/aggs/err.D_LQUANT_BASETYPE.var.d | 4 +-- .../aggs/err.D_LQUANT_BASEVAL.too_big.d | 4 +-- .../aggs/err.D_LQUANT_BASEVAL.too_small.d | 4 +-- test/unittest/aggs/err.D_LQUANT_LIMTYPE.var.d | 4 +-- .../aggs/err.D_LQUANT_LIMVAL.too_big.d | 4 +-- .../aggs/err.D_LQUANT_LIMVAL.too_small.d | 4 +-- test/unittest/aggs/err.D_LQUANT_MATCHBASE.d | 4 +-- test/unittest/aggs/err.D_LQUANT_MATCHLIM.d | 4 +-- test/unittest/aggs/err.D_LQUANT_MATCHSTEP.d | 4 +-- test/unittest/aggs/err.D_LQUANT_MISMATCH.d | 4 +-- .../aggs/err.D_LQUANT_MISMATCH.lqbadarg2.d | 8 ++--- test/unittest/aggs/err.D_LQUANT_STEPLARGE.d | 4 +-- test/unittest/aggs/err.D_LQUANT_STEPSMALL.d | 4 +-- test/unittest/aggs/err.D_LQUANT_STEPTYPE.d | 4 +-- .../unittest/aggs/err.D_LQUANT_STEPTYPE.neg.d | 4 +-- .../aggs/err.D_LQUANT_STEPTYPE.zero.d | 4 +-- .../aggs/err.D_LQUANT_STEPVAL.too_big.d | 4 +-- .../err.D_NORMALIZE_AGGARG.denorm_no_agg.d | 4 +-- .../aggs/err.D_NORMALIZE_AGGARG.norm_no_agg.d | 4 +-- .../aggs/err.D_OP_INCOMPAT.agg_in_expr.d | 4 +-- ...r.D_PROTO_ARG.llquantize_non_scalar_incr.d | 4 +-- ...rr.D_PROTO_ARG.lquantize_non_scalar_incr.d | 4 +-- .../err.D_PROTO_ARG.norm_non_scalar_normal.d | 4 +-- ...err.D_PROTO_ARG.quantize_non_scalar_incr.d | 4 +-- .../err.D_PROTO_ARG.trunc_non_scalar_trunc.d | 4 +-- .../aggs/err.D_PROTO_LEN.avg_missing_arg.d | 4 +-- .../aggs/err.D_PROTO_LEN.avg_too_many_args.d | 4 +-- .../aggs/err.D_PROTO_LEN.clear_too_few_args.d | 4 +-- .../err.D_PROTO_LEN.clear_too_many_args.d | 4 +-- .../err.D_PROTO_LEN.count_too_many_args.d | 4 +-- .../err.D_PROTO_LEN.denorm_too_few_args.d | 4 +-- .../err.D_PROTO_LEN.denorm_too_many_args.d | 4 +-- .../err.D_PROTO_LEN.llquantize_too_few_args.d | 4 +-- ...err.D_PROTO_LEN.llquantize_too_many_args.d | 4 +-- .../err.D_PROTO_LEN.lquantize_too_few_args.d | 4 +-- .../err.D_PROTO_LEN.lquantize_too_many_args.d | 4 +-- .../aggs/err.D_PROTO_LEN.max_missing_arg.d | 4 +-- .../aggs/err.D_PROTO_LEN.max_too_many_args.d | 4 +-- .../aggs/err.D_PROTO_LEN.min_missing_arg.d | 4 +-- .../aggs/err.D_PROTO_LEN.min_too_many_args.d | 4 +-- .../aggs/err.D_PROTO_LEN.norm_too_few_args.d | 4 +-- .../aggs/err.D_PROTO_LEN.norm_too_many_args.d | 4 +-- .../err.D_PROTO_LEN.quantize_missing_arg.d | 4 +-- .../err.D_PROTO_LEN.quantize_too_many_args.d | 4 +-- .../aggs/err.D_PROTO_LEN.stddev_missing_arg.d | 4 +-- .../err.D_PROTO_LEN.stddev_too_many_args.d | 4 +-- .../aggs/err.D_PROTO_LEN.sum_missing_arg.d | 4 +-- .../aggs/err.D_PROTO_LEN.sum_too_many_args.d | 4 +-- .../aggs/err.D_PROTO_LEN.trunc_too_few_args.d | 4 +-- .../err.D_PROTO_LEN.trunc_too_many_args.d | 4 +-- .../aggs/err.D_TRUNC_AGGARG.trunc_no_agg.d | 4 +-- test/unittest/aggs/err.aggsize-too-small.d | 6 ++-- test/unittest/aggs/tst.aggmod_full.sh | 4 +-- test/unittest/aggs/tst.aggpercpu.sh | 6 ++-- test/unittest/aggs/tst.avg.d | 8 ++--- test/unittest/aggs/tst.avg_neg.d | 4 +-- test/unittest/aggs/tst.chararray-key.d | 6 ++-- test/unittest/aggs/tst.clear-one.d | 4 +-- test/unittest/aggs/tst.clear.d | 4 +-- test/unittest/aggs/tst.clearavg.d | 4 +-- test/unittest/aggs/tst.clearavg2.d | 4 +-- test/unittest/aggs/tst.cleardenormalize.d | 4 +-- test/unittest/aggs/tst.clearlquantize.d | 4 +-- test/unittest/aggs/tst.clearnormalize.d | 4 +-- test/unittest/aggs/tst.count.d | 4 +-- test/unittest/aggs/tst.count2.d | 8 ++--- test/unittest/aggs/tst.count3.d | 8 ++--- test/unittest/aggs/tst.count_notquiet.d | 32 ++++++++--------- test/unittest/aggs/tst.denormalize.d | 8 ++--- test/unittest/aggs/tst.denormalizeonly.d | 8 ++--- test/unittest/aggs/tst.empty.d | 6 ++-- test/unittest/aggs/tst.fmtnormalize.d | 8 ++--- test/unittest/aggs/tst.forms.d | 4 +-- test/unittest/aggs/tst.goodkey.d | 8 ++--- test/unittest/aggs/tst.keysort.d | 4 +-- test/unittest/aggs/tst.llquantize_basic.d | 4 +-- test/unittest/aggs/tst.llquantize_sort.d | 4 +-- test/unittest/aggs/tst.llquantnormal.d | 8 ++--- test/unittest/aggs/tst.llquantoverflow.d | 4 +-- test/unittest/aggs/tst.llquantround.d | 10 +++--- test/unittest/aggs/tst.llquantsortkey.d | 4 +-- test/unittest/aggs/tst.llquantsortsum.d | 4 +-- test/unittest/aggs/tst.llquantsortzero.d | 4 +-- test/unittest/aggs/tst.lquantize.d | 8 ++--- test/unittest/aggs/tst.lquantnormal.d | 8 ++--- test/unittest/aggs/tst.lquantrange.d | 4 +-- test/unittest/aggs/tst.lquantround.d | 10 +++--- test/unittest/aggs/tst.lquantzero.d | 4 +-- test/unittest/aggs/tst.max.d | 8 ++--- test/unittest/aggs/tst.max_neg.d | 4 +-- test/unittest/aggs/tst.min.d | 8 ++--- test/unittest/aggs/tst.min_neg.d | 4 +-- test/unittest/aggs/tst.multiaggs1.d | 8 ++--- test/unittest/aggs/tst.multiaggs2.d | 8 ++--- test/unittest/aggs/tst.multiaggs3.d | 8 ++--- test/unittest/aggs/tst.multicpus.sh | 6 ++-- test/unittest/aggs/tst.multinormalize.d | 8 ++--- test/unittest/aggs/tst.neglquant.d | 18 +++++----- test/unittest/aggs/tst.negorder.d | 4 +-- test/unittest/aggs/tst.negquant.d | 18 +++++----- test/unittest/aggs/tst.negtrunc.d | 4 +-- test/unittest/aggs/tst.negtruncquant.d | 4 +-- test/unittest/aggs/tst.normalize.d | 8 ++--- .../aggs/tst.normalize_multiple_times.d | 8 ++--- test/unittest/aggs/tst.order.d | 4 +-- test/unittest/aggs/tst.quantize.d | 8 ++--- test/unittest/aggs/tst.quantlast.d | 4 +-- test/unittest/aggs/tst.quantround.d | 10 +++--- test/unittest/aggs/tst.quantzero.d | 12 +++---- test/unittest/aggs/tst.reset.d | 6 ++-- test/unittest/aggs/tst.signature.d | 6 ++-- test/unittest/aggs/tst.signedkeys.d | 4 +-- test/unittest/aggs/tst.signedkeyspos.d | 4 +-- test/unittest/aggs/tst.stddev.d | 4 +-- test/unittest/aggs/tst.stddev2.d | 4 +-- test/unittest/aggs/tst.sum.d | 8 ++--- test/unittest/aggs/tst.trunc-lquantize-5.d | 4 +-- .../aggs/tst.trunc-lquantize-default.d | 4 +-- test/unittest/aggs/tst.trunc-lquantize-neg5.d | 4 +-- test/unittest/aggs/tst.trunc-one.d | 4 +-- test/unittest/aggs/tst.trunc-sum-5.d | 4 +-- test/unittest/aggs/tst.trunc-sum-default.d | 4 +-- test/unittest/aggs/tst.trunc-sum-neg5.d | 4 +-- test/unittest/aggs/tst.trunc.d | 4 +-- test/unittest/aggs/tst.trunc0.d | 6 ++-- test/unittest/aggs/tst.truncquant.d | 4 +-- test/unittest/aggs/tst.typecast-key.d | 6 ++-- test/unittest/aggs/tst.ustack.d | 18 +++++----- test/unittest/aggs/tst.valsortkeypos.d | 4 +-- .../arithmetic/err.D_DIV_ZERO.divby0.d | 4 +-- .../arithmetic/err.D_DIV_ZERO.divby0_1.d | 4 +-- .../arithmetic/err.D_DIV_ZERO.divby0_2.d | 4 +-- .../arithmetic/err.D_DIV_ZERO.modby0.d | 4 +-- .../unittest/arithmetic/err.D_SYNTAX.addmin.d | 4 +-- .../unittest/arithmetic/err.D_SYNTAX.divmin.d | 4 +-- .../unittest/arithmetic/err.D_SYNTAX.muladd.d | 4 +-- .../unittest/arithmetic/err.D_SYNTAX.muldiv.d | 4 +-- test/unittest/arithmetic/tst.basics.d | 4 +-- test/unittest/arithmetic/tst.bug-casting.d | 4 +-- test/unittest/arithmetic/tst.cast-add-assoc.d | 4 +-- test/unittest/arithmetic/tst.cast-add-tvar.d | 4 +-- test/unittest/arithmetic/tst.cast-add.d | 4 +-- test/unittest/arithmetic/tst.cast-alloca.d | 6 ++-- test/unittest/arithmetic/tst.cast-curcpu.d | 6 ++-- test/unittest/arithmetic/tst.cast-exp-assoc.d | 4 +-- test/unittest/arithmetic/tst.cast-exp-tvar.d | 4 +-- test/unittest/arithmetic/tst.cast-exp.d | 4 +-- test/unittest/arithmetic/tst.cast-imp-assoc.d | 4 +-- test/unittest/arithmetic/tst.cast-imp-tvar.d | 4 +-- test/unittest/arithmetic/tst.cast-imp.d | 4 +-- test/unittest/arithmetic/tst.complex.d | 4 +-- test/unittest/arithmetic/tst.moddiv.d | 4 +-- test/unittest/arrays/err.D_ARR_BADREF.bad.d | 4 +-- .../arrays/err.D_ARR_BOUNDS.ctf-assignment.d | 4 +-- test/unittest/arrays/err.D_ARR_BOUNDS.ctf.d | 4 +-- .../err.D_ARR_BOUNDS.declared-assignment.d | 4 +-- .../arrays/err.D_ARR_BOUNDS.declared.d | 4 +-- .../arrays/err.D_DECL_ARRBIG.toobig.d | 4 +-- test/unittest/arrays/err.D_DECL_ARRNULL.bad.d | 4 +-- test/unittest/arrays/err.D_DECL_ARRSUB.bad.d | 4 +-- .../arrays/err.D_DECL_PROTO_TYPE.badtuple.d | 4 +-- .../arrays/err.D_IDENT_UNDEF.badureg.d | 4 +-- .../arrays/err.D_PROTO_ARG.uregs_variable.d | 4 +-- .../err.D_UNKNOWN.uregs_toobig.aarch64.d | 4 +-- .../err.D_UNKNOWN.uregs_toobig.x86_64.d | 4 +-- test/unittest/arrays/tst.basic1.d | 8 ++--- test/unittest/arrays/tst.basic2.d | 8 ++--- test/unittest/arrays/tst.basic3.d | 8 ++--- test/unittest/arrays/tst.basic4.d | 8 ++--- test/unittest/arrays/tst.basic5.d | 8 ++--- test/unittest/arrays/tst.basic6.d | 8 ++--- test/unittest/arrays/tst.ctf-bounds.d | 4 +-- .../unittest/arrays/tst.ctf-bounds.oob-cast.d | 4 +-- .../arrays/tst.ctf-dynsized-bounds-runtime.sh | 4 +-- .../unittest/arrays/tst.ctf-dynsized-bounds.d | 4 +-- .../arrays/tst.declared-bounds.assignment.d | 4 +-- test/unittest/arrays/tst.declared-bounds.d | 4 +-- .../arrays/tst.declared-bounds.oob-cast.d | 4 +-- .../arrays/tst.declared-bounds.runtime_in.d | 6 ++-- .../arrays/tst.declared-bounds.runtime_out.d | 6 ++-- test/unittest/arrays/tst.uregsarray-check2.d | 6 ++-- .../arrays/tst.uregsarray-constants.aarch64.d | 4 +-- .../arrays/tst.uregsarray-constants.x86_64.d | 4 +-- test/unittest/arrays/tst.uregsarray.arm64.d | 6 ++-- test/unittest/arrays/tst.uregsarray.d | 6 ++-- test/unittest/arrays/tst.uregsarray.x86_64.d | 6 ++-- .../assocs/err.D_OP_INCOMPAT.dupgtype.d | 4 +-- .../assocs/err.D_OP_INCOMPAT.dupttype.d | 4 +-- test/unittest/assocs/err.D_OP_INCOMPAT.this.d | 4 +-- test/unittest/assocs/err.D_PROTO_ARG.badsig.d | 6 ++-- test/unittest/assocs/err.D_PROTO_LEN.toofew.d | 6 ++-- .../unittest/assocs/err.D_PROTO_LEN.toomany.d | 6 ++-- test/unittest/assocs/err.D_SYNTAX.errassign.d | 6 ++-- .../assocs/err.dynvarsize-too-small.d | 6 ++-- test/unittest/assocs/err.limited_space.d | 8 ++--- test/unittest/assocs/err.tupoflow.d | 4 +-- test/unittest/assocs/tst.clean-tuple.d | 6 ++-- test/unittest/assocs/tst.collision.d | 4 +-- test/unittest/assocs/tst.cpyarray.d | 12 +++---- test/unittest/assocs/tst.diffprofile.d | 8 ++--- test/unittest/assocs/tst.gvar-postdec.d | 4 +-- test/unittest/assocs/tst.gvar-postinc.d | 4 +-- test/unittest/assocs/tst.gvar-predec.d | 4 +-- test/unittest/assocs/tst.gvar-preinc.d | 4 +-- test/unittest/assocs/tst.init-str.d | 6 ++-- test/unittest/assocs/tst.init.d | 4 +-- test/unittest/assocs/tst.invalidref.d | 14 ++++---- test/unittest/assocs/tst.misc.d | 12 +++---- test/unittest/assocs/tst.nested.d | 6 ++-- test/unittest/assocs/tst.nested2.d | 6 ++-- test/unittest/assocs/tst.orthogonality.d | 8 ++--- test/unittest/assocs/tst.store_zero_deletes.d | 6 ++-- .../assocs/tst.store_zero_deletes_struct.d | 6 ++-- .../assocs/tst.store_zero_deletes_union.d | 6 ++-- test/unittest/assocs/tst.store_zero_safe.d | 6 ++-- test/unittest/assocs/tst.this.d | 4 +-- test/unittest/assocs/tst.tvar-postdec.d | 4 +-- test/unittest/assocs/tst.tvar-postinc.d | 4 +-- test/unittest/assocs/tst.tvar-predec.d | 4 +-- test/unittest/assocs/tst.tvar-preinc.d | 4 +-- test/unittest/begin/tst.begin-first.d | 6 ++-- test/unittest/begin/tst.begin-starvation.sh | 4 +-- test/unittest/begin/tst.begin.d | 6 ++-- test/unittest/begin/tst.multibegin.d | 12 +++---- .../err.D_ADDROF_BITFIELD.BitfieldAddress.d | 4 +-- .../err.D_DECL_BFCONST.NegBitField.d | 4 +-- .../err.D_DECL_BFCONST.ZeroBitField.d | 4 +-- .../err.D_DECL_BFSIZE.ExceedBaseType.d | 4 +-- .../err.D_DECL_BFSIZE.GreaterThan64.d | 4 +-- .../bitfields/err.D_DECL_BFTYPE.badtype.d | 4 +-- .../bitfields/err.D_OFFSETOF_BITFIELD.d | 4 +-- .../err.D_SIZEOF_BITFIELD.SizeofBitfield.d | 4 +-- test/unittest/bitfields/tst.BasicSigned.d | 4 +-- test/unittest/bitfields/tst.BasicUnsigned.d | 4 +-- .../bitfields/tst.BitFieldPromotion.d | 6 ++-- test/unittest/bitfields/tst.SizeofBitField.d | 6 ++-- test/unittest/bitfields/tst.bitfield-offset.d | 6 ++-- test/unittest/btf/tst.elf-vmlinux.sh | 2 +- test/unittest/btf/tst.invalid-fallback.sh | 2 +- test/unittest/btf/tst.module-btf.sh | 2 +- test/unittest/btf/tst.module-local.sh | 2 +- test/unittest/btf/tst.module-parent.sh | 2 +- test/unittest/btf/tst.raw-vmlinux.sh | 2 +- test/unittest/buffering/err.end.d | 6 ++-- test/unittest/buffering/err.zerobuf.d | 4 +-- test/unittest/buffering/tst.cputime.sh | 8 ++--- test/unittest/buffering/tst.dynvarsize.d | 10 +++--- test/unittest/buffering/tst.fill1.d | 28 +++++++-------- test/unittest/buffering/tst.ring1.d | 8 ++--- test/unittest/buffering/tst.ring2.d | 6 ++-- test/unittest/buffering/tst.ring3.d | 10 +++--- test/unittest/buffering/tst.smallring.d | 8 ++--- test/unittest/buffering/tst.switch1.d | 8 ++--- .../builtinvar/err.D_XLATE_NOCONV.pr_cpu.d | 4 +-- .../builtinvar/err.D_XLATE_NOCONV.pr_nice.d | 4 +-- .../builtinvar/err.D_XLATE_NOCONV.pr_oldpri.d | 4 +-- .../builtinvar/err.D_XLATE_NOCONV.pr_rssize.d | 4 +-- .../builtinvar/err.D_XLATE_NOCONV.pr_size.d | 4 +-- test/unittest/builtinvar/tst.arg0.d | 6 ++-- test/unittest/builtinvar/tst.arg0clause.d | 6 ++-- test/unittest/builtinvar/tst.arg1.d | 6 ++-- test/unittest/builtinvar/tst.arg1to8.d | 6 ++-- test/unittest/builtinvar/tst.arg1to8clause.d | 6 ++-- test/unittest/builtinvar/tst.epid.d | 8 ++--- test/unittest/builtinvar/tst.epid1.d | 6 ++-- test/unittest/builtinvar/tst.errno.d | 8 ++--- test/unittest/builtinvar/tst.errno1.d | 6 ++-- test/unittest/builtinvar/tst.errno2.d | 6 ++-- test/unittest/builtinvar/tst.execname.d | 8 ++--- test/unittest/builtinvar/tst.hpriority.d | 6 ++-- test/unittest/builtinvar/tst.id.d | 8 ++--- test/unittest/builtinvar/tst.id1.d | 6 ++-- test/unittest/builtinvar/tst.id_ERROR.sh | 8 ++--- test/unittest/builtinvar/tst.ipl.d | 8 ++--- test/unittest/builtinvar/tst.ipl1.d | 6 ++-- test/unittest/builtinvar/tst.lwpsinfo.d | 8 ++--- test/unittest/builtinvar/tst.lwpsinfo1.d | 6 ++-- test/unittest/builtinvar/tst.pid.d | 8 ++--- test/unittest/builtinvar/tst.pid1.d | 6 ++-- test/unittest/builtinvar/tst.probe_dtrace.d | 8 ++--- .../builtinvar/tst.psinfo-bug21974606.d | 8 ++--- .../builtinvar/tst.psinfo-bug21984854.d | 8 ++--- .../builtinvar/tst.psinfo-bug22561297.d | 6 ++-- test/unittest/builtinvar/tst.psinfo.d | 6 ++-- test/unittest/builtinvar/tst.psinfo1.d | 6 ++-- test/unittest/builtinvar/tst.tid.d | 8 ++--- test/unittest/builtinvar/tst.tid1.d | 6 ++-- test/unittest/builtinvar/tst.timestamp.d | 6 ++-- test/unittest/builtinvar/tst.vtimestamp.d | 6 ++-- test/unittest/builtinvar/tst.vtimestamp2.d | 8 ++--- .../clauses/err.D_IDENT_UNDEF.aggfun.d | 4 +-- .../clauses/err.D_IDENT_UNDEF.aggtup.d | 4 +-- .../clauses/err.D_IDENT_UNDEF.arrtup.d | 4 +-- .../unittest/clauses/err.D_IDENT_UNDEF.body.d | 4 +-- .../unittest/clauses/err.D_IDENT_UNDEF.both.d | 4 +-- .../unittest/clauses/err.D_IDENT_UNDEF.pred.d | 4 +-- test/unittest/clauses/tst.nopred.d | 4 +-- test/unittest/clauses/tst.pred.d | 4 +-- test/unittest/clauses/tst.predfirst.d | 4 +-- test/unittest/clauses/tst.predlast.d | 4 +-- test/unittest/codegen/err.deref_0.d | 8 ++--- test/unittest/codegen/err.deref_1.d | 8 ++--- test/unittest/codegen/err.deref_i0.d | 8 ++--- test/unittest/codegen/err.deref_i1.d | 8 ++--- .../unittest/codegen/err.deref_string-assoc.d | 10 +++--- test/unittest/codegen/err.deref_string-gvar.d | 10 +++--- test/unittest/codegen/err.deref_string-lvar.d | 10 +++--- test/unittest/codegen/err.deref_string-tvar.d | 10 +++--- .../codegen/err.str_NULL_plus_offset-assoc.d | 8 ++--- .../codegen/err.str_NULL_plus_offset-lvar.d | 8 ++--- .../codegen/err.str_NULL_plus_offset-tvar.d | 8 ++--- .../codegen/err.str_NULL_plus_offset.d | 8 ++--- .../codegen/tst.alloca-taint-sou-access.d | 6 ++-- .../unittest/codegen/tst.deref_string-assoc.d | 8 ++--- test/unittest/codegen/tst.deref_string-gvar.d | 8 ++--- test/unittest/codegen/tst.deref_string-lvar.d | 8 ++--- test/unittest/codegen/tst.deref_string-tvar.d | 8 ++--- test/unittest/codegen/tst.dfunc_reg_leak.d | 6 ++-- test/unittest/codegen/tst.epid-in-predicate.d | 4 +-- .../codegen/tst.execname-cmp-bvar_lhs.d | 6 ++-- .../codegen/tst.execname-cmp-bvar_rhs.d | 6 ++-- .../codegen/tst.execname-cmp-const_lhs.d | 6 ++-- .../codegen/tst.execname-cmp-const_rhs.d | 6 ++-- test/unittest/codegen/tst.execname-idx.d | 6 ++-- .../tst.kernel_read_deref_indirect_scalar.d | 6 ++-- .../tst.kernel_read_deref_indirect_str.d | 6 ++-- .../codegen/tst.kernel_read_deref_struct.d | 4 +-- .../tst.kernel_read_index_indirect_str.d | 6 ++-- .../codegen/tst.kernel_read_indirect_scalar.d | 6 ++-- test/unittest/codegen/tst.kernel_read_mixed.d | 6 ++-- .../tst.kernel_read_neg_small_scalar.d | 6 ++-- .../unittest/codegen/tst.kernel_read_scalar.d | 6 ++-- .../codegen/tst.kernel_read_scalar_regspill.d | 4 +-- test/unittest/codegen/tst.kernel_read_str.d | 6 ++-- .../codegen/tst.kernel_str-cmp-bvar_lhs.d | 6 ++-- .../codegen/tst.kernel_str-cmp-bvar_rhs.d | 6 ++-- .../codegen/tst.kernel_str-cmp-const_lhs.d | 6 ++-- .../codegen/tst.kernel_str-cmp-const_rhs.d | 6 ++-- test/unittest/codegen/tst.mov_vs_lddw.d | 4 +-- test/unittest/codegen/tst.post_inc_gvar_val.d | 4 +-- test/unittest/codegen/tst.post_inc_tvar_val.d | 4 +-- test/unittest/codegen/tst.pre_inc_gvar_val.d | 4 +-- test/unittest/codegen/tst.pre_inc_tvar_val.d | 4 +-- .../codegen/tst.read_index_indirect_str.d | 6 ++-- .../codegen/tst.reg_spilling.bug31187562-2.d | 4 +-- .../codegen/tst.reg_spilling.bug31187562.d | 4 +-- test/unittest/codegen/tst.reg_spilling2.d | 4 +-- test/unittest/codegen/tst.reg_spilling3.d | 4 +-- test/unittest/codegen/tst.reg_spilling4.d | 4 +-- test/unittest/codegen/tst.reg_spilling5.d | 4 +-- test/unittest/codegen/tst.reg_spilling6.d | 4 +-- test/unittest/codegen/tst.reg_spilling7.d | 4 +-- test/unittest/codegen/tst.str_const_length.d | 6 ++-- test/unittest/codegen/tst.str_data_size.d | 6 ++-- .../codegen/tst.str_runtime_NULL-assoc.d | 10 +++--- .../codegen/tst.str_runtime_NULL-gvar.d | 20 +++++------ .../codegen/tst.str_runtime_NULL-lvar.d | 10 +++--- .../codegen/tst.str_runtime_NULL-tvar.d | 10 +++--- test/unittest/codegen/tst.str_store_var.d | 6 ++-- test/unittest/codegen/tst.tstring_asgn_expr.d | 6 ++-- test/unittest/codegen/tst.tstring_free.d | 4 +-- test/unittest/codegen/tst.tstring_leak.d | 6 ++-- test/unittest/codegen/tst.tstring_leak2.d | 6 ++-- .../codegen/tst.tstring_overlap_bug.d | 4 +-- test/unittest/codegen/tst.tstring_ternary.d | 6 ++-- .../codegen/tst.tstring_ternary_mix.d | 6 ++-- .../codegen/tst.tstring_ternary_nested.d | 6 ++-- .../cpc/err.D_PDESC_ZERO.lowfrequency.d | 4 +-- .../cpc/err.D_PDESC_ZERO.malformedoverflow.d | 4 +-- .../cpc/err.D_PDESC_ZERO.nonexistentevent.d | 4 +-- test/unittest/cpc/err.cpcvscpustatpart2.sh | 4 +-- test/unittest/cpc/err.cputrackterminates.sh | 4 +-- test/unittest/cpc/err.toomanyenablings.d | 4 +-- test/unittest/cpc/tst.allcpus.sh | 4 +-- test/unittest/cpc/tst.branches.sh | 6 ++-- test/unittest/cpc/tst.cpu_clock.d | 4 +-- test/unittest/cpc/tst.cpu_clock2.d | 4 +-- test/unittest/cpc/tst.genericevent.d | 4 +-- test/unittest/cpc/tst.instructions.sh | 6 ++-- test/unittest/cpc/tst.platformevent.sh | 4 +-- .../decls/err.D_DECL_LOCASSC.NonLocalAssoc.d | 6 ++-- .../decls/err.D_DECL_LONGINT.LongStruct.d | 6 ++-- .../err.D_DECL_PARMCLASS.BadStorageClass.d | 6 ++-- .../decls/err.D_DECL_PROTO_NAME.VoidName.d | 6 ++-- .../decls/err.D_DECL_PROTO_TYPE.Dyn.d | 6 ++-- .../err.D_DECL_PROTO_VARARGS.VarLenArgs.d | 6 ++-- .../decls/err.D_DECL_PROTO_VOID.NonSoleVoid.d | 6 ++-- .../decls/err.D_DECL_SIGNINT.UnsignedStruct.d | 6 ++-- .../decls/err.D_DECL_VOIDATTR.ShortVoidDecl.d | 6 ++-- test/unittest/decls/tst.arrays.d | 4 +-- test/unittest/decls/tst.basics.d | 4 +-- test/unittest/decls/tst.funcs.d | 4 +-- test/unittest/decls/tst.pointers.d | 4 +-- test/unittest/decls/tst.varargsfuncs.d | 4 +-- test/unittest/dif/alloca.d | 2 +- test/unittest/dif/basename.d | 2 +- test/unittest/dif/cleanpath.d | 2 +- test/unittest/dif/copyin.d | 2 +- test/unittest/dif/copyout.d | 4 +-- test/unittest/dif/dirname.d | 2 +- test/unittest/dif/htonl.d | 2 +- test/unittest/dif/htonll.d | 2 +- test/unittest/dif/htons.d | 2 +- test/unittest/dif/index2arg.d | 2 +- test/unittest/dif/index3arg.d | 2 +- test/unittest/dif/lltostr.d | 2 +- test/unittest/dif/loadX.d | 2 +- test/unittest/dif/rand.d | 2 +- test/unittest/dif/strchr.d | 2 +- test/unittest/dif/strjoin.d | 4 +-- test/unittest/dif/strlen.d | 2 +- test/unittest/dif/strncmp.d | 4 +-- test/unittest/dif/strstr.d | 2 +- test/unittest/disasm/tst.ann-agg.sh | 4 +-- test/unittest/disasm/tst.ann-gvar-agg.sh | 4 +-- test/unittest/disasm/tst.ann-gvar-assoc.sh | 4 +-- test/unittest/disasm/tst.ann-js-neg.sh | 4 +-- test/unittest/disasm/tst.ann-reg-spill.sh | 4 +-- test/unittest/disasm/tst.ann-str_assoc.sh | 4 +-- test/unittest/disasm/tst.ann-str_gvar.sh | 4 +-- test/unittest/disasm/tst.ann-str_lvar.sh | 4 +-- test/unittest/disasm/tst.ann-str_tvar.sh | 4 +-- .../disasm/tst.ann-strconst-strtab.sh | 4 +-- test/unittest/disasm/tst.ann-strconst.sh | 4 +-- test/unittest/disasm/tst.ann-tramp-lvar.sh | 4 +-- test/unittest/disasm/tst.ann-tramp-tvar.sh | 4 +-- test/unittest/disasm/tst.ann-tvar-assoc.sh | 4 +-- test/unittest/disasm/tst.ann-tvar.sh | 4 +-- test/unittest/disasm/tst.ann-var.sh | 4 +-- .../drops/drp.DTRACEDROP_AGGREGATION.d | 6 ++-- test/unittest/drops/drp.DTRACEDROP_DBLERROR.d | 8 ++--- test/unittest/drops/drp.DTRACEDROP_DYNAMIC.d | 6 ++-- .../drops/drp.DTRACEDROP_DYNAMIC.local_only.d | 6 ++-- .../unittest/drops/drp.DTRACEDROP_PRINCIPAL.d | 36 +++++++++---------- .../drops/drp.DTRACEDROP_PRINCIPAL.end.d | 36 +++++++++---------- test/unittest/drops/drp.DTRACEDROP_SPEC.d | 8 ++--- .../drops/drp.DTRACEDROP_SPECUNAVAIL.d | 12 +++---- .../dtrace-util/err.MultipleNonOptFlags.d | 4 +-- test/unittest/dtrace-util/tst.AddSearchPath.d | 4 +-- test/unittest/dtrace-util/tst.CoalesceTrace.d | 4 +-- test/unittest/dtrace-util/tst.DataModel32.sh | 6 ++-- test/unittest/dtrace-util/tst.DataModel64.sh | 6 ++-- .../dtrace-util/tst.DefineNameWithCPP.sh | 4 +-- .../dtrace-util/tst.DestructWithName.sh | 4 +-- test/unittest/dtrace-util/tst.DisOption.sh | 6 ++-- .../dtrace-util/tst.ELFGenerationOut.sh | 4 +-- .../dtrace-util/tst.ELFGenerationWithO.sh | 4 +-- .../dtrace-util/tst.IncludedFilePath.d | 4 +-- .../dtrace-util/tst.PreprocessorHashbang.sh | 4 +-- .../dtrace-util/tst.PreprocessorStatement.sh | 4 +-- test/unittest/dtrace-util/tst.ProcInvalid.sh | 4 +-- test/unittest/dtrace-util/tst.QuietMode.sh | 4 +-- test/unittest/dtrace-util/tst.TestCompile.sh | 4 +-- .../dtrace-util/tst.UnDefineNameWithCPP.sh | 4 +-- .../dtrace-util/tst.VerboseStabilityReport.d | 4 +-- .../dtrace-util/tst.ZeroNameProbes.sh | 4 +-- test/unittest/dtrace-util/tst.evaltime32.sh | 6 ++-- test/unittest/dtrace-util/tst.runopt-e.d | 4 +-- .../end/err.D_IDENT_UNDEF.timespent.d | 6 ++-- test/unittest/end/tst.end.d | 8 ++--- test/unittest/end/tst.endwithoutbegin.d | 6 ++-- test/unittest/end/tst.multibeginend.d | 20 +++++------ test/unittest/end/tst.multiend.d | 12 +++---- .../enum/err.D_DECL_IDRED.EnumSameName.d | 4 +-- .../enum/err.D_SYNTAX.RepeatTypeNames.d | 4 +-- test/unittest/enum/err.EnumMissingSymbol-1.d | 4 +-- test/unittest/enum/err.EnumMissingSymbol-2.d | 4 +-- test/unittest/enum/err.EnumMissingSymbol-3.d | 4 +-- test/unittest/enum/err.RepeatIdentifiers.d | 4 +-- test/unittest/enum/tst.EnumKernelDup.d | 4 +-- test/unittest/enum/tst.EnumSameValue.d | 4 +-- test/unittest/enum/tst.EnumTrailingComma.d | 4 +-- test/unittest/error/tst.DTRACEFLT_BADADDR.d | 6 ++-- .../tst.DTRACEFLT_BADADDR.null_ptr_field.d | 6 ++-- test/unittest/error/tst.DTRACEFLT_BADADDR2.d | 6 ++-- .../error/tst.DTRACEFLT_DIVZERO.div.d | 14 ++++---- .../error/tst.DTRACEFLT_DIVZERO.mod.d | 14 ++++---- test/unittest/error/tst.DTRACEFLT_UNKNOWN.d | 6 ++-- .../error/tst.argv-corruption-by-error.d | 4 +-- .../error/tst.clause_scope-begin-ended.d | 8 ++--- test/unittest/error/tst.clause_scope-begin.d | 10 +++--- .../unittest/error/tst.clause_scope-regular.d | 8 ++--- test/unittest/error/tst.error.d | 6 ++-- test/unittest/error/tst.errorend.d | 8 ++--- test/unittest/error/tst.fault-location.sh | 6 ++-- test/unittest/error/tst.trace_string.d | 6 ++-- .../fbtprovider/err.D_ARGS_IDX.void-void.d | 4 +-- .../fbtprovider/err.D_ARGS_IDX.void.d | 4 +-- .../fbtprovider/err.D_PDESC_ZERO.notreturn.d | 4 +-- test/unittest/fbtprovider/tst.entry.d | 4 +-- test/unittest/fbtprovider/tst.entryargs.d | 4 +-- test/unittest/fbtprovider/tst.manyargs.d | 4 +-- test/unittest/fbtprovider/tst.offset.d | 4 +-- test/unittest/fbtprovider/tst.return1.d | 4 +-- test/unittest/fbtprovider/tst.tls.d | 4 +-- test/unittest/fbtprovider/tst.tls2.d | 4 +-- .../alloca/err.D_ALLOCA_INCOMPAT.ternary.d | 6 ++-- ...rr.D_ALLOCA_INCOMPAT.var-clash-non-first.d | 6 ++-- .../alloca/err.D_ALLOCA_INCOMPAT.var-clash.d | 6 ++-- .../alloca/err.alloca-bcopy-before-beyond.d | 6 ++-- .../alloca/err.alloca-bcopy-before-bottom.d | 6 ++-- .../alloca/err.alloca-bcopy-beyond-top.d | 6 ++-- .../alloca/err.alloca-bcopy-crossing-bottom.d | 6 ++-- .../alloca/err.alloca-bcopy-crossing-top.d | 6 ++-- .../alloca/err.alloca-crossing-clauses.d | 8 ++--- .../alloca/err.alloca-load-before-bottom.d | 6 ++-- .../funcs/alloca/err.alloca-load-beyond-top.d | 6 ++-- .../alloca/err.alloca-load-crossing-bottom.d | 6 ++-- .../alloca/err.alloca-null-deref-lvalue.d | 6 ++-- .../funcs/alloca/err.alloca-null-deref.d | 6 ++-- .../err.alloca-scratch-exceeding-bcopy.d | 6 ++-- .../alloca/err.alloca-store-before-bottom.d | 6 ++-- .../alloca/err.alloca-store-beyond-top.d | 6 ++-- .../alloca/err.alloca-store-crossing-bottom.d | 6 ++-- .../funcs/alloca/err.alloca-too-large.d | 6 ++-- .../funcs/alloca/tst.alloca-alignment.d | 6 ++-- test/unittest/funcs/alloca/tst.alloca-arith.d | 6 ++-- .../funcs/alloca/tst.alloca-array-load.d | 6 ++-- .../funcs/alloca/tst.alloca-array-store.d | 6 ++-- .../funcs/alloca/tst.alloca-bcopy-top.d | 6 ++-- .../alloca/tst.alloca-crossing-clauses.d | 8 ++--- .../funcs/alloca/tst.alloca-deref-load.d | 6 ++-- .../funcs/alloca/tst.alloca-deref-store.d | 6 ++-- test/unittest/funcs/alloca/tst.alloca-funcs.d | 30 ++++++++-------- .../funcs/alloca/tst.alloca-overtainting.sh | 4 +-- .../alloca/tst.alloca-scratch-filling-bcopy.d | 6 ++-- ....alloca-store-load-aliasing-arith-bottom.d | 6 ++-- .../tst.alloca-store-load-aliasing-arith.d | 6 ++-- .../alloca/tst.alloca-store-load-bottom.d | 6 ++-- .../alloca/tst.alloca-store-load-idx-1.d | 6 ++-- .../funcs/alloca/tst.alloca-store-load-top.d | 6 ++-- .../funcs/alloca/tst.alloca-struct-load.d | 6 ++-- .../funcs/alloca/tst.alloca-struct-store.d | 6 ++-- .../alloca/tst.alloca-struct-union-load.d | 6 ++-- .../alloca/tst.alloca-struct-union-store.d | 6 ++-- .../alloca/tst.alloca0-after-alloca-load.d | 6 ++-- .../funcs/alloca/tst.alloca0-after-alloca.d | 6 ++-- test/unittest/funcs/alloca/tst.alloca0-load.d | 6 ++-- .../funcs/alloca/tst.alloca0-values.sh | 4 +-- test/unittest/funcs/alloca/tst.alloca0.d | 6 ++-- .../unittest/funcs/alloca/tst.string-alloca.d | 6 ++-- test/unittest/funcs/alloca/tst.ternary.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy1.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy2.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy3.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy4.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy5.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy6.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy7.d | 6 ++-- test/unittest/funcs/bcopy/err.badbcopy8.d | 6 ++-- .../funcs/bcopy/err.bcopy-into-string.d | 4 +-- .../funcs/bcopy/tst.bcopy-into-alloca.d | 4 +-- .../bcopy/tst.bcopy-into-string-indirect.d | 4 +-- test/unittest/funcs/bcopy/tst.bcopy.d | 8 ++--- test/unittest/funcs/bcopy/tst.bcopy2.d | 6 ++-- .../funcs/bcopy/tst.bcopy_arg_order.d | 6 ++-- .../unittest/funcs/copyin/err.D_ALLOCA_SIZE.d | 6 ++-- .../copyin/err.D_PROTO_ARG.non_scalar_arg1.d | 6 ++-- .../copyin/err.D_PROTO_ARG.non_scalar_arg2.d | 6 ++-- .../copyin/err.D_PROTO_LEN.missing_arg.d | 6 ++-- .../copyin/err.D_PROTO_LEN.too_few_args.d | 6 ++-- .../copyin/err.D_PROTO_LEN.too_many_args.d | 6 ++-- test/unittest/funcs/copyin/err.badaddr.d | 6 ++-- test/unittest/funcs/copyin/err.badsize.d | 6 ++-- test/unittest/funcs/copyin/err.null_arg1.d | 6 ++-- .../funcs/copyin/tst.copyin-retval-ok.d | 6 ++-- test/unittest/funcs/copyin/tst.copyin.d | 4 +-- .../err.D_PROTO_ARG.non_scalar_arg1.d | 6 ++-- .../err.D_PROTO_ARG.non_scalar_arg2.d | 6 ++-- .../copyinstr/err.D_PROTO_LEN.missing_arg.d | 6 ++-- .../copyinstr/err.D_PROTO_LEN.too_many_args.d | 6 ++-- test/unittest/funcs/copyinstr/err.badaddr.d | 6 ++-- test/unittest/funcs/copyinstr/err.badsize.d | 6 ++-- test/unittest/funcs/copyinstr/err.null_arg1.d | 6 ++-- .../copyinstr/tst.copyinstr-high-maxsize.d | 4 +-- .../copyinstr/tst.copyinstr-low-maxsize.d | 4 +-- .../copyinstr/tst.copyinstr-no-maxsize.d | 4 +-- test/unittest/funcs/copyinstr/tst.copyinstr.d | 4 +-- .../err.D_PROTO_ARG.non_alloca_arg3-2.d | 6 ++-- .../err.D_PROTO_ARG.non_alloca_arg3.d | 6 ++-- .../copyinto/err.D_PROTO_ARG.non_ptr_arg3.d | 6 ++-- .../err.D_PROTO_ARG.non_scalar_arg1.d | 6 ++-- .../err.D_PROTO_ARG.non_scalar_arg2.d | 6 ++-- .../copyinto/err.D_PROTO_LEN.missing_arg.d | 6 ++-- .../copyinto/err.D_PROTO_LEN.too_few_args.d | 6 ++-- .../copyinto/err.D_PROTO_LEN.too_many_args.d | 6 ++-- test/unittest/funcs/copyinto/err.badaddr.d | 6 ++-- test/unittest/funcs/copyinto/err.badsize.d | 6 ++-- test/unittest/funcs/copyinto/err.null_arg1.d | 6 ++-- test/unittest/funcs/copyinto/tst.copyinto.d | 4 +-- .../funcs/copyinto/tst.copyinto_arg_order.d | 4 +-- .../copyout/err.D_PROTO_ARG.copyoutbadarg.d | 4 +-- .../copyout/err.D_PROTO_LEN.copyouttoofew.d | 4 +-- .../copyout/err.D_PROTO_LEN.copyouttoomany.d | 4 +-- test/unittest/funcs/copyout/err.copyout.d | 6 ++-- .../funcs/copyout/err.copyoutbadaddr.sh | 6 ++-- .../err.D_PROTO_LEN.copyoutstrbadarg.d | 4 +-- .../err.D_PROTO_LEN.copyoutstrtoofew.d | 4 +-- .../funcs/copyoutstr/err.copyoutstrbadaddr.sh | 6 ++-- .../funcs/err.D_ALLOCA_SIZE.big_alloca.d | 4 +-- test/unittest/funcs/err.D_OP_VFPTR.badop.d | 4 +-- .../funcs/err.D_PROTO_ARG.chillbadarg.d | 4 +-- .../unittest/funcs/err.D_PROTO_ARG.mobadarg.d | 4 +-- .../funcs/err.D_PROTO_ARG.mtabadarg.d | 4 +-- .../funcs/err.D_PROTO_ARG.progenyofbad1.d | 4 +-- .../funcs/err.D_PROTO_ARG.progenyofbad2.d | 4 +-- .../funcs/err.D_PROTO_ARG.raisebadarg.d | 4 +-- .../funcs/err.D_PROTO_LEN.allocanoarg.d | 4 +-- .../funcs/err.D_PROTO_LEN.badbreakpoint.d | 4 +-- .../funcs/err.D_PROTO_LEN.chilltoofew.d | 4 +-- .../funcs/err.D_PROTO_LEN.chilltoomany.d | 4 +-- .../unittest/funcs/err.D_PROTO_LEN.motoofew.d | 4 +-- .../funcs/err.D_PROTO_LEN.motoomany.d | 4 +-- .../funcs/err.D_PROTO_LEN.mtatoofew.d | 4 +-- .../funcs/err.D_PROTO_LEN.mtatoomany.d | 4 +-- .../funcs/err.D_PROTO_LEN.panicbadarg.d | 4 +-- .../funcs/err.D_PROTO_LEN.progenyoftoofew.d | 4 +-- .../funcs/err.D_PROTO_LEN.progenyoftoomany.d | 4 +-- .../funcs/err.D_PROTO_LEN.stopbadarg.d | 4 +-- .../funcs/err.D_STRINGOF_TYPE.badstringof.d | 4 +-- test/unittest/funcs/err.D_VAR_UNDEF.badvar.d | 4 +-- test/unittest/funcs/err.badalloca.d | 8 ++--- test/unittest/funcs/err.badalloca2.d | 6 ++-- test/unittest/funcs/err.badchill.d | 6 ++-- test/unittest/funcs/err.chillbadarg.sh | 6 ++-- test/unittest/funcs/err.inet_ntoabadaddr.d | 6 ++-- test/unittest/funcs/err.inet_ntopbadaddr.d | 6 ++-- test/unittest/funcs/err.inet_ntopbadarg.d | 6 ++-- test/unittest/funcs/err.link_ntopbadaddr.d | 6 ++-- test/unittest/funcs/err.link_ntopbadarg.d | 6 ++-- ...D_PROTO_ARG.inet_ntoa6.arg1_not_in6_addr.d | 4 +-- ...rr.D_PROTO_ARG.inet_ntoa6.arg2_not_const.d | 4 +-- .../err.D_PROTO_ARG.inet_ntoa6.arg2_not_int.d | 4 +-- .../err.D_PROTO_LEN.inet_ntoa6.too_few_args.d | 4 +-- ...err.D_PROTO_LEN.inet_ntoa6.too_many_args.d | 4 +-- .../inet_ntoa6/err.inet_ntoa6.arg1_null.d | 6 ++-- .../err.inet_ntoa6.arg1_null_const.d | 6 ++-- .../funcs/inet_ntoa6/tst.inet_ntoa6.d | 4 +-- .../inet_ntoa6/tst.inet_ntoa6.strict-0.d | 4 +-- .../inet_ntoa6/tst.inet_ntoa6.strict-1.d | 4 +-- .../inet_ntoa6/tst.inet_ntoa6.strict-not-0.d | 4 +-- .../inet_ntoa6/tst.inet_ntoa6.strsize_10.d | 4 +-- .../inet_ntoa6/tst.inet_ntoa6.strsize_40.d | 4 +-- .../unittest/funcs/stack/err.corrupted-data.d | 4 +-- .../unittest/funcs/stack/err.store-to-stack.d | 4 +-- test/unittest/funcs/stack/tst.asgn_dvar.d | 4 +-- test/unittest/funcs/stack/tst.asgn_gvar.d | 4 +-- test/unittest/funcs/stack/tst.asgn_lvar.d | 4 +-- test/unittest/funcs/stack/tst.asgn_tvar.d | 4 +-- test/unittest/funcs/stack/tst.ref_addrs.d | 4 +-- test/unittest/funcs/stack/tst.ref_depth.d | 4 +-- test/unittest/funcs/stack/tst.ref_is_user.d | 4 +-- test/unittest/funcs/stack/tst.ref_pid.d | 4 +-- test/unittest/funcs/stack/tst.ref_strsz.d | 4 +-- test/unittest/funcs/stack/tst.store.d | 4 +-- .../funcs/strjoin/tst.strjoin-bordercases.d | 6 ++-- .../funcs/strjoin/tst.strjoin-capped-size-2.d | 6 ++-- .../funcs/strjoin/tst.strjoin-capped-size-3.d | 6 ++-- .../funcs/strjoin/tst.strjoin-capped-size.d | 6 ++-- .../funcs/strjoin/tst.strjoin-nested.d | 6 ++-- test/unittest/funcs/strjoin/tst.strjoin.d | 4 +-- .../funcs/strjoin/tst.strjoin_nonDPTR.d | 6 ++-- .../funcs/strlen/err.D_PROTO_ARG.non_string.d | 4 +-- .../strlen/err.D_PROTO_LEN.missing_arg.d | 4 +-- .../strlen/err.D_PROTO_LEN.too_many_args.d | 4 +-- test/unittest/funcs/strlen/tst.basic.d | 4 +-- test/unittest/funcs/strlen/tst.capped-size.d | 6 ++-- test/unittest/funcs/strlen/tst.empty.d | 6 ++-- test/unittest/funcs/strlen/tst.null.d | 6 ++-- test/unittest/funcs/strlen/tst.rodata.d | 4 +-- test/unittest/funcs/strlen/tst.zeros.d | 4 +-- .../strtok/err.D_PROTO_ARG.strtokbaddel.d | 4 +-- .../strtok/err.D_PROTO_ARG.strtokbadstr.d | 4 +-- .../strtok/err.D_PROTO_LEN.strtoktoofew.d | 4 +-- .../strtok/err.D_PROTO_LEN.strtoktoomany.d | 4 +-- test/unittest/funcs/strtok/tst.strtok.d | 28 +++++++-------- test/unittest/funcs/strtok/tst.strtok2.d | 6 ++-- test/unittest/funcs/strtok/tst.strtok_long.d | 6 ++-- .../funcs/strtok/tst.strtok_nonDPTR.d | 6 ++-- test/unittest/funcs/strtok/tst.strtok_null.d | 6 ++-- .../funcs/strtok/tst.strtok_nulldel.d | 6 ++-- .../funcs/strtok/tst.strtok_nullstr.d | 6 ++-- .../funcs/strtok/tst.strtok_nullstr2.d | 10 +++--- test/unittest/funcs/strtok/tst.strtok_regs.d | 4 +-- .../err.D_PROTO_ARG.substr_non_scalar_arg2.d | 4 +-- .../err.D_PROTO_ARG.substr_non_scalar_arg3.d | 4 +-- .../err.D_PROTO_ARG.substr_non_string_arg1.d | 4 +-- .../err.D_PROTO_LEN.substr_missing_arg.d | 4 +-- .../err.D_PROTO_LEN.substr_too_few_args.d | 4 +-- .../err.D_PROTO_LEN.substr_too_many_args.d | 4 +-- .../funcs/substr/err.substr_null_arg1.d | 6 ++-- test/unittest/funcs/substr/substr2arg.d | 2 +- test/unittest/funcs/substr/substr3arg.d | 2 +- .../funcs/substr/tst.substr-large-idx.d | 4 +-- .../substr/tst.substr-multi-const-cnt-neg.d | 4 +-- .../substr/tst.substr-multi-const-cnt-pos.d | 4 +-- .../tst.substr-multi-const-idx-neg-no-cnt.d | 4 +-- ...ubstr-multi-const-idx-neg-too-far-no-cnt.d | 4 +-- .../tst.substr-multi-const-idx-neg-too-far.d | 4 +-- .../substr/tst.substr-multi-const-idx-neg.d | 4 +-- .../tst.substr-multi-const-idx-pos-no-cnt.d | 4 +-- .../substr/tst.substr-multi-const-idx-pos.d | 4 +-- .../substr/tst.substr-multi-var-cnt-neg.d | 4 +-- .../substr/tst.substr-multi-var-cnt-pos.d | 4 +-- .../tst.substr-multi-var-idx-neg-no-cnt.d | 4 +-- ....substr-multi-var-idx-neg-too-far-no-cnt.d | 4 +-- .../tst.substr-multi-var-idx-neg-too-far.d | 4 +-- .../substr/tst.substr-multi-var-idx-neg.d | 4 +-- .../tst.substr-multi-var-idx-pos-no-cnt.d | 4 +-- .../substr/tst.substr-multi-var-idx-pos.d | 4 +-- .../funcs/substr/tst.substr-stored-len.d | 6 ++-- .../funcs/substr/tst.substr-strjoin.d | 6 ++-- .../funcs/substr/tst.substr-strsize.d | 6 ++-- test/unittest/funcs/substr/tst.substr.d | 10 +++--- .../funcs/substr/tst.substr_nonDPTR.d | 6 ++-- test/unittest/funcs/substr/tst.substrminate.d | 4 +-- test/unittest/funcs/tst.basename.d | 2 +- test/unittest/funcs/tst.basename0.d | 6 ++-- test/unittest/funcs/tst.basename_nonDPTR.d | 6 ++-- test/unittest/funcs/tst.chill.sh | 4 +-- test/unittest/funcs/tst.cleanpath.d | 8 ++--- test/unittest/funcs/tst.ddi_pathname.d | 8 ++--- test/unittest/funcs/tst.default.d | 8 ++--- test/unittest/funcs/tst.dirname0.d | 6 ++-- test/unittest/funcs/tst.dirname_nonDPTR.d | 6 ++-- test/unittest/funcs/tst.ftruncate.sh | 8 ++--- test/unittest/funcs/tst.getmajor.d | 6 ++-- test/unittest/funcs/tst.getminor.d | 6 ++-- test/unittest/funcs/tst.hton.d | 18 +++++----- test/unittest/funcs/tst.hton2.d | 6 ++-- test/unittest/funcs/tst.index.d | 16 ++++----- test/unittest/funcs/tst.index2.d | 4 +-- test/unittest/funcs/tst.index_nonDPTR.d | 6 ++-- test/unittest/funcs/tst.inet_ntoa.d | 4 +-- test/unittest/funcs/tst.inet_ntoa_alloca.d | 6 ++-- test/unittest/funcs/tst.inet_ntoa_copyin.d | 6 ++-- test/unittest/funcs/tst.inet_ntoa_nonDPTR.d | 6 ++-- test/unittest/funcs/tst.inet_ntop.d | 4 +-- .../unittest/funcs/tst.inet_ntop_runtime_af.d | 4 +-- test/unittest/funcs/tst.link_ntop.d | 4 +-- .../funcs/tst.link_ntop_runtime_type.d | 4 +-- test/unittest/funcs/tst.lltostr-short.d | 4 +-- test/unittest/funcs/tst.lltostr.d | 4 +-- test/unittest/funcs/tst.progenyof.d | 4 +-- test/unittest/funcs/tst.rand.d | 8 ++--- test/unittest/funcs/tst.rand_inter.sh | 4 +-- test/unittest/funcs/tst.rand_intra.sh | 4 +-- test/unittest/funcs/tst.rindex.d | 4 +-- test/unittest/funcs/tst.rindex_nonDPTR.d | 6 ++-- test/unittest/funcs/tst.rw_.sh | 4 +-- test/unittest/funcs/tst.strchr.d | 12 +++---- test/unittest/funcs/tst.strchr_nonDPTR.d | 6 ++-- test/unittest/funcs/tst.strstr.d | 12 +++---- test/unittest/funcs/tst.subr.d | 14 ++++---- .../funcs/ustack/err.corrupted-data.d | 4 +-- .../funcs/ustack/err.store-to-stack.d | 4 +-- test/unittest/funcs/ustack/tst.asgn_dvar.d | 4 +-- test/unittest/funcs/ustack/tst.asgn_gvar.d | 4 +-- test/unittest/funcs/ustack/tst.asgn_lvar.d | 4 +-- test/unittest/funcs/ustack/tst.asgn_tvar.d | 4 +-- test/unittest/funcs/ustack/tst.ref_addrs.d | 4 +-- test/unittest/funcs/ustack/tst.ref_depth.d | 4 +-- test/unittest/funcs/ustack/tst.ref_is_user.d | 4 +-- test/unittest/funcs/ustack/tst.ref_pid.d | 4 +-- test/unittest/funcs/ustack/tst.ref_strsz.d | 4 +-- test/unittest/funcs/ustack/tst.store.d | 4 +-- test/unittest/grammar/err.D_ADDROF_LVAL.d | 4 +-- test/unittest/grammar/tst.clauses.d | 8 ++--- test/unittest/inline/tst.InlineDataAssign.d | 4 +-- test/unittest/inline/tst.InlineExpression.d | 4 +-- test/unittest/inline/tst.InlineKinds.d | 4 +-- test/unittest/inline/tst.InlineTypedef.d | 4 +-- .../inline/tst.InlineWritableAssign.d | 4 +-- test/unittest/io/check_io_probe_args.sh | 10 +++--- test/unittest/io/tst.local.sh | 12 +++---- test/unittest/io/tst.nfs.sh | 12 +++---- test/unittest/io/tst.wait.sh | 10 +++--- test/unittest/ip/tst.ipv4localtcp.sh | 6 ++-- test/unittest/ip/tst.ipv4localudp.sh | 6 ++-- test/unittest/ip/tst.ipv4remotetcp.sh | 6 ++-- test/unittest/ip/tst.ipv4remoteudp.sh | 6 ++-- test/unittest/lexer/err.D_CHR_NL.char.d | 4 +-- test/unittest/lexer/err.D_CHR_NULL.char.d | 4 +-- .../err.D_IDENT_UNDEF.scope-dot-kernel.d | 2 +- .../lexer/err.D_IDENT_UNDEF.scope-dot.d | 2 +- .../err.D_IDENT_UNDEF.scope-kernel-as-user.d | 2 +- .../err.D_IDENT_UNDEF.scope-user-as-kernel.d | 2 +- .../err.D_IDENT_UNDEF.scope-user-missing.d | 2 +- .../lexer/err.D_INT_DIGIT.InvalidDigit.d | 4 +-- test/unittest/lexer/err.D_INT_OFLOW.BigInt.d | 4 +-- test/unittest/lexer/err.D_STR_NL.string.d | 4 +-- test/unittest/lexer/err.D_SYNTAX.brace1.d | 4 +-- test/unittest/lexer/err.D_SYNTAX.brace2.d | 4 +-- test/unittest/lexer/err.D_SYNTAX.brack1.d | 4 +-- test/unittest/lexer/err.D_SYNTAX.brack2.d | 4 +-- test/unittest/lexer/err.D_SYNTAX.brack3.d | 4 +-- test/unittest/lexer/err.D_SYNTAX.paren1.d | 4 +-- test/unittest/lexer/err.D_SYNTAX.paren2.d | 4 +-- test/unittest/lexer/err.D_SYNTAX.paren3.d | 4 +-- .../err.D_SYNTAX.scope-empty-bare-user.d | 2 +- .../lexer/err.D_SYNTAX.scope-empty-bare.d | 2 +- .../lexer/err.D_SYNTAX.scope-empty-dot-user.d | 2 +- .../lexer/err.D_SYNTAX.scope-empty-user.d | 2 +- .../unittest/lexer/err.D_SYNTAX.scope-empty.d | 2 +- .../lexer/err.D_SYNTAX.scope-multiple.d | 2 +- .../lexer/err.D_SYNTAX.scope-triple.d | 2 +- .../lexer/tst.D_MACRO_OFLOW.ParIntOvflow.r | 2 +- .../lexer/tst.D_MACRO_OFLOW.ParIntOvflow.sh | 4 +-- test/unittest/lexer/tst.boc-in-line-comment.d | 4 +-- test/unittest/lexer/tst.eoc-in-line-comment.d | 4 +-- test/unittest/lexer/tst.eof-in-line-comment.d | 4 +-- test/unittest/lexer/tst.keyword-member.d | 2 +- test/unittest/lexer/tst.lc-in-line-comment.d | 4 +-- test/unittest/lexer/tst.line-comment.d | 4 +-- test/unittest/lexer/tst.scope-user-explicit.d | 2 +- .../lexer/tst.scope-user-path-empty.sh | 2 +- test/unittest/lexer/tst.yyinput-pragma-bug.d | 4 +-- test/unittest/lockstat/tst.lockstat-summary.d | 4 +-- .../lquantize/tst.normalize-bug26261502.sh | 6 ++-- test/unittest/misc/err.D_PRAGMA_OPTSET.d | 4 +-- test/unittest/misc/err.lockmem-pragma.sh | 4 +-- test/unittest/misc/tst.boolopt.d | 4 +-- test/unittest/misc/tst.dynopt.d | 10 +++--- test/unittest/misc/tst.enablerace.dpp | 2 +- test/unittest/misc/tst.haslam.d | 8 ++--- test/unittest/misc/tst.include.sh | 4 +-- test/unittest/misc/tst.lockmem-cmdline.sh | 4 +-- test/unittest/misc/tst.lockmem-envvar.sh | 4 +-- test/unittest/misc/tst.lockmem-x.sh | 4 +-- test/unittest/misc/tst.parser1.sh | 8 ++--- test/unittest/misc/tst.parser2.sh | 15 ++++---- test/unittest/misc/tst.parser4.sh | 15 ++++---- test/unittest/multiaggs/err.D_PRINTA_AGGKEY.d | 4 +-- .../multiaggs/err.D_PRINTA_AGGPROTO.d | 4 +-- test/unittest/multiaggs/tst.many.d | 6 ++-- test/unittest/multiaggs/tst.same.d | 4 +-- test/unittest/multiaggs/tst.sortpos.d | 4 +-- test/unittest/multiaggs/tst.tuplecompat.d | 4 +-- test/unittest/multiaggs/tst.zero.d | 6 ++-- test/unittest/multiaggs/tst.zero2.d | 6 ++-- test/unittest/multiaggs/tst.zero3.d | 6 ++-- test/unittest/noresolve/tst.uaddr.sh | 6 ++-- test/unittest/noresolve/tst.usym.sh | 6 ++-- .../err.D_OFFSETOF_BITFIELD.bitfield.d | 4 +-- .../offsetof/err.D_OFFSETOF_TYPE.badtype.d | 4 +-- .../offsetof/err.D_OFFSETOF_TYPE.notsou.d | 4 +-- test/unittest/offsetof/err.D_SYNTAX.badmemb.d | 4 +-- .../offsetof/err.D_UNKNOWN.OffsetofNULL.d | 4 +-- test/unittest/offsetof/tst.OffsetofAlias.d | 6 ++-- test/unittest/offsetof/tst.OffsetofArith.d | 6 ++-- test/unittest/offsetof/tst.OffsetofUnion.d | 6 ++-- test/unittest/offsetof/tst.struct.d | 4 +-- test/unittest/offsetof/tst.union.d | 4 +-- .../tst.str_comparison-basic-with-NULL.d | 6 ++-- .../operators/tst.str_comparison-basic.d | 6 ++-- .../operators/tst.str_comparison-longer.d | 6 ++-- .../operators/tst.str_comparison-nested.d | 6 ++-- .../operators/tst.str_comparison-signed.d | 6 ++-- test/unittest/operators/tst.ternary.d | 4 +-- test/unittest/options/err.D_ASRELO.kdefs.d | 4 +-- .../err.D_MACRO_UNDEF.no-defaultargs.d | 6 ++-- .../err.D_MACRO_UNDEF.no-defaultargs2.d | 6 ++-- .../options/err.D_MACRO_UNUSED.no-argref.d | 6 ++-- .../options/err.D_PDESC_ZERO.no-Z-or-zdefs.d | 6 ++-- .../options/err.D_PDESC_ZERO.no-Z-or-zdefs.r | 2 +- .../options/err.D_PRAGCTL_INVAL.no-cpp.d | 6 ++-- .../options/err.D_PRAGMA_OPTSET.ldpath.d | 4 +-- .../options/err.D_PRAGMA_OPTSET.modpath.d | 4 +-- test/unittest/options/err.b-too-low.d | 6 ++-- test/unittest/options/err.bufsize-negative.d | 6 ++-- test/unittest/options/err.bufsize-too-low.d | 6 ++-- test/unittest/options/err.ctfpath.sh | 4 +-- test/unittest/options/err.iregs.d | 4 +-- .../options/err.jstackframes-negative.d | 6 ++-- .../options/err.jstackframes-too-high.sh | 4 +-- test/unittest/options/err.ldpath.d | 4 +-- .../unittest/options/err.maxframes-negative.d | 6 ++-- .../options/err.maxframes-too-high.sh | 4 +-- .../options/err.no-w-or-destructive.d | 4 +-- .../options/err.no-w-or-destructive2.d | 4 +-- .../options/err.stackframes-negative.d | 6 ++-- .../options/err.stackframes-too-high.sh | 4 +-- test/unittest/options/err.stdc-x.d | 4 +-- test/unittest/options/err.strsize-min.d | 4 +-- .../options/err.ustackframes-negative.d | 6 ++-- .../options/err.ustackframes-too-high.sh | 4 +-- test/unittest/options/err.version-pragma.d | 4 +-- test/unittest/options/err.version.d | 4 +-- test/unittest/options/tst.D.d | 6 ++-- test/unittest/options/tst.S.sh | 6 ++-- test/unittest/options/tst.U.d | 6 ++-- test/unittest/options/tst.Z.d | 6 ++-- test/unittest/options/tst.argref.d | 6 ++-- test/unittest/options/tst.b.d | 6 ++-- test/unittest/options/tst.bpflog-cmdline.sh | 4 +-- test/unittest/options/tst.bpflog-pragma.sh | 4 +-- .../options/tst.bpflogsize-cmdline.sh | 4 +-- .../unittest/options/tst.bpflogsize-pragma.sh | 4 +-- test/unittest/options/tst.bufsize.d | 6 ++-- test/unittest/options/tst.core.sh | 4 +-- test/unittest/options/tst.cpp.d | 6 ++-- test/unittest/options/tst.cppargs.sh | 4 +-- test/unittest/options/tst.cpphdrs.sh | 4 +-- test/unittest/options/tst.cpppath.sh | 4 +-- test/unittest/options/tst.cpu-BEGIN.sh | 4 +-- test/unittest/options/tst.cpu-END.sh | 4 +-- test/unittest/options/tst.cpu-profile.sh | 4 +-- test/unittest/options/tst.cpu-tick.sh | 4 +-- test/unittest/options/tst.ctf-only.sh | 2 +- test/unittest/options/tst.ctfpath.r | 2 +- test/unittest/options/tst.ctfpath.sh | 4 +-- test/unittest/options/tst.ctypes.sh | 4 +-- test/unittest/options/tst.debug.sh | 4 +-- test/unittest/options/tst.defaultargs.d | 6 ++-- test/unittest/options/tst.defaultargs2.d | 6 ++-- test/unittest/options/tst.define.d | 6 ++-- test/unittest/options/tst.destructive.d | 4 +-- test/unittest/options/tst.dtypes.sh | 4 +-- test/unittest/options/tst.incdir.sh | 4 +-- test/unittest/options/tst.iregs.sh | 4 +-- test/unittest/options/tst.knodefs.sh | 4 +-- test/unittest/options/tst.ldpath.sh | 4 +-- test/unittest/options/tst.libdir.r | 2 +- test/unittest/options/tst.libdir.sh | 6 ++-- test/unittest/options/tst.linkmode.r | 2 +- test/unittest/options/tst.linkmode.sh | 4 +-- test/unittest/options/tst.q.d | 4 +-- test/unittest/options/tst.quiet.d | 4 +-- test/unittest/options/tst.stdc-a.d | 4 +-- test/unittest/options/tst.stdc-c.d | 4 +-- test/unittest/options/tst.stdc-s.d | 4 +-- test/unittest/options/tst.stdc-t.d | 4 +-- test/unittest/options/tst.strsize-min.d | 4 +-- test/unittest/options/tst.switchrate.sh | 4 +-- test/unittest/options/tst.tregs.r | 4 +-- test/unittest/options/tst.tregs.sh | 4 +-- test/unittest/options/tst.undef.d | 6 ++-- test/unittest/options/tst.verbose.sh | 6 ++-- test/unittest/options/tst.w.d | 4 +-- test/unittest/options/tst.zdefs.d | 6 ++-- .../err.D_PROTO_ARG.pcap_non_scalar_arg1.d | 6 ++-- .../err.D_PROTO_ARG.pcap_non_scalar_arg2.d | 6 ++-- .../pcap/err.D_PROTO_LEN.pcap_missing_arg.d | 6 ++-- .../pcap/err.D_PROTO_LEN.pcap_too_few_args.d | 6 ++-- .../pcap/err.D_PROTO_LEN.pcap_too_many_args.d | 6 ++-- test/unittest/pcap/tst.pcap.regleak.d | 6 ++-- .../unittest/pid/err.D_PROC_CREATEFAIL.many.d | 4 +-- test/unittest/pid/tst.addprobes.sh | 6 ++-- test/unittest/pid/tst.args1.d | 4 +-- test/unittest/pid/tst.coverage.d | 4 +-- test/unittest/pid/tst.emptystack.d | 4 +-- test/unittest/pid/tst.gcc.d | 4 +-- test/unittest/pid/tst.main.sh | 6 ++-- test/unittest/pid/tst.manypids.sh | 4 +-- test/unittest/pid/tst.multi-return.d | 4 +-- test/unittest/pid/tst.newprobes.sh | 8 ++--- test/unittest/pid/tst.probemod.sh | 4 +-- test/unittest/pid/tst.provregex2.sh | 4 +-- test/unittest/pid/tst.provregex4.sh | 4 +-- test/unittest/pid/tst.restartloop.sh | 4 +-- test/unittest/pid/tst.ret1.d | 4 +-- test/unittest/pid/tst.ret2.d | 4 +-- test/unittest/pid/tst.self-grab.sh | 4 +-- test/unittest/pid/tst.weak1.d | 4 +-- test/unittest/pid/tst.weak2.d | 4 +-- test/unittest/pidns/tst.begin.sh | 2 +- test/unittest/pidns/tst.concurrent.sh | 4 +-- test/unittest/pidns/tst.disasm-helper.sh | 4 +-- test/unittest/pidns/tst.end.sh | 4 +-- test/unittest/pidns/tst.io-dev-name.sh | 4 +-- test/unittest/pointers/err.AllocaOverrun.d | 6 ++-- test/unittest/pointers/err.BadAlign.d | 6 ++-- .../pointers/err.D_ADDROF_VAR.ArrayVar.d | 4 +-- .../pointers/err.D_ADDROF_VAR.DynamicVar.d | 4 +-- test/unittest/pointers/err.D_ADDROF_VAR.agg.d | 4 +-- .../pointers/err.D_DEREF_NONPTR.noptr.d | 4 +-- .../err.D_DEREF_VOID.VoidPointerDeref.d | 4 +-- .../err.D_OP_ARRFUN.ArrayAssignment.d | 4 +-- .../err.D_OP_INCOMPAT.VoidPointerArith.d | 4 +-- .../pointers/err.D_OP_LVAL.AddressChange.d | 6 ++-- .../pointers/err.D_OP_PTR.NonPointerAccess.d | 6 ++-- .../pointers/err.D_OP_PTR.badpointer.d | 4 +-- .../pointers/err.D_OP_SOU.BadPointerAccess.d | 4 +-- .../pointers/err.D_OP_SOU.badpointer.d | 4 +-- test/unittest/pointers/err.InvalidAddress1.d | 6 ++-- test/unittest/pointers/err.InvalidAddress2.d | 6 ++-- test/unittest/pointers/err.InvalidAddress3.d | 6 ++-- test/unittest/pointers/err.InvalidAddress4.d | 6 ++-- test/unittest/pointers/err.InvalidAddress5.d | 6 ++-- test/unittest/pointers/tst.ArrayPointer1.d | 6 ++-- test/unittest/pointers/tst.ArrayPointer2.d | 6 ++-- test/unittest/pointers/tst.ArrayPointer3.d | 6 ++-- test/unittest/pointers/tst.GlobalVar.d | 6 ++-- .../pointers/tst.IntegerArithmetic1.d | 6 ++-- .../pointers/tst.PointerArithmetic1.d | 6 ++-- .../pointers/tst.PointerArithmetic2.d | 6 ++-- .../pointers/tst.PointerArithmetic3.d | 6 ++-- .../unittest/pointers/tst.PointerAssignment.d | 6 ++-- test/unittest/pointers/tst.ValidPointer1.d | 4 +-- test/unittest/pointers/tst.VoidCast.d | 6 ++-- test/unittest/pointers/tst.basic1.d | 4 +-- test/unittest/pointers/tst.basic2.d | 4 +-- test/unittest/pragma/err.D_PRAGERR.d | 4 +-- .../pragma/err.D_PRAGMA_DEPEND.main.d | 4 +-- test/unittest/pragma/err.D_PRAGMA_INVAL.d | 4 +-- test/unittest/pragma/err.D_PRAGMA_MALFORM.d | 4 +-- .../pragma/err.D_PRAGMA_UNUSED.UnusedPragma.d | 6 ++-- test/unittest/pragma/err.circlibdep.sh | 4 +-- test/unittest/pragma/err.invalidlibdep.sh | 4 +-- test/unittest/pragma/tst.libdep.sh | 4 +-- .../pragma/tst.libdepfullyconnected.sh | 4 +-- ...CA_INCOMPAT.alloca-postinc-instantiation.d | 6 ++-- .../err.D_PRED_SCALAR.NonScalarPred.d | 4 +-- .../predicates/err.D_SYNTAX.invalid.d | 6 ++-- test/unittest/predicates/err.D_SYNTAX.operr.d | 6 ++-- .../tst.alloca-postinc-instantiation.d | 14 ++++---- test/unittest/predicates/tst.basics.d | 8 ++--- test/unittest/predicates/tst.complex.d | 30 ++++++++-------- test/unittest/predicates/tst.predcache.sh | 10 +++--- .../err.D_IDENT_UNDEF.afterprobe.d | 4 +-- .../preprocessor/err.D_SYNTAX.withoutpound.d | 4 +-- test/unittest/preprocessor/err.defincomp.d | 4 +-- .../preprocessor/err.ifdefelsenotendif.d | 4 +-- test/unittest/preprocessor/err.ifdefincomp.d | 4 +-- .../unittest/preprocessor/err.ifdefnotendif.d | 4 +-- test/unittest/preprocessor/err.incompelse.d | 4 +-- test/unittest/preprocessor/err.mulelse.d | 4 +-- test/unittest/preprocessor/tst.ifdef.d | 4 +-- test/unittest/preprocessor/tst.ifndef.d | 4 +-- test/unittest/preprocessor/tst.ifnotdef.d | 4 +-- test/unittest/preprocessor/tst.logicaland.d | 4 +-- test/unittest/preprocessor/tst.logicalandor.d | 4 +-- test/unittest/preprocessor/tst.logicalor.d | 4 +-- test/unittest/preprocessor/tst.muland.d | 4 +-- test/unittest/preprocessor/tst.mulor.d | 4 +-- test/unittest/preprocessor/tst.precondi.d | 4 +-- test/unittest/preprocessor/tst.predefined.sh | 4 +-- .../preprocessor/tst.predicatedeclare.d | 4 +-- test/unittest/preprocessor/tst.preexp.d | 4 +-- test/unittest/preprocessor/tst.preexpelse.d | 4 +-- test/unittest/preprocessor/tst.preexpif.d | 4 +-- test/unittest/preprocessor/tst.preexpifelse.d | 4 +-- test/unittest/preprocessor/tst.withinprobe.d | 4 +-- test/unittest/print/err.D_PRINT_SIZE.zero.d | 4 +-- test/unittest/print/err.D_PROTO_ARG.arg.d | 4 +-- test/unittest/print/err.D_PROTO_LEN.toofew.d | 4 +-- test/unittest/print/err.D_PROTO_LEN.toomany.d | 4 +-- test/unittest/print/tst.print.local.d | 4 +-- test/unittest/print/tst.print.local.trunc.d | 4 +-- test/unittest/print/tst.print.local.trunc2.d | 4 +-- test/unittest/print/tst.print.local.zeroed.d | 4 +-- test/unittest/print/tst.print.modtype.d | 4 +-- test/unittest/print/tst.print.regleak.d | 4 +-- test/unittest/print/tst.print.skb.d | 4 +-- .../printa/err.D_PRINTA_AGGARG.badagg.d | 4 +-- .../printa/err.D_PRINTA_AGGARG.badfmt.d | 4 +-- .../printa/err.D_PRINTA_AGGARG.badval.d | 4 +-- test/unittest/printa/err.D_PRINTA_PROTO.bad.d | 4 +-- .../printa/err.D_PRINTF_ARG_TYPE.jstack.d | 4 +-- .../printa/err.D_PRINTF_ARG_TYPE.stack.d | 4 +-- .../printa/err.D_PRINTF_ARG_TYPE.ustack.d | 4 +-- test/unittest/printa/tst.basics.d | 4 +-- test/unittest/printa/tst.def.d | 4 +-- test/unittest/printa/tst.dynwidth.d | 4 +-- test/unittest/printa/tst.fmt.d | 4 +-- test/unittest/printa/tst.jstack.d | 4 +-- test/unittest/printa/tst.many.d | 8 ++--- test/unittest/printa/tst.manyval.d | 4 +-- test/unittest/printa/tst.stack.d | 4 +-- test/unittest/printa/tst.tuple.d | 4 +-- test/unittest/printa/tst.ustack.d | 4 +-- test/unittest/printa/tst.walltimestamp.sh | 6 ++-- .../printf/err.D_PRINTF_AGG_CONV.aggfmt.d | 4 +-- .../printf/err.D_PRINTF_ARG_EXTRA.toomany.d | 4 +-- .../printf/err.D_PRINTF_ARG_EXTRA.widths.d | 4 +-- .../printf/err.D_PRINTF_ARG_PROTO.novalue.d | 4 +-- .../printf/err.D_PRINTF_ARG_TYPE.aggarg.d | 4 +-- .../printf/err.D_PRINTF_ARG_TYPE.recursive.d | 4 +-- .../printf/err.D_PRINTF_DYN_PROTO.noprec.d | 4 +-- .../printf/err.D_PRINTF_DYN_PROTO.nowidth.d | 4 +-- .../printf/err.D_PRINTF_DYN_TYPE.badprec.d | 4 +-- .../printf/err.D_PRINTF_DYN_TYPE.badwidth.d | 4 +-- test/unittest/printf/err.D_PROTO_ARG.d | 4 +-- test/unittest/printf/err.D_PROTO_LEN.toofew.d | 4 +-- test/unittest/printf/err.D_SYNTAX.badconv1.d | 4 +-- test/unittest/printf/err.D_SYNTAX.badconv2.d | 4 +-- test/unittest/printf/err.D_SYNTAX.badconv3.d | 4 +-- test/unittest/printf/tst.basics.d | 4 +-- test/unittest/printf/tst.flags.d | 4 +-- test/unittest/printf/tst.grouping-LC_ALL.sh | 2 +- .../printf/tst.grouping-LC_NUMERIC.sh | 2 +- test/unittest/printf/tst.hello.d | 4 +-- test/unittest/printf/tst.ints.d | 4 +-- test/unittest/printf/tst.precs.d | 4 +-- test/unittest/printf/tst.printcont.d | 4 +-- test/unittest/printf/tst.rawfmt.d | 4 +-- test/unittest/printf/tst.stack.d | 6 ++-- test/unittest/printf/tst.str.d | 4 +-- test/unittest/printf/tst.sym.d | 4 +-- test/unittest/printf/tst.uints.d | 4 +-- test/unittest/printf/tst.ustack25_pid.d | 4 +-- test/unittest/printf/tst.wide-bug30404549.sh | 4 +-- test/unittest/printf/tst.wide.sh | 4 +-- test/unittest/printf/tst.widths.d | 4 +-- test/unittest/printf/tst.widths1.d | 4 +-- test/unittest/printf/tst.wp.d | 4 +-- .../probes/err.D_PDESC_ZERO.probeqtn.d | 4 +-- .../probes/err.D_PDESC_ZERO.tickstar.d | 4 +-- test/unittest/probes/tst.basic1.d | 4 +-- test/unittest/probes/tst.check.d | 6 ++-- test/unittest/probes/tst.declare.d | 4 +-- test/unittest/probes/tst.declareafter.d | 4 +-- test/unittest/probes/tst.emptyprobe.d | 6 ++-- test/unittest/probes/tst.pragma.d | 4 +-- test/unittest/probes/tst.pragmainside.d | 4 +-- test/unittest/probes/tst.pragmaoutside.d | 4 +-- test/unittest/probes/tst.probestar.d | 4 +-- test/unittest/proc/tst.discard.sh | 4 +-- test/unittest/proc/tst.exec-execve.sh | 4 +-- test/unittest/proc/tst.exec-execveat.sh | 4 +-- test/unittest/proc/tst.execloop.sh | 4 +-- test/unittest/proc/tst.exitcore.sh | 4 +-- test/unittest/proc/tst.exitkilled.sh | 4 +-- test/unittest/proc/tst.omp.sh | 4 +-- test/unittest/proc/tst.pr_psargs.d | 8 ++--- test/unittest/proc/tst.pr_psargs_other_task.d | 8 ++--- test/unittest/proc/tst.pthread-exec.sh | 4 +-- test/unittest/proc/tst.self-grab.sh | 4 +-- test/unittest/proc/tst.signal.sh | 4 +-- test/unittest/proc/tst.signals.sh | 4 +-- test/unittest/proc/tst.slow-self-grab.sh | 4 +-- test/unittest/proc/tst.system-daemon.sh | 8 ++--- test/unittest/profile-n/tst.argtest.d | 6 ++-- test/unittest/profile-n/tst.func.sh | 6 ++-- test/unittest/profile-n/tst.mod.sh | 6 ++-- test/unittest/profile-n/tst.profilehz.d | 4 +-- test/unittest/profile-n/tst.profilems.d | 4 +-- test/unittest/profile-n/tst.profilemsec.d | 4 +-- test/unittest/profile-n/tst.profilenhz.d | 4 +-- test/unittest/profile-n/tst.profilens.d | 4 +-- test/unittest/profile-n/tst.profilensec.d | 4 +-- test/unittest/profile-n/tst.profiles.d | 4 +-- test/unittest/profile-n/tst.profilesec.d | 4 +-- test/unittest/profile-n/tst.profileus.d | 4 +-- test/unittest/profile-n/tst.profileusec.d | 4 +-- test/unittest/profile-n/tst.sym.sh | 6 ++-- test/unittest/profile-n/tst.ufunc.sh | 8 ++--- test/unittest/profile-n/tst.ufuncsort.sh | 4 +-- test/unittest/profile-n/tst.umod.sh | 8 ++--- test/unittest/profile-n/tst.usym.sh | 8 ++--- .../providers/err.D_PDESC_INVAL.wrongdec4.d | 4 +-- .../providers/err.D_PDESC_ZERO.nonprofile.d | 4 +-- .../providers/err.D_PDESC_ZERO.wrongdec1.d | 4 +-- .../providers/err.D_PDESC_ZERO.wrongdec2.d | 4 +-- .../providers/err.D_PDESC_ZERO.wrongdec3.d | 4 +-- .../providers/rawfbt/err.D_ARGS_IDX.entry.d | 4 +-- .../providers/rawfbt/err.D_ARGS_IDX.return.d | 4 +-- .../providers/rawfbt/err.D_PDESC_ZERO.d | 4 +-- test/unittest/providers/rawfbt/tst.entry.d | 4 +-- test/unittest/providers/rawfbt/tst.return1.d | 4 +-- .../providers/rawfbt/tst.wildcard-provider.d | 2 +- .../providers/rawtp/err.lockmem-too-low.sh | 4 +-- test/unittest/providers/tst.basics.d | 4 +-- test/unittest/providers/tst.beginexit.d | 8 ++--- test/unittest/providers/tst.beginprof.d | 4 +-- test/unittest/providers/tst.dtrace_cleanup.sh | 4 +-- test/unittest/providers/tst.probattrs.d | 4 +-- test/unittest/providers/tst.probefunc.d | 4 +-- test/unittest/providers/tst.probemod.d | 4 +-- test/unittest/providers/tst.probename.d | 4 +-- test/unittest/providers/tst.probprov.d | 4 +-- test/unittest/providers/tst.profend.d | 4 +-- test/unittest/providers/tst.profexit.d | 4 +-- test/unittest/providers/tst.trace.d | 4 +-- test/unittest/providers/tst.twoprof.d | 4 +-- .../providers/uprobe/tst.multithread.sh | 2 +- test/unittest/rates/tst.aggrate.d | 8 ++--- test/unittest/rates/tst.statusrate.d | 10 +++--- test/unittest/rates/tst.switchrate.d | 6 ++-- test/unittest/regression/exit_panic.d | 4 +-- .../regression/tst.DTRACEFLT_BADADDR.d_path.d | 6 ++-- test/unittest/regression/tst.array.d | 4 +-- test/unittest/regression/tst.sigaltstack.d | 4 +-- .../regression/tst.unload-reload-oops.sh | 4 +-- .../scalars/err.D_ARR_LOCAL.thisarray.d | 4 +-- .../scalars/err.D_DECL_CLASS.selfthis.d | 4 +-- .../scalars/err.D_DECL_CLASS.thisself.d | 4 +-- .../scalars/err.D_DECL_IDRED.errval.d | 4 +-- .../scalars/err.D_OP_INCOMPAT.dec.err.d | 4 +-- .../scalars/err.D_OP_INCOMPAT.dupgtype.d | 4 +-- .../scalars/err.D_OP_INCOMPAT.dupltype.d | 4 +-- .../scalars/err.D_OP_INCOMPAT.dupttype.d | 4 +-- .../scalars/err.D_SYNTAX.declare-init.d | 2 +- test/unittest/scalars/err.D_SYNTAX.declare.d | 2 +- test/unittest/scalars/tst.basicvar.d | 4 +-- test/unittest/scalars/tst.localvar.d | 4 +-- test/unittest/scalars/tst.misc.d | 4 +-- test/unittest/scalars/tst.self.d | 4 +-- test/unittest/scalars/tst.selfarray.d | 4 +-- test/unittest/scalars/tst.selfarray2.d | 8 ++--- test/unittest/scalars/tst.selfthis.d | 4 +-- test/unittest/scalars/tst.thisself.d | 4 +-- test/unittest/sched/tst.stackdepth.d | 4 +-- test/unittest/sched/tst.var-chip.d | 8 ++--- test/unittest/sched/tst.var-cpu.d | 8 ++--- test/unittest/sched/tst.var-curcpu.d | 8 ++--- test/unittest/sched/tst.var-lgrp.d | 8 ++--- test/unittest/sched/tst.var-pset.d | 8 ++--- .../scripting/err.D_MACRO_UNDEF.invalidargs.d | 2 +- .../unittest/scripting/err.D_OP_LVAL.rdonly.d | 2 +- .../scripting/err.D_OP_WRITE.usepidmacro.d | 2 +- test/unittest/scripting/err.D_SYNTAX.concat.d | 2 +- test/unittest/scripting/err.D_SYNTAX.desc.d | 2 +- test/unittest/scripting/err.D_SYNTAX.inval.d | 2 +- test/unittest/scripting/err.D_SYNTAX.pid.d | 2 +- .../scripting/tst.D_MACRO_UNUSED.overflow.sh | 4 +-- test/unittest/scripting/tst.arg0.d | 2 +- test/unittest/scripting/tst.arguments.sh | 4 +-- test/unittest/scripting/tst.assign.d | 2 +- test/unittest/scripting/tst.basic.d | 2 +- test/unittest/scripting/tst.egid.sh | 6 ++-- test/unittest/scripting/tst.euid.sh | 6 ++-- test/unittest/scripting/tst.gid.sh | 6 ++-- test/unittest/scripting/tst.pgid.d | 2 +- test/unittest/scripting/tst.pid.d | 2 +- test/unittest/scripting/tst.ppid.sh | 6 ++-- test/unittest/scripting/tst.quiet.d | 4 +-- test/unittest/scripting/tst.sid-valid.sh | 6 ++-- test/unittest/scripting/tst.sid.d | 2 +- test/unittest/scripting/tst.stringmacro.sh | 4 +-- test/unittest/scripting/tst.trace.d | 2 +- test/unittest/scripting/tst.uid.sh | 6 ++-- test/unittest/sdt/tst.args-3.d | 4 +-- test/unittest/sdt/tst.args-4.d | 4 +-- test/unittest/sdt/tst.modsdt.d | 4 +-- test/unittest/sdt/tst.perf-types.sh | 4 +-- test/unittest/sdt/tst.section-oops.sh | 4 +-- .../sizeof/err.D_IDENT_BADREF.SizeofAssoc.d | 4 +-- .../sizeof/err.D_IDENT_UNDEF.UnknownSymbol.d | 2 +- test/unittest/sizeof/err.D_SIZEOF_TYPE.d | 4 +-- .../sizeof/err.D_SYNTAX.SizeofBadType.d | 4 +-- test/unittest/sizeof/tst.SizeofArray.d | 6 ++-- test/unittest/sizeof/tst.SizeofDataTypes.d | 6 ++-- test/unittest/sizeof/tst.SizeofExpression.d | 6 ++-- test/unittest/sizeof/tst.SizeofNULL.d | 6 ++-- test/unittest/sizeof/tst.SizeofStrConst.d | 4 +-- test/unittest/sizeof/tst.SizeofString1.d | 4 +-- test/unittest/sizeof/tst.SizeofString2.d | 4 +-- .../speculation/err.CommitWithInvalid.d | 12 +++---- .../err.D_ACT_SPEC.SpeculateWithBreakPoint.d | 6 ++-- .../err.D_ACT_SPEC.SpeculateWithChill.d | 6 ++-- .../err.D_ACT_SPEC.SpeculateWithCopyOut.d | 8 ++--- .../err.D_ACT_SPEC.SpeculateWithCopyOutStr.d | 8 ++--- .../err.D_ACT_SPEC.SpeculateWithPanic.d | 6 ++-- .../err.D_ACT_SPEC.SpeculateWithRaise.d | 6 ++-- .../err.D_ACT_SPEC.SpeculateWithStop.d | 6 ++-- .../speculation/err.D_AGG_COMM.AggAftCommit.d | 6 ++-- .../err.D_AGG_SPEC.SpeculateWithAvg.d | 6 ++-- .../err.D_AGG_SPEC.SpeculateWithCount.d | 6 ++-- .../err.D_AGG_SPEC.SpeculateWithLquant.d | 6 ++-- .../err.D_AGG_SPEC.SpeculateWithMax.d | 6 ++-- .../err.D_AGG_SPEC.SpeculateWithMin.d | 6 ++-- .../err.D_AGG_SPEC.SpeculateWithQuant.d | 6 ++-- .../err.D_AGG_SPEC.SpeculateWithSum.d | 6 ++-- .../err.D_COMM_DREC.CommitAftDataRec.d | 6 ++-- .../err.D_DREC_COMM.DataRecAftCommit.d | 8 ++--- .../err.D_DREC_COMM.ExitAfterCommit.d | 10 +++--- .../speculation/err.D_EXIT_SPEC.ExitAftSpec.d | 8 ++--- .../err.D_PRAGMA_MALFORM.NspecExpr.d | 12 +++---- .../err.D_PRAGMA_OPTSET.HugeNspecValue.d | 12 +++---- .../err.D_PRAGMA_OPTSET.InvalidSpecSize.d | 6 ++-- .../err.D_PRAGMA_OPTSET.NegSpecSize.d | 12 +++---- .../speculation/err.D_PROTO_LEN.SpecNoId.d | 6 ++-- .../err.D_SPEC_COMM.SpecAftCommit.d | 6 ++-- .../err.D_SPEC_DREC.SpecAftDataRec.d | 8 ++--- .../speculation/err.D_SPEC_SPEC.SpecAftSpec.d | 6 ++-- .../speculation/err.DiscardWithInvalid.d | 12 +++---- test/unittest/speculation/err.NegativeNspec.d | 4 +-- .../speculation/tst.CommitAfterDiscard.d | 14 ++++---- .../speculation/tst.CommitCommitCommit.d | 16 ++++----- .../speculation/tst.CommitDiscard4x.d | 26 +++++++------- .../speculation/tst.CommitWithInactive.d | 12 +++---- .../unittest/speculation/tst.CommitWithZero.d | 10 +++--- .../speculation/tst.DataRecAftDiscard.d | 14 ++++---- .../speculation/tst.DiscardAftCommit.d | 14 ++++---- .../speculation/tst.DiscardAftDataRec.d | 6 ++-- .../speculation/tst.DiscardAftDiscard.d | 14 ++++---- .../speculation/tst.DiscardWithInactive.d | 12 +++---- .../speculation/tst.DiscardWithZero.d | 10 +++--- .../unittest/speculation/tst.ExitAftDiscard.d | 8 ++--- test/unittest/speculation/tst.NoSpecBuffer.d | 8 ++--- test/unittest/speculation/tst.SingleCPU.d | 4 +-- .../speculation/tst.SpecSizeVariations.sh | 16 ++++----- .../speculation/tst.SpeculateWithRandom.d | 10 +++--- .../speculation/tst.SpeculationCommit.d | 12 +++---- .../tst.SpeculationCommitNotQuiet.d | 12 +++---- .../speculation/tst.SpeculationDefault.d | 8 ++--- .../tst.SpeculationDefaultCommit.d | 10 +++--- .../tst.SpeculationDefaultDiscard.d | 10 +++--- .../speculation/tst.SpeculationDiscard.d | 12 +++---- .../tst.SpeculationDiscardNotQuiet.d | 12 +++---- test/unittest/speculation/tst.SpeculationID.d | 6 ++-- .../speculation/tst.SpeculationWithZero.d | 10 +++--- .../unittest/speculation/tst.TwoSpecBuffers.d | 12 +++---- test/unittest/speculation/tst.negcommit.d | 6 ++-- test/unittest/speculation/tst.negspec.d | 6 ++-- .../unittest/speculation/tst.zerosize-chill.d | 10 +++--- test/unittest/speculation/tst.zerosize.d | 10 +++--- .../stability/err.D_ATTR_MIN.MinAttributes.d | 6 ++-- test/unittest/stack/err.D_PROTO_ARG.stack.d | 4 +-- .../stack/err.D_PROTO_ARG.ustack-frames.d | 4 +-- .../stack/err.D_PROTO_ARG.ustack-strsize.d | 4 +-- test/unittest/stack/err.D_PROTO_LEN.stack.d | 4 +-- test/unittest/stack/err.D_PROTO_LEN.ustack.d | 4 +-- test/unittest/stack/err.D_STACK_SIZE.neg.d | 4 +-- test/unittest/stack/err.D_STACK_SIZE.zero.d | 4 +-- test/unittest/stack/err.D_USTACK_FRAMES.bad.d | 4 +-- .../unittest/stack/err.D_USTACK_STRSIZE.bad.d | 4 +-- test/unittest/stack/tst.stack.d | 4 +-- test/unittest/stack/tst.stack_fbt.sh | 4 +-- .../struct/err.D_ADDROF_VAR.StructPointer.d | 4 +-- .../err.D_DECL_COMBO.StructWithoutColon.d | 4 +-- .../err.D_DECL_COMBO.StructWithoutColon1.d | 4 +-- .../struct/err.D_DECL_INCOMPLETE.circular.d | 4 +-- .../struct/err.D_DECL_INCOMPLETE.order.d | 4 +-- .../struct/err.D_DECL_INCOMPLETE.order2.d | 6 ++-- .../struct/err.D_DECL_INCOMPLETE.recursive.d | 4 +-- .../struct/err.D_DECL_INCOMPLETE.simple.d | 4 +-- .../struct/err.D_DECL_VOIDOBJ.baddec.d | 4 +-- .../struct/err.D_PROTO_ARG.DupStructAssoc.d | 4 +-- test/unittest/struct/tst.StructAssoc.d | 6 ++-- test/unittest/struct/tst.StructDataTypes.d | 4 +-- test/unittest/struct/tst.StructInside.d | 8 ++--- test/unittest/struct/tst.clauselocal.d | 6 ++-- .../unittest/struct/tst.global_local_scalar.d | 6 ++-- .../unittest/struct/tst.global_local_struct.d | 6 ++-- .../struct/tst.global_local_struct_nest.d | 6 ++-- test/unittest/struct/tst.implicit_decl.d | 6 ++-- test/unittest/syscall/tst.args.d | 4 +-- test/unittest/syscall/tst.return_args.d | 4 +-- test/unittest/tcp/tst.ipv4localtcp.sh | 6 ++-- test/unittest/tcp/tst.ipv4localtcpstate.sh | 6 ++-- test/unittest/tcp/tst.ipv4remotetcp.sh | 6 ++-- test/unittest/tcp/tst.ipv4remotetcpstate.sh | 6 ++-- test/unittest/tcp/tst.ipv6localtcp.sh | 6 ++-- test/unittest/tcp/tst.ipv6localtcpstate.sh | 6 ++-- test/unittest/tick-n/tst.tickarg0.d | 4 +-- test/unittest/tick-n/tst.tickms.d | 4 +-- test/unittest/tick-n/tst.tickmsec.d | 4 +-- test/unittest/tick-n/tst.tickns.d | 4 +-- test/unittest/tick-n/tst.ticknsec.d | 4 +-- test/unittest/tick-n/tst.tickquality-100ms.d | 10 +++--- test/unittest/tick-n/tst.tickquality-10ms.d | 10 +++--- test/unittest/tick-n/tst.ticks.d | 4 +-- test/unittest/tick-n/tst.ticksec.d | 6 ++-- test/unittest/tick-n/tst.tickus.d | 4 +-- test/unittest/tick-n/tst.tickusec.d | 4 +-- test/unittest/trace/err.D_PROTO_LEN.bad.d | 4 +-- test/unittest/trace/err.D_TRACE_VOID.bad.d | 4 +-- test/unittest/trace/tst.misc.d | 8 ++--- test/unittest/trace/tst.qstring.d | 4 +-- test/unittest/trace/tst.string.d | 4 +-- .../tracemem/err.D_PROTO_ARG.badsize.d | 4 +-- .../tracemem/err.D_PROTO_LEN.toofew.d | 4 +-- .../tracemem/err.D_PROTO_LEN.toomany.d | 4 +-- .../tracemem/err.D_TRACEMEM_ADDR.badaddr.d | 6 ++-- .../tracemem/err.D_TRACEMEM_SIZE.negsize.d | 4 +-- .../tracemem/err.D_TRACEMEM_SIZE.zerosize.d | 4 +-- test/unittest/tracemem/tst.init_task.d | 8 ++--- test/unittest/tracemem/tst.tracemem.d | 4 +-- .../err.D_CAST_INVAL.CastTransData.d | 4 +-- .../err.D_DECL_TYPERED.BadTransDecl.d | 4 +-- .../err.D_OP_INCOMPLETE.NonExistentInput1.d | 4 +-- .../translators/err.D_SYNTAX.BadTransDecl1.d | 4 +-- .../translators/err.D_SYNTAX.BadTransDecl3.d | 4 +-- .../translators/err.D_SYNTAX.BadTransDecl4.d | 4 +-- .../err.D_TYPE_MEMBER.NonExistentInput2.d | 4 +-- .../err.D_XLATE_INCOMPAT.BadInputType1.d | 4 +-- .../err.D_XLATE_MEMB.NonExistentOutput2.d | 4 +-- .../err.D_XLATE_NONE.BadTransDecl6.d | 6 ++-- .../err.D_XLATE_REDECL.RepeatTransDecl.d | 4 +-- .../err.D_XLATE_SOU.BadTransDecl8.d | 4 +-- .../translators/err.D_XLATE_SOU.BadTransInt.d | 4 +-- .../err.D_XLATE_SOU.NonExistentOutput1.d | 4 +-- .../translators/tst.CircularTransDecl.d | 10 +++--- .../unittest/translators/tst.EmptyTransDecl.d | 8 ++--- test/unittest/translators/tst.ForwardTag.d | 4 +-- .../translators/tst.InputAliasTrans.d | 4 +-- test/unittest/translators/tst.InputIntTrans.d | 4 +-- test/unittest/translators/tst.NullInput.d | 6 ++-- .../translators/tst.OutputAliasTrans.d | 4 +-- .../translators/tst.PartialDereferencing.d | 10 +++--- .../translators/tst.PartialOutputTransDefn.d | 4 +-- .../unittest/translators/tst.ProcModelTrans.d | 6 ++-- .../translators/tst.RepeatDeclaration.d | 4 +-- .../translators/tst.SimultaneousTranslators.d | 4 +-- .../translators/tst.StructureAssignment.d | 10 +++--- .../translators/tst.TestTransStability.d | 6 ++-- .../translators/tst.TransNonPointer.d | 10 +++--- .../translators/tst.TransOutputPointer.d | 8 ++--- test/unittest/translators/tst.TransPointer.d | 4 +-- test/unittest/translators/tst.TranslateSelf.d | 8 ++--- .../translators/tst.UnionInputTrans.d | 4 +-- .../translators/tst.UnionOutputTrans.d | 4 +-- .../typedef/err.D_DECL_IDRED.DupTypeDef.d | 6 ++-- .../typedef/err.D_SYNTAX.BadExistingTypedef.d | 4 +-- .../typedef/err.D_SYNTAX.TypedefInClause.d | 4 +-- test/unittest/typedef/tst.ChainTypedef.d | 4 +-- test/unittest/typedef/tst.TypedefDataAssign.d | 4 +-- .../unittest/types/err.D_CAST_INVAL.badcast.d | 4 +-- .../types/err.D_CG_DYN.ResultDynType.d | 4 +-- .../types/err.D_CHR_OFLOW.charconst.d | 4 +-- test/unittest/types/err.D_DECL_BADCLASS.bad.d | 4 +-- .../types/err.D_DECL_SCOPE.scopeop-ident.d | 2 +- .../unittest/types/err.D_DECL_SCOPE.scopeop.d | 4 +-- .../types/err.D_DECL_USELESS.baddec.d | 4 +-- test/unittest/types/err.D_OP_ACT.badcond.d | 4 +-- .../types/err.D_OP_ARITH.badoperand.d | 4 +-- .../types/err.D_OP_INCOMPAT.badassign.d | 4 +-- test/unittest/types/err.D_OP_INT.badbitop.d | 4 +-- test/unittest/types/err.D_OP_INT.badshift.d | 4 +-- test/unittest/types/err.D_OP_SCALAR.badcond.d | 4 +-- .../unittest/types/err.D_OP_SCALAR.badincop.d | 4 +-- .../unittest/types/err.D_OP_SCALAR.badlogop.d | 4 +-- .../unittest/types/err.D_PROTO_LEN.badcond1.d | 4 +-- test/unittest/types/err.D_SYNTAX.badid.d | 2 +- .../types/err.D_XLATE_REDECL.ResultDynType.d | 4 +-- test/unittest/types/err.unloaded_var.d | 4 +-- test/unittest/types/tst.assignops.d | 4 +-- test/unittest/types/tst.badshiftops.d | 4 +-- test/unittest/types/tst.basics.d | 4 +-- test/unittest/types/tst.bitops.d | 4 +-- test/unittest/types/tst.castwritable.d | 4 +-- test/unittest/types/tst.charconstants.d | 4 +-- test/unittest/types/tst.complex.d | 4 +-- test/unittest/types/tst.condexpr.d | 8 ++--- test/unittest/types/tst.constants.d | 4 +-- test/unittest/types/tst.conv.d | 4 +-- test/unittest/types/tst.enum.d | 4 +-- test/unittest/types/tst.intincop.d | 8 ++--- test/unittest/types/tst.intops.d | 10 +++--- test/unittest/types/tst.inttypes.d | 4 +-- .../types/tst.nested-unnamed-structs.d | 8 ++--- test/unittest/types/tst.notypeload.sh | 10 +++--- test/unittest/types/tst.ptrincop.d | 8 ++--- test/unittest/types/tst.ptrops.d | 10 +++--- test/unittest/types/tst.relenum.d | 8 ++--- test/unittest/types/tst.relstring.d | 10 +++--- test/unittest/types/tst.scope-user-dotted.sh | 2 +- test/unittest/types/tst.scope-user-types.d | 2 +- test/unittest/types/tst.shiftops.d | 8 ++--- test/unittest/types/tst.stringconstants.d | 4 +-- test/unittest/types/tst.struct-padding.d | 4 +-- test/unittest/types/tst.struct.d | 4 +-- test/unittest/types/tst.struct2.d | 6 ++-- test/unittest/types/tst.typedef.d | 4 +-- test/unittest/types/tst.typedef2.d | 6 ++-- test/unittest/types/tst.unaryop.d | 4 +-- test/unittest/types/tst.unloaded.d | 4 +-- test/unittest/udp/tst.ipv4localudp.sh | 6 ++-- test/unittest/udp/tst.ipv4remoteudp.sh | 6 ++-- test/unittest/udp/tst.ipv6localudp.sh | 6 ++-- .../union/err.D_ADDROF_VAR.UnionPointer.d | 4 +-- .../err.D_DECL_COMBO.UnionWithoutColon.d | 4 +-- .../err.D_DECL_COMBO.UnionWithoutColon1.d | 4 +-- .../union/err.D_DECL_INCOMPLETE.circular.d | 4 +-- .../union/err.D_DECL_INCOMPLETE.order.d | 4 +-- .../union/err.D_DECL_INCOMPLETE.recursive.d | 4 +-- .../union/err.D_DECL_INCOMPLETE.simple.d | 4 +-- .../union/err.D_PROTO_ARG.DupUnionAssoc.d | 4 +-- test/unittest/union/tst.UnionAssoc.d | 6 ++-- test/unittest/union/tst.UnionDataTypes.d | 4 +-- test/unittest/union/tst.UnionInside.d | 6 ++-- test/unittest/usdt/err.argmap-null.d | 4 +-- test/unittest/usdt/err.no-Z.r | 2 +- test/unittest/usdt/err.no-Z.sh | 4 +-- test/unittest/usdt/err.no-w.sh | 4 +-- test/unittest/usdt/err.wrong-probe-argc-cc.sh | 4 +-- test/unittest/usdt/err.wrong-probe-argc-rt.sh | 4 +-- test/unittest/usdt/err.wrong-probe.sh | 4 +-- test/unittest/usdt/err.wrong-prov.sh | 4 +-- test/unittest/usdt/tst.arg-reg.d | 4 +-- test/unittest/usdt/tst.argmap-null.d | 4 +-- test/unittest/usdt/tst.argmap-typed-partial.d | 4 +-- test/unittest/usdt/tst.argmap-typed.d | 4 +-- test/unittest/usdt/tst.argmap.d | 4 +-- test/unittest/usdt/tst.args-alt.d | 4 +-- test/unittest/usdt/tst.args.d | 4 +-- test/unittest/usdt/tst.const.d | 4 +-- test/unittest/usdt/tst.defer-Z-basic.sh | 2 +- test/unittest/usdt/tst.defer-Z.sh | 2 +- test/unittest/usdt/tst.defer.sh | 2 +- test/unittest/usdt/tst.deref-decode.d | 4 +-- test/unittest/usdt/tst.dlclose3.sh | 6 ++-- test/unittest/usdt/tst.enable.d | 4 +-- test/unittest/usdt/tst.enable_and.d | 4 +-- test/unittest/usdt/tst.enable_and_2.d | 4 +-- test/unittest/usdt/tst.enable_or.d | 4 +-- test/unittest/usdt/tst.enable_or_2.d | 4 +-- test/unittest/usdt/tst.enable_pid.sh | 4 +-- test/unittest/usdt/tst.enable_return.d | 4 +-- test/unittest/usdt/tst.enable_stmt.d | 4 +-- test/unittest/usdt/tst.entryreturn.sh | 4 +-- test/unittest/usdt/tst.lingering.sh | 4 +-- .../usdt/tst.multiprov-dupprobe-shlibs.sh | 4 +-- test/unittest/usdt/tst.nusdtprobes.sh | 2 +- test/unittest/usdt/tst.onlyenabled.r | 2 +- test/unittest/usdt/tst.onlyenabled.sh | 4 +-- test/unittest/usdt/tst.reeval.sh | 4 +-- test/unittest/usdt/tst.tailcall.d | 4 +-- .../ustack/skip_pid0_if_oversubscribed.x | 4 +-- test/unittest/ustack/tst.bigstack.d | 4 +-- test/unittest/ustack/tst.depth.sh | 4 +-- .../tst.jstack_unprintable-bug26045010.sh | 6 ++-- test/unittest/ustack/tst.kthread.d | 4 +-- test/unittest/ustack/tst.mtspin.sh | 16 ++++----- test/unittest/ustack/tst.spin.sh | 14 ++++---- test/unittest/ustack/tst.uaddr-pid0.d | 4 +-- test/unittest/ustack/tst.uaddr.d | 4 +-- test/unittest/ustack/tst.ufunc-pid0.d | 4 +-- test/unittest/ustack/tst.ufunc.d | 4 +-- test/unittest/ustack/tst.umod.d | 4 +-- .../ustack/tst.ustack25_max95_profile.d | 4 +-- test/unittest/ustack/tst.ustack25_profile.d | 4 +-- .../ustack/tst.ustack95_max25_profile.d | 4 +-- test/unittest/ustack/tst.ustack95_profile.d | 4 +-- .../ustack/tst.ustack_max25_profile.d | 4 +-- test/unittest/ustack/tst.ustack_profile.d | 4 +-- test/unittest/ustack/tst.usym-pid0.d | 4 +-- test/unittest/ustack/tst.usym.d | 4 +-- .../bvar/err.D_ARGS_IDX.args-neg-idx.d | 8 ++--- .../bvar/err.D_ARGS_IDX.args-no-args.d | 6 ++-- .../bvar/err.D_ARGS_IDX.args-too-many.d | 8 ++--- .../bvar/err.D_IDENT_BADREF.args-no-idx.d | 6 ++-- .../err.D_PROTO_ARG.args-non-scalar-idx.d | 6 ++-- test/unittest/variables/bvar/tst.arg0.d | 6 ++-- test/unittest/variables/bvar/tst.arg1.d | 6 ++-- test/unittest/variables/bvar/tst.arg2.d | 6 ++-- .../variables/bvar/tst.arg3-ERROR-b.sh | 12 +++---- .../unittest/variables/bvar/tst.arg3-ERROR.sh | 18 +++++----- test/unittest/variables/bvar/tst.arg3.d | 6 ++-- test/unittest/variables/bvar/tst.arg4.d | 6 ++-- test/unittest/variables/bvar/tst.arg5.d | 6 ++-- test/unittest/variables/bvar/tst.arg6.d | 6 ++-- test/unittest/variables/bvar/tst.arg7.d | 6 ++-- test/unittest/variables/bvar/tst.arg8.d | 6 ++-- test/unittest/variables/bvar/tst.arg9.d | 6 ++-- .../variables/bvar/tst.args-match-argN.d | 8 ++--- test/unittest/variables/bvar/tst.caller-cpc.d | 4 +-- .../variables/bvar/tst.caller-dtrace.d | 6 ++-- test/unittest/variables/bvar/tst.caller-fbt.d | 4 +-- test/unittest/variables/bvar/tst.caller-io.sh | 4 +-- test/unittest/variables/bvar/tst.caller-ip.d | 4 +-- .../variables/bvar/tst.caller-lockstat.d | 4 +-- .../unittest/variables/bvar/tst.caller-proc.d | 4 +-- .../variables/bvar/tst.caller-profile.d | 4 +-- .../variables/bvar/tst.caller-rawfbt.d | 4 +-- .../variables/bvar/tst.caller-rawtp.d | 4 +-- .../variables/bvar/tst.caller-sched.d | 4 +-- test/unittest/variables/bvar/tst.curcpu.d | 6 ++-- .../variables/bvar/tst.curcpu_cpu_id.sh | 6 ++-- test/unittest/variables/bvar/tst.curthread.d | 6 ++-- test/unittest/variables/bvar/tst.epid.d | 6 ++-- test/unittest/variables/bvar/tst.errno.d | 6 ++-- test/unittest/variables/bvar/tst.execargs.d | 6 ++-- test/unittest/variables/bvar/tst.execname.d | 6 ++-- test/unittest/variables/bvar/tst.gid.d | 6 ++-- test/unittest/variables/bvar/tst.id-valid.sh | 6 ++-- test/unittest/variables/bvar/tst.id.d | 6 ++-- test/unittest/variables/bvar/tst.ipl.d | 6 ++-- .../variables/bvar/tst.offset-blank.sh | 4 +-- test/unittest/variables/bvar/tst.pid.d | 6 ++-- test/unittest/variables/bvar/tst.ppid.d | 6 ++-- test/unittest/variables/bvar/tst.ppid2.d | 6 ++-- test/unittest/variables/bvar/tst.probefunc.d | 6 ++-- test/unittest/variables/bvar/tst.probemod.d | 6 ++-- test/unittest/variables/bvar/tst.probename.d | 10 +++--- test/unittest/variables/bvar/tst.probeprov.d | 10 +++--- .../variables/bvar/tst.stackdepth-cpc.d | 4 +-- .../variables/bvar/tst.stackdepth-dtrace.d | 6 ++-- .../variables/bvar/tst.stackdepth-fbt.d | 4 +-- .../variables/bvar/tst.stackdepth-io.sh | 4 +-- .../variables/bvar/tst.stackdepth-ip.d | 4 +-- .../variables/bvar/tst.stackdepth-lockstat.d | 4 +-- .../variables/bvar/tst.stackdepth-proc.d | 4 +-- .../variables/bvar/tst.stackdepth-profile.d | 4 +-- .../variables/bvar/tst.stackdepth-rawfbt.d | 4 +-- .../variables/bvar/tst.stackdepth-rawtp.d | 4 +-- .../variables/bvar/tst.stackdepth-sched.d | 4 +-- test/unittest/variables/bvar/tst.tid.d | 6 ++-- .../bvar/tst.timestamp-bug31632630.d | 6 ++-- test/unittest/variables/bvar/tst.timestamp.d | 6 ++-- test/unittest/variables/bvar/tst.ucaller.d | 6 ++-- test/unittest/variables/bvar/tst.uid.d | 6 ++-- .../unittest/variables/bvar/tst.ustackdepth.d | 6 ++-- .../variables/bvar/tst.ustackdepth2.d | 6 ++-- .../variables/bvar/tst.ustackdepth_big.sh | 6 ++-- .../variables/bvar/tst.ustackdepth_small.d | 6 ++-- test/unittest/variables/bvar/tst.vtimestamp.d | 6 ++-- .../variables/bvar/tst.walltimestamp.d | 6 ++-- .../variables/bvar/tst.walltimestamp2.d | 4 +-- .../variables/gvar/tst.alignment-array.sh | 4 +-- .../variables/gvar/tst.alignment-char.sh | 4 +-- .../variables/gvar/tst.alignment-int.sh | 4 +-- .../variables/gvar/tst.alignment-long.sh | 4 +-- .../variables/gvar/tst.alignment-ptr.sh | 4 +-- .../variables/gvar/tst.alignment-short.sh | 4 +-- .../variables/gvar/tst.alignment-struct-2.sh | 4 +-- .../variables/gvar/tst.alignment-struct.sh | 4 +-- test/unittest/variables/gvar/tst.store-char.d | 4 +-- test/unittest/variables/gvar/tst.str-size.d | 8 ++--- .../variables/gvar/tst.undecl-offset.sh | 4 +-- .../variables/inline/tst.procfs-cwd.d | 10 +++--- .../variables/inline/tst.procfs-root.d | 10 +++--- .../variables/inline/tst.sched-chip.d | 10 +++--- .../unittest/variables/inline/tst.sched-cpu.d | 10 +++--- .../variables/inline/tst.sched-lgrp.d | 10 +++--- .../variables/inline/tst.sched-pset.d | 10 +++--- .../lvar/err.D_OP_INCOMPAT.default_int.d | 4 +-- .../variables/lvar/tst.alignment-array.sh | 4 +-- .../variables/lvar/tst.alignment-char.sh | 4 +-- .../variables/lvar/tst.alignment-int.sh | 4 +-- .../variables/lvar/tst.alignment-long.sh | 4 +-- .../variables/lvar/tst.alignment-ptr.sh | 4 +-- .../variables/lvar/tst.alignment-short.sh | 4 +-- .../variables/lvar/tst.alignment-struct-2.sh | 4 +-- .../variables/lvar/tst.alignment-struct.sh | 4 +-- .../unittest/variables/lvar/tst.default_int.d | 4 +-- test/unittest/variables/lvar/tst.init.d | 4 +-- .../variables/lvar/tst.load_before_store.d | 4 +-- .../variables/lvar/tst.post_inc_lvar.d | 4 +-- .../variables/lvar/tst.pre_inc_lvar.d | 4 +-- test/unittest/variables/lvar/tst.store-char.d | 4 +-- test/unittest/variables/lvar/tst.str-size.d | 6 ++-- test/unittest/variables/lvar/tst.struct.d | 4 +-- .../tvar/err.D_OP_INCOMPAT.default_int.d | 4 +-- .../variables/tvar/err.limited_space.d | 8 ++--- .../variables/tvar/tst.alignment-array.sh | 4 +-- .../variables/tvar/tst.alignment-char.sh | 4 +-- .../variables/tvar/tst.alignment-int.sh | 4 +-- .../variables/tvar/tst.alignment-long.sh | 4 +-- .../variables/tvar/tst.alignment-ptr.sh | 4 +-- .../variables/tvar/tst.alignment-short.sh | 4 +-- .../variables/tvar/tst.alignment-struct-2.sh | 4 +-- .../variables/tvar/tst.alignment-struct.sh | 4 +-- .../unittest/variables/tvar/tst.default_int.d | 4 +-- test/unittest/variables/tvar/tst.init-str.d | 6 ++-- test/unittest/variables/tvar/tst.init.d | 4 +-- .../variables/tvar/tst.load_before_store.d | 4 +-- .../variables/tvar/tst.load_no_alloc.d | 6 ++-- .../variables/tvar/tst.post_inc_lvar.d | 4 +-- .../variables/tvar/tst.pre_inc_lvar.d | 4 +-- test/unittest/variables/tvar/tst.store-char.d | 4 +-- .../variables/tvar/tst.store_zero_deletes.d | 6 ++-- .../tvar/tst.store_zero_deletes_struct.d | 6 ++-- .../tvar/tst.store_zero_deletes_union.d | 6 ++-- .../variables/tvar/tst.store_zero_nop.d | 6 ++-- test/unittest/variables/tvar/tst.str-size.d | 6 ++-- test/unittest/variables/tvar/tst.struct.d | 6 ++-- test/unittest/vars/tst.gid.d | 6 ++-- test/unittest/vars/tst.nullassign.d | 22 ++++++------ test/unittest/vars/tst.ppid.d | 6 ++-- test/unittest/vars/tst.uid.d | 6 ++-- test/unittest/vars/tst.walltimestamp.d | 10 +++--- test/utils/stack_skip_test.sh | 2 +- 1964 files changed, 5065 insertions(+), 5059 deletions(-) diff --git a/test/demo/act/time.d b/test/demo/act/time.d index 76f2d22f..22341b0e 100644 --- a/test/demo/act/time.d +++ b/test/demo/act/time.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option destructive #pragma D option switchrate=5sec -tick-1sec +profile:::tick-1sec /n++ < 5/ { printf("walltime : %Y\n", walltimestamp); @@ -20,7 +20,7 @@ tick-1sec printf("\n"); } -tick-1sec +profile:::tick-1sec /n == 5/ { exit(0); diff --git a/test/demo/builtin/argX.d b/test/demo/builtin/argX.d index 56bfafa8..f32fd8ca 100644 --- a/test/demo/builtin/argX.d +++ b/test/demo/builtin/argX.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { printf("0=%u 1=%u 2=%u 3=%u 4=%u 5=%u 6=%u 7=%u 8=%u 9=%u\n", arg0, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9); exit(0); diff --git a/test/demo/builtin/caller.d b/test/demo/builtin/caller.d index 8eed2d9e..fbb50a2e 100644 --- a/test/demo/builtin/caller.d +++ b/test/demo/builtin/caller.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(caller); exit(0); } diff --git a/test/demo/builtin/curthread.d b/test/demo/builtin/curthread.d index 581ed3b3..38fbe0b5 100644 --- a/test/demo/builtin/curthread.d +++ b/test/demo/builtin/curthread.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(curthread); exit(0); } diff --git a/test/demo/builtin/errno.d b/test/demo/builtin/errno.d index ff806e49..4d53b130 100644 --- a/test/demo/builtin/errno.d +++ b/test/demo/builtin/errno.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(errno); exit(0); } diff --git a/test/demo/builtin/execname.d b/test/demo/builtin/execname.d index c521a084..98278020 100644 --- a/test/demo/builtin/execname.d +++ b/test/demo/builtin/execname.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(execname); exit(0); } diff --git a/test/demo/builtin/gid.d b/test/demo/builtin/gid.d index ca72b164..5dba2f8a 100644 --- a/test/demo/builtin/gid.d +++ b/test/demo/builtin/gid.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(gid); exit(0); } diff --git a/test/demo/builtin/id.d b/test/demo/builtin/id.d index b0151bc5..24678d0d 100644 --- a/test/demo/builtin/id.d +++ b/test/demo/builtin/id.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(id); exit(0); } diff --git a/test/demo/builtin/ipl.d b/test/demo/builtin/ipl.d index f613bb70..bf8073a6 100644 --- a/test/demo/builtin/ipl.d +++ b/test/demo/builtin/ipl.d @@ -1,6 +1,6 @@ /* @@xfail: dtv2: need ipl support */ -BEGIN { +dtrace:::BEGIN { trace(ipl); exit(0); } diff --git a/test/demo/builtin/pid.d b/test/demo/builtin/pid.d index 55f3d1ad..5559465d 100644 --- a/test/demo/builtin/pid.d +++ b/test/demo/builtin/pid.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(pid); exit(0); } diff --git a/test/demo/builtin/ppid.d b/test/demo/builtin/ppid.d index 86363ac2..075d1f9a 100644 --- a/test/demo/builtin/ppid.d +++ b/test/demo/builtin/ppid.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(ppid); exit(0); } diff --git a/test/demo/builtin/probefunc.d b/test/demo/builtin/probefunc.d index ed2bff00..66ebd1f5 100644 --- a/test/demo/builtin/probefunc.d +++ b/test/demo/builtin/probefunc.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(probefunc); exit(0); } diff --git a/test/demo/builtin/probemod.d b/test/demo/builtin/probemod.d index 5796bdc2..cacfa068 100644 --- a/test/demo/builtin/probemod.d +++ b/test/demo/builtin/probemod.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(probemod); exit(0); } diff --git a/test/demo/builtin/probename.d b/test/demo/builtin/probename.d index b5ef1b6c..55b64ac3 100644 --- a/test/demo/builtin/probename.d +++ b/test/demo/builtin/probename.d @@ -1,3 +1,3 @@ -BEGIN { +dtrace:::BEGIN { exit(probename == "BEGIN" ? 0 : 1); } diff --git a/test/demo/builtin/probeprov.d b/test/demo/builtin/probeprov.d index 1850f97b..5df0b671 100644 --- a/test/demo/builtin/probeprov.d +++ b/test/demo/builtin/probeprov.d @@ -1,3 +1,3 @@ -BEGIN { +dtrace:::BEGIN { exit(probeprov == "dtrace" ? 0 : 1); } diff --git a/test/demo/builtin/stackdepth.d b/test/demo/builtin/stackdepth.d index 0c0e7f61..9ca58c65 100644 --- a/test/demo/builtin/stackdepth.d +++ b/test/demo/builtin/stackdepth.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(stackdepth); exit(0); } diff --git a/test/demo/builtin/tid.d b/test/demo/builtin/tid.d index a35a1598..db3ec2e0 100644 --- a/test/demo/builtin/tid.d +++ b/test/demo/builtin/tid.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(tid); exit(0); } diff --git a/test/demo/builtin/timestamp.d b/test/demo/builtin/timestamp.d index ad5de76e..404440e2 100644 --- a/test/demo/builtin/timestamp.d +++ b/test/demo/builtin/timestamp.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(timestamp); exit(0); } diff --git a/test/demo/builtin/ucaller.d b/test/demo/builtin/ucaller.d index 150861e7..5e8de8d5 100644 --- a/test/demo/builtin/ucaller.d +++ b/test/demo/builtin/ucaller.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(ucaller); exit(0); } diff --git a/test/demo/builtin/uid.d b/test/demo/builtin/uid.d index 7a287353..0872598b 100644 --- a/test/demo/builtin/uid.d +++ b/test/demo/builtin/uid.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(uid); exit(0); } diff --git a/test/demo/builtin/ustackdepth.d b/test/demo/builtin/ustackdepth.d index 6d325a35..976b6209 100644 --- a/test/demo/builtin/ustackdepth.d +++ b/test/demo/builtin/ustackdepth.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(ustackdepth); exit(0); } diff --git a/test/demo/builtin/vtimestamp.d b/test/demo/builtin/vtimestamp.d index fcb708d0..425f7874 100644 --- a/test/demo/builtin/vtimestamp.d +++ b/test/demo/builtin/vtimestamp.d @@ -1,6 +1,6 @@ /* @@xfail: dtv2: need vtimestamp support */ -BEGIN { +dtrace:::BEGIN { trace(vtimestamp); exit(0); } diff --git a/test/demo/builtin/walltimestamp.d b/test/demo/builtin/walltimestamp.d index 377b15af..f1a11a4a 100644 --- a/test/demo/builtin/walltimestamp.d +++ b/test/demo/builtin/walltimestamp.d @@ -1,4 +1,4 @@ -BEGIN { +dtrace:::BEGIN { trace(walltimestamp); exit(0); } diff --git a/test/demo/builtin/zonename.d b/test/demo/builtin/zonename.d index c98ed1cb..ecf395be 100644 --- a/test/demo/builtin/zonename.d +++ b/test/demo/builtin/zonename.d @@ -1,6 +1,6 @@ /* @@skip: Linux has no zones. */ -BEGIN { +dtrace:::BEGIN { trace(zonename); exit(0); } diff --git a/test/demo/dt_test/fired.d b/test/demo/dt_test/fired.d index 7696c015..b5212b3c 100644 --- a/test/demo/dt_test/fired.d +++ b/test/demo/dt_test/fired.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ /* @@xfail: dtv2 */ /* @@trigger: testprobe */ -BEGIN +dtrace:::BEGIN { start=0; } @@ -25,7 +25,7 @@ syscall::exit_group:entry exit(0); } -END +dtrace:::END { printf("test probe is fired: %d\n", start); } diff --git a/test/demo/dtrace/begin.d b/test/demo/dtrace/begin.d index b14f6271..f908d4f9 100644 --- a/test/demo/dtrace/begin.d +++ b/test/demo/dtrace/begin.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@trigger: mmap */ -BEGIN +dtrace:::BEGIN { prot[0] = "---"; prot[1] = "r--"; diff --git a/test/demo/dtrace/end.d b/test/demo/dtrace/end.d index c31740dd..4776eab7 100644 --- a/test/demo/dtrace/end.d +++ b/test/demo/dtrace/end.d @@ -1,23 +1,23 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@trigger: none */ -BEGIN +dtrace:::BEGIN { start = timestamp; } -tick-1s +profile:::tick-1s { exit(0); } -END +dtrace:::END { printf("end reached"); } diff --git a/test/demo/dtrace/error.d b/test/demo/dtrace/error.d index d55fb090..893bd9e8 100644 --- a/test/demo/dtrace/error.d +++ b/test/demo/dtrace/error.d @@ -1,18 +1,18 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@trigger: none */ -BEGIN +dtrace:::BEGIN { *(char *)NULL; } -ERROR +dtrace:::ERROR { printf("Hit an error!"); exit(0); diff --git a/test/demo/intro/hello.d b/test/demo/intro/hello.d index 24eaa985..4af8e3cc 100644 --- a/test/demo/intro/hello.d +++ b/test/demo/intro/hello.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@trigger: none */ -BEGIN +dtrace:::BEGIN { trace("hello, world"); exit(0); diff --git a/test/demo/io/iocpu.d b/test/demo/io/iocpu.d index 1230d6f6..4ed47652 100644 --- a/test/demo/io/iocpu.d +++ b/test/demo/io/iocpu.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -36,7 +36,7 @@ io:::wait-done self->wait = 0; } -END +dtrace:::END { printf("Time breakdown (milliseconds):\n"); normalize(@time, 1000000); diff --git a/test/demo/io/iosnoop.d b/test/demo/io/iosnoop.d index 954d4e75..cc68515b 100644 --- a/test/demo/io/iosnoop.d +++ b/test/demo/io/iosnoop.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%10s %58s %2s\n", "DEVICE", "FILE", "RW"); } diff --git a/test/demo/io/iothrough.d b/test/demo/io/iothrough.d index 57fda7f0..ce10c25d 100644 --- a/test/demo/io/iothrough.d +++ b/test/demo/io/iothrough.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -41,7 +41,7 @@ io:::done start[args[0]->b_edev, args[0]->b_blkno] = 0; } -END +dtrace:::END { printa(" %s (%s)\n%@d\n", @); } diff --git a/test/demo/io/iotime.d b/test/demo/io/iotime.d index 7fed2f9a..174e220b 100644 --- a/test/demo/io/iotime.d +++ b/test/demo/io/iotime.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%10s %58s %2s %7s\n", "DEVICE", "FILE", "RW", "MS"); } diff --git a/test/demo/io/whoio.d b/test/demo/io/whoio.d index d5fc444f..265a7a89 100644 --- a/test/demo/io/whoio.d +++ b/test/demo/io/whoio.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ io:::start @[args[1]->dev_statname, execname, pid] = sum(args[0]->b_bcount); } -END +dtrace:::END { printf("%10s %20s %10s %15s\n", "DEVICE", "APP", "PID", "BYTES"); printa("%10s %20s %10d %15@d\n", @); diff --git a/test/demo/io/whowrite.d b/test/demo/io/whowrite.d index d51341ab..561749ba 100644 --- a/test/demo/io/whowrite.d +++ b/test/demo/io/whowrite.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ io:::start @[execname, args[2]->fi_dirname] = count(); } -END +dtrace:::END { printf("%20s %51s %5s\n", "WHO", "WHERE", "COUNT"); printa("%20s %51s %5@d\n", @); diff --git a/test/demo/ip/ipio.d b/test/demo/ip/ipio.d index 14a5194a..ef92b942 100644 --- a/test/demo/ip/ipio.d +++ b/test/demo/ip/ipio.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -33,7 +33,7 @@ ip:::receive last = timestamp; } -tick-10s +profile:::tick-10s { exit(0); } diff --git a/test/demo/ip/ipproto.d b/test/demo/ip/ipproto.d index da499f74..f381c118 100644 --- a/test/demo/ip/ipproto.d +++ b/test/demo/ip/ipproto.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ dtrace:::END printa(" %-28s %-28s %6s %@8d\n", @num); } -tick-10s +profile:::tick-10s { exit(0); } diff --git a/test/demo/out/printa.d b/test/demo/out/printa.d index ae63cfc6..53f62ec4 100644 --- a/test/demo/out/printa.d +++ b/test/demo/out/printa.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ profile:::tick-997 @a[caller] = count(); } -END +dtrace:::END { printa("%@8u %a\n", @a); } diff --git a/test/demo/proc/sig.d b/test/demo/proc/sig.d index 283de42b..4c240a79 100644 --- a/test/demo/proc/sig.d +++ b/test/demo/proc/sig.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ proc:::signal-send @[execname, stringof(args[1]->pr_fname), args[2]] = count(); } -END +dtrace:::END { printf("%20s %20s %12s %s\n", "SENDER", "RECIPIENT", "SIG", "COUNT"); diff --git a/test/demo/proc/whoexec.d b/test/demo/proc/whoexec.d index 4d1627c9..6d77cd93 100644 --- a/test/demo/proc/whoexec.d +++ b/test/demo/proc/whoexec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ proc:::exec-failure self->parent = NULL; } -END +dtrace:::END { printf("%-20s %-20s %s\n", "WHO", "WHAT", "COUNT"); printa("%-20s %-20s %@d\n", @); diff --git a/test/demo/profile/prof.d b/test/demo/profile/prof.d index 85a4804c..96daa44c 100644 --- a/test/demo/profile/prof.d +++ b/test/demo/profile/prof.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,13 +9,13 @@ #pragma D option quiet -profile-97 +profile:::profile-97 /pid == $1/ { @proc[pid, execname] = count(); } -END +dtrace:::END { printf("%-8s %-40s %s\n", "PID", "CMD", "COUNT"); printa("%-8d %-40s %@d\n", @proc); diff --git a/test/demo/profile/profpri.d b/test/demo/profile/profpri.d index 39a7ba38..310f39d6 100644 --- a/test/demo/profile/profpri.d +++ b/test/demo/profile/profpri.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ /* @@runtest-opts: $_pid */ /* @@xfail: needs trigger */ -profile-1001 +profile:::profile-1001 /pid == $1/ { @proc[execname] = lquantize(curlwpsinfo->pr_pri, 0, 100, 10); diff --git a/test/demo/profile/restest.d b/test/demo/profile/restest.d index c8821189..30108b27 100644 --- a/test/demo/profile/restest.d +++ b/test/demo/profile/restest.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ /* @@runtest-opts: $_pid */ /* @@xfail: needs trigger */ -profile-5000 +profile:::profile-5000 /pid == $1/ { /* @@ -23,7 +23,7 @@ profile-5000 @ms = lquantize((timestamp / 1000000) % 10, 0, 10, 1); } -tick-1sec +profile:::tick-1sec /i++ >= 10/ { exit(0); diff --git a/test/demo/sched/firebird.d b/test/demo/sched/firebird.d index f67295c4..3b3bd551 100644 --- a/test/demo/sched/firebird.d +++ b/test/demo/sched/firebird.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ sched:::wakeup bedtime[args[0]->pr_addr] = 0; } -END +dtrace:::END { printa("%d/%d sleeping on %d/%d:\n%@d\n", @); } diff --git a/test/demo/sched/pritime.d b/test/demo/sched/pritime.d index 29625bed..53ad4905 100644 --- a/test/demo/sched/pritime.d +++ b/test/demo/sched/pritime.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { start = timestamp; } @@ -21,7 +21,7 @@ sched:::change-pri printf("%d %d\n", timestamp - start, args[2]); } -tick-1sec +profile:::tick-1sec /++n == 5/ { exit(0); diff --git a/test/demo/sched/whofor.d b/test/demo/sched/whofor.d index 41e0aa12..75f51112 100644 --- a/test/demo/sched/whofor.d +++ b/test/demo/sched/whofor.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ sched:::wakeup bedtime[args[0]->pr_addr] = 0; } -END +dtrace:::END { printa("%s sleeping on %s:\n%@d\n", @); } diff --git a/test/demo/sched/whopreempt.d b/test/demo/sched/whopreempt.d index 17ed9c51..4056f6ad 100644 --- a/test/demo/sched/whopreempt.d +++ b/test/demo/sched/whopreempt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ sched:::off-cpu self->preempt = 0; } -END +dtrace:::END { printf("%30s %3s %30s %3s %5s\n", "PREEMPTOR", "PRI", "PREEMPTED", "PRI", "#"); diff --git a/test/demo/sched/whosteal.d b/test/demo/sched/whosteal.d index 5287dd99..a56c290e 100644 --- a/test/demo/sched/whosteal.d +++ b/test/demo/sched/whosteal.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ sched:::dequeue lquantize(cpu, 0, 100); } -END +dtrace:::END { printa("%s stolen from CPU %d by:\n%@d\n", @); } diff --git a/test/demo/script/interp.d b/test/demo/script/interp.d index fba39e41..cca4142a 100755 --- a/test/demo/script/interp.d +++ b/test/demo/script/interp.d @@ -9,7 +9,7 @@ /* @@trigger: none */ -BEGIN +dtrace:::BEGIN { trace("hello"); exit(0); diff --git a/test/demo/sdt/callout.d b/test/demo/sdt/callout.d index e5fad263..259d3bc9 100644 --- a/test/demo/sdt/callout.d +++ b/test/demo/sdt/callout.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ sdt:::callout-start @callouts[((callout_t *)arg0)->c_func] = count(); } -tick-1sec +profile:::tick-1sec { printa("%40a %10@d\n", @callouts); clear(@callouts); diff --git a/test/demo/sdt/interval.d b/test/demo/sdt/interval.d index 17e75c8b..b0f0f0d9 100644 --- a/test/demo/sdt/interval.d +++ b/test/demo/sdt/interval.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ sdt:::callout-end self->callout = NULL; } -END +dtrace:::END { printa("%a\n%@d\n\n", @callout); } diff --git a/test/demo/sdt/intr.d b/test/demo/sdt/intr.d index c1f664bb..9935dde1 100644 --- a/test/demo/sdt/intr.d +++ b/test/demo/sdt/intr.d @@ -1,18 +1,18 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@xfail: not yet ported */ -interrupt-start +sdt:::interrupt-start { self->ts = vtimestamp; } -interrupt-complete +sdt:::interrupt-complete /self->ts/ { this->devi = (struct dev_info *)arg0; diff --git a/test/demo/struct/rwinfo.d b/test/demo/struct/rwinfo.d index 9ce3f1da..6cc578d2 100644 --- a/test/demo/struct/rwinfo.d +++ b/test/demo/struct/rwinfo.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -38,7 +38,7 @@ syscall::exit_group:entry exit(0); } -END +dtrace:::END { printf("\n calls max bytes elapsed\n"); printf("------ ----- --------- -------\n"); diff --git a/test/demo/vars/clause.d b/test/demo/vars/clause.d index 7daa76f9..1af347bd 100644 --- a/test/demo/vars/clause.d +++ b/test/demo/vars/clause.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2005, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2005, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ int me; /* an integer global variable */ this int foo; /* an integer clause-local variable */ -tick-1sec +profile:::tick-1sec { /* * Set foo to be 10 if and only if this is the first clause executed. @@ -19,7 +19,7 @@ tick-1sec printf("Clause 1 is number %d; foo is %d", me++ % 3, this->foo++); } -tick-1sec +profile:::tick-1sec { /* * Set foo to be 20 if and only if this is the first clause executed. @@ -28,7 +28,7 @@ tick-1sec printf("Clause 2 is number %d; foo is %d", me++ % 3, this->foo++); } -tick-1sec +profile:::tick-1sec { /* * Set foo to be 30 if and only if this is the first clause executed. @@ -37,7 +37,7 @@ tick-1sec printf("Clause 3 is number %d; foo is %d", me++ % 3, this->foo++); } -tick-1sec +profile:::tick-1sec /me >= 12/ { printf("Completed %d iterations.", me); diff --git a/test/expensive/locking/tst.exit-process-kill-races.sh b/test/expensive/locking/tst.exit-process-kill-races.sh index 187470ab..ec516012 100755 --- a/test/expensive/locking/tst.exit-process-kill-races.sh +++ b/test/expensive/locking/tst.exit-process-kill-races.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2013, 2016, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -89,10 +89,10 @@ while :; do esac if [[ $state != "POUND" ]]; then - result="$($dtrace $dt_flags -qc test/triggers/delaydie -n 'tick-1s { printf("timeout\n"); exit(0); }' -n 'syscall::exit_group:entry /pid == $target/ { printf("exit\n"); exit(0); }')" + result="$($dtrace $dt_flags -qc test/triggers/delaydie -n 'profile:::tick-1s { printf("timeout\n"); exit(0); }' -n 'syscall::exit_group:entry /pid == $target/ { printf("exit\n"); exit(0); }')" else set -e - $dtrace $dt_flags -qc test/triggers/delaydie -n 'tick-1s { printf("timeout\n"); exit(0); }' -n 'syscall::exit_group:entry /pid == $target/ { printf("exit\n"); exit(0); }' + $dtrace $dt_flags -qc test/triggers/delaydie -n 'profile:::tick-1s { printf("timeout\n"); exit(0); }' -n 'syscall::exit_group:entry /pid == $target/ { printf("exit\n"); exit(0); }' set +e fi diff --git a/test/smoke/tst.ksym_addr.d b/test/smoke/tst.ksym_addr.d index f3f32d7f..0d616c40 100644 --- a/test/smoke/tst.ksym_addr.d +++ b/test/smoke/tst.ksym_addr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet */ -BEGIN { +dtrace:::BEGIN { trace(&`max_pfn); exit(0); } diff --git a/test/stress/buffering/err.resize1.d b/test/stress/buffering/err.resize1.d index 770045b7..b0e31ced 100644 --- a/test/stress/buffering/err.resize1.d +++ b/test/stress/buffering/err.resize1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ #pragma D option bufresize=manual #pragma D option bufsize=100t -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/stress/buffering/err.resize2.d b/test/stress/buffering/err.resize2.d index 9b408958..a6aa4df2 100644 --- a/test/stress/buffering/err.resize2.d +++ b/test/stress/buffering/err.resize2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ #pragma D option bufresize=manual #pragma D option aggsize=100t -BEGIN +dtrace:::BEGIN { @a[probeprov] = count(); exit(0); diff --git a/test/stress/buffering/tst.resize1.d b/test/stress/buffering/tst.resize1.d index 582efdef..70041a9d 100644 --- a/test/stress/buffering/tst.resize1.d +++ b/test/stress/buffering/tst.resize1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ #pragma D option bufresize=auto #pragma D option bufsize=100t -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/stress/buffering/tst.resize2.d b/test/stress/buffering/tst.resize2.d index 1fbb8f86..8b6fae37 100644 --- a/test/stress/buffering/tst.resize2.d +++ b/test/stress/buffering/tst.resize2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ #pragma D option bufresize=auto #pragma D option aggsize=100t -BEGIN +dtrace:::BEGIN { @a[probeprov] = count(); exit(0); diff --git a/test/stress/buffering/tst.resize3-manual.d b/test/stress/buffering/tst.resize3-manual.d index 84f4f0e3..3c51fc3f 100644 --- a/test/stress/buffering/tst.resize3-manual.d +++ b/test/stress/buffering/tst.resize3-manual.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,23 +23,23 @@ #pragma D option bufresize=manual #pragma D option specsize=100t -BEGIN +dtrace:::BEGIN { spec = speculation(); } -BEGIN +dtrace:::BEGIN { speculate(spec); trace(12345678); } -BEGIN +dtrace:::BEGIN { commit(spec); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/stress/buffering/tst.resize3.d b/test/stress/buffering/tst.resize3.d index e32b30a8..287b4cca 100644 --- a/test/stress/buffering/tst.resize3.d +++ b/test/stress/buffering/tst.resize3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,23 +19,23 @@ #pragma D option bufresize=auto #pragma D option specsize=100t -BEGIN +dtrace:::BEGIN { spec = speculation(); } -BEGIN +dtrace:::BEGIN { speculate(spec); trace(12345678); } -BEGIN +dtrace:::BEGIN { commit(spec); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/stress/fbtprovider/tst.basic.d b/test/stress/fbtprovider/tst.basic.d index 2c2d1c4e..c2f3c84a 100644 --- a/test/stress/fbtprovider/tst.basic.d +++ b/test/stress/fbtprovider/tst.basic.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -tick-1 +profile:::tick-1 { self->traceme = 1; } diff --git a/test/stress/fbtprovider/tst.return.d b/test/stress/fbtprovider/tst.return.d index 7df30897..bacca2a9 100644 --- a/test/stress/fbtprovider/tst.return.d +++ b/test/stress/fbtprovider/tst.return.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->traceme = 1; } diff --git a/test/stress/fbtsafety/tst.basename.d b/test/stress/fbtsafety/tst.basename.d index af3ef8bf..df28be3a 100644 --- a/test/stress/fbtsafety/tst.basename.d +++ b/test/stress/fbtsafety/tst.basename.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ fbt:::entry trace(basename((char *)arg1)); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.caller.d b/test/stress/fbtsafety/tst.caller.d index 78552289..7647b20e 100644 --- a/test/stress/fbtsafety/tst.caller.d +++ b/test/stress/fbtsafety/tst.caller.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ fbt::: trace(caller); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.cleanpath.d b/test/stress/fbtsafety/tst.cleanpath.d index 1723a4a7..7a51860a 100644 --- a/test/stress/fbtsafety/tst.cleanpath.d +++ b/test/stress/fbtsafety/tst.cleanpath.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ fbt:::entry trace(cleanpath((char *)arg1)); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.copyin.d b/test/stress/fbtsafety/tst.copyin.d index 8aecdfb4..93908995 100644 --- a/test/stress/fbtsafety/tst.copyin.d +++ b/test/stress/fbtsafety/tst.copyin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -46,19 +46,19 @@ dtrace:::ERROR err++; } -tick-1sec +profile:::tick-1sec /sec++ == 10/ { exit(2); } -END +dtrace:::END /n == 0 || err == 0/ { exit(1); } -END +dtrace:::END /n != 0 && err != 0/ { exit(0); diff --git a/test/stress/fbtsafety/tst.ddi_pathname.d b/test/stress/fbtsafety/tst.ddi_pathname.d index 41ca04a4..81959d10 100644 --- a/test/stress/fbtsafety/tst.ddi_pathname.d +++ b/test/stress/fbtsafety/tst.ddi_pathname.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ fbt:::entry trace(ddi_pathname((struct dev_info *)arg1, rand())); } -tick-1sec +profile:::tick-1sec /n++ == 20/ { exit(0); diff --git a/test/stress/fbtsafety/tst.dirname.d b/test/stress/fbtsafety/tst.dirname.d index 0220fed7..b9e21d26 100644 --- a/test/stress/fbtsafety/tst.dirname.d +++ b/test/stress/fbtsafety/tst.dirname.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ fbt:::entry trace(dirname((char *)arg1)); } -tick-1sec +profile:::tick-1sec /n++ == 20/ { exit(0); diff --git a/test/stress/fbtsafety/tst.errno.d b/test/stress/fbtsafety/tst.errno.d index 092ceb5d..1cc0d01d 100644 --- a/test/stress/fbtsafety/tst.errno.d +++ b/test/stress/fbtsafety/tst.errno.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,12 +16,12 @@ fbt::: @a[errno] = count(); } -profile-4999hz +profile:::profile-4999hz { @a[errno] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.execname.d b/test/stress/fbtsafety/tst.execname.d index a41f032d..04e2eb1f 100644 --- a/test/stress/fbtsafety/tst.execname.d +++ b/test/stress/fbtsafety/tst.execname.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,12 +16,12 @@ fbt::: @a[execname] = count(); } -profile-4999hz +profile:::profile-4999hz { @a[execname] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.gid.d b/test/stress/fbtsafety/tst.gid.d index 633e4c67..a872be5a 100644 --- a/test/stress/fbtsafety/tst.gid.d +++ b/test/stress/fbtsafety/tst.gid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,12 +16,12 @@ fbt::: @a[gid] = count(); } -profile-4999hz +profile:::profile-4999hz { @a[gid] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.hton.d b/test/stress/fbtsafety/tst.hton.d index f11fdb1a..6b753a11 100644 --- a/test/stress/fbtsafety/tst.hton.d +++ b/test/stress/fbtsafety/tst.hton.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -50,7 +50,7 @@ fbt::: trace(ntohll(0x1122334455667788)); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.index.d b/test/stress/fbtsafety/tst.index.d index 930d074a..3660a001 100644 --- a/test/stress/fbtsafety/tst.index.d +++ b/test/stress/fbtsafety/tst.index.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -39,7 +39,7 @@ fbt:::entry trace(rindex((char *)arg0, (char *)arg1)); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.msgdsize.d b/test/stress/fbtsafety/tst.msgdsize.d index aefbc044..556a6304 100644 --- a/test/stress/fbtsafety/tst.msgdsize.d +++ b/test/stress/fbtsafety/tst.msgdsize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -38,7 +38,7 @@ fbt:::entry trace(msgdsize((mblk_t *)arg1)); } -tick-1sec +profile:::tick-1sec /n++ == 20/ { exit(0); diff --git a/test/stress/fbtsafety/tst.msgsize.d b/test/stress/fbtsafety/tst.msgsize.d index 2de123a6..46a5edfe 100644 --- a/test/stress/fbtsafety/tst.msgsize.d +++ b/test/stress/fbtsafety/tst.msgsize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -38,7 +38,7 @@ fbt::: trace(msgdsize((mblk_t *)rand())); } -tick-1sec +profile:::tick-1sec /n++ == 20/ { exit(0); diff --git a/test/stress/fbtsafety/tst.null.d b/test/stress/fbtsafety/tst.null.d index 798b3225..e405b44c 100644 --- a/test/stress/fbtsafety/tst.null.d +++ b/test/stress/fbtsafety/tst.null.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -38,19 +38,19 @@ dtrace:::ERROR err++; } -tick-1sec +profile:::tick-1sec /sec++ == 10/ { exit(2); } -END +dtrace:::END /n == 0 || err == 0/ { exit(1); } -END +dtrace:::END /n != 0 && err != 0/ { exit(0); diff --git a/test/stress/fbtsafety/tst.pid.d b/test/stress/fbtsafety/tst.pid.d index 1f940872..58610b6f 100644 --- a/test/stress/fbtsafety/tst.pid.d +++ b/test/stress/fbtsafety/tst.pid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,12 +16,12 @@ fbt::: @a[pid] = count(); } -profile-4999hz +profile:::profile-4999hz { @a[pid] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.ppid.d b/test/stress/fbtsafety/tst.ppid.d index 85be56ff..ceb7ecb1 100644 --- a/test/stress/fbtsafety/tst.ppid.d +++ b/test/stress/fbtsafety/tst.ppid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,12 +16,12 @@ fbt::: @a[ppid] = count(); } -profile-4999hz +profile:::profile-4999hz { @a[ppid] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.progenyof.d b/test/stress/fbtsafety/tst.progenyof.d index 479704f2..52a5a5af 100644 --- a/test/stress/fbtsafety/tst.progenyof.d +++ b/test/stress/fbtsafety/tst.progenyof.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,12 +24,12 @@ fbt::: trace(progenyof(rand())); } -profile-4999hz +profile:::profile-4999hz { trace(progenyof(rand())); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.random.d b/test/stress/fbtsafety/tst.random.d index 1495c804..2cce06d6 100644 --- a/test/stress/fbtsafety/tst.random.d +++ b/test/stress/fbtsafety/tst.random.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -33,19 +33,19 @@ dtrace:::ERROR err++; } -tick-1sec +profile:::tick-1sec /sec++ == 10/ { exit(2); } -END +dtrace:::END /n == 0 || err == 0/ { exit(1); } -END +dtrace:::END /n != 0 && err != 0/ { exit(0); diff --git a/test/stress/fbtsafety/tst.rw.d b/test/stress/fbtsafety/tst.rw.d index 245b532f..cef8fff6 100644 --- a/test/stress/fbtsafety/tst.rw.d +++ b/test/stress/fbtsafety/tst.rw.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -35,7 +35,7 @@ fbt::: @[rw_iswriter((rwlock_t *)rand())] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 20/ { exit(0); diff --git a/test/stress/fbtsafety/tst.shortstr.d b/test/stress/fbtsafety/tst.shortstr.d index dbf71b07..6f0346ae 100644 --- a/test/stress/fbtsafety/tst.shortstr.d +++ b/test/stress/fbtsafety/tst.shortstr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,49 +8,49 @@ #pragma D option quiet #pragma D option strsize=16 -BEGIN +dtrace:::BEGIN { this->str = ",,,Carrots,,Barley,Oatmeal,,,,,,,,,,,,,,,,,,Beans,"; } -BEGIN +dtrace:::BEGIN { strtok(this->str, ","); } -BEGIN +dtrace:::BEGIN { this->str = ",,,,,,,,,,,,,,,,,,,,,,Carrots,"; strtok(this->str, ","); } -BEGIN +dtrace:::BEGIN { strtok(this->str, "a"); } -BEGIN +dtrace:::BEGIN { printf("%s\n", substr(this->str, 1, 40)); } -BEGIN +dtrace:::BEGIN { printf("%s\n", strjoin(this->str, this->str)); } -BEGIN +dtrace:::BEGIN { this->str1 = "........................................."; printf("%d\n", index(this->str, this->str1)); } -BEGIN +dtrace:::BEGIN { printf("%d\n", rindex(this->str, this->str1)); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/stress/fbtsafety/tst.stack.d b/test/stress/fbtsafety/tst.stack.d index 243ba27a..79c1909d 100644 --- a/test/stress/fbtsafety/tst.stack.d +++ b/test/stress/fbtsafety/tst.stack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ fbt::: stack(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.stackdepth.d b/test/stress/fbtsafety/tst.stackdepth.d index f0cb91b0..c9f29960 100644 --- a/test/stress/fbtsafety/tst.stackdepth.d +++ b/test/stress/fbtsafety/tst.stackdepth.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ fbt::: trace(stackdepth); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.stddev.d b/test/stress/fbtsafety/tst.stddev.d index db926da6..9516637f 100644 --- a/test/stress/fbtsafety/tst.stddev.d +++ b/test/stress/fbtsafety/tst.stddev.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ fbt::: @a = stddev(1); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.strchr.d b/test/stress/fbtsafety/tst.strchr.d index a07edace..34944315 100644 --- a/test/stress/fbtsafety/tst.strchr.d +++ b/test/stress/fbtsafety/tst.strchr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -38,7 +38,7 @@ fbt:::entry trace(strrchr((char *)arg0, '!')); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.strjoin.d b/test/stress/fbtsafety/tst.strjoin.d index 1a9fbe73..7d50be26 100644 --- a/test/stress/fbtsafety/tst.strjoin.d +++ b/test/stress/fbtsafety/tst.strjoin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ fbt:::entry trace(strjoin((char *)arg0, (char *)arg1)); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.strstr.d b/test/stress/fbtsafety/tst.strstr.d index 15c1e15e..44721419 100644 --- a/test/stress/fbtsafety/tst.strstr.d +++ b/test/stress/fbtsafety/tst.strstr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ fbt:::entry trace(strstr((char *)arg0, (char *)arg1)); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.strtok.d b/test/stress/fbtsafety/tst.strtok.d index edc2ec55..bfc6d5f4 100644 --- a/test/stress/fbtsafety/tst.strtok.d +++ b/test/stress/fbtsafety/tst.strtok.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ fbt:::entry trace(strtok((char *)arg0, (char *)arg1)); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.substr.d b/test/stress/fbtsafety/tst.substr.d index ac02584e..a834028f 100644 --- a/test/stress/fbtsafety/tst.substr.d +++ b/test/stress/fbtsafety/tst.substr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ fbt::: trace(substr((char *)rand(), -rand() ^ timestamp)); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.ucaller.d b/test/stress/fbtsafety/tst.ucaller.d index 5ef1127f..531150cc 100644 --- a/test/stress/fbtsafety/tst.ucaller.d +++ b/test/stress/fbtsafety/tst.ucaller.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,12 +16,12 @@ fbt::: @a[ucaller] = count(); } -profile-4999hz +profile:::profile-4999hz { @a[ucaller] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 30/ { exit(0); diff --git a/test/stress/fbtsafety/tst.uid.d b/test/stress/fbtsafety/tst.uid.d index aceedd9d..833c87df 100644 --- a/test/stress/fbtsafety/tst.uid.d +++ b/test/stress/fbtsafety/tst.uid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,12 +16,12 @@ fbt::: @a[uid] = count(); } -profile-4999hz +profile:::profile-4999hz { @a[uid] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.unalign.d b/test/stress/fbtsafety/tst.unalign.d index 70497644..44cb53cb 100644 --- a/test/stress/fbtsafety/tst.unalign.d +++ b/test/stress/fbtsafety/tst.unalign.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,19 +20,19 @@ fbt::: trace(*(int *)(rand() | 1)); } -tick-1sec +profile:::tick-1sec /sec++ == 10/ { exit(2); } -END +dtrace:::END /n == 0/ { exit(1); } -END +dtrace:::END /n != 0/ { exit(0); diff --git a/test/stress/fbtsafety/tst.uregs.d b/test/stress/fbtsafety/tst.uregs.d index dd64df45..a35975f5 100644 --- a/test/stress/fbtsafety/tst.uregs.d +++ b/test/stress/fbtsafety/tst.uregs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ fbt::: trace(uregs[0]); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.ustack.d b/test/stress/fbtsafety/tst.ustack.d index 426d2eef..4ef3e81d 100644 --- a/test/stress/fbtsafety/tst.ustack.d +++ b/test/stress/fbtsafety/tst.ustack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ fbt::: ustack(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.ustackdepth.d b/test/stress/fbtsafety/tst.ustackdepth.d index 67ba0597..c2eec077 100644 --- a/test/stress/fbtsafety/tst.ustackdepth.d +++ b/test/stress/fbtsafety/tst.ustackdepth.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ fbt::: trace(ustackdepth); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/fbtsafety/tst.zonename.d b/test/stress/fbtsafety/tst.zonename.d index b0227328..83257cbe 100644 --- a/test/stress/fbtsafety/tst.zonename.d +++ b/test/stress/fbtsafety/tst.zonename.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,12 +20,12 @@ fbt::: @a[zonename] = count(); } -profile-4999hz +profile:::profile-4999hz { @a[zonename] = count(); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/misc/tst.roch.d b/test/stress/misc/tst.roch.d index 73a336b5..79115176 100644 --- a/test/stress/misc/tst.roch.d +++ b/test/stress/misc/tst.roch.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -52,19 +52,19 @@ fbt:::return (long long)curthread, pid, tid, (int)arg1, (int)arg0); } -mutex_enter:adaptive-acquire +lockstat::mutex_enter:adaptive-acquire { printf(" %u 0x%llX %d %d lock:0x%llX", timestamp, (long long)curthread, pid, tid, arg0); } -mutex_exit:adaptive-release +lockstat::mutex_exit:adaptive-release { printf(" %u 0x%llX %d %d lock:0x%llX", timestamp, (long long)curthread, pid, tid, arg0); } -tick-1sec +profile:::tick-1sec /n++ == 10/ { exit(0); diff --git a/test/stress/options/tst.cpu-BEGIN.sh b/test/stress/options/tst.cpu-BEGIN.sh index 46bed505..7ed3117d 100755 --- a/test/stress/options/tst.cpu-BEGIN.sh +++ b/test/stress/options/tst.cpu-BEGIN.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -13,7 +13,7 @@ nerr=0 # Loop over CPUs. for cpu0 in `gawk '/^processor[ ]*: [0-9]*$/ {print $3}' /proc/cpuinfo`; do # Observe where DTrace runs. - cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'BEGIN { trace(cpu); exit(0); }'` + cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'dtrace:::BEGIN { trace(cpu); exit(0); }'` # Check result. echo expected cpu $cpu0 got cpu $cpu diff --git a/test/stress/options/tst.cpu-END.sh b/test/stress/options/tst.cpu-END.sh index 200cc4cc..7e2227e5 100755 --- a/test/stress/options/tst.cpu-END.sh +++ b/test/stress/options/tst.cpu-END.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -13,7 +13,7 @@ nerr=0 # Loop over CPUs. for cpu0 in `gawk '/^processor[ ]*: [0-9]*$/ {print $3}' /proc/cpuinfo`; do # Observe where DTrace runs. - cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'BEGIN { exit(0) } END { trace(cpu); }'` + cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'dtrace:::BEGIN { exit(0) } dtrace:::END { trace(cpu); }'` # Check result. echo expected cpu $cpu0 got cpu $cpu diff --git a/test/stress/options/tst.cpu-profile.sh b/test/stress/options/tst.cpu-profile.sh index 31b28176..61ce9993 100755 --- a/test/stress/options/tst.cpu-profile.sh +++ b/test/stress/options/tst.cpu-profile.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -13,7 +13,7 @@ nerr=0 # Loop over CPUs. for cpu0 in `gawk '/^processor[ ]*: [0-9]*$/ {print $3}' /proc/cpuinfo`; do # Observe where DTrace runs. - cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'profile-100ms { trace(cpu); exit(0); }'` + cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'profile:::profile-100ms { trace(cpu); exit(0); }'` # Check result. echo expected cpu $cpu0 got cpu $cpu diff --git a/test/stress/options/tst.cpu-tick.sh b/test/stress/options/tst.cpu-tick.sh index a38ee78b..05a87ce8 100755 --- a/test/stress/options/tst.cpu-tick.sh +++ b/test/stress/options/tst.cpu-tick.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -13,7 +13,7 @@ nerr=0 # Loop over CPUs. for cpu0 in `gawk '/^processor[ ]*: [0-9]*$/ {print $3}' /proc/cpuinfo`; do # Observe where DTrace runs. - cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'tick-100ms { trace(cpu); exit(0); }'` + cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'profile:::tick-100ms { trace(cpu); exit(0); }'` # Check result. echo expected cpu $cpu0 got cpu $cpu diff --git a/test/unittest/actions/default/tst.default.d b/test/unittest/actions/default/tst.default.d index 72e50443..6f8a9880 100644 --- a/test/unittest/actions/default/tst.default.d +++ b/test/unittest/actions/default/tst.default.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,33 +16,33 @@ */ /* should not trace, but should set n=1 */ -BEGIN +dtrace:::BEGIN { n = 1; } /* should trace, "hello world 1" should appear */ -BEGIN +dtrace:::BEGIN { printf("hello world %d", n); } /* should not trace, but should update n+=2 */ -BEGIN +dtrace:::BEGIN { n += 2; } /* should trace, and n should be 1+2=3 */ -BEGIN +dtrace:::BEGIN { printf("%d", n); } /* should trace, but not report anything */ -BEGIN +dtrace:::BEGIN { } /* should not trace, but should update n+=4 */ -BEGIN +dtrace:::BEGIN { n += 4; } /* should trace, and n should be 1+2+4=7 */ -BEGIN +dtrace:::BEGIN { trace(n); } /* should trace */ -BEGIN +dtrace:::BEGIN { exit(0) } diff --git a/test/unittest/actions/exit/err.D_PROTO_ARG.str.d b/test/unittest/actions/exit/err.D_PROTO_ARG.str.d index e3ef0158..787a0cf8 100644 --- a/test/unittest/actions/exit/err.D_PROTO_ARG.str.d +++ b/test/unittest/actions/exit/err.D_PROTO_ARG.str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(""); } diff --git a/test/unittest/actions/exit/err.D_PROTO_ARG.void.d b/test/unittest/actions/exit/err.D_PROTO_ARG.void.d index 7a635372..74cc0832 100644 --- a/test/unittest/actions/exit/err.D_PROTO_ARG.void.d +++ b/test/unittest/actions/exit/err.D_PROTO_ARG.void.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(exit(0)); } diff --git a/test/unittest/actions/exit/err.D_PROTO_LEN.missing_arg.d b/test/unittest/actions/exit/err.D_PROTO_LEN.missing_arg.d index dbe3f96b..76996be3 100644 --- a/test/unittest/actions/exit/err.D_PROTO_LEN.missing_arg.d +++ b/test/unittest/actions/exit/err.D_PROTO_LEN.missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(); } diff --git a/test/unittest/actions/exit/err.D_PROTO_LEN.too_many_args.d b/test/unittest/actions/exit/err.D_PROTO_LEN.too_many_args.d index 007e9342..46f5fcb6 100644 --- a/test/unittest/actions/exit/err.D_PROTO_LEN.too_many_args.d +++ b/test/unittest/actions/exit/err.D_PROTO_LEN.too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(0, 1); } diff --git a/test/unittest/actions/exit/err.fail.d b/test/unittest/actions/exit/err.fail.d index c08f96ec..407bdea5 100644 --- a/test/unittest/actions/exit/err.fail.d +++ b/test/unittest/actions/exit/err.fail.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(1); } diff --git a/test/unittest/actions/exit/tst.begin-exit.d b/test/unittest/actions/exit/tst.begin-exit.d index 123bc96d..85a37993 100644 --- a/test/unittest/actions/exit/tst.begin-exit.d +++ b/test/unittest/actions/exit/tst.begin-exit.d @@ -1,22 +1,22 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { exit(0); } -BEGIN +dtrace:::BEGIN { printf("shouldn't be here..."); here++; } -END +dtrace:::END { exit(here); } diff --git a/test/unittest/actions/exit/tst.end-exit.d b/test/unittest/actions/exit/tst.end-exit.d index 34fcfd52..249fe81d 100644 --- a/test/unittest/actions/exit/tst.end-exit.d +++ b/test/unittest/actions/exit/tst.end-exit.d @@ -1,16 +1,16 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { exit(1); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/actions/exit/tst.expr.d b/test/unittest/actions/exit/tst.expr.d index 83c8f778..937d5521 100644 --- a/test/unittest/actions/exit/tst.expr.d +++ b/test/unittest/actions/exit/tst.expr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = 1; exit(x - 1); diff --git a/test/unittest/actions/exit/tst.kill.sh b/test/unittest/actions/exit/tst.kill.sh index 17d40a3b..f6143c8f 100755 --- a/test/unittest/actions/exit/tst.kill.sh +++ b/test/unittest/actions/exit/tst.kill.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -23,7 +23,7 @@ watch_output_for() { fi } -$dtrace $dt_flags -n BEGIN,END -o $out & +$dtrace $dt_flags -n dtrace:::BEGIN,dtrace:::END -o $out & watch_output_for :BEGIN kill %1 watch_output_for :END diff --git a/test/unittest/actions/exit/tst.probe-begin-exit.d b/test/unittest/actions/exit/tst.probe-begin-exit.d index bbbe226c..ef7b3f47 100644 --- a/test/unittest/actions/exit/tst.probe-begin-exit.d +++ b/test/unittest/actions/exit/tst.probe-begin-exit.d @@ -1,20 +1,20 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { exit(0); } -write:entry +syscall::write:entry { exit(1); } -END +dtrace:::END { } diff --git a/test/unittest/actions/exit/tst.probe-end-exit.d b/test/unittest/actions/exit/tst.probe-end-exit.d index 2e6d4c80..9a66ba5e 100644 --- a/test/unittest/actions/exit/tst.probe-end-exit.d +++ b/test/unittest/actions/exit/tst.probe-end-exit.d @@ -1,20 +1,20 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { } -write:entry +syscall::write:entry { exit(1); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/actions/exit/tst.probe-exit.d b/test/unittest/actions/exit/tst.probe-exit.d index f3c3a67c..57b72820 100644 --- a/test/unittest/actions/exit/tst.probe-exit.d +++ b/test/unittest/actions/exit/tst.probe-exit.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { } -write:entry +syscall::write:entry { exit(0); } -END +dtrace:::END { } diff --git a/test/unittest/actions/exit/tst.success.d b/test/unittest/actions/exit/tst.success.d index 1e95d1dd..c6277f7e 100644 --- a/test/unittest/actions/exit/tst.success.d +++ b/test/unittest/actions/exit/tst.success.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/actions/freopen/err.D_FREOPEN_INVALID.d b/test/unittest/actions/freopen/err.D_FREOPEN_INVALID.d index 8268d497..44ef7d7b 100644 --- a/test/unittest/actions/freopen/err.D_FREOPEN_INVALID.d +++ b/test/unittest/actions/freopen/err.D_FREOPEN_INVALID.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { freopen("."); exit(0); diff --git a/test/unittest/actions/freopen/err.freopen-destructive.d b/test/unittest/actions/freopen/err.freopen-destructive.d index 5cf24614..534b743f 100644 --- a/test/unittest/actions/freopen/err.freopen-destructive.d +++ b/test/unittest/actions/freopen/err.freopen-destructive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { freopen("/dev/null"); exit(0); diff --git a/test/unittest/actions/freopen/tst.badfreopen.sh b/test/unittest/actions/freopen/tst.badfreopen.sh index 916692f1..245168ba 100755 --- a/test/unittest/actions/freopen/tst.badfreopen.sh +++ b/test/unittest/actions/freopen/tst.badfreopen.sh @@ -1,14 +1,14 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # script() { $dtrace $dt_flags -wq -o $tmpfile -s /dev/stdin 2> $errfile < $tmpfile -BEGIN +dtrace:::BEGIN { nerr = 0; EOF @@ -33,12 +33,12 @@ cat /usr/include/signal.h \ cat << EOF >> $tmpfile } -BEGIN +dtrace:::BEGIN /nerr/ { exit(1); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/actions/return/err.D_PROTO_ARG.str.d b/test/unittest/actions/return/err.D_PROTO_ARG.str.d index d04836f3..b89d97de 100644 --- a/test/unittest/actions/return/err.D_PROTO_ARG.str.d +++ b/test/unittest/actions/return/err.D_PROTO_ARG.str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { return(""); } diff --git a/test/unittest/actions/return/err.D_PROTO_ARG.void.d b/test/unittest/actions/return/err.D_PROTO_ARG.void.d index dc3b15fa..11556bb7 100644 --- a/test/unittest/actions/return/err.D_PROTO_ARG.void.d +++ b/test/unittest/actions/return/err.D_PROTO_ARG.void.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { return(return(0)); } diff --git a/test/unittest/actions/return/err.D_PROTO_LEN.missing_arg.d b/test/unittest/actions/return/err.D_PROTO_LEN.missing_arg.d index 97ed0762..026f4462 100644 --- a/test/unittest/actions/return/err.D_PROTO_LEN.missing_arg.d +++ b/test/unittest/actions/return/err.D_PROTO_LEN.missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { return(); exit(0); diff --git a/test/unittest/actions/return/err.D_PROTO_LEN.too_many_args.d b/test/unittest/actions/return/err.D_PROTO_LEN.too_many_args.d index 0776192b..6ea4353f 100644 --- a/test/unittest/actions/return/err.D_PROTO_LEN.too_many_args.d +++ b/test/unittest/actions/return/err.D_PROTO_LEN.too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { return(1, 2); exit(0); diff --git a/test/unittest/actions/return/err.destructive.d b/test/unittest/actions/return/err.destructive.d index 9beefbf6..2385bd3f 100644 --- a/test/unittest/actions/return/err.destructive.d +++ b/test/unittest/actions/return/err.destructive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { ok = 0; exit(0); diff --git a/test/unittest/actions/return/err.not_allowed-1.d b/test/unittest/actions/return/err.not_allowed-1.d index e32751bf..fb874ee6 100644 --- a/test/unittest/actions/return/err.not_allowed-1.d +++ b/test/unittest/actions/return/err.not_allowed-1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { ok = 0; exit(0); diff --git a/test/unittest/actions/return/err.not_allowed-2.d b/test/unittest/actions/return/err.not_allowed-2.d index 4c613065..7f09f001 100644 --- a/test/unittest/actions/return/err.not_allowed-2.d +++ b/test/unittest/actions/return/err.not_allowed-2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { ok = 0; exit(0); diff --git a/test/unittest/actions/return/err.not_allowed-3.d b/test/unittest/actions/return/err.not_allowed-3.d index 87891b7b..10cc49d3 100644 --- a/test/unittest/actions/return/err.not_allowed-3.d +++ b/test/unittest/actions/return/err.not_allowed-3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { ok = 0; exit(0); diff --git a/test/unittest/actions/return/err.wrong-1.d b/test/unittest/actions/return/err.wrong-1.d index d6a37d85..50bfde66 100644 --- a/test/unittest/actions/return/err.wrong-1.d +++ b/test/unittest/actions/return/err.wrong-1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { return; exit(0); diff --git a/test/unittest/actions/return/err.wrong-2.d b/test/unittest/actions/return/err.wrong-2.d index 6806cf89..c567b347 100644 --- a/test/unittest/actions/return/err.wrong-2.d +++ b/test/unittest/actions/return/err.wrong-2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { return 0; exit(0); diff --git a/test/unittest/actions/return/tst.destructive.d b/test/unittest/actions/return/tst.destructive.d index 25813b2c..d56d20d0 100644 --- a/test/unittest/actions/return/tst.destructive.d +++ b/test/unittest/actions/return/tst.destructive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { ok = 0; exit(0); diff --git a/test/unittest/actions/return/tst.override-getpid-entry.sh b/test/unittest/actions/return/tst.override-getpid-entry.sh index d9436a53..caa88681 100755 --- a/test/unittest/actions/return/tst.override-getpid-entry.sh +++ b/test/unittest/actions/return/tst.override-getpid-entry.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -39,7 +39,7 @@ fi # Trace the trigger. On the 2nd and 5th getpid() calls, modify the result. $dtrace $dt_flags -c ./a.out -w -q -n ' -BEGIN { +dtrace:::BEGIN { printf("00 pid is %d\n", $target); n = 0; } diff --git a/test/unittest/actions/return/tst.override-getpid-return.sh b/test/unittest/actions/return/tst.override-getpid-return.sh index 835e443d..940cf442 100755 --- a/test/unittest/actions/return/tst.override-getpid-return.sh +++ b/test/unittest/actions/return/tst.override-getpid-return.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -39,7 +39,7 @@ fi # Trace the trigger. On the 2nd and 5th getpid() calls, modify the result. $dtrace $dt_flags -c ./a.out -w -q -n ' -BEGIN { +dtrace:::BEGIN { printf("00 pid is %d\n", $target); n = 0; } diff --git a/test/unittest/actions/setopt/err.D_PROTO_ARG.d b/test/unittest/actions/setopt/err.D_PROTO_ARG.d index 0915723d..79985df7 100644 --- a/test/unittest/actions/setopt/err.D_PROTO_ARG.d +++ b/test/unittest/actions/setopt/err.D_PROTO_ARG.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN { setopt(1); exit(0); diff --git a/test/unittest/actions/setopt/err.D_PROTO_LEN.missing_arg.d b/test/unittest/actions/setopt/err.D_PROTO_LEN.missing_arg.d index 7a1bf847..610b404d 100644 --- a/test/unittest/actions/setopt/err.D_PROTO_LEN.missing_arg.d +++ b/test/unittest/actions/setopt/err.D_PROTO_LEN.missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN { setopt(); exit(0); diff --git a/test/unittest/actions/setopt/err.D_PROTO_LEN.too_many_args.d b/test/unittest/actions/setopt/err.D_PROTO_LEN.too_many_args.d index 0fc881e0..94568c03 100644 --- a/test/unittest/actions/setopt/err.D_PROTO_LEN.too_many_args.d +++ b/test/unittest/actions/setopt/err.D_PROTO_LEN.too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN { setopt("bufsize", "20m", "dummy"); exit(0); diff --git a/test/unittest/actions/setopt/tst.badopt.d b/test/unittest/actions/setopt/tst.badopt.d index 05b5687c..9b74194f 100644 --- a/test/unittest/actions/setopt/tst.badopt.d +++ b/test/unittest/actions/setopt/tst.badopt.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { setopt("Nixon"); setopt("Harding"); diff --git a/test/unittest/actions/symmod/tst.symmod.sh b/test/unittest/actions/symmod/tst.symmod.sh index d3591421..a61ae07f 100755 --- a/test/unittest/actions/symmod/tst.symmod.sh +++ b/test/unittest/actions/symmod/tst.symmod.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,7 +21,7 @@ NAM=$MOD'`'$NAM # run DTrace to test mod() and sym() # also test func(), but it is simply an alias for sym() -read MYMOD MYNAM MYFUN <<< `$dtrace $dt_flags -qn 'BEGIN {mod(0x'$ADD'); sym(0x'$ADD'); func(0x'$ADD'); exit(0) }'` +read MYMOD MYNAM MYFUN <<< `$dtrace $dt_flags -qn 'dtrace:::BEGIN {mod(0x'$ADD'); sym(0x'$ADD'); func(0x'$ADD'); exit(0) }'` if [ $? -ne 0 ]; then exit 1 fi diff --git a/test/unittest/actions/system/err.system-destructive.d b/test/unittest/actions/system/err.system-destructive.d index 98ace062..1529cb28 100644 --- a/test/unittest/actions/system/err.system-destructive.d +++ b/test/unittest/actions/system/err.system-destructive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { system("echo ok"); exit(0); diff --git a/test/unittest/actions/system/tst.system-destructive-ok.d b/test/unittest/actions/system/tst.system-destructive-ok.d index d694d9c8..bc845986 100644 --- a/test/unittest/actions/system/tst.system-destructive-ok.d +++ b/test/unittest/actions/system/tst.system-destructive-ok.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("echo ok"); exit(0); diff --git a/test/unittest/actions/system/tst.system-int.d b/test/unittest/actions/system/tst.system-int.d index 371981a7..eb8d5af6 100644 --- a/test/unittest/actions/system/tst.system-int.d +++ b/test/unittest/actions/system/tst.system-int.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { this->a = 9; this->b = -2; diff --git a/test/unittest/actions/system/tst.system-str.d b/test/unittest/actions/system/tst.system-str.d index 8f532ae6..4ec9dae1 100644 --- a/test/unittest/actions/system/tst.system-str.d +++ b/test/unittest/actions/system/tst.system-str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { this->s = "foo"; this->a = 9; diff --git a/test/unittest/actions/trace/err.D_PROTO_LEN.missing_arg.d b/test/unittest/actions/trace/err.D_PROTO_LEN.missing_arg.d index 3e6c5f82..23f0c710 100644 --- a/test/unittest/actions/trace/err.D_PROTO_LEN.missing_arg.d +++ b/test/unittest/actions/trace/err.D_PROTO_LEN.missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(); exit(0); diff --git a/test/unittest/actions/trace/err.D_PROTO_LEN.too_many_args.d b/test/unittest/actions/trace/err.D_PROTO_LEN.too_many_args.d index ec2d705d..1518de21 100644 --- a/test/unittest/actions/trace/err.D_PROTO_LEN.too_many_args.d +++ b/test/unittest/actions/trace/err.D_PROTO_LEN.too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(1, 2); exit(0); diff --git a/test/unittest/actions/trace/err.D_TRACE_DYN.d b/test/unittest/actions/trace/err.D_TRACE_DYN.d index 6d933fd7..502363b7 100644 --- a/test/unittest/actions/trace/err.D_TRACE_DYN.d +++ b/test/unittest/actions/trace/err.D_TRACE_DYN.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = count(); trace(@a); diff --git a/test/unittest/actions/trace/err.D_TRACE_VOID.d b/test/unittest/actions/trace/err.D_TRACE_VOID.d index 59f71d0f..e6e3eb8e 100644 --- a/test/unittest/actions/trace/err.D_TRACE_VOID.d +++ b/test/unittest/actions/trace/err.D_TRACE_VOID.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(trace(1)); exit(0); diff --git a/test/unittest/actions/trace/tst.alloca.d b/test/unittest/actions/trace/tst.alloca.d index d2ff5152..f670f84e 100644 --- a/test/unittest/actions/trace/tst.alloca.d +++ b/test/unittest/actions/trace/tst.alloca.d @@ -1,6 +1,6 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { arr = (int *)alloca(5 * sizeof(int)); idx = 4; diff --git a/test/unittest/actions/trace/tst.array-char-multi-nul.d b/test/unittest/actions/trace/tst.array-char-multi-nul.d index bd91498f..f838ed8f 100644 --- a/test/unittest/actions/trace/tst.array-char-multi-nul.d +++ b/test/unittest/actions/trace/tst.array-char-multi-nul.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ char n[9]; -BEGIN +dtrace:::BEGIN { n[0] = 'a'; n[1] = 'A'; diff --git a/test/unittest/actions/trace/tst.array-char-str-multi-nul.d b/test/unittest/actions/trace/tst.array-char-str-multi-nul.d index ba0435db..9553bea3 100644 --- a/test/unittest/actions/trace/tst.array-char-str-multi-nul.d +++ b/test/unittest/actions/trace/tst.array-char-str-multi-nul.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ char n[9]; -BEGIN +dtrace:::BEGIN { n[0] = 'a'; n[1] = 'A'; diff --git a/test/unittest/actions/trace/tst.array-char-str-no-nul.d b/test/unittest/actions/trace/tst.array-char-str-no-nul.d index 48633a6c..6cbd7b2c 100644 --- a/test/unittest/actions/trace/tst.array-char-str-no-nul.d +++ b/test/unittest/actions/trace/tst.array-char-str-no-nul.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ char n[9]; -BEGIN +dtrace:::BEGIN { n[0] = 'a'; n[1] = 'A'; diff --git a/test/unittest/actions/trace/tst.array-char-str.d b/test/unittest/actions/trace/tst.array-char-str.d index b61de776..c12d4438 100644 --- a/test/unittest/actions/trace/tst.array-char-str.d +++ b/test/unittest/actions/trace/tst.array-char-str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ char n[9]; -BEGIN +dtrace:::BEGIN { n[0] = 'a'; n[1] = 'A'; diff --git a/test/unittest/actions/trace/tst.array-char-unprintable.d b/test/unittest/actions/trace/tst.array-char-unprintable.d index 5b2525c3..a863d4d7 100644 --- a/test/unittest/actions/trace/tst.array-char-unprintable.d +++ b/test/unittest/actions/trace/tst.array-char-unprintable.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ char n[9]; -BEGIN +dtrace:::BEGIN { n[0] = 'a'; n[1] = 'A'; diff --git a/test/unittest/actions/trace/tst.array.d b/test/unittest/actions/trace/tst.array.d index e74c155c..7f8e7d5f 100644 --- a/test/unittest/actions/trace/tst.array.d +++ b/test/unittest/actions/trace/tst.array.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ short n[5]; -BEGIN +dtrace:::BEGIN { n[0] = 0x7464; n[1] = 0x6172; diff --git a/test/unittest/actions/trace/tst.expr.d b/test/unittest/actions/trace/tst.expr.d index 1dcc501b..81c09494 100644 --- a/test/unittest/actions/trace/tst.expr.d +++ b/test/unittest/actions/trace/tst.expr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = 1; trace(++x); diff --git a/test/unittest/actions/trace/tst.int16_t-quiet.d b/test/unittest/actions/trace/tst.int16_t-quiet.d index 554310f3..6efe8674 100644 --- a/test/unittest/actions/trace/tst.int16_t-quiet.d +++ b/test/unittest/actions/trace/tst.int16_t-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace((int16_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.int16_t.d b/test/unittest/actions/trace/tst.int16_t.d index 72cfb571..82e07cf4 100644 --- a/test/unittest/actions/trace/tst.int16_t.d +++ b/test/unittest/actions/trace/tst.int16_t.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace((int16_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.int32_t-quiet.d b/test/unittest/actions/trace/tst.int32_t-quiet.d index 1e5ac8a3..f683a5c4 100644 --- a/test/unittest/actions/trace/tst.int32_t-quiet.d +++ b/test/unittest/actions/trace/tst.int32_t-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace((int32_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.int32_t.d b/test/unittest/actions/trace/tst.int32_t.d index e29b74ef..83204606 100644 --- a/test/unittest/actions/trace/tst.int32_t.d +++ b/test/unittest/actions/trace/tst.int32_t.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace((int32_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.int64_t-quiet.d b/test/unittest/actions/trace/tst.int64_t-quiet.d index 4c41d05b..806ae2d3 100644 --- a/test/unittest/actions/trace/tst.int64_t-quiet.d +++ b/test/unittest/actions/trace/tst.int64_t-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace((int64_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.int64_t.d b/test/unittest/actions/trace/tst.int64_t.d index 5ce54fb6..88940fb1 100644 --- a/test/unittest/actions/trace/tst.int64_t.d +++ b/test/unittest/actions/trace/tst.int64_t.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace((int64_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.int8_t-quiet.d b/test/unittest/actions/trace/tst.int8_t-quiet.d index c2e87b87..da404b8a 100644 --- a/test/unittest/actions/trace/tst.int8_t-quiet.d +++ b/test/unittest/actions/trace/tst.int8_t-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace((int8_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.int8_t.d b/test/unittest/actions/trace/tst.int8_t.d index 9700118f..03365b9a 100644 --- a/test/unittest/actions/trace/tst.int8_t.d +++ b/test/unittest/actions/trace/tst.int8_t.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace((int8_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.str-empty.d b/test/unittest/actions/trace/tst.str-empty.d index 38fcb885..4e14d405 100644 --- a/test/unittest/actions/trace/tst.str-empty.d +++ b/test/unittest/actions/trace/tst.str-empty.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace(""); exit(0); diff --git a/test/unittest/actions/trace/tst.str-quiet.d b/test/unittest/actions/trace/tst.str-quiet.d index fc873ed0..5c74ced3 100644 --- a/test/unittest/actions/trace/tst.str-quiet.d +++ b/test/unittest/actions/trace/tst.str-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace("a"); exit(0); diff --git a/test/unittest/actions/trace/tst.str.d b/test/unittest/actions/trace/tst.str.d index 1aae5c57..d6604133 100644 --- a/test/unittest/actions/trace/tst.str.d +++ b/test/unittest/actions/trace/tst.str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace("a"); exit(0); diff --git a/test/unittest/actions/trace/tst.struct-1-byte.d b/test/unittest/actions/trace/tst.struct-1-byte.d index 36de485f..92290f2b 100644 --- a/test/unittest/actions/trace/tst.struct-1-byte.d +++ b/test/unittest/actions/trace/tst.struct-1-byte.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ struct { int8_t x; } st; -BEGIN +dtrace:::BEGIN { st.x = 0x34; trace(st); diff --git a/test/unittest/actions/trace/tst.struct.d b/test/unittest/actions/trace/tst.struct.d index ec60ea11..18ebec9f 100644 --- a/test/unittest/actions/trace/tst.struct.d +++ b/test/unittest/actions/trace/tst.struct.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ struct { int c; } st; -BEGIN +dtrace:::BEGIN { st.a = 0x1234; st.b = 0; diff --git a/test/unittest/actions/trace/tst.uint16_t-quiet.d b/test/unittest/actions/trace/tst.uint16_t-quiet.d index 383fe4f1..94dfdb3d 100644 --- a/test/unittest/actions/trace/tst.uint16_t-quiet.d +++ b/test/unittest/actions/trace/tst.uint16_t-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace((uint16_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.uint16_t.d b/test/unittest/actions/trace/tst.uint16_t.d index b299f48c..0dbda82f 100644 --- a/test/unittest/actions/trace/tst.uint16_t.d +++ b/test/unittest/actions/trace/tst.uint16_t.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace((uint16_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.uint32_t-quiet.d b/test/unittest/actions/trace/tst.uint32_t-quiet.d index 33aa8bdc..015d180c 100644 --- a/test/unittest/actions/trace/tst.uint32_t-quiet.d +++ b/test/unittest/actions/trace/tst.uint32_t-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace((uint32_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.uint32_t.d b/test/unittest/actions/trace/tst.uint32_t.d index 6e7dffa5..6ad09475 100644 --- a/test/unittest/actions/trace/tst.uint32_t.d +++ b/test/unittest/actions/trace/tst.uint32_t.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace((uint32_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.uint64_t-quiet.d b/test/unittest/actions/trace/tst.uint64_t-quiet.d index f9569008..c7c128b8 100644 --- a/test/unittest/actions/trace/tst.uint64_t-quiet.d +++ b/test/unittest/actions/trace/tst.uint64_t-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(-1ul); exit(0); diff --git a/test/unittest/actions/trace/tst.uint64_t.d b/test/unittest/actions/trace/tst.uint64_t.d index 2934538b..94bf4528 100644 --- a/test/unittest/actions/trace/tst.uint64_t.d +++ b/test/unittest/actions/trace/tst.uint64_t.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace(-1ul); exit(0); diff --git a/test/unittest/actions/trace/tst.uint8_t-quiet.d b/test/unittest/actions/trace/tst.uint8_t-quiet.d index 0f5108ec..7d61389a 100644 --- a/test/unittest/actions/trace/tst.uint8_t-quiet.d +++ b/test/unittest/actions/trace/tst.uint8_t-quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace((uint8_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.uint8_t.d b/test/unittest/actions/trace/tst.uint8_t.d index 4c9bf269..255cd42b 100644 --- a/test/unittest/actions/trace/tst.uint8_t.d +++ b/test/unittest/actions/trace/tst.uint8_t.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace((uint8_t)-1); exit(0); diff --git a/test/unittest/actions/trace/tst.union.d b/test/unittest/actions/trace/tst.union.d index 56b2ff81..bdb358b5 100644 --- a/test/unittest/actions/trace/tst.union.d +++ b/test/unittest/actions/trace/tst.union.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ union { short c; } u; -BEGIN +dtrace:::BEGIN { u.a = 0x12345678; trace(u); diff --git a/test/unittest/aggs/err.D_AGG_FUNC.non_agg_func.d b/test/unittest/aggs/err.D_AGG_FUNC.non_agg_func.d index 503893d1..e8181eef 100644 --- a/test/unittest/aggs/err.D_AGG_FUNC.non_agg_func.d +++ b/test/unittest/aggs/err.D_AGG_FUNC.non_agg_func.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = trace(0); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_MDIM.multi_dim.d b/test/unittest/aggs/err.D_AGG_MDIM.multi_dim.d index 5dfca3f7..530bd821 100644 --- a/test/unittest/aggs/err.D_AGG_MDIM.multi_dim.d +++ b/test/unittest/aggs/err.D_AGG_MDIM.multi_dim.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @[0][1] = count(); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_NULL.idx_no_func.d b/test/unittest/aggs/err.D_AGG_NULL.idx_no_func.d index 9048ead5..55d8bf7a 100644 --- a/test/unittest/aggs/err.D_AGG_NULL.idx_no_func.d +++ b/test/unittest/aggs/err.D_AGG_NULL.idx_no_func.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @a[1]; exit(0); diff --git a/test/unittest/aggs/err.D_AGG_NULL.no_func.d b/test/unittest/aggs/err.D_AGG_NULL.no_func.d index 05ee4b6d..2ba726f2 100644 --- a/test/unittest/aggs/err.D_AGG_NULL.no_func.d +++ b/test/unittest/aggs/err.D_AGG_NULL.no_func.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @a = count(); @a; diff --git a/test/unittest/aggs/err.D_AGG_REDEF.diff_funcs.d b/test/unittest/aggs/err.D_AGG_REDEF.diff_funcs.d index 2b9ec5d1..d995e95f 100644 --- a/test/unittest/aggs/err.D_AGG_REDEF.diff_funcs.d +++ b/test/unittest/aggs/err.D_AGG_REDEF.diff_funcs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,13 +11,13 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @a = count(); exit(0); } -END +dtrace:::END { @a = max(0); } diff --git a/test/unittest/aggs/err.D_AGG_REDEF.idx_diff_funcs.d b/test/unittest/aggs/err.D_AGG_REDEF.idx_diff_funcs.d index 5dafe12b..713cc952 100644 --- a/test/unittest/aggs/err.D_AGG_REDEF.idx_diff_funcs.d +++ b/test/unittest/aggs/err.D_AGG_REDEF.idx_diff_funcs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @[1] = count(); @[2] = sum(5); diff --git a/test/unittest/aggs/err.D_AGG_SCALAR.avg_str_val.d b/test/unittest/aggs/err.D_AGG_SCALAR.avg_str_val.d index 02648155..ac9fb253 100644 --- a/test/unittest/aggs/err.D_AGG_SCALAR.avg_str_val.d +++ b/test/unittest/aggs/err.D_AGG_SCALAR.avg_str_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = avg(""); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_SCALAR.llquantize_str_val.d b/test/unittest/aggs/err.D_AGG_SCALAR.llquantize_str_val.d index e33ff681..d77e60cd 100644 --- a/test/unittest/aggs/err.D_AGG_SCALAR.llquantize_str_val.d +++ b/test/unittest/aggs/err.D_AGG_SCALAR.llquantize_str_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize("", 10, 0, 6, 20); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_SCALAR.lquantize_str_val.d b/test/unittest/aggs/err.D_AGG_SCALAR.lquantize_str_val.d index 3b99b7b0..4f8c0848 100644 --- a/test/unittest/aggs/err.D_AGG_SCALAR.lquantize_str_val.d +++ b/test/unittest/aggs/err.D_AGG_SCALAR.lquantize_str_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize("", 1, 5, 1); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_SCALAR.max_str_val.d b/test/unittest/aggs/err.D_AGG_SCALAR.max_str_val.d index eb5b8dd9..19411e87 100644 --- a/test/unittest/aggs/err.D_AGG_SCALAR.max_str_val.d +++ b/test/unittest/aggs/err.D_AGG_SCALAR.max_str_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = max(""); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_SCALAR.min_str_val.d b/test/unittest/aggs/err.D_AGG_SCALAR.min_str_val.d index 5abac1d7..19dd5380 100644 --- a/test/unittest/aggs/err.D_AGG_SCALAR.min_str_val.d +++ b/test/unittest/aggs/err.D_AGG_SCALAR.min_str_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = min(""); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_SCALAR.quantize_str_val.d b/test/unittest/aggs/err.D_AGG_SCALAR.quantize_str_val.d index 9b2bc812..ebf8f3cd 100644 --- a/test/unittest/aggs/err.D_AGG_SCALAR.quantize_str_val.d +++ b/test/unittest/aggs/err.D_AGG_SCALAR.quantize_str_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = quantize(""); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_SCALAR.stddev_str_val.d b/test/unittest/aggs/err.D_AGG_SCALAR.stddev_str_val.d index 37343045..b387e0b8 100644 --- a/test/unittest/aggs/err.D_AGG_SCALAR.stddev_str_val.d +++ b/test/unittest/aggs/err.D_AGG_SCALAR.stddev_str_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = stddev(""); exit(0); diff --git a/test/unittest/aggs/err.D_AGG_SCALAR.sum_str_val.d b/test/unittest/aggs/err.D_AGG_SCALAR.sum_str_val.d index 0e52363a..b350b235 100644 --- a/test/unittest/aggs/err.D_AGG_SCALAR.sum_str_val.d +++ b/test/unittest/aggs/err.D_AGG_SCALAR.sum_str_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = sum(""); exit(0); diff --git a/test/unittest/aggs/err.D_CG_EXPR.from_expr.d b/test/unittest/aggs/err.D_CG_EXPR.from_expr.d index 1b8c2d9e..affaf724 100644 --- a/test/unittest/aggs/err.D_CG_EXPR.from_expr.d +++ b/test/unittest/aggs/err.D_CG_EXPR.from_expr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { avg(1); exit(0); diff --git a/test/unittest/aggs/err.D_CLEAR_AGGARG.clear_no_agg.d b/test/unittest/aggs/err.D_CLEAR_AGGARG.clear_no_agg.d index d60e67ea..94bc731d 100644 --- a/test/unittest/aggs/err.D_CLEAR_AGGARG.clear_no_agg.d +++ b/test/unittest/aggs/err.D_CLEAR_AGGARG.clear_no_agg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Clearing aggregations */ -BEGIN +dtrace:::BEGIN { clear(count()); exit(0); diff --git a/test/unittest/aggs/err.D_FUNC_IDENT.probe_as_func.d b/test/unittest/aggs/err.D_FUNC_IDENT.probe_as_func.d index 4354453b..11343d20 100644 --- a/test/unittest/aggs/err.D_FUNC_IDENT.probe_as_func.d +++ b/test/unittest/aggs/err.D_FUNC_IDENT.probe_as_func.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = tick-1(); exit(0); diff --git a/test/unittest/aggs/err.D_FUNC_UNDEF.badaggfunc.d b/test/unittest/aggs/err.D_FUNC_UNDEF.badaggfunc.d index f512801e..aae12703 100644 --- a/test/unittest/aggs/err.D_FUNC_UNDEF.badaggfunc.d +++ b/test/unittest/aggs/err.D_FUNC_UNDEF.badaggfunc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = f(); exit(0); diff --git a/test/unittest/aggs/err.D_IDENT_UNDEF.no_func.d b/test/unittest/aggs/err.D_IDENT_UNDEF.no_func.d index d4125664..28576e28 100644 --- a/test/unittest/aggs/err.D_IDENT_UNDEF.no_func.d +++ b/test/unittest/aggs/err.D_IDENT_UNDEF.no_func.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @a; exit(0); diff --git a/test/unittest/aggs/err.D_KEY_TYPE.agg_key.d b/test/unittest/aggs/err.D_KEY_TYPE.agg_key.d index 83e51f86..39b1855f 100644 --- a/test/unittest/aggs/err.D_KEY_TYPE.agg_key.d +++ b/test/unittest/aggs/err.D_KEY_TYPE.agg_key.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @a = count(); @[@a] = count(); diff --git a/test/unittest/aggs/err.D_KEY_TYPE.dyn_expr_key.d b/test/unittest/aggs/err.D_KEY_TYPE.dyn_expr_key.d index 78ec0e53..0413f4d0 100644 --- a/test/unittest/aggs/err.D_KEY_TYPE.dyn_expr_key.d +++ b/test/unittest/aggs/err.D_KEY_TYPE.dyn_expr_key.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @a[curpsinfo] = count(); exit(0); diff --git a/test/unittest/aggs/err.D_KEY_TYPE.void_key.d b/test/unittest/aggs/err.D_KEY_TYPE.void_key.d index ccec9ba2..0a61659a 100644 --- a/test/unittest/aggs/err.D_KEY_TYPE.void_key.d +++ b/test/unittest/aggs/err.D_KEY_TYPE.void_key.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @[trace(0)] = count(); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_FACTORTYPE.d b/test/unittest/aggs/err.D_LLQUANT_FACTORTYPE.d index a4f90a48..97716efc 100644 --- a/test/unittest/aggs/err.D_LLQUANT_FACTORTYPE.d +++ b/test/unittest/aggs/err.D_LLQUANT_FACTORTYPE.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { factor = 1; @ = llquantize(1, factor, 0, 6, 20); diff --git a/test/unittest/aggs/err.D_LLQUANT_FACTORVAL.too_big.d b/test/unittest/aggs/err.D_LLQUANT_FACTORVAL.too_big.d index e48ede85..8f99600f 100644 --- a/test/unittest/aggs/err.D_LLQUANT_FACTORVAL.too_big.d +++ b/test/unittest/aggs/err.D_LLQUANT_FACTORVAL.too_big.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 65536, 0, 6, 20); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_FACTORVAL.too_small.d b/test/unittest/aggs/err.D_LLQUANT_FACTORVAL.too_small.d index eb44cd75..e84991ea 100644 --- a/test/unittest/aggs/err.D_LLQUANT_FACTORVAL.too_small.d +++ b/test/unittest/aggs/err.D_LLQUANT_FACTORVAL.too_small.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 1, 0, 6, 20); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_HMAGTYPE.d b/test/unittest/aggs/err.D_LLQUANT_HMAGTYPE.d index 0ad0f988..822fcdbe 100644 --- a/test/unittest/aggs/err.D_LLQUANT_HMAGTYPE.d +++ b/test/unittest/aggs/err.D_LLQUANT_HMAGTYPE.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { hmag = 10; @ = llquantize(1, 10, 0, hmag, 20); diff --git a/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.lt_lmag.d b/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.lt_lmag.d index 3adf6c63..8b55b43a 100644 --- a/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.lt_lmag.d +++ b/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.lt_lmag.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020 Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 4, 3, 20); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.neg.d b/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.neg.d index 66afda51..12aadc0a 100644 --- a/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.neg.d +++ b/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, -1, 20); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.overflow.d b/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.overflow.d index 13e20e49..69d146cb 100644 --- a/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.overflow.d +++ b/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.overflow.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, 30, 20); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.too_big.d b/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.too_big.d index 93a557e4..4a8a7056 100644 --- a/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.too_big.d +++ b/test/unittest/aggs/err.D_LLQUANT_HMAGVAL.too_big.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, 65536, 20); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_LMAGTYPE.d b/test/unittest/aggs/err.D_LLQUANT_LMAGTYPE.d index 18263b02..bf8daf21 100644 --- a/test/unittest/aggs/err.D_LLQUANT_LMAGTYPE.d +++ b/test/unittest/aggs/err.D_LLQUANT_LMAGTYPE.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { lmag = 1; @ = llquantize(1, 10, lmag, 6, 20); diff --git a/test/unittest/aggs/err.D_LLQUANT_LMAGVAL.neg.d b/test/unittest/aggs/err.D_LLQUANT_LMAGVAL.neg.d index 31b55f32..b4255f9d 100644 --- a/test/unittest/aggs/err.D_LLQUANT_LMAGVAL.neg.d +++ b/test/unittest/aggs/err.D_LLQUANT_LMAGVAL.neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, -1, 6, 20); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_LMAGVAL.too_big.d b/test/unittest/aggs/err.D_LLQUANT_LMAGVAL.too_big.d index 2efe8fc7..2fbff60a 100644 --- a/test/unittest/aggs/err.D_LLQUANT_LMAGVAL.too_big.d +++ b/test/unittest/aggs/err.D_LLQUANT_LMAGVAL.too_big.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 65536, 6, 20); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_MATCHFACTOR.d b/test/unittest/aggs/err.D_LLQUANT_MATCHFACTOR.d index de6987d0..473ea5ae 100644 --- a/test/unittest/aggs/err.D_LLQUANT_MATCHFACTOR.d +++ b/test/unittest/aggs/err.D_LLQUANT_MATCHFACTOR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(0, 10, 0, 6, 20); @ = llquantize(0, 20, 0, 6, 20); diff --git a/test/unittest/aggs/err.D_LLQUANT_MATCHHMAG.d b/test/unittest/aggs/err.D_LLQUANT_MATCHHMAG.d index e8bc69c6..4f95ee3b 100644 --- a/test/unittest/aggs/err.D_LLQUANT_MATCHHMAG.d +++ b/test/unittest/aggs/err.D_LLQUANT_MATCHHMAG.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { @ = llquantize(0, 10, 0, 6, 20); @ = llquantize(0, 10, 0, 5, 20); diff --git a/test/unittest/aggs/err.D_LLQUANT_MATCHLMAG.d b/test/unittest/aggs/err.D_LLQUANT_MATCHLMAG.d index 5d83aabc..6d7ebdd0 100644 --- a/test/unittest/aggs/err.D_LLQUANT_MATCHLMAG.d +++ b/test/unittest/aggs/err.D_LLQUANT_MATCHLMAG.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(0, 10, 0, 6, 20); @ = llquantize(0, 10, 1, 6, 20); diff --git a/test/unittest/aggs/err.D_LLQUANT_MATCHSTEPS.d b/test/unittest/aggs/err.D_LLQUANT_MATCHSTEPS.d index 5d3f1a2e..1fe7e8c9 100644 --- a/test/unittest/aggs/err.D_LLQUANT_MATCHSTEPS.d +++ b/test/unittest/aggs/err.D_LLQUANT_MATCHSTEPS.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(0, 10, 0, 6, 20); @ = llquantize(0, 10, 0, 6, 50); diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.d b/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.d index 90db651b..4105ebc1 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { steps = 10; @ = llquantize(1, 10, 0, 6, steps); diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.llqstepszero.d b/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.llqstepszero.d index f2b0f442..34ba9303 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.llqstepszero.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.llqstepszero.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { @ = llquantize(timestamp, 10, 0, 6, 0); } diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.neg.d b/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.neg.d index c19f06e3..9e697182 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.neg.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPTYPE.neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, 6, -1); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_1.d b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_1.d index 0d34eceb..d7633292 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_1.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, 6, 25); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_2.d b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_2.d index 53754cf1..f0244325 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_2.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 2, 6, 80); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_3.d b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_3.d index 46fb4139..e806674c 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_3.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.factor_divides_steps_3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020 Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, 6, 30); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.llqdividefactor.d b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.llqdividefactor.d index c0cba8c3..63e77e55 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.llqdividefactor.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.llqdividefactor.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1234, 10, 0, 6, 3); } diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.llqmultiplefactor.d b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.llqmultiplefactor.d index 4b109904..d41fdb84 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.llqmultiplefactor.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.llqmultiplefactor.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1234, 10, 0, 6, 15); } diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.steps_divides_factor.d b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.steps_divides_factor.d index 75356338..fa1bb32f 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.steps_divides_factor.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.steps_divides_factor.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020 Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, 6, 6); exit(0); diff --git a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.too_big.d b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.too_big.d index 7d837318..13bf840b 100644 --- a/test/unittest/aggs/err.D_LLQUANT_STEPVAL.too_big.d +++ b/test/unittest/aggs/err.D_LLQUANT_STEPVAL.too_big.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, 6, 65536); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_BASETYPE.var.d b/test/unittest/aggs/err.D_LQUANT_BASETYPE.var.d index 68270426..4dbfb0ee 100644 --- a/test/unittest/aggs/err.D_LQUANT_BASETYPE.var.d +++ b/test/unittest/aggs/err.D_LQUANT_BASETYPE.var.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { base = 1; @ = lquantize(1, base, 1000); diff --git a/test/unittest/aggs/err.D_LQUANT_BASEVAL.too_big.d b/test/unittest/aggs/err.D_LQUANT_BASEVAL.too_big.d index 11e3128d..55e0aaca 100644 --- a/test/unittest/aggs/err.D_LQUANT_BASEVAL.too_big.d +++ b/test/unittest/aggs/err.D_LQUANT_BASEVAL.too_big.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 2147483657, 1000); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_BASEVAL.too_small.d b/test/unittest/aggs/err.D_LQUANT_BASEVAL.too_small.d index 7ed415f3..8971fec2 100644 --- a/test/unittest/aggs/err.D_LQUANT_BASEVAL.too_small.d +++ b/test/unittest/aggs/err.D_LQUANT_BASEVAL.too_small.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, -2147483657, 1000); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_LIMTYPE.var.d b/test/unittest/aggs/err.D_LQUANT_LIMTYPE.var.d index 065b806f..6660750b 100644 --- a/test/unittest/aggs/err.D_LQUANT_LIMTYPE.var.d +++ b/test/unittest/aggs/err.D_LQUANT_LIMTYPE.var.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { limit = 10; @ = lquantize(1, 100, limit); diff --git a/test/unittest/aggs/err.D_LQUANT_LIMVAL.too_big.d b/test/unittest/aggs/err.D_LQUANT_LIMVAL.too_big.d index 29b1d9ca..7da4098d 100644 --- a/test/unittest/aggs/err.D_LQUANT_LIMVAL.too_big.d +++ b/test/unittest/aggs/err.D_LQUANT_LIMVAL.too_big.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 100, 2147483657); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_LIMVAL.too_small.d b/test/unittest/aggs/err.D_LQUANT_LIMVAL.too_small.d index 4f12078e..3d190b08 100644 --- a/test/unittest/aggs/err.D_LQUANT_LIMVAL.too_small.d +++ b/test/unittest/aggs/err.D_LQUANT_LIMVAL.too_small.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 100, -2147483657); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_MATCHBASE.d b/test/unittest/aggs/err.D_LQUANT_MATCHBASE.d index f07ac07c..66a4ce4d 100644 --- a/test/unittest/aggs/err.D_LQUANT_MATCHBASE.d +++ b/test/unittest/aggs/err.D_LQUANT_MATCHBASE.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(0, 10, 20, 1); @ = lquantize(0, 15, 20, 1); diff --git a/test/unittest/aggs/err.D_LQUANT_MATCHLIM.d b/test/unittest/aggs/err.D_LQUANT_MATCHLIM.d index 3e1729cc..98732303 100644 --- a/test/unittest/aggs/err.D_LQUANT_MATCHLIM.d +++ b/test/unittest/aggs/err.D_LQUANT_MATCHLIM.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(0, 10, 20, 1); @ = lquantize(0, 10, 2000, 1); diff --git a/test/unittest/aggs/err.D_LQUANT_MATCHSTEP.d b/test/unittest/aggs/err.D_LQUANT_MATCHSTEP.d index a13d283f..edfa2660 100644 --- a/test/unittest/aggs/err.D_LQUANT_MATCHSTEP.d +++ b/test/unittest/aggs/err.D_LQUANT_MATCHSTEP.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(0, 10, 20, 1); @ = lquantize(0, 10, 20, 2); diff --git a/test/unittest/aggs/err.D_LQUANT_MISMATCH.d b/test/unittest/aggs/err.D_LQUANT_MISMATCH.d index f9154dfc..f6e36958 100644 --- a/test/unittest/aggs/err.D_LQUANT_MISMATCH.d +++ b/test/unittest/aggs/err.D_LQUANT_MISMATCH.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 1000, 100); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_MISMATCH.lqbadarg2.d b/test/unittest/aggs/err.D_LQUANT_MISMATCH.lqbadarg2.d index 8cd945a2..0fd06da1 100644 --- a/test/unittest/aggs/err.D_LQUANT_MISMATCH.lqbadarg2.d +++ b/test/unittest/aggs/err.D_LQUANT_MISMATCH.lqbadarg2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,19 +14,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-1 +profile:::tick-1 /i < 1000/ { @ = lquantize(i, 1100, 1100, -100); i += 100; } -tick-1 +profile:::tick-1 /i == 1000/ { exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_STEPLARGE.d b/test/unittest/aggs/err.D_LQUANT_STEPLARGE.d index 1d302d59..e9d7bb61 100644 --- a/test/unittest/aggs/err.D_LQUANT_STEPLARGE.d +++ b/test/unittest/aggs/err.D_LQUANT_STEPLARGE.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 2, 3, 4); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_STEPSMALL.d b/test/unittest/aggs/err.D_LQUANT_STEPSMALL.d index 853f97ba..dd649d6b 100644 --- a/test/unittest/aggs/err.D_LQUANT_STEPSMALL.d +++ b/test/unittest/aggs/err.D_LQUANT_STEPSMALL.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 0, 1000000, 1); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_STEPTYPE.d b/test/unittest/aggs/err.D_LQUANT_STEPTYPE.d index 144c9fcf..3f20d0c7 100644 --- a/test/unittest/aggs/err.D_LQUANT_STEPTYPE.d +++ b/test/unittest/aggs/err.D_LQUANT_STEPTYPE.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { steps = 2; @ = lquantize(1, 0, 1100, steps); diff --git a/test/unittest/aggs/err.D_LQUANT_STEPTYPE.neg.d b/test/unittest/aggs/err.D_LQUANT_STEPTYPE.neg.d index 90feadec..81adf3dc 100644 --- a/test/unittest/aggs/err.D_LQUANT_STEPTYPE.neg.d +++ b/test/unittest/aggs/err.D_LQUANT_STEPTYPE.neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 0, 1100, -10); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_STEPTYPE.zero.d b/test/unittest/aggs/err.D_LQUANT_STEPTYPE.zero.d index 8750fd1d..3de52f5a 100644 --- a/test/unittest/aggs/err.D_LQUANT_STEPTYPE.zero.d +++ b/test/unittest/aggs/err.D_LQUANT_STEPTYPE.zero.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 0, 1100, 0); exit(0); diff --git a/test/unittest/aggs/err.D_LQUANT_STEPVAL.too_big.d b/test/unittest/aggs/err.D_LQUANT_STEPVAL.too_big.d index c7c76cce..3b2845d8 100644 --- a/test/unittest/aggs/err.D_LQUANT_STEPVAL.too_big.d +++ b/test/unittest/aggs/err.D_LQUANT_STEPVAL.too_big.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 1, 100000, 100000); exit(0); diff --git a/test/unittest/aggs/err.D_NORMALIZE_AGGARG.denorm_no_agg.d b/test/unittest/aggs/err.D_NORMALIZE_AGGARG.denorm_no_agg.d index 32202556..c036d4e0 100644 --- a/test/unittest/aggs/err.D_NORMALIZE_AGGARG.denorm_no_agg.d +++ b/test/unittest/aggs/err.D_NORMALIZE_AGGARG.denorm_no_agg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Data Normalization */ -BEGIN +dtrace:::BEGIN { denormalize(count()); exit(0); diff --git a/test/unittest/aggs/err.D_NORMALIZE_AGGARG.norm_no_agg.d b/test/unittest/aggs/err.D_NORMALIZE_AGGARG.norm_no_agg.d index ea24c089..1742b991 100644 --- a/test/unittest/aggs/err.D_NORMALIZE_AGGARG.norm_no_agg.d +++ b/test/unittest/aggs/err.D_NORMALIZE_AGGARG.norm_no_agg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Data Normalization */ -BEGIN +dtrace:::BEGIN { normalize(count(), 4); exit(0); diff --git a/test/unittest/aggs/err.D_OP_INCOMPAT.agg_in_expr.d b/test/unittest/aggs/err.D_OP_INCOMPAT.agg_in_expr.d index ad85fc00..62ac6ff6 100644 --- a/test/unittest/aggs/err.D_OP_INCOMPAT.agg_in_expr.d +++ b/test/unittest/aggs/err.D_OP_INCOMPAT.agg_in_expr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @a = count(); trace(@a + 3); diff --git a/test/unittest/aggs/err.D_PROTO_ARG.llquantize_non_scalar_incr.d b/test/unittest/aggs/err.D_PROTO_ARG.llquantize_non_scalar_incr.d index 216c8ba6..6cd585b4 100644 --- a/test/unittest/aggs/err.D_PROTO_ARG.llquantize_non_scalar_incr.d +++ b/test/unittest/aggs/err.D_PROTO_ARG.llquantize_non_scalar_incr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(1, 10, 0, 2, 20, ""); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_ARG.lquantize_non_scalar_incr.d b/test/unittest/aggs/err.D_PROTO_ARG.lquantize_non_scalar_incr.d index 8efdcc0a..c8d1c38c 100644 --- a/test/unittest/aggs/err.D_PROTO_ARG.lquantize_non_scalar_incr.d +++ b/test/unittest/aggs/err.D_PROTO_ARG.lquantize_non_scalar_incr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 0, 10, 2, ""); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_ARG.norm_non_scalar_normal.d b/test/unittest/aggs/err.D_PROTO_ARG.norm_non_scalar_normal.d index ff7a7bff..21644e89 100644 --- a/test/unittest/aggs/err.D_PROTO_ARG.norm_non_scalar_normal.d +++ b/test/unittest/aggs/err.D_PROTO_ARG.norm_non_scalar_normal.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Data Normalization */ -BEGIN +dtrace:::BEGIN { @a = count(); normalize(@a, "a"); diff --git a/test/unittest/aggs/err.D_PROTO_ARG.quantize_non_scalar_incr.d b/test/unittest/aggs/err.D_PROTO_ARG.quantize_non_scalar_incr.d index 71a29f37..0674936c 100644 --- a/test/unittest/aggs/err.D_PROTO_ARG.quantize_non_scalar_incr.d +++ b/test/unittest/aggs/err.D_PROTO_ARG.quantize_non_scalar_incr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = quantize(1, ""); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_ARG.trunc_non_scalar_trunc.d b/test/unittest/aggs/err.D_PROTO_ARG.trunc_non_scalar_trunc.d index 292f76d5..b1445377 100644 --- a/test/unittest/aggs/err.D_PROTO_ARG.trunc_non_scalar_trunc.d +++ b/test/unittest/aggs/err.D_PROTO_ARG.trunc_non_scalar_trunc.d @@ -1,11 +1,11 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { @a = count(); trunc(@a, @a); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.avg_missing_arg.d b/test/unittest/aggs/err.D_PROTO_LEN.avg_missing_arg.d index 9d002059..96cf0f1a 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.avg_missing_arg.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.avg_missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = avg(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.avg_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.avg_too_many_args.d index 172157a2..fcdd64ac 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.avg_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.avg_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = avg(1, 2); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.clear_too_few_args.d b/test/unittest/aggs/err.D_PROTO_LEN.clear_too_few_args.d index 060b9095..fc9b9818 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.clear_too_few_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.clear_too_few_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Clearing Aggregations */ -BEGIN +dtrace:::BEGIN { clear(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.clear_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.clear_too_many_args.d index ad6c0bb2..29b9d3da 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.clear_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.clear_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Clearing Aggregations */ -BEGIN +dtrace:::BEGIN { @a = count(); clear(@a, 1); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.count_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.count_too_many_args.d index 3360bb75..0565c128 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.count_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.count_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = count(1); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.denorm_too_few_args.d b/test/unittest/aggs/err.D_PROTO_LEN.denorm_too_few_args.d index 5dcccd6a..7a545c5a 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.denorm_too_few_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.denorm_too_few_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Data Normalization */ -BEGIN +dtrace:::BEGIN { denormalize(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.denorm_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.denorm_too_many_args.d index 77ab0613..88287c75 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.denorm_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.denorm_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Data Normalization */ -BEGIN +dtrace:::BEGIN { @a = count(); denormalize(@a, 1); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.llquantize_too_few_args.d b/test/unittest/aggs/err.D_PROTO_LEN.llquantize_too_few_args.d index 26c66dfe..d890903a 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.llquantize_too_few_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.llquantize_too_few_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(50000, 10, 2, 4); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.llquantize_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.llquantize_too_many_args.d index 54e70e1f..64eaea7b 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.llquantize_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.llquantize_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = llquantize(10, 10, 2, 4, 10, 3, 5); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.lquantize_too_few_args.d b/test/unittest/aggs/err.D_PROTO_LEN.lquantize_too_few_args.d index 3567823b..295306c1 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.lquantize_too_few_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.lquantize_too_few_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(1, 0); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.lquantize_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.lquantize_too_many_args.d index 7cb9dd75..dbf7a715 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.lquantize_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.lquantize_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = lquantize(10, 0, 100, 1, 10, 20); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.max_missing_arg.d b/test/unittest/aggs/err.D_PROTO_LEN.max_missing_arg.d index 5b929a9e..9e43dd4f 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.max_missing_arg.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.max_missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = max(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.max_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.max_too_many_args.d index 56c84c3f..275d6b47 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.max_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.max_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = max(1, 2); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.min_missing_arg.d b/test/unittest/aggs/err.D_PROTO_LEN.min_missing_arg.d index 21034431..acb6f110 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.min_missing_arg.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.min_missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = min(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.min_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.min_too_many_args.d index 177f3892..6f0bef67 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.min_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.min_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = min(1, 2); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.norm_too_few_args.d b/test/unittest/aggs/err.D_PROTO_LEN.norm_too_few_args.d index 0363d9c0..c81b19bb 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.norm_too_few_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.norm_too_few_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = count(); normalize(@a); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.norm_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.norm_too_many_args.d index 024ac94a..5fda6c9d 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.norm_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.norm_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Data Normalization */ -BEGIN +dtrace:::BEGIN { @a = count(); normalize(@a, 4, 1); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.quantize_missing_arg.d b/test/unittest/aggs/err.D_PROTO_LEN.quantize_missing_arg.d index 29e04f07..76559952 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.quantize_missing_arg.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.quantize_missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = quantize(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.quantize_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.quantize_too_many_args.d index 1a6ac94c..ece8cb29 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.quantize_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.quantize_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = quantize(1, 2, 3); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.stddev_missing_arg.d b/test/unittest/aggs/err.D_PROTO_LEN.stddev_missing_arg.d index 49355ddb..11daf9ba 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.stddev_missing_arg.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.stddev_missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = stddev(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.stddev_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.stddev_too_many_args.d index ea0ac905..9cb5aee9 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.stddev_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.stddev_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = stddev(1, 2); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.sum_missing_arg.d b/test/unittest/aggs/err.D_PROTO_LEN.sum_missing_arg.d index 625010d0..dbe735e8 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.sum_missing_arg.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.sum_missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Aggregations */ -BEGIN +dtrace:::BEGIN { @ = sum(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.sum_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.sum_too_many_args.d index 157a36ef..51595f36 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.sum_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.sum_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN { @ = sum(1, 2); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.trunc_too_few_args.d b/test/unittest/aggs/err.D_PROTO_LEN.trunc_too_few_args.d index e3cee92b..cb50d4e3 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.trunc_too_few_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.trunc_too_few_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Truncating Aggregations */ -BEGIN +dtrace:::BEGIN { trunc(); exit(0); diff --git a/test/unittest/aggs/err.D_PROTO_LEN.trunc_too_many_args.d b/test/unittest/aggs/err.D_PROTO_LEN.trunc_too_many_args.d index 5d2d8d41..8504f1f8 100644 --- a/test/unittest/aggs/err.D_PROTO_LEN.trunc_too_many_args.d +++ b/test/unittest/aggs/err.D_PROTO_LEN.trunc_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Aggregations/Truncating Aggregations */ -BEGIN +dtrace:::BEGIN { @a = count(); trunc(@a, 4, 1); diff --git a/test/unittest/aggs/err.D_TRUNC_AGGARG.trunc_no_agg.d b/test/unittest/aggs/err.D_TRUNC_AGGARG.trunc_no_agg.d index 9a194496..66957d93 100644 --- a/test/unittest/aggs/err.D_TRUNC_AGGARG.trunc_no_agg.d +++ b/test/unittest/aggs/err.D_TRUNC_AGGARG.trunc_no_agg.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ int i; -BEGIN +dtrace:::BEGIN { trunc(i); exit(0); diff --git a/test/unittest/aggs/err.aggsize-too-small.d b/test/unittest/aggs/err.aggsize-too-small.d index 8bd12381..5736bfcb 100644 --- a/test/unittest/aggs/err.aggsize-too-small.d +++ b/test/unittest/aggs/err.aggsize-too-small.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option aggsize=8 -BEGIN +dtrace:::BEGIN { @ = count(); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/aggs/tst.aggmod_full.sh b/test/unittest/aggs/tst.aggmod_full.sh index 31d5cd23..95a1a920 100755 --- a/test/unittest/aggs/tst.aggmod_full.sh +++ b/test/unittest/aggs/tst.aggmod_full.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2017, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -137,7 +137,7 @@ while [[ $(find . -name "*@*" -print -quit | wc -l) -gt 0 ]]; do modname=`echo $cmds | sed 's/^\.\///' | sed 's/@.*$//'` # form a proper D script - echo "BEGIN {" > D.d + echo "dtrace:::BEGIN {" > D.d cat $cmds >> D.d echo "}" >> D.d diff --git a/test/unittest/aggs/tst.aggpercpu.sh b/test/unittest/aggs/tst.aggpercpu.sh index e329097c..d2b16f0b 100755 --- a/test/unittest/aggs/tst.aggpercpu.sh +++ b/test/unittest/aggs/tst.aggpercpu.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ cd $DIRNAME # $dtrace $dt_flags -xaggpercpu -qn ' - profile-600ms + profile:::profile-600ms { printf("cpu %d\n", cpu); @xcnt = count(); @@ -28,7 +28,7 @@ $dtrace $dt_flags -xaggpercpu -qn ' @xmax = max(40 * cpu - 15); @xsum = sum(50 * cpu); } - tick-900ms + profile:::tick-900ms { exit(0) } diff --git a/test/unittest/aggs/tst.avg.d b/test/unittest/aggs/tst.avg.d index 68cf18a9..dca8fbc9 100644 --- a/test/unittest/aggs/tst.avg.d +++ b/test/unittest/aggs/tst.avg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,19 +15,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 1000/ { @a = avg(i); i += 100; } -tick-10ms +profile:::tick-10ms /i == 1000/ { exit(0); diff --git a/test/unittest/aggs/tst.avg_neg.d b/test/unittest/aggs/tst.avg_neg.d index be62b2e2..c64e3357 100644 --- a/test/unittest/aggs/tst.avg_neg.d +++ b/test/unittest/aggs/tst.avg_neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @ = avg(0); @ = avg(-900); diff --git a/test/unittest/aggs/tst.chararray-key.d b/test/unittest/aggs/tst.chararray-key.d index 2bb63837..774ab391 100644 --- a/test/unittest/aggs/tst.chararray-key.d +++ b/test/unittest/aggs/tst.chararray-key.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,13 +13,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @[(string)curpsinfo->pr_fname] = count(); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/aggs/tst.clear-one.d b/test/unittest/aggs/tst.clear-one.d index f96c2db0..77a9f96d 100644 --- a/test/unittest/aggs/tst.clear-one.d +++ b/test/unittest/aggs/tst.clear-one.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a[1] = sum(100); @a[2] = sum( 20); diff --git a/test/unittest/aggs/tst.clear.d b/test/unittest/aggs/tst.clear.d index 07d3a7e8..bef49e72 100644 --- a/test/unittest/aggs/tst.clear.d +++ b/test/unittest/aggs/tst.clear.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option aggrate=1ms #pragma D option switchrate=50ms -BEGIN +dtrace:::BEGIN { i = 0; @func[i%5] = sum(i * 100); i++; diff --git a/test/unittest/aggs/tst.clearavg.d b/test/unittest/aggs/tst.clearavg.d index 60e60365..1e799a7a 100644 --- a/test/unittest/aggs/tst.clearavg.d +++ b/test/unittest/aggs/tst.clearavg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = avg(timestamp); @a = avg(timestamp); diff --git a/test/unittest/aggs/tst.clearavg2.d b/test/unittest/aggs/tst.clearavg2.d index cd022e14..33ab7e21 100644 --- a/test/unittest/aggs/tst.clearavg2.d +++ b/test/unittest/aggs/tst.clearavg2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ #pragma D option switchrate=50ms #pragma D option aggrate=1ms -BEGIN +dtrace:::BEGIN { @time = avg(0); printa(" %@d\n", @time); diff --git a/test/unittest/aggs/tst.cleardenormalize.d b/test/unittest/aggs/tst.cleardenormalize.d index bdc8ae96..434fd76e 100644 --- a/test/unittest/aggs/tst.cleardenormalize.d +++ b/test/unittest/aggs/tst.cleardenormalize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option aggrate=1ms #pragma D option switchrate=50ms -BEGIN +dtrace:::BEGIN { i = 0; @func[i % 5] = sum(i * 100); i++; diff --git a/test/unittest/aggs/tst.clearlquantize.d b/test/unittest/aggs/tst.clearlquantize.d index 40146b24..365fcbab 100644 --- a/test/unittest/aggs/tst.clearlquantize.d +++ b/test/unittest/aggs/tst.clearlquantize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ #pragma D option aggrate=1ms #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; n = 0; diff --git a/test/unittest/aggs/tst.clearnormalize.d b/test/unittest/aggs/tst.clearnormalize.d index 66f81b81..bc19e6ef 100644 --- a/test/unittest/aggs/tst.clearnormalize.d +++ b/test/unittest/aggs/tst.clearnormalize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option aggrate=1ms #pragma D option switchrate=50ms -BEGIN +dtrace:::BEGIN { i = 0; @func[i % 5] = sum(i * 100); i++; diff --git a/test/unittest/aggs/tst.count.d b/test/unittest/aggs/tst.count.d index a0fb5c0e..3916e023 100644 --- a/test/unittest/aggs/tst.count.d +++ b/test/unittest/aggs/tst.count.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = count(); @a = count(); diff --git a/test/unittest/aggs/tst.count2.d b/test/unittest/aggs/tst.count2.d index b59a16b5..743e68fe 100644 --- a/test/unittest/aggs/tst.count2.d +++ b/test/unittest/aggs/tst.count2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,19 +14,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i != 10/ { i++; @counts["tick-count"] = count(); } -tick-10ms +profile:::tick-10ms /i == 10/ { exit(0); diff --git a/test/unittest/aggs/tst.count3.d b/test/unittest/aggs/tst.count3.d index a1884bac..cf70486a 100644 --- a/test/unittest/aggs/tst.count3.d +++ b/test/unittest/aggs/tst.count3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,12 +15,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i != 10/ { i++; @@ -28,7 +28,7 @@ tick-10ms @counts2[execname, arg0] = count(); } -tick-10ms +profile:::tick-10ms /i == 10/ { exit(0); diff --git a/test/unittest/aggs/tst.count_notquiet.d b/test/unittest/aggs/tst.count_notquiet.d index 87954418..7b868cc1 100644 --- a/test/unittest/aggs/tst.count_notquiet.d +++ b/test/unittest/aggs/tst.count_notquiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,24 +12,24 @@ */ /* three default actions */ -BEGIN { } -BEGIN { } -BEGIN { } +dtrace:::BEGIN { } +dtrace:::BEGIN { } +dtrace:::BEGIN { } /* one explicit action */ -BEGIN { trace("hello world"); } +dtrace:::BEGIN { trace("hello world"); } /* ten non-data-recording actions */ -BEGIN { @a = count(); } -BEGIN { @a = count(); } -BEGIN { @a = count(); } -BEGIN { @a = count(); } -BEGIN { @a = count(); } -BEGIN { @a = count(); } -BEGIN { @a = count(); } -BEGIN { @a = count(); } -BEGIN { @a = count(); } -BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } +dtrace:::BEGIN { @a = count(); } /* exit */ -BEGIN { exit(0); } +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/aggs/tst.denormalize.d b/test/unittest/aggs/tst.denormalize.d index 1584b32a..5f006f71 100644 --- a/test/unittest/aggs/tst.denormalize.d +++ b/test/unittest/aggs/tst.denormalize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 20/ { @a = sum(i * 100); @@ -27,7 +27,7 @@ tick-10ms i++; } -tick-10ms +profile:::tick-10ms /i == 20/ { normalize(@a, 5); diff --git a/test/unittest/aggs/tst.denormalizeonly.d b/test/unittest/aggs/tst.denormalizeonly.d index d232f95e..1d2f0519 100644 --- a/test/unittest/aggs/tst.denormalizeonly.d +++ b/test/unittest/aggs/tst.denormalizeonly.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,20 +17,20 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; start = timestamp; } -tick-10ms +profile:::tick-10ms /i < 20/ { @func[i%5] = sum(i * 100); i++; } -tick-10ms +profile:::tick-10ms /i == 20/ { printf("denormalized:"); diff --git a/test/unittest/aggs/tst.empty.d b/test/unittest/aggs/tst.empty.d index 784e1dd9..967aae00 100644 --- a/test/unittest/aggs/tst.empty.d +++ b/test/unittest/aggs/tst.empty.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 12345678; @a = sum(i); @@ -21,7 +21,7 @@ BEGIN } /* this probe should not fire */ -tick-1hour +profile:::tick-1hour { /* these aggregations should not be printed */ @b = min(i); diff --git a/test/unittest/aggs/tst.fmtnormalize.d b/test/unittest/aggs/tst.fmtnormalize.d index a08f7368..d9b7dad6 100644 --- a/test/unittest/aggs/tst.fmtnormalize.d +++ b/test/unittest/aggs/tst.fmtnormalize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,20 +17,20 @@ #pragma D option aggrate=1ms #pragma D option switchrate=50ms -BEGIN +dtrace:::BEGIN { i = 0; start = timestamp; } -tick-100ms +profile:::tick-100ms /i < 20/ { @func[i % 5] = sum(i * 100); i++; } -tick-100ms +profile:::tick-100ms /i == 20/ { printf("normalized data:\n"); diff --git a/test/unittest/aggs/tst.forms.d b/test/unittest/aggs/tst.forms.d index 06e3996e..1680865a 100644 --- a/test/unittest/aggs/tst.forms.d +++ b/test/unittest/aggs/tst.forms.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = count(); @b = max(1); diff --git a/test/unittest/aggs/tst.goodkey.d b/test/unittest/aggs/tst.goodkey.d index 14b2bebe..e5e2bee4 100644 --- a/test/unittest/aggs/tst.goodkey.d +++ b/test/unittest/aggs/tst.goodkey.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i != 5/ { i++; @@ -26,7 +26,7 @@ tick-10ms } -tick-10ms +profile:::tick-10ms /i == 5/ { exit(0); diff --git a/test/unittest/aggs/tst.keysort.d b/test/unittest/aggs/tst.keysort.d index 31b95088..5b11c77e 100644 --- a/test/unittest/aggs/tst.keysort.d +++ b/test/unittest/aggs/tst.keysort.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; j = 0; diff --git a/test/unittest/aggs/tst.llquantize_basic.d b/test/unittest/aggs/tst.llquantize_basic.d index 74d6fe7a..d0f7c8e8 100644 --- a/test/unittest/aggs/tst.llquantize_basic.d +++ b/test/unittest/aggs/tst.llquantize_basic.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* basic functionality for steps= 27/ { exit(0); } -tick-10ms +profile:::tick-10ms /i > 8/ { @ = llquantize(2, 10, 0, 2, 20); } -tick-10ms +profile:::tick-10ms /i > 2 && i <= 8/ { @ = llquantize(1, 10, 0, 2, 20); } -tick-10ms +profile:::tick-10ms /i <= 2/ { @ = llquantize(0, 10, 0, 2, 20); diff --git a/test/unittest/aggs/tst.llquantsortkey.d b/test/unittest/aggs/tst.llquantsortkey.d index 73f18d61..26c7ade5 100644 --- a/test/unittest/aggs/tst.llquantsortkey.d +++ b/test/unittest/aggs/tst.llquantsortkey.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @["Spanky"] = llquantize(10, 10, 0, 2, 20, 20); @["Buckwheat"] = llquantize(4, 10, 0, 2, 20, 50); diff --git a/test/unittest/aggs/tst.llquantsortsum.d b/test/unittest/aggs/tst.llquantsortsum.d index 302890f6..704f0832 100644 --- a/test/unittest/aggs/tst.llquantsortsum.d +++ b/test/unittest/aggs/tst.llquantsortsum.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @["Larry"] = llquantize(1, 10, 0, 2, 20, -25); @["Moe"] = llquantize(2, 10, 0, 2, 20, -50); diff --git a/test/unittest/aggs/tst.llquantsortzero.d b/test/unittest/aggs/tst.llquantsortzero.d index df2fdaaf..1987e950 100644 --- a/test/unittest/aggs/tst.llquantsortzero.d +++ b/test/unittest/aggs/tst.llquantsortzero.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @["Alfalfa"] = llquantize(0, 10, 0, 2, 20, 25); @["Buckwheat"] = llquantize(0, 10, 0, 2, 20, -25); diff --git a/test/unittest/aggs/tst.lquantize.d b/test/unittest/aggs/tst.lquantize.d index e1764238..71645e64 100644 --- a/test/unittest/aggs/tst.lquantize.d +++ b/test/unittest/aggs/tst.lquantize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,19 +17,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 1000/ { @a[i] = lquantize(i, -100, 1100, 100); i += 100; } -tick-10ms +profile:::tick-10ms /i == 1000/ { exit(0); diff --git a/test/unittest/aggs/tst.lquantnormal.d b/test/unittest/aggs/tst.lquantnormal.d index 16356279..25a0a13c 100644 --- a/test/unittest/aggs/tst.lquantnormal.d +++ b/test/unittest/aggs/tst.lquantnormal.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -tick-10ms +profile:::tick-10ms /i++ < 10/ { @ = lquantize(i, 0, 10); @@ -17,13 +17,13 @@ tick-10ms @ = lquantize(i, 0, 10); } -tick-10ms +profile:::tick-10ms /i == 10/ { exit(0); } -END +dtrace:::END { normalize(@, 5); printa(@); diff --git a/test/unittest/aggs/tst.lquantrange.d b/test/unittest/aggs/tst.lquantrange.d index cd0a3fab..63da896d 100644 --- a/test/unittest/aggs/tst.lquantrange.d +++ b/test/unittest/aggs/tst.lquantrange.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @["Nixon"] = lquantize(-20, -10, 10, 1, 25); @["Hoover"] = lquantize(20, -10, 10, 1, -100); diff --git a/test/unittest/aggs/tst.lquantround.d b/test/unittest/aggs/tst.lquantround.d index 4a3bdd00..3fe4a898 100644 --- a/test/unittest/aggs/tst.lquantround.d +++ b/test/unittest/aggs/tst.lquantround.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,25 +11,25 @@ * This test verifies that the height of the ASCII quantization bars is * determined using rounding and not truncated integer arithmetic. */ -tick-10ms +profile:::tick-10ms /i++ >= 27/ { exit(0); } -tick-10ms +profile:::tick-10ms /i > 8/ { @ = lquantize(2, 0, 4); } -tick-10ms +profile:::tick-10ms /i > 2 && i <= 8/ { @ = lquantize(1, 0, 4); } -tick-10ms +profile:::tick-10ms /i <= 2/ { @ = lquantize(0, 0, 4); diff --git a/test/unittest/aggs/tst.lquantzero.d b/test/unittest/aggs/tst.lquantzero.d index b942015d..dee22c0c 100644 --- a/test/unittest/aggs/tst.lquantzero.d +++ b/test/unittest/aggs/tst.lquantzero.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = 7; b = 13; diff --git a/test/unittest/aggs/tst.max.d b/test/unittest/aggs/tst.max.d index 6c27aee0..4180a93f 100644 --- a/test/unittest/aggs/tst.max.d +++ b/test/unittest/aggs/tst.max.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,19 +15,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 100; } -tick-10ms +profile:::tick-10ms /i < 1000/ { @a = max(i); i += 100; } -tick-10ms +profile:::tick-10ms /i == 1000/ { printa(@a); diff --git a/test/unittest/aggs/tst.max_neg.d b/test/unittest/aggs/tst.max_neg.d index 1c9bd5c4..20921c04 100644 --- a/test/unittest/aggs/tst.max_neg.d +++ b/test/unittest/aggs/tst.max_neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @ = max(-100); @ = max(-900); diff --git a/test/unittest/aggs/tst.min.d b/test/unittest/aggs/tst.min.d index f2c3865d..31605e89 100644 --- a/test/unittest/aggs/tst.min.d +++ b/test/unittest/aggs/tst.min.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,19 +15,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 100; } -tick-10ms +profile:::tick-10ms /i < 1000/ { @a = min(i); i += 100; } -tick-10ms +profile:::tick-10ms /i == 1000/ { exit(0); diff --git a/test/unittest/aggs/tst.min_neg.d b/test/unittest/aggs/tst.min_neg.d index d76ceca1..ee53d7e2 100644 --- a/test/unittest/aggs/tst.min_neg.d +++ b/test/unittest/aggs/tst.min_neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @ = min(-100); @ = min(-900); diff --git a/test/unittest/aggs/tst.multiaggs1.d b/test/unittest/aggs/tst.multiaggs1.d index c9afd225..08596a9a 100644 --- a/test/unittest/aggs/tst.multiaggs1.d +++ b/test/unittest/aggs/tst.multiaggs1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,13 +15,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { time_1 = timestamp; i = 0; } -tick-10ms +profile:::tick-10ms /i <= 10/ { time_2 = timestamp; @@ -38,7 +38,7 @@ tick-10ms i++; } -tick-10ms +profile:::tick-10ms /i == 10/ { exit(0); diff --git a/test/unittest/aggs/tst.multiaggs2.d b/test/unittest/aggs/tst.multiaggs2.d index b396de00..a8e4bdfe 100644 --- a/test/unittest/aggs/tst.multiaggs2.d +++ b/test/unittest/aggs/tst.multiaggs2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 1000/ { @a = avg(i); @@ -32,7 +32,7 @@ tick-10ms i += 100; } -tick-10ms +profile:::tick-10ms /i == 1000/ { exit(0); diff --git a/test/unittest/aggs/tst.multiaggs3.d b/test/unittest/aggs/tst.multiaggs3.d index 2459233f..a75a9bd4 100644 --- a/test/unittest/aggs/tst.multiaggs3.d +++ b/test/unittest/aggs/tst.multiaggs3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,12 +19,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 1000/ { @a = count(); @@ -38,7 +38,7 @@ tick-10ms i += 100; } -tick-10ms +profile:::tick-10ms /i == 1000/ { printa("%@d\n", @g); diff --git a/test/unittest/aggs/tst.multicpus.sh b/test/unittest/aggs/tst.multicpus.sh index ad378fcf..224e7ae7 100755 --- a/test/unittest/aggs/tst.multicpus.sh +++ b/test/unittest/aggs/tst.multicpus.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2020, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ cd $DIRNAME # $dtrace $dt_flags -qn ' - profile-600ms + profile:::profile-600ms { printf("cpu %d\n", cpu); @xcnt = count(); @@ -28,7 +28,7 @@ $dtrace $dt_flags -qn ' @xmax = max(40 * cpu - 15); @xsum = sum(50 * cpu); } - tick-900ms + profile:::tick-900ms { exit(0) } diff --git a/test/unittest/aggs/tst.multinormalize.d b/test/unittest/aggs/tst.multinormalize.d index 6abf76c2..4e152067 100644 --- a/test/unittest/aggs/tst.multinormalize.d +++ b/test/unittest/aggs/tst.multinormalize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,13 +17,13 @@ #pragma D option aggrate=1ms #pragma D option switchrate=50ms -BEGIN +dtrace:::BEGIN { i = 0; start = timestamp; } -tick-100ms +profile:::tick-100ms /i < 20/ { @func1[i % 5] = sum(i * 100); @@ -31,7 +31,7 @@ tick-100ms i++; } -tick-100ms +profile:::tick-100ms /i == 20/ { printf("normalized data #1:\n"); diff --git a/test/unittest/aggs/tst.neglquant.d b/test/unittest/aggs/tst.neglquant.d index 5e6d1dc0..c364c4f3 100644 --- a/test/unittest/aggs/tst.neglquant.d +++ b/test/unittest/aggs/tst.neglquant.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @["j-church"] = lquantize(1, 0, 10, 1, 100); @["j-church"] = lquantize(1, 0, 10, 1, -99); @@ -17,12 +17,12 @@ BEGIN val = 123; } -BEGIN +dtrace:::BEGIN { @["k-ingleside"] = lquantize(1, 0, 10, 1, -val); } -BEGIN +dtrace:::BEGIN { @["l-taraval"] = lquantize(0, 0, 10, 1, -val); @["l-taraval"] = lquantize(-1, 0, 10, 1, -val); @@ -30,7 +30,7 @@ BEGIN @["l-taraval"] = lquantize(1, 0, 10, 1, val); } -BEGIN +dtrace:::BEGIN { @["m-oceanview"] = lquantize(1, 0, 10, 1, (1 << 63) - 1); @["m-oceanview"] = lquantize(1, 0, 10, 1); @@ -38,7 +38,7 @@ BEGIN @["m-oceanview"] = lquantize(8, 0, 10, 1, 400000); } -BEGIN +dtrace:::BEGIN { @["n-judah"] = lquantize(1, 0, 10, 1, val); @["n-judah"] = lquantize(2, 0, 10, 1, val); @@ -48,7 +48,7 @@ BEGIN this long long val; -BEGIN +dtrace:::BEGIN { this->i = 1; this->val = (((long long) 1) << 63) - 1; @@ -82,7 +82,7 @@ BEGIN this->val = ((((long long) 1) << 63) - 1) / this->i; } -BEGIN +dtrace:::BEGIN { this->i = 1; @@ -127,7 +127,7 @@ BEGIN this->val = ((((long long) 1) << 63) - 1) / this->i; } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/aggs/tst.negorder.d b/test/unittest/aggs/tst.negorder.d index 1e43b0dc..1c429428 100644 --- a/test/unittest/aggs/tst.negorder.d +++ b/test/unittest/aggs/tst.negorder.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = 7; b = 13; diff --git a/test/unittest/aggs/tst.negquant.d b/test/unittest/aggs/tst.negquant.d index b9dff159..e5dfdc2c 100644 --- a/test/unittest/aggs/tst.negquant.d +++ b/test/unittest/aggs/tst.negquant.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @["j-church"] = quantize(1, 100); @["j-church"] = quantize(1, -99); @@ -15,12 +15,12 @@ BEGIN val = 123; } -BEGIN +dtrace:::BEGIN { @["k-ingleside"] = quantize(1, -val); } -BEGIN +dtrace:::BEGIN { @["l-taraval"] = quantize(0, -val); @["l-taraval"] = quantize(-1, -val); @@ -28,7 +28,7 @@ BEGIN @["l-taraval"] = quantize(1, val); } -BEGIN +dtrace:::BEGIN { @["m-oceanview"] = quantize(1, (1 << 63) - 1); @["m-oceanview"] = quantize(1); @@ -36,7 +36,7 @@ BEGIN @["m-oceanview"] = quantize(8, 400000); } -BEGIN +dtrace:::BEGIN { @["n-judah"] = quantize(1, val); @["n-judah"] = quantize(2, val); @@ -46,7 +46,7 @@ BEGIN this long long val; -BEGIN +dtrace:::BEGIN { this->i = 1; this->val = (((long long) 1) << 63) - 1; @@ -68,7 +68,7 @@ BEGIN this->val >>= ((long long) 1); } -BEGIN +dtrace:::BEGIN { this->i = 1; this->val = (((long long) 1) << 63) - 4; @@ -90,7 +90,7 @@ BEGIN this->val >>= ((long long) 1); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/aggs/tst.negtrunc.d b/test/unittest/aggs/tst.negtrunc.d index 9606acc5..db60a6ee 100644 --- a/test/unittest/aggs/tst.negtrunc.d +++ b/test/unittest/aggs/tst.negtrunc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ syscall::ioctl:entry exit(0); } -END +dtrace:::END { trunc(@, -10); } diff --git a/test/unittest/aggs/tst.negtruncquant.d b/test/unittest/aggs/tst.negtruncquant.d index ecef81dc..afc58f21 100644 --- a/test/unittest/aggs/tst.negtruncquant.d +++ b/test/unittest/aggs/tst.negtruncquant.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ syscall::ioctl:entry exit(0); } -END +dtrace:::END { trunc(@, -5); } diff --git a/test/unittest/aggs/tst.normalize.d b/test/unittest/aggs/tst.normalize.d index 3080afce..35923ceb 100644 --- a/test/unittest/aggs/tst.normalize.d +++ b/test/unittest/aggs/tst.normalize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 20/ { @a = sum(i * 100); @@ -27,7 +27,7 @@ tick-10ms i++; } -tick-10ms +profile:::tick-10ms /i == 20/ { normalize(@a, 5); diff --git a/test/unittest/aggs/tst.normalize_multiple_times.d b/test/unittest/aggs/tst.normalize_multiple_times.d index b6d7a2bb..55cdc627 100644 --- a/test/unittest/aggs/tst.normalize_multiple_times.d +++ b/test/unittest/aggs/tst.normalize_multiple_times.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 20/ { @a = sum(i * 100); @@ -27,7 +27,7 @@ tick-10ms i++; } -tick-10ms +profile:::tick-10ms /i == 20/ { normalize(@a, 2); diff --git a/test/unittest/aggs/tst.order.d b/test/unittest/aggs/tst.order.d index 9777cab6..e2143253 100644 --- a/test/unittest/aggs/tst.order.d +++ b/test/unittest/aggs/tst.order.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @[8] = sum(1); @[6] = sum(1); diff --git a/test/unittest/aggs/tst.quantize.d b/test/unittest/aggs/tst.quantize.d index 3ae31449..b5d2dba7 100644 --- a/test/unittest/aggs/tst.quantize.d +++ b/test/unittest/aggs/tst.quantize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,19 +17,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 1000/ { @a[i] = quantize(i); i += 100; } -tick-10ms +profile:::tick-10ms /i == 1000/ { exit(0); diff --git a/test/unittest/aggs/tst.quantlast.d b/test/unittest/aggs/tst.quantlast.d index a3c25a0b..fb6d8353 100644 --- a/test/unittest/aggs/tst.quantlast.d +++ b/test/unittest/aggs/tst.quantlast.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = 0x4000000000000000; @ = quantize(x, 1234); diff --git a/test/unittest/aggs/tst.quantround.d b/test/unittest/aggs/tst.quantround.d index 863011f9..250f9f1b 100644 --- a/test/unittest/aggs/tst.quantround.d +++ b/test/unittest/aggs/tst.quantround.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,25 +11,25 @@ * This test verifies that the height of the ASCII quantization bars is * determined using rounding and not truncated integer arithmetic. */ -tick-10ms +profile:::tick-10ms /i++ >= 27/ { exit(0); } -tick-10ms +profile:::tick-10ms /i > 8/ { @ = quantize(2); } -tick-10ms +profile:::tick-10ms /i > 2 && i <= 8/ { @ = quantize(1); } -tick-10ms +profile:::tick-10ms /i <= 2/ { @ = quantize(0); diff --git a/test/unittest/aggs/tst.quantzero.d b/test/unittest/aggs/tst.quantzero.d index 0b7d9fdf..dea296cd 100644 --- a/test/unittest/aggs/tst.quantzero.d +++ b/test/unittest/aggs/tst.quantzero.d @@ -1,39 +1,39 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = 7; b = 13; val = (-a * b) + a; } -tick-1ms +profile:::tick-1ms { incr = val % b; val += a; } -tick-1ms +profile:::tick-1ms /val == 0/ { val += a; } -tick-1ms +profile:::tick-1ms /incr != 0/ { i++; @[i] = quantize(0, incr); } -tick-1ms +profile:::tick-1ms /incr == 0/ { printa(@); diff --git a/test/unittest/aggs/tst.reset.d b/test/unittest/aggs/tst.reset.d index 2ab3a78e..4ada81ce 100644 --- a/test/unittest/aggs/tst.reset.d +++ b/test/unittest/aggs/tst.reset.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 10; j = 20; @@ -28,7 +28,7 @@ BEGIN exit(0) } -END +dtrace:::END { printa(@a); printa(@b); printa(@c); printa(@d); printa(@e); printa(@a); printa(@b); printa(@c); printa(@d); printa(@e); diff --git a/test/unittest/aggs/tst.signature.d b/test/unittest/aggs/tst.signature.d index 1f9c58f2..2b6f9161 100644 --- a/test/unittest/aggs/tst.signature.d +++ b/test/unittest/aggs/tst.signature.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@nosort */ #pragma D option quiet #pragma D option maxframes=10 -BEGIN +dtrace:::BEGIN { @stk[ustack()] = count(); @symmy[sym(0)] = count(); @@ -24,7 +24,7 @@ BEGIN @umoddy[umod(0)] = count(); } -BEGIN +dtrace:::BEGIN { @stk[ustack()] = count(); @symmy[sym(0)] = count(); diff --git a/test/unittest/aggs/tst.signedkeys.d b/test/unittest/aggs/tst.signedkeys.d index b40cad6f..1edd7365 100644 --- a/test/unittest/aggs/tst.signedkeys.d +++ b/test/unittest/aggs/tst.signedkeys.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ #pragma D option quiet #pragma D option aggsortkey -BEGIN +dtrace:::BEGIN { trace((signed char)-2); trace("\n"); diff --git a/test/unittest/aggs/tst.signedkeyspos.d b/test/unittest/aggs/tst.signedkeyspos.d index 7d7d6486..83989d74 100644 --- a/test/unittest/aggs/tst.signedkeyspos.d +++ b/test/unittest/aggs/tst.signedkeyspos.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ #pragma D option aggsortkeypos=1 #pragma D option aggsortrev -BEGIN +dtrace:::BEGIN { @i8["cat", (char)-2] = sum(-2); @i8["dog", (char)-2] = sum(-22); diff --git a/test/unittest/aggs/tst.stddev.d b/test/unittest/aggs/tst.stddev.d index f506ed0c..cd0f489d 100644 --- a/test/unittest/aggs/tst.stddev.d +++ b/test/unittest/aggs/tst.stddev.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = stddev(5000000000); @a = stddev(5000000100); diff --git a/test/unittest/aggs/tst.stddev2.d b/test/unittest/aggs/tst.stddev2.d index 994bc3e2..8f31d399 100644 --- a/test/unittest/aggs/tst.stddev2.d +++ b/test/unittest/aggs/tst.stddev2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = stddev( 0); @a = stddev( 0); @b = stddev( 0x10); @b = stddev( 0x20); diff --git a/test/unittest/aggs/tst.sum.d b/test/unittest/aggs/tst.sum.d index 6ad4f36d..8ff820cf 100644 --- a/test/unittest/aggs/tst.sum.d +++ b/test/unittest/aggs/tst.sum.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,19 +15,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 1000/ { @a = sum(i); i += 100; } -tick-10ms +profile:::tick-10ms /i == 1000/ { exit(0); diff --git a/test/unittest/aggs/tst.trunc-lquantize-5.d b/test/unittest/aggs/tst.trunc-lquantize-5.d index 062511f1..dd50d7cd 100644 --- a/test/unittest/aggs/tst.trunc-lquantize-5.d +++ b/test/unittest/aggs/tst.trunc-lquantize-5.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; nsecs = 1000000000 * (long long)3; diff --git a/test/unittest/aggs/tst.trunc-lquantize-default.d b/test/unittest/aggs/tst.trunc-lquantize-default.d index bca0d6e0..3492ba22 100644 --- a/test/unittest/aggs/tst.trunc-lquantize-default.d +++ b/test/unittest/aggs/tst.trunc-lquantize-default.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; nsecs = 1000000000 * (long long)3; diff --git a/test/unittest/aggs/tst.trunc-lquantize-neg5.d b/test/unittest/aggs/tst.trunc-lquantize-neg5.d index 97c8b7fc..e7bdac57 100644 --- a/test/unittest/aggs/tst.trunc-lquantize-neg5.d +++ b/test/unittest/aggs/tst.trunc-lquantize-neg5.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; nsecs = 1000000000 * (long long)3; diff --git a/test/unittest/aggs/tst.trunc-one.d b/test/unittest/aggs/tst.trunc-one.d index 0556bb34..65a1bc19 100644 --- a/test/unittest/aggs/tst.trunc-one.d +++ b/test/unittest/aggs/tst.trunc-one.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a[1] = sum(100); @a[2] = sum( 20); diff --git a/test/unittest/aggs/tst.trunc-sum-5.d b/test/unittest/aggs/tst.trunc-sum-5.d index 47e3479b..85572963 100644 --- a/test/unittest/aggs/tst.trunc-sum-5.d +++ b/test/unittest/aggs/tst.trunc-sum-5.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; nsecs = 1000000000 * (long long)3; diff --git a/test/unittest/aggs/tst.trunc-sum-default.d b/test/unittest/aggs/tst.trunc-sum-default.d index c08ba4c2..7fc4d009 100644 --- a/test/unittest/aggs/tst.trunc-sum-default.d +++ b/test/unittest/aggs/tst.trunc-sum-default.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; nsecs = 1000000000 * (long long)3; diff --git a/test/unittest/aggs/tst.trunc-sum-neg5.d b/test/unittest/aggs/tst.trunc-sum-neg5.d index c6cf99dd..0d2c4867 100644 --- a/test/unittest/aggs/tst.trunc-sum-neg5.d +++ b/test/unittest/aggs/tst.trunc-sum-neg5.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; nsecs = 1000000000 * (long long)3; diff --git a/test/unittest/aggs/tst.trunc.d b/test/unittest/aggs/tst.trunc.d index 044afb3a..8c695fdd 100644 --- a/test/unittest/aggs/tst.trunc.d +++ b/test/unittest/aggs/tst.trunc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ syscall::ioctl:entry exit(0); } -END +dtrace:::END { trunc(@, 10); } diff --git a/test/unittest/aggs/tst.trunc0.d b/test/unittest/aggs/tst.trunc0.d index 7686d019..3e438531 100644 --- a/test/unittest/aggs/tst.trunc0.d +++ b/test/unittest/aggs/tst.trunc0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option aggrate=1ms #pragma D option switchrate=50ms -BEGIN +dtrace:::BEGIN { n = 0; i = 0; @[i] = sum(10 - i); @@ -34,7 +34,7 @@ syscall::write:entry exit(0); } -END +dtrace:::END { printa(@); } diff --git a/test/unittest/aggs/tst.truncquant.d b/test/unittest/aggs/tst.truncquant.d index 9b9794e4..62a490c6 100644 --- a/test/unittest/aggs/tst.truncquant.d +++ b/test/unittest/aggs/tst.truncquant.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ syscall::ioctl:entry exit(0); } -END +dtrace:::END { trunc(@, 5); } diff --git a/test/unittest/aggs/tst.typecast-key.d b/test/unittest/aggs/tst.typecast-key.d index 77fe51c2..a03f5d51 100644 --- a/test/unittest/aggs/tst.typecast-key.d +++ b/test/unittest/aggs/tst.typecast-key.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,14 +14,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @[(int32_t)1, 2] = count(); @[(int64_t)1, 2] = count(); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/aggs/tst.ustack.d b/test/unittest/aggs/tst.ustack.d index e0d90924..6d28077a 100644 --- a/test/unittest/aggs/tst.ustack.d +++ b/test/unittest/aggs/tst.ustack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,11 +10,11 @@ #pragma D option quiet -profile-1 /pid == $target/ { uaddr(ucaller); printf("\n"); } -profile-1 /pid == $target/ { ufunc(ucaller); printf("\n"); } -profile-1 /pid == $target/ { umod(ucaller); printf("\n"); } -profile-1 /pid == $target/ { usym(ucaller); printf("\n"); } -profile-1 /pid == $target/ { ustack(5); } -profile-1 /pid == $target/ { @['a', uaddr(ucaller), ufunc(ucaller), umod(ucaller), usym(ucaller), ustack(5), 4] = sum( 34); } -profile-1 /pid == $target/ { @['a', uaddr(ucaller), ufunc(ucaller), umod(ucaller), usym(ucaller), ustack(5), 4] = sum(1200); } -profile-1 /pid == $target/ { exit(0); } +profile:::profile-1 /pid == $target/ { uaddr(ucaller); printf("\n"); } +profile:::profile-1 /pid == $target/ { ufunc(ucaller); printf("\n"); } +profile:::profile-1 /pid == $target/ { umod(ucaller); printf("\n"); } +profile:::profile-1 /pid == $target/ { usym(ucaller); printf("\n"); } +profile:::profile-1 /pid == $target/ { ustack(5); } +profile:::profile-1 /pid == $target/ { @['a', uaddr(ucaller), ufunc(ucaller), umod(ucaller), usym(ucaller), ustack(5), 4] = sum( 34); } +profile:::profile-1 /pid == $target/ { @['a', uaddr(ucaller), ufunc(ucaller), umod(ucaller), usym(ucaller), ustack(5), 4] = sum(1200); } +profile:::profile-1 /pid == $target/ { exit(0); } diff --git a/test/unittest/aggs/tst.valsortkeypos.d b/test/unittest/aggs/tst.valsortkeypos.d index b457d86b..f097cede 100644 --- a/test/unittest/aggs/tst.valsortkeypos.d +++ b/test/unittest/aggs/tst.valsortkeypos.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet #pragma D option aggsortkeypos=1 -BEGIN +dtrace:::BEGIN { @[1, 3] = sum(0); @[2, 2] = sum(0); diff --git a/test/unittest/arithmetic/err.D_DIV_ZERO.divby0.d b/test/unittest/arithmetic/err.D_DIV_ZERO.divby0.d index e9de2cc9..2fd6377f 100644 --- a/test/unittest/arithmetic/err.D_DIV_ZERO.divby0.d +++ b/test/unittest/arithmetic/err.D_DIV_ZERO.divby0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { c = 123/0; exit(0); diff --git a/test/unittest/arithmetic/err.D_DIV_ZERO.divby0_1.d b/test/unittest/arithmetic/err.D_DIV_ZERO.divby0_1.d index e1ddb73f..375708b8 100644 --- a/test/unittest/arithmetic/err.D_DIV_ZERO.divby0_1.d +++ b/test/unittest/arithmetic/err.D_DIV_ZERO.divby0_1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ -BEGIN +dtrace:::BEGIN { c = 123/(7-7); exit(0); diff --git a/test/unittest/arithmetic/err.D_DIV_ZERO.divby0_2.d b/test/unittest/arithmetic/err.D_DIV_ZERO.divby0_2.d index a6f13326..066bafff 100644 --- a/test/unittest/arithmetic/err.D_DIV_ZERO.divby0_2.d +++ b/test/unittest/arithmetic/err.D_DIV_ZERO.divby0_2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ -BEGIN +dtrace:::BEGIN { c = 123/((7-7) * 999); exit(0); diff --git a/test/unittest/arithmetic/err.D_DIV_ZERO.modby0.d b/test/unittest/arithmetic/err.D_DIV_ZERO.modby0.d index 7565c7eb..423c3840 100644 --- a/test/unittest/arithmetic/err.D_DIV_ZERO.modby0.d +++ b/test/unittest/arithmetic/err.D_DIV_ZERO.modby0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ -BEGIN +dtrace:::BEGIN { c = 123%0; exit(0); diff --git a/test/unittest/arithmetic/err.D_SYNTAX.addmin.d b/test/unittest/arithmetic/err.D_SYNTAX.addmin.d index 6263bc16..d62732d3 100644 --- a/test/unittest/arithmetic/err.D_SYNTAX.addmin.d +++ b/test/unittest/arithmetic/err.D_SYNTAX.addmin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; i+-; diff --git a/test/unittest/arithmetic/err.D_SYNTAX.divmin.d b/test/unittest/arithmetic/err.D_SYNTAX.divmin.d index 5edb9534..26c9e497 100644 --- a/test/unittest/arithmetic/err.D_SYNTAX.divmin.d +++ b/test/unittest/arithmetic/err.D_SYNTAX.divmin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 1; i /-= i; diff --git a/test/unittest/arithmetic/err.D_SYNTAX.muladd.d b/test/unittest/arithmetic/err.D_SYNTAX.muladd.d index 40fe8a40..96062749 100644 --- a/test/unittest/arithmetic/err.D_SYNTAX.muladd.d +++ b/test/unittest/arithmetic/err.D_SYNTAX.muladd.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 1; i *+= i; diff --git a/test/unittest/arithmetic/err.D_SYNTAX.muldiv.d b/test/unittest/arithmetic/err.D_SYNTAX.muldiv.d index b903d441..91f599f0 100644 --- a/test/unittest/arithmetic/err.D_SYNTAX.muldiv.d +++ b/test/unittest/arithmetic/err.D_SYNTAX.muldiv.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 1; i */= i; diff --git a/test/unittest/arithmetic/tst.basics.d b/test/unittest/arithmetic/tst.basics.d index 67a47701..8daeb9cd 100644 --- a/test/unittest/arithmetic/tst.basics.d +++ b/test/unittest/arithmetic/tst.basics.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; i = 1 + 2 + 3; diff --git a/test/unittest/arithmetic/tst.bug-casting.d b/test/unittest/arithmetic/tst.bug-casting.d index 82e4bd68..f176178b 100644 --- a/test/unittest/arithmetic/tst.bug-casting.d +++ b/test/unittest/arithmetic/tst.bug-casting.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ int x, y; long long z; -BEGIN +dtrace:::BEGIN { /* if x=1<<30, then x+x fills the uppermost bit */ x = (1 << 30 ); diff --git a/test/unittest/arithmetic/tst.cast-add-assoc.d b/test/unittest/arithmetic/tst.cast-add-assoc.d index 494099cf..d1922aa7 100644 --- a/test/unittest/arithmetic/tst.cast-add-assoc.d +++ b/test/unittest/arithmetic/tst.cast-add-assoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ unsigned long long L[int]; x[0] = +2; y[0] = -3; printf(FMT, x[0] + y[0]); printf(FMT, y[0] + x[0]); \ x[0] = +2; y[0] = +3; printf(FMT, x[0] + y[0]); printf(FMT, y[0] + x[0]); printf("\n"); -BEGIN +dtrace:::BEGIN { /* cast to signed char */ USE_FMT(" %hhd"); diff --git a/test/unittest/arithmetic/tst.cast-add-tvar.d b/test/unittest/arithmetic/tst.cast-add-tvar.d index d79bc60f..47e919aa 100644 --- a/test/unittest/arithmetic/tst.cast-add-tvar.d +++ b/test/unittest/arithmetic/tst.cast-add-tvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ self unsigned long long L; self->x = +2; self->y = -3; printf(FMT, self->x + self->y); printf(FMT, self->y + self->x); \ self->x = +2; self->y = +3; printf(FMT, self->x + self->y); printf(FMT, self->y + self->x); printf("\n"); -BEGIN +dtrace:::BEGIN { /* cast to signed char */ USE_FMT(" %hhd"); diff --git a/test/unittest/arithmetic/tst.cast-add.d b/test/unittest/arithmetic/tst.cast-add.d index c3a4d90d..2fcb124d 100644 --- a/test/unittest/arithmetic/tst.cast-add.d +++ b/test/unittest/arithmetic/tst.cast-add.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -43,7 +43,7 @@ char *fmt; x = +2; y = +3; printf(FMT, x + y); printf(FMT, y + x); printf("\n"); #ifdef USE_AS_D_SCRIPT -BEGIN +dtrace:::BEGIN #else int main(int c_unused, char *v_unused) #endif diff --git a/test/unittest/arithmetic/tst.cast-alloca.d b/test/unittest/arithmetic/tst.cast-alloca.d index 4af597d5..36f5dfd3 100644 --- a/test/unittest/arithmetic/tst.cast-alloca.d +++ b/test/unittest/arithmetic/tst.cast-alloca.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { ptr = alloca(10); val = ((int64_t)ptr) >> 8; @@ -21,7 +21,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/arithmetic/tst.cast-curcpu.d b/test/unittest/arithmetic/tst.cast-curcpu.d index bc58352d..eb584f10 100644 --- a/test/unittest/arithmetic/tst.cast-curcpu.d +++ b/test/unittest/arithmetic/tst.cast-curcpu.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,14 +13,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { val = ((int64_t)curcpu) >> 8; trace(val); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/arithmetic/tst.cast-exp-assoc.d b/test/unittest/arithmetic/tst.cast-exp-assoc.d index 93843c84..840a48f8 100644 --- a/test/unittest/arithmetic/tst.cast-exp-assoc.d +++ b/test/unittest/arithmetic/tst.cast-exp-assoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -36,7 +36,7 @@ unsigned long long L[int], L0[int]; L[0] = (unsigned long long)(x); \ printf(FMT, c[0], s[0], i[0], l[0], C[0], S[0], I[0], L[0]) -BEGIN +dtrace:::BEGIN { /* from scalar */ TEST(-2); diff --git a/test/unittest/arithmetic/tst.cast-exp-tvar.d b/test/unittest/arithmetic/tst.cast-exp-tvar.d index 9bd62ae5..44eeeb99 100644 --- a/test/unittest/arithmetic/tst.cast-exp-tvar.d +++ b/test/unittest/arithmetic/tst.cast-exp-tvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -35,7 +35,7 @@ self unsigned long long L, L0; self->L = (unsigned long long)(x); \ printf(FMT, self->c, self->s, self->i, self->l, self->C, self->S, self->I, self->L) -BEGIN +dtrace:::BEGIN { /* from scalar */ TEST(-2); diff --git a/test/unittest/arithmetic/tst.cast-exp.d b/test/unittest/arithmetic/tst.cast-exp.d index 25e3fc16..a21a930a 100644 --- a/test/unittest/arithmetic/tst.cast-exp.d +++ b/test/unittest/arithmetic/tst.cast-exp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -45,7 +45,7 @@ unsigned long long L, L0; printf(FMT, c, s, i, l, C, S, I, L) #ifdef USE_AS_D_SCRIPT -BEGIN +dtrace:::BEGIN #else int main(int c_unused, char **v_unused) #endif diff --git a/test/unittest/arithmetic/tst.cast-imp-assoc.d b/test/unittest/arithmetic/tst.cast-imp-assoc.d index 8b0cc24f..86cdb322 100644 --- a/test/unittest/arithmetic/tst.cast-imp-assoc.d +++ b/test/unittest/arithmetic/tst.cast-imp-assoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ unsigned long long L[int], L0[int]; C[0] = (x); S[0] = (x); I[0] = (x); L[0] = (x); \ printf(FMT, c[0], s[0], i[0], l[0], C[0], S[0], I[0], L[0]) -BEGIN +dtrace:::BEGIN { /* from scalar */ TEST(-2); diff --git a/test/unittest/arithmetic/tst.cast-imp-tvar.d b/test/unittest/arithmetic/tst.cast-imp-tvar.d index 041daa70..56a9b232 100644 --- a/test/unittest/arithmetic/tst.cast-imp-tvar.d +++ b/test/unittest/arithmetic/tst.cast-imp-tvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ self unsigned long long L, L0; self->C = (x); self->S = (x); self->I = (x); self->L = (x); \ printf(FMT, self->c, self->s, self->i, self->l, self->C, self->S, self->I, self->L) -BEGIN +dtrace:::BEGIN { /* from scalar */ TEST(-2); diff --git a/test/unittest/arithmetic/tst.cast-imp.d b/test/unittest/arithmetic/tst.cast-imp.d index dbce9893..b5ab990f 100644 --- a/test/unittest/arithmetic/tst.cast-imp.d +++ b/test/unittest/arithmetic/tst.cast-imp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -39,7 +39,7 @@ unsigned long long L, L0; printf(FMT, c, s, i, l, C, S, I, L) #ifdef USE_AS_D_SCRIPT -BEGIN +dtrace:::BEGIN #else int main(int c_unused, char **v_unused) #endif diff --git a/test/unittest/arithmetic/tst.complex.d b/test/unittest/arithmetic/tst.complex.d index f9d7480b..78f258f3 100644 --- a/test/unittest/arithmetic/tst.complex.d +++ b/test/unittest/arithmetic/tst.complex.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; i = i++ + ++i; diff --git a/test/unittest/arithmetic/tst.moddiv.d b/test/unittest/arithmetic/tst.moddiv.d index d3af21d0..9ef698fa 100644 --- a/test/unittest/arithmetic/tst.moddiv.d +++ b/test/unittest/arithmetic/tst.moddiv.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { x = 19; y = 5; trace(( x) / ( y)); trace (( x) % ( y)); trace(( x) / (-y)); trace (( x) % (-y)); diff --git a/test/unittest/arrays/err.D_ARR_BADREF.bad.d b/test/unittest/arrays/err.D_ARR_BADREF.bad.d index 4567f36e..412882bf 100644 --- a/test/unittest/arrays/err.D_ARR_BADREF.bad.d +++ b/test/unittest/arrays/err.D_ARR_BADREF.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ int x[5]; -BEGIN +dtrace:::BEGIN { x[1, 2] = 1; } diff --git a/test/unittest/arrays/err.D_ARR_BOUNDS.ctf-assignment.d b/test/unittest/arrays/err.D_ARR_BOUNDS.ctf-assignment.d index f55b8b0d..2e3fb168 100644 --- a/test/unittest/arrays/err.D_ARR_BOUNDS.ctf-assignment.d +++ b/test/unittest/arrays/err.D_ARR_BOUNDS.ctf-assignment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Pointers and Arrays/Array Declarations and Storage */ -BEGIN +dtrace:::BEGIN { /* This must be higher than TASK_COMM_LEN. */ curlwpsinfo->pr_name[256] = '0'; diff --git a/test/unittest/arrays/err.D_ARR_BOUNDS.ctf.d b/test/unittest/arrays/err.D_ARR_BOUNDS.ctf.d index 01cbe944..56167022 100644 --- a/test/unittest/arrays/err.D_ARR_BOUNDS.ctf.d +++ b/test/unittest/arrays/err.D_ARR_BOUNDS.ctf.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Pointers and Arrays/Array Declarations and Storage */ -BEGIN +dtrace:::BEGIN { /* This must be higher than TASK_COMM_LEN. */ trace(curlwpsinfo->pr_name[256]); diff --git a/test/unittest/arrays/err.D_ARR_BOUNDS.declared-assignment.d b/test/unittest/arrays/err.D_ARR_BOUNDS.declared-assignment.d index c6b7eabe..3fba81d9 100644 --- a/test/unittest/arrays/err.D_ARR_BOUNDS.declared-assignment.d +++ b/test/unittest/arrays/err.D_ARR_BOUNDS.declared-assignment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ int a[5]; -BEGIN +dtrace:::BEGIN { a[5] = 0; exit(0); diff --git a/test/unittest/arrays/err.D_ARR_BOUNDS.declared.d b/test/unittest/arrays/err.D_ARR_BOUNDS.declared.d index d7526b7f..6ceef827 100644 --- a/test/unittest/arrays/err.D_ARR_BOUNDS.declared.d +++ b/test/unittest/arrays/err.D_ARR_BOUNDS.declared.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ int a[5]; -BEGIN +dtrace:::BEGIN { trace(a[5]); exit(0); diff --git a/test/unittest/arrays/err.D_DECL_ARRBIG.toobig.d b/test/unittest/arrays/err.D_DECL_ARRBIG.toobig.d index 4abdb6f1..26a4560d 100644 --- a/test/unittest/arrays/err.D_DECL_ARRBIG.toobig.d +++ b/test/unittest/arrays/err.D_DECL_ARRBIG.toobig.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ int x[88294967295]; -BEGIN +dtrace:::BEGIN { exit(1); } diff --git a/test/unittest/arrays/err.D_DECL_ARRNULL.bad.d b/test/unittest/arrays/err.D_DECL_ARRNULL.bad.d index fa5f2542..e80a4569 100644 --- a/test/unittest/arrays/err.D_DECL_ARRNULL.bad.d +++ b/test/unittest/arrays/err.D_DECL_ARRNULL.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ int a[]; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/arrays/err.D_DECL_ARRSUB.bad.d b/test/unittest/arrays/err.D_DECL_ARRSUB.bad.d index dcc3a76f..1b98501a 100644 --- a/test/unittest/arrays/err.D_DECL_ARRSUB.bad.d +++ b/test/unittest/arrays/err.D_DECL_ARRSUB.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ int a[-7]; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/arrays/err.D_DECL_PROTO_TYPE.badtuple.d b/test/unittest/arrays/err.D_DECL_PROTO_TYPE.badtuple.d index d7d6909f..6199986a 100644 --- a/test/unittest/arrays/err.D_DECL_PROTO_TYPE.badtuple.d +++ b/test/unittest/arrays/err.D_DECL_PROTO_TYPE.badtuple.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ int x[void, char]; -BEGIN +dtrace:::BEGIN { x[trace(), 'a'] = 456; } diff --git a/test/unittest/arrays/err.D_IDENT_UNDEF.badureg.d b/test/unittest/arrays/err.D_IDENT_UNDEF.badureg.d index df377855..00df853c 100644 --- a/test/unittest/arrays/err.D_IDENT_UNDEF.badureg.d +++ b/test/unittest/arrays/err.D_IDENT_UNDEF.badureg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * SECTION: User Process Tracing/uregs Array */ -BEGIN +dtrace:::BEGIN { printf("FOO = 0x%x\n", uregs[FOO]); exit(1); diff --git a/test/unittest/arrays/err.D_PROTO_ARG.uregs_variable.d b/test/unittest/arrays/err.D_PROTO_ARG.uregs_variable.d index dc57f8d3..c41983ad 100644 --- a/test/unittest/arrays/err.D_PROTO_ARG.uregs_variable.d +++ b/test/unittest/arrays/err.D_PROTO_ARG.uregs_variable.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: User Process Tracing/uregs Array */ -BEGIN +dtrace:::BEGIN { i = R_SP; trace(uregs[i]); diff --git a/test/unittest/arrays/err.D_UNKNOWN.uregs_toobig.aarch64.d b/test/unittest/arrays/err.D_UNKNOWN.uregs_toobig.aarch64.d index f022984e..29d65733 100644 --- a/test/unittest/arrays/err.D_UNKNOWN.uregs_toobig.aarch64.d +++ b/test/unittest/arrays/err.D_UNKNOWN.uregs_toobig.aarch64.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(uregs[R_PSTATE + 1]); exit(0); diff --git a/test/unittest/arrays/err.D_UNKNOWN.uregs_toobig.x86_64.d b/test/unittest/arrays/err.D_UNKNOWN.uregs_toobig.x86_64.d index ea5c5db6..c74e3e83 100644 --- a/test/unittest/arrays/err.D_UNKNOWN.uregs_toobig.x86_64.d +++ b/test/unittest/arrays/err.D_UNKNOWN.uregs_toobig.x86_64.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(uregs[42]); exit(0); diff --git a/test/unittest/arrays/tst.basic1.d b/test/unittest/arrays/tst.basic1.d index 207aa122..41244815 100644 --- a/test/unittest/arrays/tst.basic1.d +++ b/test/unittest/arrays/tst.basic1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,18 +16,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a[1] = 0; } -tick-1 +profile:::tick-1 /a[1] == 0/ { exit(0); } -tick-1 +profile:::tick-1 /a[1] != 0/ { printf("Expected 0, got %d\n", a[1]); diff --git a/test/unittest/arrays/tst.basic2.d b/test/unittest/arrays/tst.basic2.d index c343a8df..cb7ec85b 100644 --- a/test/unittest/arrays/tst.basic2.d +++ b/test/unittest/arrays/tst.basic2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,19 +16,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a[1] = 0; a[1]++; } -tick-1 +profile:::tick-1 /a[1] == 1/ { exit(0); } -tick-1 +profile:::tick-1 /a[1] != 1/ { printf("Expected 1, got %d\n", a[1]); diff --git a/test/unittest/arrays/tst.basic3.d b/test/unittest/arrays/tst.basic3.d index acfde86f..7da6b972 100644 --- a/test/unittest/arrays/tst.basic3.d +++ b/test/unittest/arrays/tst.basic3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,19 +16,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a[1] = 0; ++a[1]; } -tick-1 +profile:::tick-1 /a[1] == 1/ { exit(0); } -tick-1 +profile:::tick-1 /a[1] != 1/ { printf("Expected 1, got %d\n", a[1]); diff --git a/test/unittest/arrays/tst.basic4.d b/test/unittest/arrays/tst.basic4.d index 0ee55872..d293e79d 100644 --- a/test/unittest/arrays/tst.basic4.d +++ b/test/unittest/arrays/tst.basic4.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,18 +16,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a["test"] = 0; } -tick-1 +profile:::tick-1 /a["test"] == 0/ { exit(0); } -tick-1 +profile:::tick-1 /a["test"] != 0/ { printf("Expected 0, got %d\n", a["test"]); diff --git a/test/unittest/arrays/tst.basic5.d b/test/unittest/arrays/tst.basic5.d index 72417f87..061e3c4a 100644 --- a/test/unittest/arrays/tst.basic5.d +++ b/test/unittest/arrays/tst.basic5.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,19 +16,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a["test"] = 0; b = ++a["test"]; } -tick-1 +profile:::tick-1 /b == 1/ { exit(0); } -tick-1 +profile:::tick-1 /b != 1/ { printf("Expected b = 1, got %d\n", b); diff --git a/test/unittest/arrays/tst.basic6.d b/test/unittest/arrays/tst.basic6.d index 81355e47..61e87a12 100644 --- a/test/unittest/arrays/tst.basic6.d +++ b/test/unittest/arrays/tst.basic6.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,19 +17,19 @@ #pragma D option quiet #pragma D option strsize=64 -BEGIN +dtrace:::BEGIN { a["test", "test"] = 0; b = ++a["test", "test"]; } -tick-1 +profile:::tick-1 /b == 1/ { exit(0); } -tick-1 +profile:::tick-1 /b != 1/ { printf("Expected b = 1, got %d\n", b); diff --git a/test/unittest/arrays/tst.ctf-bounds.d b/test/unittest/arrays/tst.ctf-bounds.d index 4390143e..024cfd0c 100644 --- a/test/unittest/arrays/tst.ctf-bounds.d +++ b/test/unittest/arrays/tst.ctf-bounds.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Pointers and Arrays/Array Declarations and Storage */ -BEGIN +dtrace:::BEGIN { trace(curlwpsinfo->pr_name[0]); exit(0); diff --git a/test/unittest/arrays/tst.ctf-bounds.oob-cast.d b/test/unittest/arrays/tst.ctf-bounds.oob-cast.d index 7e67e200..96d3ae06 100644 --- a/test/unittest/arrays/tst.ctf-bounds.oob-cast.d +++ b/test/unittest/arrays/tst.ctf-bounds.oob-cast.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Pointers and Arrays/Array Declarations and Storage */ -BEGIN +dtrace:::BEGIN { trace(((char *)curlwpsinfo->pr_name)[32]); exit(0); diff --git a/test/unittest/arrays/tst.ctf-dynsized-bounds-runtime.sh b/test/unittest/arrays/tst.ctf-dynsized-bounds-runtime.sh index b95e51db..b6cb5ea4 100755 --- a/test/unittest/arrays/tst.ctf-dynsized-bounds-runtime.sh +++ b/test/unittest/arrays/tst.ctf-dynsized-bounds-runtime.sh @@ -27,14 +27,14 @@ member=`bpftool btf dump id 1 | \ # Try to access the flexible array. $dtrace $dt_flags -qn " -BEGIN +dtrace:::BEGIN { i = pid - pid; /* non-constant 0 value */ v = curthread->mm->$member[i]; exit(0); } -ERROR +dtrace:::ERROR { exit(1); }" diff --git a/test/unittest/arrays/tst.ctf-dynsized-bounds.d b/test/unittest/arrays/tst.ctf-dynsized-bounds.d index 9479a1e1..f096e4c1 100644 --- a/test/unittest/arrays/tst.ctf-dynsized-bounds.d +++ b/test/unittest/arrays/tst.ctf-dynsized-bounds.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * SECTION: Pointers and Arrays/Array Declarations and Storage */ -BEGIN +dtrace:::BEGIN { trace(curpsinfo->pr_pgid); exit(0); diff --git a/test/unittest/arrays/tst.declared-bounds.assignment.d b/test/unittest/arrays/tst.declared-bounds.assignment.d index 336e341f..abeda172 100644 --- a/test/unittest/arrays/tst.declared-bounds.assignment.d +++ b/test/unittest/arrays/tst.declared-bounds.assignment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ int a[5]; -BEGIN +dtrace:::BEGIN { a[0] = 0; exit(0); diff --git a/test/unittest/arrays/tst.declared-bounds.d b/test/unittest/arrays/tst.declared-bounds.d index b11b5cb7..86e35aa6 100644 --- a/test/unittest/arrays/tst.declared-bounds.d +++ b/test/unittest/arrays/tst.declared-bounds.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ int a[5]; -BEGIN +dtrace:::BEGIN { trace(a[0]); exit(0); diff --git a/test/unittest/arrays/tst.declared-bounds.oob-cast.d b/test/unittest/arrays/tst.declared-bounds.oob-cast.d index 06f1bb0a..389fbfda 100644 --- a/test/unittest/arrays/tst.declared-bounds.oob-cast.d +++ b/test/unittest/arrays/tst.declared-bounds.oob-cast.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ int a[5]; -BEGIN +dtrace:::BEGIN { trace(((int *)a)[10]); exit(0); diff --git a/test/unittest/arrays/tst.declared-bounds.runtime_in.d b/test/unittest/arrays/tst.declared-bounds.runtime_in.d index 8e36e428..64d90164 100644 --- a/test/unittest/arrays/tst.declared-bounds.runtime_in.d +++ b/test/unittest/arrays/tst.declared-bounds.runtime_in.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ int a[5]; -BEGIN +dtrace:::BEGIN { i = 0; a[i] = 12345678; @@ -24,7 +24,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { trace("run-time error"); exit(1); diff --git a/test/unittest/arrays/tst.declared-bounds.runtime_out.d b/test/unittest/arrays/tst.declared-bounds.runtime_out.d index 95397491..1c0ec27f 100644 --- a/test/unittest/arrays/tst.declared-bounds.runtime_out.d +++ b/test/unittest/arrays/tst.declared-bounds.runtime_out.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ int a[5]; -BEGIN +dtrace:::BEGIN { i = 8; a[i] = 12345678; @@ -24,7 +24,7 @@ BEGIN exit(1); } -ERROR +dtrace:::ERROR { trace("expected run-time error"); exit(0); diff --git a/test/unittest/arrays/tst.uregsarray-check2.d b/test/unittest/arrays/tst.uregsarray-check2.d index de65bbfd..606993a1 100644 --- a/test/unittest/arrays/tst.uregsarray-check2.d +++ b/test/unittest/arrays/tst.uregsarray-check2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%x %x\n", uregs[R_DS ], curthread->thread.ds); printf("%x %x\n", uregs[R_ES ], curthread->thread.ds); @@ -26,7 +26,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/arrays/tst.uregsarray-constants.aarch64.d b/test/unittest/arrays/tst.uregsarray-constants.aarch64.d index a8c3a7d9..49fd3151 100644 --- a/test/unittest/arrays/tst.uregsarray-constants.aarch64.d +++ b/test/unittest/arrays/tst.uregsarray-constants.aarch64.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf(" %d", R_X0); printf(" %d", R_X1); diff --git a/test/unittest/arrays/tst.uregsarray-constants.x86_64.d b/test/unittest/arrays/tst.uregsarray-constants.x86_64.d index 84ecd358..6bed124e 100644 --- a/test/unittest/arrays/tst.uregsarray-constants.x86_64.d +++ b/test/unittest/arrays/tst.uregsarray-constants.x86_64.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf(" %d", R_PC); printf(" %d", R_SP); diff --git a/test/unittest/arrays/tst.uregsarray.arm64.d b/test/unittest/arrays/tst.uregsarray.arm64.d index 776bca8a..3325dda9 100644 --- a/test/unittest/arrays/tst.uregsarray.arm64.d +++ b/test/unittest/arrays/tst.uregsarray.arm64.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("R_X0 = 0x%x\n", uregs[R_X0]); printf("R_X1 = 0x%x\n", uregs[R_X1]); @@ -59,7 +59,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { printf("uregs access failed.\n"); exit(1); diff --git a/test/unittest/arrays/tst.uregsarray.d b/test/unittest/arrays/tst.uregsarray.d index 9b2a537e..91f64981 100644 --- a/test/unittest/arrays/tst.uregsarray.d +++ b/test/unittest/arrays/tst.uregsarray.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,14 +18,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("R_PC = 0x%x\n", uregs[R_PC]); printf("R_SP = 0x%x\n", uregs[R_SP]); exit(0); } -ERROR +dtrace:::ERROR { printf("uregs access failed.\n"); exit(1); diff --git a/test/unittest/arrays/tst.uregsarray.x86_64.d b/test/unittest/arrays/tst.uregsarray.x86_64.d index fff6bcf0..390b3b28 100644 --- a/test/unittest/arrays/tst.uregsarray.x86_64.d +++ b/test/unittest/arrays/tst.uregsarray.x86_64.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("R_GS = 0x%x\n", uregs[R_GS]); printf("R_ES = 0x%x\n", uregs[R_ES]); @@ -39,7 +39,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { printf("uregs access failed.\n"); exit(1); diff --git a/test/unittest/assocs/err.D_OP_INCOMPAT.dupgtype.d b/test/unittest/assocs/err.D_OP_INCOMPAT.dupgtype.d index 7443dfb1..06badc83 100644 --- a/test/unittest/assocs/err.D_OP_INCOMPAT.dupgtype.d +++ b/test/unittest/assocs/err.D_OP_INCOMPAT.dupgtype.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { x[123] = curthread; x[456] = pid; diff --git a/test/unittest/assocs/err.D_OP_INCOMPAT.dupttype.d b/test/unittest/assocs/err.D_OP_INCOMPAT.dupttype.d index 1e00b5b0..2b37b2d4 100644 --- a/test/unittest/assocs/err.D_OP_INCOMPAT.dupttype.d +++ b/test/unittest/assocs/err.D_OP_INCOMPAT.dupttype.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { self->x[123] = curthread; self->x[456] = pid; diff --git a/test/unittest/assocs/err.D_OP_INCOMPAT.this.d b/test/unittest/assocs/err.D_OP_INCOMPAT.this.d index b91764e5..254e835b 100644 --- a/test/unittest/assocs/err.D_OP_INCOMPAT.this.d +++ b/test/unittest/assocs/err.D_OP_INCOMPAT.this.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ this int x; -BEGIN +dtrace:::BEGIN { this->x = "dummy"; exit(0); diff --git a/test/unittest/assocs/err.D_PROTO_ARG.badsig.d b/test/unittest/assocs/err.D_PROTO_ARG.badsig.d index 6bf9ae21..1d8060df 100644 --- a/test/unittest/assocs/err.D_PROTO_ARG.badsig.d +++ b/test/unittest/assocs/err.D_PROTO_ARG.badsig.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ * */ -BEGIN +dtrace:::BEGIN { x[123, "foo"] = timestamp; } -END +dtrace:::END { x[123, 456] = timestamp; } diff --git a/test/unittest/assocs/err.D_PROTO_LEN.toofew.d b/test/unittest/assocs/err.D_PROTO_LEN.toofew.d index 2609e659..073eecd2 100644 --- a/test/unittest/assocs/err.D_PROTO_LEN.toofew.d +++ b/test/unittest/assocs/err.D_PROTO_LEN.toofew.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ * */ -BEGIN +dtrace:::BEGIN { x[123, 456] = timestamp; } -END +dtrace:::END { x[123] = timestamp; } diff --git a/test/unittest/assocs/err.D_PROTO_LEN.toomany.d b/test/unittest/assocs/err.D_PROTO_LEN.toomany.d index 41574f73..a3c89a10 100644 --- a/test/unittest/assocs/err.D_PROTO_LEN.toomany.d +++ b/test/unittest/assocs/err.D_PROTO_LEN.toomany.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ * */ -BEGIN +dtrace:::BEGIN { x[123, 456] = timestamp; } -END +dtrace:::END { x[123, 456, 789] = timestamp; } diff --git a/test/unittest/assocs/err.D_SYNTAX.errassign.d b/test/unittest/assocs/err.D_SYNTAX.errassign.d index 9b5ba603..f6532b7b 100644 --- a/test/unittest/assocs/err.D_SYNTAX.errassign.d +++ b/test/unittest/assocs/err.D_SYNTAX.errassign.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ * */ -BEGIN +dtrace:::BEGIN { x[10]=[0, 1, 2, 3, 4, 5, 6, 7, 8, 9]; } -END +dtrace:::END { } diff --git a/test/unittest/assocs/err.dynvarsize-too-small.d b/test/unittest/assocs/err.dynvarsize-too-small.d index 02fa4f8a..4576519c 100644 --- a/test/unittest/assocs/err.dynvarsize-too-small.d +++ b/test/unittest/assocs/err.dynvarsize-too-small.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,13 +18,13 @@ */ #pragma D option dynvarsize=15 -BEGIN +dtrace:::BEGIN { a[1] = 1; exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/err.limited_space.d b/test/unittest/assocs/err.limited_space.d index 024dd42a..e25cd644 100644 --- a/test/unittest/assocs/err.limited_space.d +++ b/test/unittest/assocs/err.limited_space.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option dynvarsize=15 -BEGIN +dtrace:::BEGIN { a[1] = 1; a[2] = 2; @@ -23,12 +23,12 @@ BEGIN a[4] = 4; } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/err.tupoflow.d b/test/unittest/assocs/err.tupoflow.d index 5ca1753b..3b1e0153 100644 --- a/test/unittest/assocs/err.tupoflow.d +++ b/test/unittest/assocs/err.tupoflow.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { a[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10] = 0; } diff --git a/test/unittest/assocs/tst.clean-tuple.d b/test/unittest/assocs/tst.clean-tuple.d index a5b20204..88bc4032 100644 --- a/test/unittest/assocs/tst.clean-tuple.d +++ b/test/unittest/assocs/tst.clean-tuple.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { x["foo"] = 1234; x["long key her"] = 56789; @@ -23,7 +23,7 @@ BEGIN { exit(x["foo"] != 1234 || x["long key her"] != 56789); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.collision.d b/test/unittest/assocs/tst.collision.d index 11a4363c..72b4a25c 100644 --- a/test/unittest/assocs/tst.collision.d +++ b/test/unittest/assocs/tst.collision.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ * ASSERTION: Dynamic variables do not overwrite eachother. */ -BEGIN +dtrace:::BEGIN { assoc[0x1234] = 1; self->tls_assoc[1] = 0x1111; diff --git a/test/unittest/assocs/tst.cpyarray.d b/test/unittest/assocs/tst.cpyarray.d index b83f3ff2..5a46f466 100644 --- a/test/unittest/assocs/tst.cpyarray.d +++ b/test/unittest/assocs/tst.cpyarray.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,31 +19,31 @@ this int x; -BEGIN +dtrace:::BEGIN { a["abc", 123] = 123; } -tick-10ms +profile:::tick-10ms { this->x = a["abc", 123]++; printf("The value of x is %d\n", this->x); } -tick-10ms +profile:::tick-10ms { this->x = a["abc", 123]++; printf("The value of x is %d\n", this->x); } -tick-10ms +profile:::tick-10ms { this->x = a["abc", 123]++; printf("The value of x is %d\n", this->x); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.diffprofile.d b/test/unittest/assocs/tst.diffprofile.d index 7127ad3d..1ecd276e 100644 --- a/test/unittest/assocs/tst.diffprofile.d +++ b/test/unittest/assocs/tst.diffprofile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,20 +20,20 @@ this int x; this char c; -tick-10ms +profile:::tick-10ms { this->x = 123; this->c = 'D'; printf("The value of x is %d\n", this->x); } -tick-10ms +profile:::tick-10ms { this->x = 235; printf("The value of x is %d\n", this->x); } -tick-10ms +profile:::tick-10ms { this->x = 456; printf("The value of x is %d\n", this->x); diff --git a/test/unittest/assocs/tst.gvar-postdec.d b/test/unittest/assocs/tst.gvar-postdec.d index 17ed5edb..c1415b62 100644 --- a/test/unittest/assocs/tst.gvar-postdec.d +++ b/test/unittest/assocs/tst.gvar-postdec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { old = a["a"] = 42; val = a["a"]--; diff --git a/test/unittest/assocs/tst.gvar-postinc.d b/test/unittest/assocs/tst.gvar-postinc.d index 69fb1047..1b0ae807 100644 --- a/test/unittest/assocs/tst.gvar-postinc.d +++ b/test/unittest/assocs/tst.gvar-postinc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { old = a["a"] = 42; val = a["a"]++; diff --git a/test/unittest/assocs/tst.gvar-predec.d b/test/unittest/assocs/tst.gvar-predec.d index a071bc42..cc5e9ff3 100644 --- a/test/unittest/assocs/tst.gvar-predec.d +++ b/test/unittest/assocs/tst.gvar-predec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { old = a["a"] = 42; val = --a["a"]; diff --git a/test/unittest/assocs/tst.gvar-preinc.d b/test/unittest/assocs/tst.gvar-preinc.d index fa9f61f0..c2ee426d 100644 --- a/test/unittest/assocs/tst.gvar-preinc.d +++ b/test/unittest/assocs/tst.gvar-preinc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { old = a["a"] = 42; val = ++a["a"]; diff --git a/test/unittest/assocs/tst.init-str.d b/test/unittest/assocs/tst.init-str.d index 2894fd68..f6da09e6 100644 --- a/test/unittest/assocs/tst.init-str.d +++ b/test/unittest/assocs/tst.init-str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,13 +17,13 @@ string s[int]; -BEGIN +dtrace:::BEGIN { trace(s[1]); exit(1); } -ERROR +dtrace:::ERROR { exit(arg4 != 1 || arg5 != 0); } diff --git a/test/unittest/assocs/tst.init.d b/test/unittest/assocs/tst.init.d index 567898b6..c77e422b 100644 --- a/test/unittest/assocs/tst.init.d +++ b/test/unittest/assocs/tst.init.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a["a"] = 42; diff --git a/test/unittest/assocs/tst.invalidref.d b/test/unittest/assocs/tst.invalidref.d index 34367c6b..b593f9a5 100644 --- a/test/unittest/assocs/tst.invalidref.d +++ b/test/unittest/assocs/tst.invalidref.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,40 +15,40 @@ int last_cmds[int][4]; -BEGIN +dtrace:::BEGIN { errors = 0; forward = 0; backward = 0; } -tick-1s +profile:::tick-1s /!forward/ { forward = 1; last_cmds[1][4] = 0xdeadbeef; } -tick-1s +profile:::tick-1s /!backward/ { backward = 1; last_cmds[1][-5] = 0xdeadbeef; } -tick-1s +profile:::tick-1s /errors > 1/ { exit(0); } -tick-1s +profile:::tick-1s /n++ > 5/ { exit(1); } -ERROR +dtrace:::ERROR /arg4 == DTRACEFLT_BADADDR/ { errors++; diff --git a/test/unittest/assocs/tst.misc.d b/test/unittest/assocs/tst.misc.d index ee0f33df..d5fabb7e 100644 --- a/test/unittest/assocs/tst.misc.d +++ b/test/unittest/assocs/tst.misc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,12 +21,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i != 5/ { x[123, "foo"] = 123; @@ -34,20 +34,20 @@ tick-10ms i++; } -tick-10ms +profile:::tick-10ms /i != 5/ { printf("x[] = %d\n", x[123, "foo"]); printf("self->x[] = %d\n", self->x[456, "bar"]); } -tick-10ms +profile:::tick-10ms /i == 5/ { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.nested.d b/test/unittest/assocs/tst.nested.d index 0e491460..5020c0c2 100644 --- a/test/unittest/assocs/tst.nested.d +++ b/test/unittest/assocs/tst.nested.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a[1, 2, 3] = 1234; a[3, 2, 3] = 4321; @@ -23,7 +23,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.nested2.d b/test/unittest/assocs/tst.nested2.d index 803df84c..d5538906 100644 --- a/test/unittest/assocs/tst.nested2.d +++ b/test/unittest/assocs/tst.nested2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a[1, 2, 3] = 1234; a[3, 2, 3] = 4321; @@ -23,7 +23,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.orthogonality.d b/test/unittest/assocs/tst.orthogonality.d index b87211ea..05d6ff15 100644 --- a/test/unittest/assocs/tst.orthogonality.d +++ b/test/unittest/assocs/tst.orthogonality.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,18 +12,18 @@ */ uint64_t b[uint64_t]; -BEGIN +dtrace:::BEGIN { self->a = 0xbad; } -BEGIN +dtrace:::BEGIN /b[(uint64_t)curthread] == 0/ { exit(0); } -BEGIN +dtrace:::BEGIN { printf("value should be 0; value is %x!", b[(uint64_t)curthread]); exit(1); diff --git a/test/unittest/assocs/tst.store_zero_deletes.d b/test/unittest/assocs/tst.store_zero_deletes.d index 0f78eb39..c6309ec5 100644 --- a/test/unittest/assocs/tst.store_zero_deletes.d +++ b/test/unittest/assocs/tst.store_zero_deletes.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ #pragma D option dynvarsize=80 #pragma D option quiet -BEGIN +dtrace:::BEGIN { a[1] = 1; a[2] = 2; @@ -37,7 +37,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.store_zero_deletes_struct.d b/test/unittest/assocs/tst.store_zero_deletes_struct.d index ac232f83..5085a8b1 100644 --- a/test/unittest/assocs/tst.store_zero_deletes_struct.d +++ b/test/unittest/assocs/tst.store_zero_deletes_struct.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ this struct { int a; } val; -BEGIN +dtrace:::BEGIN { this->val.a = 1; a[1] = this->val; @@ -44,7 +44,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.store_zero_deletes_union.d b/test/unittest/assocs/tst.store_zero_deletes_union.d index 8d2132a2..fad4c3cb 100644 --- a/test/unittest/assocs/tst.store_zero_deletes_union.d +++ b/test/unittest/assocs/tst.store_zero_deletes_union.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ this union { int a; } val; -BEGIN +dtrace:::BEGIN { this->val.a = 1; a[1] = this->val; @@ -44,7 +44,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.store_zero_safe.d b/test/unittest/assocs/tst.store_zero_safe.d index 94e69c70..70f29232 100644 --- a/test/unittest/assocs/tst.store_zero_safe.d +++ b/test/unittest/assocs/tst.store_zero_safe.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option dynvarsize=20 #pragma D option quiet -BEGIN +dtrace:::BEGIN { a[1] = 1; a[2] = 0; @@ -28,7 +28,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/assocs/tst.this.d b/test/unittest/assocs/tst.this.d index 7961ae05..fc757779 100644 --- a/test/unittest/assocs/tst.this.d +++ b/test/unittest/assocs/tst.this.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ this int x; this char c; -BEGIN +dtrace:::BEGIN { this->x = 123; this->c = 'D'; diff --git a/test/unittest/assocs/tst.tvar-postdec.d b/test/unittest/assocs/tst.tvar-postdec.d index a8f6bf7f..f8093f4c 100644 --- a/test/unittest/assocs/tst.tvar-postdec.d +++ b/test/unittest/assocs/tst.tvar-postdec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { old = self->a["a"] = 42; val = self->a["a"]--; diff --git a/test/unittest/assocs/tst.tvar-postinc.d b/test/unittest/assocs/tst.tvar-postinc.d index e9a50763..e4f03177 100644 --- a/test/unittest/assocs/tst.tvar-postinc.d +++ b/test/unittest/assocs/tst.tvar-postinc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { old = self->a["a"] = 42; val = self->a["a"]++; diff --git a/test/unittest/assocs/tst.tvar-predec.d b/test/unittest/assocs/tst.tvar-predec.d index 70670a5a..c75f4fd0 100644 --- a/test/unittest/assocs/tst.tvar-predec.d +++ b/test/unittest/assocs/tst.tvar-predec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { old = self->a["a"] = 42; val = --self->a["a"]; diff --git a/test/unittest/assocs/tst.tvar-preinc.d b/test/unittest/assocs/tst.tvar-preinc.d index bcd98a39..aa6555c8 100644 --- a/test/unittest/assocs/tst.tvar-preinc.d +++ b/test/unittest/assocs/tst.tvar-preinc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { old = self->a["a"] = 42; val = ++self->a["a"]; diff --git a/test/unittest/begin/tst.begin-first.d b/test/unittest/begin/tst.begin-first.d index a24d07d9..d5e9d52a 100644 --- a/test/unittest/begin/tst.begin-first.d +++ b/test/unittest/begin/tst.begin-first.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(0); } -profile-200us +profile:::profile-200us { exit(1); } diff --git a/test/unittest/begin/tst.begin-starvation.sh b/test/unittest/begin/tst.begin-starvation.sh index b3aa5947..3e8e5eed 100755 --- a/test/unittest/begin/tst.begin-starvation.sh +++ b/test/unittest/begin/tst.begin-starvation.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -24,7 +24,7 @@ syscall::write:entry { exit(1); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/begin/tst.begin.d b/test/unittest/begin/tst.begin.d index bc9df569..53609621 100644 --- a/test/unittest/begin/tst.begin.d +++ b/test/unittest/begin/tst.begin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ #pragma D option quiet -END +dtrace:::END { printf("End fired after exit\n"); } -BEGIN +dtrace:::BEGIN { printf("Begin fired first\n"); } diff --git a/test/unittest/begin/tst.multibegin.d b/test/unittest/begin/tst.multibegin.d index 5cde4818..a92d2e78 100644 --- a/test/unittest/begin/tst.multibegin.d +++ b/test/unittest/begin/tst.multibegin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,23 +16,23 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("Begin fired first\n"); } -BEGIN +dtrace:::BEGIN { printf("Begin fired second\n"); } -BEGIN +dtrace:::BEGIN { printf("Begin fired third\n"); } -BEGIN +dtrace:::BEGIN { printf("Begin fired fourth\n"); } -BEGIN +dtrace:::BEGIN { printf("Begin fired fifth\n"); exit(0); diff --git a/test/unittest/bitfields/err.D_ADDROF_BITFIELD.BitfieldAddress.d b/test/unittest/bitfields/err.D_ADDROF_BITFIELD.BitfieldAddress.d index 449af236..c784417a 100644 --- a/test/unittest/bitfields/err.D_ADDROF_BITFIELD.BitfieldAddress.d +++ b/test/unittest/bitfields/err.D_ADDROF_BITFIELD.BitfieldAddress.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ struct bitRecord{ int c : 12; } var; -BEGIN +dtrace:::BEGIN { printf("address of a: %d\naddress of b: %d\naddress of c: %dn", &var.a, &var.b, &var.c); diff --git a/test/unittest/bitfields/err.D_DECL_BFCONST.NegBitField.d b/test/unittest/bitfields/err.D_DECL_BFCONST.NegBitField.d index 131d5a84..aa2082b4 100644 --- a/test/unittest/bitfields/err.D_DECL_BFCONST.NegBitField.d +++ b/test/unittest/bitfields/err.D_DECL_BFCONST.NegBitField.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ struct bitRecord{ int c : 12; } var; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/bitfields/err.D_DECL_BFCONST.ZeroBitField.d b/test/unittest/bitfields/err.D_DECL_BFCONST.ZeroBitField.d index e989e7db..5b079b37 100644 --- a/test/unittest/bitfields/err.D_DECL_BFCONST.ZeroBitField.d +++ b/test/unittest/bitfields/err.D_DECL_BFCONST.ZeroBitField.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ struct bitRecord{ int c : 12; } var; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/bitfields/err.D_DECL_BFSIZE.ExceedBaseType.d b/test/unittest/bitfields/err.D_DECL_BFSIZE.ExceedBaseType.d index 82f74dff..7c419578 100644 --- a/test/unittest/bitfields/err.D_DECL_BFSIZE.ExceedBaseType.d +++ b/test/unittest/bitfields/err.D_DECL_BFSIZE.ExceedBaseType.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ struct bitRecord3{ long long a : 65; } var3; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/bitfields/err.D_DECL_BFSIZE.GreaterThan64.d b/test/unittest/bitfields/err.D_DECL_BFSIZE.GreaterThan64.d index ca5debf1..4389924a 100644 --- a/test/unittest/bitfields/err.D_DECL_BFSIZE.GreaterThan64.d +++ b/test/unittest/bitfields/err.D_DECL_BFSIZE.GreaterThan64.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ struct bitRecord{ int c : 12; } var; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/bitfields/err.D_DECL_BFTYPE.badtype.d b/test/unittest/bitfields/err.D_DECL_BFTYPE.badtype.d index 1e3ac676..830863fb 100644 --- a/test/unittest/bitfields/err.D_DECL_BFTYPE.badtype.d +++ b/test/unittest/bitfields/err.D_DECL_BFTYPE.badtype.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ struct bits { float : 1; } xyz; -BEGIN +dtrace:::BEGIN { exit(1); } diff --git a/test/unittest/bitfields/err.D_OFFSETOF_BITFIELD.d b/test/unittest/bitfields/err.D_OFFSETOF_BITFIELD.d index 75c1b3bc..08f7abba 100644 --- a/test/unittest/bitfields/err.D_OFFSETOF_BITFIELD.d +++ b/test/unittest/bitfields/err.D_OFFSETOF_BITFIELD.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ struct bitRecord{ int c : 12; } var; -BEGIN +dtrace:::BEGIN { printf("offsetof(struct bitRecord, a): %d\n", offsetof(struct bitRecord, a)); diff --git a/test/unittest/bitfields/err.D_SIZEOF_BITFIELD.SizeofBitfield.d b/test/unittest/bitfields/err.D_SIZEOF_BITFIELD.SizeofBitfield.d index d02554d2..ae20e7e6 100644 --- a/test/unittest/bitfields/err.D_SIZEOF_BITFIELD.SizeofBitfield.d +++ b/test/unittest/bitfields/err.D_SIZEOF_BITFIELD.SizeofBitfield.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ struct bitRecord{ int c : 12; } var; -BEGIN +dtrace:::BEGIN { printf("sizeof(a): %d\nsizeof(b): %d\nsizeof(c): %n", sizeof(var.a), sizeof(var.b), sizeof(var.c)); diff --git a/test/unittest/bitfields/tst.BasicSigned.d b/test/unittest/bitfields/tst.BasicSigned.d index 00c0441d..9dfbe99d 100644 --- a/test/unittest/bitfields/tst.BasicSigned.d +++ b/test/unittest/bitfields/tst.BasicSigned.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ struct bitRecord{ int h : 8; } var; -BEGIN +dtrace:::BEGIN { /* sign bit is 0 */ var.a = 3; diff --git a/test/unittest/bitfields/tst.BasicUnsigned.d b/test/unittest/bitfields/tst.BasicUnsigned.d index e60d9b1b..02fe4898 100644 --- a/test/unittest/bitfields/tst.BasicUnsigned.d +++ b/test/unittest/bitfields/tst.BasicUnsigned.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ struct bitRecord{ unsigned int h : 8; } var; -BEGIN +dtrace:::BEGIN { /* sign bit is 0 */ var.a = 3; diff --git a/test/unittest/bitfields/tst.BitFieldPromotion.d b/test/unittest/bitfields/tst.BitFieldPromotion.d index 56522216..8ad91523 100644 --- a/test/unittest/bitfields/tst.BitFieldPromotion.d +++ b/test/unittest/bitfields/tst.BitFieldPromotion.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ struct bitRecord{ int c : 31; } var; -BEGIN +dtrace:::BEGIN { var.a = 256; var.b = 65536; @@ -32,7 +32,7 @@ BEGIN exit(0); } -END +dtrace:::END /(0 != var.a) || (0 != var.b) || (0 != var.c)/ { exit(1); diff --git a/test/unittest/bitfields/tst.SizeofBitField.d b/test/unittest/bitfields/tst.SizeofBitField.d index 1eb4ab5d..ecb10aca 100644 --- a/test/unittest/bitfields/tst.SizeofBitField.d +++ b/test/unittest/bitfields/tst.SizeofBitField.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -65,7 +65,7 @@ struct bitRecord12 { int c : 32; } var12; -BEGIN +dtrace:::BEGIN { printf("sizeof(bitRecord1): %d\n", sizeof(var1)); printf("sizeof(bitRecord2): %d\n", sizeof(var2)); @@ -79,7 +79,7 @@ BEGIN exit(0); } -END +dtrace:::END /(1 != sizeof(var1)) || (2 != sizeof(var2)) || (3 != sizeof(var3)) || (4 != sizeof(var4)) || (5 != sizeof(var5)) || (6 != sizeof(var6)) || (7 != sizeof(var7)) || (8 != sizeof(var8)) || (12 != sizeof(var12))/ diff --git a/test/unittest/bitfields/tst.bitfield-offset.d b/test/unittest/bitfields/tst.bitfield-offset.d index fa8c568b..2a6d7287 100644 --- a/test/unittest/bitfields/tst.bitfield-offset.d +++ b/test/unittest/bitfields/tst.bitfield-offset.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ struct iphdr iph; -BEGIN +dtrace:::BEGIN { iph.ihl = 5; iph.version = 4; @@ -27,7 +27,7 @@ BEGIN exit(iph.ihl == 5 && iph.version == 4 ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/btf/tst.elf-vmlinux.sh b/test/unittest/btf/tst.elf-vmlinux.sh index f8132e74..752b1bcd 100755 --- a/test/unittest/btf/tst.elf-vmlinux.sh +++ b/test/unittest/btf/tst.elf-vmlinux.sh @@ -12,7 +12,7 @@ mkdir -p "$dir" || exit 1 "$dtrace" $dt_flags -e -xdebug -xctfpath="$dir/missing.ctfa" \ -xbtfpath="$dir" -n ' -BEGIN +dtrace:::BEGIN { this->size = sizeof(struct vmlinux`task_struct); }' >"$dir/output" 2>&1 diff --git a/test/unittest/btf/tst.invalid-fallback.sh b/test/unittest/btf/tst.invalid-fallback.sh index 58632306..bd34a062 100755 --- a/test/unittest/btf/tst.invalid-fallback.sh +++ b/test/unittest/btf/tst.invalid-fallback.sh @@ -12,7 +12,7 @@ mkdir -p "$dir" || exit 1 head -c 24 /sys/kernel/btf/vmlinux >"$dir/vmlinux" || exit 1 "$dtrace" $dt_flags -e -xdebug -xbtfpath="$dir" -n ' -BEGIN +dtrace:::BEGIN { this->size = sizeof(struct vmlinux`task_struct); }' >"$dir/output" 2>&1 diff --git a/test/unittest/btf/tst.module-btf.sh b/test/unittest/btf/tst.module-btf.sh index fe1f7b54..259aa81e 100755 --- a/test/unittest/btf/tst.module-btf.sh +++ b/test/unittest/btf/tst.module-btf.sh @@ -27,7 +27,7 @@ fi "$dtrace" $dt_flags -e -xdebug -xctfpath="$dir/missing.ctfa" \ -xbtfpath="$dir" -n " -BEGIN +dtrace:::BEGIN { this->size = sizeof(struct ${module}\`task_struct); }" >"$dir/output" 2>&1 diff --git a/test/unittest/btf/tst.module-local.sh b/test/unittest/btf/tst.module-local.sh index 74a07370..6d0193a6 100755 --- a/test/unittest/btf/tst.module-local.sh +++ b/test/unittest/btf/tst.module-local.sh @@ -43,7 +43,7 @@ PY "$dtrace" $dt_flags -e -xdebug -xctfpath="$dir/missing.ctfa" \ -xbtfpath="$dir" -n " -BEGIN +dtrace:::BEGIN { this->local_size = sizeof(struct ${module}\`dtrace_btf_local_test); this->parent_size = sizeof(struct ${module}\`task_struct); diff --git a/test/unittest/btf/tst.module-parent.sh b/test/unittest/btf/tst.module-parent.sh index 5a521362..23434fe8 100755 --- a/test/unittest/btf/tst.module-parent.sh +++ b/test/unittest/btf/tst.module-parent.sh @@ -27,7 +27,7 @@ fi # parent-only BTF container, including its CTF import for scoped lookup. "$dtrace" $dt_flags -e -xdebug -xctfpath="$dir/missing.ctfa" \ -xbtfpath="$dir" -n " -BEGIN +dtrace:::BEGIN { this->size = sizeof(struct ${module}\`task_struct); }" >"$dir/output" 2>&1 diff --git a/test/unittest/btf/tst.raw-vmlinux.sh b/test/unittest/btf/tst.raw-vmlinux.sh index 12280ba6..a981c8bd 100755 --- a/test/unittest/btf/tst.raw-vmlinux.sh +++ b/test/unittest/btf/tst.raw-vmlinux.sh @@ -11,7 +11,7 @@ ln -s /sys/kernel/btf/vmlinux "$dir/vmlinux" || exit 1 "$dtrace" $dt_flags -e -xdebug -xctfpath="$dir/missing.ctfa" \ -xbtfpath="$dir" -n ' -BEGIN +dtrace:::BEGIN { this->size = sizeof(struct vmlinux`task_struct); }' >"$dir/output" 2>&1 diff --git a/test/unittest/buffering/err.end.d b/test/unittest/buffering/err.end.d index 28e78d59..0b45318f 100644 --- a/test/unittest/buffering/err.end.d +++ b/test/unittest/buffering/err.end.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,12 +23,12 @@ #pragma D option bufsize=32 #pragma D option strsize=64 -BEGIN +dtrace:::BEGIN { exit(0); } -END +dtrace:::END { trace(execname); } diff --git a/test/unittest/buffering/err.zerobuf.d b/test/unittest/buffering/err.zerobuf.d index 1e39a974..503f7f94 100644 --- a/test/unittest/buffering/err.zerobuf.d +++ b/test/unittest/buffering/err.zerobuf.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option bufsize=0 -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/buffering/tst.cputime.sh b/test/unittest/buffering/tst.cputime.sh index c0e248a6..d8edf6a8 100755 --- a/test/unittest/buffering/tst.cputime.sh +++ b/test/unittest/buffering/tst.cputime.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ script() uint64_t total; int thresh; - BEGIN + dtrace:::BEGIN { start = timestamp; thresh = 10; @@ -36,13 +36,13 @@ script() total += vtimestamp - self->on; } - tick-1sec + profile:::tick-1sec /i++ == 10/ { exit(0); } - END + dtrace:::END /((total * 100) / (timestamp - start)) > thresh/ { printf("'%s' buffering policy took %d%% of CPU; ", diff --git a/test/unittest/buffering/tst.dynvarsize.d b/test/unittest/buffering/tst.dynvarsize.d index a9bf39f3..9c1aeaa6 100644 --- a/test/unittest/buffering/tst.dynvarsize.d +++ b/test/unittest/buffering/tst.dynvarsize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,25 +22,25 @@ int n; -tick-10ms +profile:::tick-10ms /n++ < 100/ { a[n] = 1; } -tick-10ms +profile:::tick-10ms /n == 100/ { exit(2); } -END +dtrace:::END /a[99]/ { exit(1); } -END +dtrace:::END /!a[99]/ { exit(0); diff --git a/test/unittest/buffering/tst.fill1.d b/test/unittest/buffering/tst.fill1.d index 087f5e3b..6b82fd58 100644 --- a/test/unittest/buffering/tst.fill1.d +++ b/test/unittest/buffering/tst.fill1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -28,67 +28,67 @@ int i; -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms { printf("%d\n", i++); } -tick-10ms +profile:::tick-10ms /i >= 100/ { exit(1); diff --git a/test/unittest/buffering/tst.ring1.d b/test/unittest/buffering/tst.ring1.d index 793b9713..a0eebca9 100644 --- a/test/unittest/buffering/tst.ring1.d +++ b/test/unittest/buffering/tst.ring1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -39,20 +39,20 @@ int n; int i; -tick-10msec +profile:::tick-10msec /n < 300/ { trace(i); i++; } -tick-10msec +profile:::tick-10msec /n < 300/ { n++; } -tick-10msec +profile:::tick-10msec /n == 300/ { exit(i == 300 ? 0 : 1); diff --git a/test/unittest/buffering/tst.ring2.d b/test/unittest/buffering/tst.ring2.d index 1cbfa1e9..7c1d976a 100644 --- a/test/unittest/buffering/tst.ring2.d +++ b/test/unittest/buffering/tst.ring2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,13 +19,13 @@ #pragma D option bufsize=512k #pragma D option quiet -tick-1sec +profile:::tick-1sec /n < 5/ { printf("%d\n", n++); } -tick-1sec +profile:::tick-1sec /n == 5/ { exit(0); diff --git a/test/unittest/buffering/tst.ring3.d b/test/unittest/buffering/tst.ring3.d index dc829ce0..1adcc4c1 100644 --- a/test/unittest/buffering/tst.ring3.d +++ b/test/unittest/buffering/tst.ring3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -34,24 +34,24 @@ int n; -BEGIN +dtrace:::BEGIN { cpuid = -1; } -tick-10msec +profile:::tick-10msec /cpuid == -1/ { cpuid = curcpu->cpu_id; } -tick-10msec +profile:::tick-10msec /curcpu->cpu_id == cpuid && n < 100/ { printf("%d\n", n++); } -tick-10msec +profile:::tick-10msec /n == 100/ { exit(0); diff --git a/test/unittest/buffering/tst.smallring.d b/test/unittest/buffering/tst.smallring.d index 63270382..a530194a 100644 --- a/test/unittest/buffering/tst.smallring.d +++ b/test/unittest/buffering/tst.smallring.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,18 +19,18 @@ #pragma D option bufpolicy=ring #pragma D option bufsize=16 -tick-10ms +profile:::tick-10ms { trace(0xbadbaddefec8d); } -tick-10ms +profile:::tick-10ms /0/ { trace((int)1); } -tick-10ms +profile:::tick-10ms /i++ > 20/ { exit(0); diff --git a/test/unittest/buffering/tst.switch1.d b/test/unittest/buffering/tst.switch1.d index 4f690176..f72b09c8 100644 --- a/test/unittest/buffering/tst.switch1.d +++ b/test/unittest/buffering/tst.switch1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,20 +29,20 @@ int n; int i; -tick-1sec +profile:::tick-1sec /n < 10/ { printf("%d\n", i); i++; } -tick-1sec +profile:::tick-1sec /n < 10/ { n++; } -tick-1sec +profile:::tick-1sec /n == 10/ { exit(0); diff --git a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_cpu.d b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_cpu.d index b31cb59a..1d774a5d 100644 --- a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_cpu.d +++ b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_cpu.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The cpu-usage setting = %c\n", curlwpsinfo->pr_cpu); exit (0); diff --git a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_nice.d b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_nice.d index 8192a8a0..982b0254 100644 --- a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_nice.d +++ b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_nice.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The nice setting = %c\n", curlwpsinfo->pr_nice); exit (0); diff --git a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_oldpri.d b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_oldpri.d index 5b64a524..8bcde410 100644 --- a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_oldpri.d +++ b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_oldpri.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The low value is high priority field = %d\n", curlwpsinfo->pr_oldpri); diff --git a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_rssize.d b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_rssize.d index 7b5b9729..243eaf77 100644 --- a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_rssize.d +++ b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_rssize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("Size of process image in kbytes = %ld\n", curpsinfo->pr_rssize); exit (0); diff --git a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_size.d b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_size.d index bf9d9459..0d390711 100644 --- a/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_size.d +++ b/test/unittest/builtinvar/err.D_XLATE_NOCONV.pr_size.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("Size of process image in kbytes = %ld\n", curpsinfo->pr_size); exit (0); diff --git a/test/unittest/builtinvar/tst.arg0.d b/test/unittest/builtinvar/tst.arg0.d index 08a117ef..f61a620a 100644 --- a/test/unittest/builtinvar/tst.arg0.d +++ b/test/unittest/builtinvar/tst.arg0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The argument is %u\n", arg0); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.arg0clause.d b/test/unittest/builtinvar/tst.arg0clause.d index 3bf6cfa2..a8afb67c 100644 --- a/test/unittest/builtinvar/tst.arg0clause.d +++ b/test/unittest/builtinvar/tst.arg0clause.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("Call probe read\n"); } @@ -25,7 +25,7 @@ syscall:::entry printf("The argument is %u", arg0); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.arg1.d b/test/unittest/builtinvar/tst.arg1.d index 5e6fceae..51eb1128 100644 --- a/test/unittest/builtinvar/tst.arg1.d +++ b/test/unittest/builtinvar/tst.arg1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The argument is %u\n", arg1); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.arg1to8.d b/test/unittest/builtinvar/tst.arg1to8.d index b01b8010..b50d745b 100644 --- a/test/unittest/builtinvar/tst.arg1to8.d +++ b/test/unittest/builtinvar/tst.arg1to8.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,14 +14,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The argument is %u %u %u %u %u %u %u %u\n", arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.arg1to8clause.d b/test/unittest/builtinvar/tst.arg1to8clause.d index 47ec5bc2..1b74fab8 100644 --- a/test/unittest/builtinvar/tst.arg1to8clause.d +++ b/test/unittest/builtinvar/tst.arg1to8clause.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } @@ -26,7 +26,7 @@ syscall:::entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.epid.d b/test/unittest/builtinvar/tst.epid.d index eae028e9..c29e0826 100644 --- a/test/unittest/builtinvar/tst.epid.d +++ b/test/unittest/builtinvar/tst.epid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,17 +14,17 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } -tick-10ms +profile:::tick-10ms { printf("epid of this probe = %d\n", epid); exit (0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.epid1.d b/test/unittest/builtinvar/tst.epid1.d index 4148c8c4..f71e3316 100644 --- a/test/unittest/builtinvar/tst.epid1.d +++ b/test/unittest/builtinvar/tst.epid1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("epid of this probe = %d\n", epid); exit (0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.errno.d b/test/unittest/builtinvar/tst.errno.d index 877b8f84..a5032263 100644 --- a/test/unittest/builtinvar/tst.errno.d +++ b/test/unittest/builtinvar/tst.errno.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,18 +14,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } -tick-10ms +profile:::tick-10ms { printf("epid of this probe = %d\n", epid); printf("the errno = %d\n", errno); exit (0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.errno1.d b/test/unittest/builtinvar/tst.errno1.d index c9bd35c2..a55181a3 100644 --- a/test/unittest/builtinvar/tst.errno1.d +++ b/test/unittest/builtinvar/tst.errno1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,14 +14,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("epid of this probe = %d\n", epid); printf("the errno = %d\n", errno); exit (0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.errno2.d b/test/unittest/builtinvar/tst.errno2.d index bf445da7..9ad4606f 100644 --- a/test/unittest/builtinvar/tst.errno2.d +++ b/test/unittest/builtinvar/tst.errno2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option destructive #pragma D option zdefs -BEGIN +dtrace:::BEGIN { parent = pid; system("cat /non/existant/file"); @@ -58,7 +58,7 @@ proc:::exit exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.execname.d b/test/unittest/builtinvar/tst.execname.d index 92fa1662..c41d844c 100644 --- a/test/unittest/builtinvar/tst.execname.d +++ b/test/unittest/builtinvar/tst.execname.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,20 +14,20 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN /execname == "dtrace" || execname == "java"/ { trace("execname matched"); exit(0); } -BEGIN +dtrace:::BEGIN { trace("execname didn't match"); exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.hpriority.d b/test/unittest/builtinvar/tst.hpriority.d index 865b606d..a0d177df 100644 --- a/test/unittest/builtinvar/tst.hpriority.d +++ b/test/unittest/builtinvar/tst.hpriority.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The high priority = %d\n", curlwpsinfo->pr_pri); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.id.d b/test/unittest/builtinvar/tst.id.d index f4187cdd..38b966dc 100644 --- a/test/unittest/builtinvar/tst.id.d +++ b/test/unittest/builtinvar/tst.id.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,17 +14,17 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } -tick-10ms +profile:::tick-10ms { printf("id of this probe = %d\n", id); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.id1.d b/test/unittest/builtinvar/tst.id1.d index aef19210..6f533c75 100644 --- a/test/unittest/builtinvar/tst.id1.d +++ b/test/unittest/builtinvar/tst.id1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("id of this probe = %d\n", id); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.id_ERROR.sh b/test/unittest/builtinvar/tst.id_ERROR.sh index 480d99a3..789832f9 100755 --- a/test/unittest/builtinvar/tst.id_ERROR.sh +++ b/test/unittest/builtinvar/tst.id_ERROR.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -15,9 +15,9 @@ cd $DIRNAME # Have a D script report the probe ID within an ERROR probe. $dtrace $dt_flags -qn ' -BEGIN { *((int*)0) } -BEGIN { exit(1) } -ERROR { printf("ERROR probe id is %d\n", id); exit(0); } +dtrace:::BEGIN { *((int*)0) } +dtrace:::BEGIN { exit(1) } +dtrace:::ERROR { printf("ERROR probe id is %d\n", id); exit(0); } ' -o D.out 2> D.err if [ $? -ne 0 ]; then echo DTrace failed diff --git a/test/unittest/builtinvar/tst.ipl.d b/test/unittest/builtinvar/tst.ipl.d index 41a89b00..f8c1ba9a 100644 --- a/test/unittest/builtinvar/tst.ipl.d +++ b/test/unittest/builtinvar/tst.ipl.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,17 +15,17 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } -tick-10ms +profile:::tick-10ms { printf("The interrupt priority level = %u\n", ipl); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.ipl1.d b/test/unittest/builtinvar/tst.ipl1.d index 654b16ce..903d0b04 100644 --- a/test/unittest/builtinvar/tst.ipl1.d +++ b/test/unittest/builtinvar/tst.ipl1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,13 +15,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The interrupt priority level = %u\n", ipl); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.lwpsinfo.d b/test/unittest/builtinvar/tst.lwpsinfo.d index c48d3e11..3940ebe1 100644 --- a/test/unittest/builtinvar/tst.lwpsinfo.d +++ b/test/unittest/builtinvar/tst.lwpsinfo.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } -tick-10ms +profile:::tick-10ms { printf("The current lwp pr_flag is %d\n", curlwpsinfo->pr_flag); printf("The current lwp lwpid is %d\n", curlwpsinfo->pr_lwpid); @@ -33,7 +33,7 @@ tick-10ms exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.lwpsinfo1.d b/test/unittest/builtinvar/tst.lwpsinfo1.d index ea8a38ae..ed288616 100644 --- a/test/unittest/builtinvar/tst.lwpsinfo1.d +++ b/test/unittest/builtinvar/tst.lwpsinfo1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("The current lwp pr_flag is %d\n", curlwpsinfo->pr_flag); printf("The current lwp lwpid is %d\n", curlwpsinfo->pr_lwpid); @@ -29,7 +29,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.pid.d b/test/unittest/builtinvar/tst.pid.d index f233fd06..a9725e67 100644 --- a/test/unittest/builtinvar/tst.pid.d +++ b/test/unittest/builtinvar/tst.pid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,17 +14,17 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } -tick-10ms +profile:::tick-10ms { printf("process id = %d \n", pid); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.pid1.d b/test/unittest/builtinvar/tst.pid1.d index 7775ca57..9b988b2c 100644 --- a/test/unittest/builtinvar/tst.pid1.d +++ b/test/unittest/builtinvar/tst.pid1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("process id = %d \n", pid); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.probe_dtrace.d b/test/unittest/builtinvar/tst.probe_dtrace.d index d08067ad..7612d860 100644 --- a/test/unittest/builtinvar/tst.probe_dtrace.d +++ b/test/unittest/builtinvar/tst.probe_dtrace.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,19 +16,19 @@ #pragma D option quiet /* Check build-in variables from the dtrace-provider probes. */ -BEGIN,ERROR,END +dtrace:::BEGIN,dtrace:::ERROR,dtrace:::END { printf("%s:%s:%s:%s\n", probeprov, probemod, probefunc, probename); } /* Cause the ERROR probe to fire. */ -BEGIN +dtrace:::BEGIN { *((int*)0); } /* Cause the END probe to fire. */ -BEGIN,ERROR +dtrace:::BEGIN,dtrace:::ERROR { exit(0); } diff --git a/test/unittest/builtinvar/tst.psinfo-bug21974606.d b/test/unittest/builtinvar/tst.psinfo-bug21974606.d index 67fea54e..25a0758a 100644 --- a/test/unittest/builtinvar/tst.psinfo-bug21974606.d +++ b/test/unittest/builtinvar/tst.psinfo-bug21974606.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2015, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2015, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("/bin/ls >/dev/null"); } -exec-success +proc:::exec-success /execname == "ls"/ { psargs = stringof(curpsinfo->pr_psargs); @@ -28,7 +28,7 @@ exec-success exit(psargs[strlen(psargs) - 1] == ' ' ? 1 : 0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.psinfo-bug21984854.d b/test/unittest/builtinvar/tst.psinfo-bug21984854.d index 8be02af0..57e4acbc 100644 --- a/test/unittest/builtinvar/tst.psinfo-bug21984854.d +++ b/test/unittest/builtinvar/tst.psinfo-bug21984854.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ * User Process Tracing/copyin() and copyinstr() */ -BEGIN +dtrace:::BEGIN /curpsinfo->pr_dmodel == PR_MODEL_ILP32/ { argv = *(uint32_t *)copyin(curpsinfo->pr_argv, sizeof(uint32_t)); @@ -27,7 +27,7 @@ BEGIN exit(0); } -BEGIN +dtrace:::BEGIN /curpsinfo->pr_dmodel == PR_MODEL_LP64/ { argv = *(uint64_t *)copyin(curpsinfo->pr_argv, sizeof(uint64_t)); @@ -38,7 +38,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.psinfo-bug22561297.d b/test/unittest/builtinvar/tst.psinfo-bug22561297.d index 5a9fe333..1201f1a9 100644 --- a/test/unittest/builtinvar/tst.psinfo-bug22561297.d +++ b/test/unittest/builtinvar/tst.psinfo-bug22561297.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms /pid == 0/ { printf("number of lwps in process = %d\n", curpsinfo->pr_nlwp); @@ -48,7 +48,7 @@ tick-10ms exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.psinfo.d b/test/unittest/builtinvar/tst.psinfo.d index 09bcce86..15fcd461 100644 --- a/test/unittest/builtinvar/tst.psinfo.d +++ b/test/unittest/builtinvar/tst.psinfo.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("number of lwps in process = %d\n", curpsinfo->pr_nlwp); printf("unique process id = %d\n", curpsinfo->pr_pid); @@ -47,7 +47,7 @@ tick-10ms exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.psinfo1.d b/test/unittest/builtinvar/tst.psinfo1.d index be9e251c..08b4c257 100644 --- a/test/unittest/builtinvar/tst.psinfo1.d +++ b/test/unittest/builtinvar/tst.psinfo1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("number of lwps in process = %d\n", curpsinfo->pr_nlwp); printf("unique process id = %d\n", curpsinfo->pr_pid); @@ -45,7 +45,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.tid.d b/test/unittest/builtinvar/tst.tid.d index e5af0321..1de3f7ed 100644 --- a/test/unittest/builtinvar/tst.tid.d +++ b/test/unittest/builtinvar/tst.tid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,17 +14,17 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } -tick-10ms +profile:::tick-10ms { printf("Thread id = %d \n", tid); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.tid1.d b/test/unittest/builtinvar/tst.tid1.d index 9f4acb5b..7e4751db 100644 --- a/test/unittest/builtinvar/tst.tid1.d +++ b/test/unittest/builtinvar/tst.tid1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("Thread id = %d \n", tid); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.timestamp.d b/test/unittest/builtinvar/tst.timestamp.d index 4d4126c6..452db08f 100644 --- a/test/unittest/builtinvar/tst.timestamp.d +++ b/test/unittest/builtinvar/tst.timestamp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,14 +14,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->t = timestamp; printf("The difftime = %d\n", timestamp - this->t); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.vtimestamp.d b/test/unittest/builtinvar/tst.vtimestamp.d index 11ffae7b..52e28de6 100644 --- a/test/unittest/builtinvar/tst.vtimestamp.d +++ b/test/unittest/builtinvar/tst.vtimestamp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,14 +15,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->t = vtimestamp; printf("The difftime = %d\n", vtimestamp - self->t); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/builtinvar/tst.vtimestamp2.d b/test/unittest/builtinvar/tst.vtimestamp2.d index 68a57ea8..3bf27ea3 100644 --- a/test/unittest/builtinvar/tst.vtimestamp2.d +++ b/test/unittest/builtinvar/tst.vtimestamp2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { self->ts = timestamp; self->vt = vtimestamp; @@ -29,14 +29,14 @@ proc:::create exit(0); } -END +dtrace:::END { exit((vtimestamp == 0) ? -1 : (vtimestamp - self->vt) <= (timestamp - self->ts) ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/clauses/err.D_IDENT_UNDEF.aggfun.d b/test/unittest/clauses/err.D_IDENT_UNDEF.aggfun.d index 9b3caad9..b5828ea2 100644 --- a/test/unittest/clauses/err.D_IDENT_UNDEF.aggfun.d +++ b/test/unittest/clauses/err.D_IDENT_UNDEF.aggfun.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN /1/ { @a = max(x); diff --git a/test/unittest/clauses/err.D_IDENT_UNDEF.aggtup.d b/test/unittest/clauses/err.D_IDENT_UNDEF.aggtup.d index 9b55e923..c2be5ae4 100644 --- a/test/unittest/clauses/err.D_IDENT_UNDEF.aggtup.d +++ b/test/unittest/clauses/err.D_IDENT_UNDEF.aggtup.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN /1/ { @a[x] = count(); diff --git a/test/unittest/clauses/err.D_IDENT_UNDEF.arrtup.d b/test/unittest/clauses/err.D_IDENT_UNDEF.arrtup.d index ee096e9d..e4fe384f 100644 --- a/test/unittest/clauses/err.D_IDENT_UNDEF.arrtup.d +++ b/test/unittest/clauses/err.D_IDENT_UNDEF.arrtup.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN /1/ { a[x]++; diff --git a/test/unittest/clauses/err.D_IDENT_UNDEF.body.d b/test/unittest/clauses/err.D_IDENT_UNDEF.body.d index 2b6e26e3..60bb35c5 100644 --- a/test/unittest/clauses/err.D_IDENT_UNDEF.body.d +++ b/test/unittest/clauses/err.D_IDENT_UNDEF.body.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * */ -BEGIN +dtrace:::BEGIN { exit(x); } diff --git a/test/unittest/clauses/err.D_IDENT_UNDEF.both.d b/test/unittest/clauses/err.D_IDENT_UNDEF.both.d index 3aca3579..e7e8781e 100644 --- a/test/unittest/clauses/err.D_IDENT_UNDEF.both.d +++ b/test/unittest/clauses/err.D_IDENT_UNDEF.both.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN /x != 0/ { exit(x); diff --git a/test/unittest/clauses/err.D_IDENT_UNDEF.pred.d b/test/unittest/clauses/err.D_IDENT_UNDEF.pred.d index f8a2897a..6370f037 100644 --- a/test/unittest/clauses/err.D_IDENT_UNDEF.pred.d +++ b/test/unittest/clauses/err.D_IDENT_UNDEF.pred.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * */ -BEGIN +dtrace:::BEGIN /x != 0/ { exit(0); diff --git a/test/unittest/clauses/tst.nopred.d b/test/unittest/clauses/tst.nopred.d index f2287a7b..2124dc86 100644 --- a/test/unittest/clauses/tst.nopred.d +++ b/test/unittest/clauses/tst.nopred.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/clauses/tst.pred.d b/test/unittest/clauses/tst.pred.d index 73790b76..000213fc 100644 --- a/test/unittest/clauses/tst.pred.d +++ b/test/unittest/clauses/tst.pred.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * */ -BEGIN +dtrace:::BEGIN /$pid != 0/ { exit(0); diff --git a/test/unittest/clauses/tst.predfirst.d b/test/unittest/clauses/tst.predfirst.d index 523b02a3..ad6d935d 100644 --- a/test/unittest/clauses/tst.predfirst.d +++ b/test/unittest/clauses/tst.predfirst.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN /x++ == 0/ { exit(x - 1); diff --git a/test/unittest/clauses/tst.predlast.d b/test/unittest/clauses/tst.predlast.d index 607eaba1..ec69fe29 100644 --- a/test/unittest/clauses/tst.predlast.d +++ b/test/unittest/clauses/tst.predlast.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN /x == 0/ { exit(x++); diff --git a/test/unittest/codegen/err.deref_0.d b/test/unittest/codegen/err.deref_0.d index 0149513b..b1dc4648 100644 --- a/test/unittest/codegen/err.deref_0.d +++ b/test/unittest/codegen/err.deref_0.d @@ -1,23 +1,23 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(*((char*)0)); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.deref_1.d b/test/unittest/codegen/err.deref_1.d index f0d9719b..5b72d3fa 100644 --- a/test/unittest/codegen/err.deref_1.d +++ b/test/unittest/codegen/err.deref_1.d @@ -1,23 +1,23 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(*((char*)1)); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.deref_i0.d b/test/unittest/codegen/err.deref_i0.d index 228c412c..3490c00f 100644 --- a/test/unittest/codegen/err.deref_i0.d +++ b/test/unittest/codegen/err.deref_i0.d @@ -1,24 +1,24 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; trace(*((char*)i)); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.deref_i1.d b/test/unittest/codegen/err.deref_i1.d index b47ba198..d1fe8aa6 100644 --- a/test/unittest/codegen/err.deref_i1.d +++ b/test/unittest/codegen/err.deref_i1.d @@ -1,24 +1,24 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 1; trace(*((char*)i)); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.deref_string-assoc.d b/test/unittest/codegen/err.deref_string-assoc.d index 04acf1b5..4e944796 100644 --- a/test/unittest/codegen/err.deref_string-assoc.d +++ b/test/unittest/codegen/err.deref_string-assoc.d @@ -1,30 +1,30 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s[1234] = "ABCDEFG"; trace(s[1234][1]); } -BEGIN +dtrace:::BEGIN { s[1234] = NULL; trace(s[1234][1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.deref_string-gvar.d b/test/unittest/codegen/err.deref_string-gvar.d index e2beeaed..3aa6c745 100644 --- a/test/unittest/codegen/err.deref_string-gvar.d +++ b/test/unittest/codegen/err.deref_string-gvar.d @@ -1,30 +1,30 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = "ABCDEFG"; trace(s[1]); } -BEGIN +dtrace:::BEGIN { s = NULL; trace(s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.deref_string-lvar.d b/test/unittest/codegen/err.deref_string-lvar.d index 36525065..38a885e0 100644 --- a/test/unittest/codegen/err.deref_string-lvar.d +++ b/test/unittest/codegen/err.deref_string-lvar.d @@ -1,30 +1,30 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->s = "ABCDEFG"; trace(this->s[1]); } -BEGIN +dtrace:::BEGIN { this->s = NULL; trace(this->s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.deref_string-tvar.d b/test/unittest/codegen/err.deref_string-tvar.d index d7df8bc1..e86ec8fb 100644 --- a/test/unittest/codegen/err.deref_string-tvar.d +++ b/test/unittest/codegen/err.deref_string-tvar.d @@ -1,30 +1,30 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->s = "ABCDEFG"; trace(self->s[1]); } -BEGIN +dtrace:::BEGIN { self->s = NULL; trace(self->s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.str_NULL_plus_offset-assoc.d b/test/unittest/codegen/err.str_NULL_plus_offset-assoc.d index 20988c7d..0e226b77 100644 --- a/test/unittest/codegen/err.str_NULL_plus_offset-assoc.d +++ b/test/unittest/codegen/err.str_NULL_plus_offset-assoc.d @@ -1,25 +1,25 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s[1234] = "hello world"; s[1234] = NULL; printf("%x\n", s[1234][1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.str_NULL_plus_offset-lvar.d b/test/unittest/codegen/err.str_NULL_plus_offset-lvar.d index e529d611..774fb344 100644 --- a/test/unittest/codegen/err.str_NULL_plus_offset-lvar.d +++ b/test/unittest/codegen/err.str_NULL_plus_offset-lvar.d @@ -1,25 +1,25 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->s = "hello world"; this->s = NULL; printf("%x\n", this->s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.str_NULL_plus_offset-tvar.d b/test/unittest/codegen/err.str_NULL_plus_offset-tvar.d index 898e895d..c44ae3e7 100644 --- a/test/unittest/codegen/err.str_NULL_plus_offset-tvar.d +++ b/test/unittest/codegen/err.str_NULL_plus_offset-tvar.d @@ -1,25 +1,25 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->s = "hello world"; self->s = NULL; printf("%x\n", self->s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/err.str_NULL_plus_offset.d b/test/unittest/codegen/err.str_NULL_plus_offset.d index 5a526428..7a256c7b 100644 --- a/test/unittest/codegen/err.str_NULL_plus_offset.d +++ b/test/unittest/codegen/err.str_NULL_plus_offset.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,18 +9,18 @@ string s; -BEGIN +dtrace:::BEGIN { s = NULL; printf("%x\n", s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.alloca-taint-sou-access.d b/test/unittest/codegen/tst.alloca-taint-sou-access.d index 2a390a9d..3fd52c08 100644 --- a/test/unittest/codegen/tst.alloca-taint-sou-access.d +++ b/test/unittest/codegen/tst.alloca-taint-sou-access.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * member dereferences. */ -BEGIN +dtrace:::BEGIN { ptr = (struct in6_addr *)alloca(sizeof(struct in6_addr)); ptr->in6_u.u6_addr8[0] = 0x42; @@ -18,7 +18,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.deref_string-assoc.d b/test/unittest/codegen/tst.deref_string-assoc.d index ff7135dc..d84d75d5 100644 --- a/test/unittest/codegen/tst.deref_string-assoc.d +++ b/test/unittest/codegen/tst.deref_string-assoc.d @@ -1,24 +1,24 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s[1234] = "ABCDEFG"; trace(s[1234][1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.deref_string-gvar.d b/test/unittest/codegen/tst.deref_string-gvar.d index 15925510..6b1234e9 100644 --- a/test/unittest/codegen/tst.deref_string-gvar.d +++ b/test/unittest/codegen/tst.deref_string-gvar.d @@ -1,24 +1,24 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = "ABCDEFG"; trace(s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.deref_string-lvar.d b/test/unittest/codegen/tst.deref_string-lvar.d index eee6c806..84537623 100644 --- a/test/unittest/codegen/tst.deref_string-lvar.d +++ b/test/unittest/codegen/tst.deref_string-lvar.d @@ -1,24 +1,24 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->s = "ABCDEFG"; trace(this->s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.deref_string-tvar.d b/test/unittest/codegen/tst.deref_string-tvar.d index 9a697d48..579d7fb2 100644 --- a/test/unittest/codegen/tst.deref_string-tvar.d +++ b/test/unittest/codegen/tst.deref_string-tvar.d @@ -1,24 +1,24 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->s = "ABCDEFG"; trace(self->s[1]); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.dfunc_reg_leak.d b/test/unittest/codegen/tst.dfunc_reg_leak.d index 29747d26..30598671 100644 --- a/test/unittest/codegen/tst.dfunc_reg_leak.d +++ b/test/unittest/codegen/tst.dfunc_reg_leak.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { strlen("a"); strlen("a"); strlen("a"); @@ -31,6 +31,6 @@ BEGIN { exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.epid-in-predicate.d b/test/unittest/codegen/tst.epid-in-predicate.d index a2536ea3..ed84069e 100644 --- a/test/unittest/codegen/tst.epid-in-predicate.d +++ b/test/unittest/codegen/tst.epid-in-predicate.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN /(this->a = epid) || 1/ { trace(this->a); diff --git a/test/unittest/codegen/tst.execname-cmp-bvar_lhs.d b/test/unittest/codegen/tst.execname-cmp-bvar_lhs.d index d36bbf07..13272650 100644 --- a/test/unittest/codegen/tst.execname-cmp-bvar_lhs.d +++ b/test/unittest/codegen/tst.execname-cmp-bvar_lhs.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(probename == execname); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.execname-cmp-bvar_rhs.d b/test/unittest/codegen/tst.execname-cmp-bvar_rhs.d index dcdf3507..3fe70733 100644 --- a/test/unittest/codegen/tst.execname-cmp-bvar_rhs.d +++ b/test/unittest/codegen/tst.execname-cmp-bvar_rhs.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(execname == probename); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.execname-cmp-const_lhs.d b/test/unittest/codegen/tst.execname-cmp-const_lhs.d index 63e8d987..54031b5d 100644 --- a/test/unittest/codegen/tst.execname-cmp-const_lhs.d +++ b/test/unittest/codegen/tst.execname-cmp-const_lhs.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace("dtrace" == execname); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.execname-cmp-const_rhs.d b/test/unittest/codegen/tst.execname-cmp-const_rhs.d index e256f3a9..2b4820fb 100644 --- a/test/unittest/codegen/tst.execname-cmp-const_rhs.d +++ b/test/unittest/codegen/tst.execname-cmp-const_rhs.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(execname == "dtrace"); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.execname-idx.d b/test/unittest/codegen/tst.execname-idx.d index 39321c51..9a5a52a3 100644 --- a/test/unittest/codegen/tst.execname-idx.d +++ b/test/unittest/codegen/tst.execname-idx.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(execname[0]); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_deref_indirect_scalar.d b/test/unittest/codegen/tst.kernel_read_deref_indirect_scalar.d index 9d8bdc69..f1df299a 100644 --- a/test/unittest/codegen/tst.kernel_read_deref_indirect_scalar.d +++ b/test/unittest/codegen/tst.kernel_read_deref_indirect_scalar.d @@ -1,20 +1,20 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { ptr = &`max_pfn; trace(*ptr); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_deref_indirect_str.d b/test/unittest/codegen/tst.kernel_read_deref_indirect_str.d index 25b6f5e7..65a28e35 100644 --- a/test/unittest/codegen/tst.kernel_read_deref_indirect_str.d +++ b/test/unittest/codegen/tst.kernel_read_deref_indirect_str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(*(char *)&`linux_banner == 'L' ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_deref_struct.d b/test/unittest/codegen/tst.kernel_read_deref_struct.d index 81c9f255..7a9ebeef 100644 --- a/test/unittest/codegen/tst.kernel_read_deref_struct.d +++ b/test/unittest/codegen/tst.kernel_read_deref_struct.d @@ -7,14 +7,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(sizeof(struct pid)); trace(*(struct pid *)`cad_pid); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_index_indirect_str.d b/test/unittest/codegen/tst.kernel_read_index_indirect_str.d index 1e7ade8d..08163587 100644 --- a/test/unittest/codegen/tst.kernel_read_index_indirect_str.d +++ b/test/unittest/codegen/tst.kernel_read_index_indirect_str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,13 +15,13 @@ char *s; -BEGIN +dtrace:::BEGIN { s = (char *)&`linux_banner; exit(s[0] == 'L' ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_indirect_scalar.d b/test/unittest/codegen/tst.kernel_read_indirect_scalar.d index 5f189080..9369b0d5 100644 --- a/test/unittest/codegen/tst.kernel_read_indirect_scalar.d +++ b/test/unittest/codegen/tst.kernel_read_indirect_scalar.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(((struct pid *)`cad_pid)->level); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_mixed.d b/test/unittest/codegen/tst.kernel_read_mixed.d index d1cf9ec6..2c197cab 100644 --- a/test/unittest/codegen/tst.kernel_read_mixed.d +++ b/test/unittest/codegen/tst.kernel_read_mixed.d @@ -1,18 +1,18 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(curthread->thread_pid->numbers[0].nr == pid ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_neg_small_scalar.d b/test/unittest/codegen/tst.kernel_read_neg_small_scalar.d index cda6649b..95836ade 100644 --- a/test/unittest/codegen/tst.kernel_read_neg_small_scalar.d +++ b/test/unittest/codegen/tst.kernel_read_neg_small_scalar.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* * Unless we are actually crashing, the `crashing_cpu int will be -1. @@ -18,7 +18,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_scalar.d b/test/unittest/codegen/tst.kernel_read_scalar.d index bbc2d06f..7e89fd6c 100644 --- a/test/unittest/codegen/tst.kernel_read_scalar.d +++ b/test/unittest/codegen/tst.kernel_read_scalar.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(`max_pfn); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_scalar_regspill.d b/test/unittest/codegen/tst.kernel_read_scalar_regspill.d index 19412e10..60fae889 100644 --- a/test/unittest/codegen/tst.kernel_read_scalar_regspill.d +++ b/test/unittest/codegen/tst.kernel_read_scalar_regspill.d @@ -1,6 +1,6 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = 1; b = 2; @@ -30,7 +30,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_read_str.d b/test/unittest/codegen/tst.kernel_read_str.d index dcdd7d42..97532802 100644 --- a/test/unittest/codegen/tst.kernel_read_str.d +++ b/test/unittest/codegen/tst.kernel_read_str.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace((string)&`linux_banner); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_str-cmp-bvar_lhs.d b/test/unittest/codegen/tst.kernel_str-cmp-bvar_lhs.d index ef95815a..fe3200e1 100644 --- a/test/unittest/codegen/tst.kernel_str-cmp-bvar_lhs.d +++ b/test/unittest/codegen/tst.kernel_str-cmp-bvar_lhs.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(probename == curthread->comm); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_str-cmp-bvar_rhs.d b/test/unittest/codegen/tst.kernel_str-cmp-bvar_rhs.d index 1dd9a4ed..3d8c7aab 100644 --- a/test/unittest/codegen/tst.kernel_str-cmp-bvar_rhs.d +++ b/test/unittest/codegen/tst.kernel_str-cmp-bvar_rhs.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(curthread->comm == probename); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_str-cmp-const_lhs.d b/test/unittest/codegen/tst.kernel_str-cmp-const_lhs.d index e877966e..76d04444 100644 --- a/test/unittest/codegen/tst.kernel_str-cmp-const_lhs.d +++ b/test/unittest/codegen/tst.kernel_str-cmp-const_lhs.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace("dtrace" == curthread->comm); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.kernel_str-cmp-const_rhs.d b/test/unittest/codegen/tst.kernel_str-cmp-const_rhs.d index baebe17f..afa4f33b 100644 --- a/test/unittest/codegen/tst.kernel_str-cmp-const_rhs.d +++ b/test/unittest/codegen/tst.kernel_str-cmp-const_rhs.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(curthread->comm == "dtrace"); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.mov_vs_lddw.d b/test/unittest/codegen/tst.mov_vs_lddw.d index 796f28cf..bc891fb4 100644 --- a/test/unittest/codegen/tst.mov_vs_lddw.d +++ b/test/unittest/codegen/tst.mov_vs_lddw.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { n = 2147483647ul; trace(n); diff --git a/test/unittest/codegen/tst.post_inc_gvar_val.d b/test/unittest/codegen/tst.post_inc_gvar_val.d index 6fa66b28..563daed7 100644 --- a/test/unittest/codegen/tst.post_inc_gvar_val.d +++ b/test/unittest/codegen/tst.post_inc_gvar_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * old value of the global variable. */ -BEGIN +dtrace:::BEGIN { trace(x++); exit(0); diff --git a/test/unittest/codegen/tst.post_inc_tvar_val.d b/test/unittest/codegen/tst.post_inc_tvar_val.d index f9c63910..cd4f6c54 100644 --- a/test/unittest/codegen/tst.post_inc_tvar_val.d +++ b/test/unittest/codegen/tst.post_inc_tvar_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * old value of the TLS variable. */ -BEGIN +dtrace:::BEGIN { trace(self->x++); exit(0); diff --git a/test/unittest/codegen/tst.pre_inc_gvar_val.d b/test/unittest/codegen/tst.pre_inc_gvar_val.d index 0d7bca5e..b0df337e 100644 --- a/test/unittest/codegen/tst.pre_inc_gvar_val.d +++ b/test/unittest/codegen/tst.pre_inc_gvar_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * new value of the global variable. */ -BEGIN +dtrace:::BEGIN { trace(++x); exit(0); diff --git a/test/unittest/codegen/tst.pre_inc_tvar_val.d b/test/unittest/codegen/tst.pre_inc_tvar_val.d index ee671591..1c9a0fb9 100644 --- a/test/unittest/codegen/tst.pre_inc_tvar_val.d +++ b/test/unittest/codegen/tst.pre_inc_tvar_val.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * new value of the TLS variable. */ -BEGIN +dtrace:::BEGIN { trace(++self->x); exit(0); diff --git a/test/unittest/codegen/tst.read_index_indirect_str.d b/test/unittest/codegen/tst.read_index_indirect_str.d index 915c9376..9b84a0c4 100644 --- a/test/unittest/codegen/tst.read_index_indirect_str.d +++ b/test/unittest/codegen/tst.read_index_indirect_str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,13 +9,13 @@ char *s; -BEGIN +dtrace:::BEGIN { s = probeprov; /* "dtrace", so s[0] better be 'd' */ exit(s[0] == 'd' ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.reg_spilling.bug31187562-2.d b/test/unittest/codegen/tst.reg_spilling.bug31187562-2.d index 76e0663f..db8c95d6 100644 --- a/test/unittest/codegen/tst.reg_spilling.bug31187562-2.d +++ b/test/unittest/codegen/tst.reg_spilling.bug31187562-2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * Test some other stack variables for corruption. */ -BEGIN +dtrace:::BEGIN { this->x = this->y = this-> z = 123456789; a = b = c = d = e = f = g = h = i = j = k = 87654321; diff --git a/test/unittest/codegen/tst.reg_spilling.bug31187562.d b/test/unittest/codegen/tst.reg_spilling.bug31187562.d index 5b7395e1..37f3f581 100644 --- a/test/unittest/codegen/tst.reg_spilling.bug31187562.d +++ b/test/unittest/codegen/tst.reg_spilling.bug31187562.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * and restore them in order to make them available for allocation. */ -BEGIN +dtrace:::BEGIN { a = 1000; b = 200; diff --git a/test/unittest/codegen/tst.reg_spilling2.d b/test/unittest/codegen/tst.reg_spilling2.d index 804c3d15..c31e0bba 100644 --- a/test/unittest/codegen/tst.reg_spilling2.d +++ b/test/unittest/codegen/tst.reg_spilling2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin("abc", strjoin("def", diff --git a/test/unittest/codegen/tst.reg_spilling3.d b/test/unittest/codegen/tst.reg_spilling3.d index 87aed017..bb3df48a 100644 --- a/test/unittest/codegen/tst.reg_spilling3.d +++ b/test/unittest/codegen/tst.reg_spilling3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin("abc", strjoin("def", diff --git a/test/unittest/codegen/tst.reg_spilling4.d b/test/unittest/codegen/tst.reg_spilling4.d index def52b3f..d4ffad5e 100644 --- a/test/unittest/codegen/tst.reg_spilling4.d +++ b/test/unittest/codegen/tst.reg_spilling4.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin("abc", strjoin("def", diff --git a/test/unittest/codegen/tst.reg_spilling5.d b/test/unittest/codegen/tst.reg_spilling5.d index 4946a95b..d82b4b01 100644 --- a/test/unittest/codegen/tst.reg_spilling5.d +++ b/test/unittest/codegen/tst.reg_spilling5.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin("abc", strjoin("def", diff --git a/test/unittest/codegen/tst.reg_spilling6.d b/test/unittest/codegen/tst.reg_spilling6.d index 06fc1d45..9dde12a1 100644 --- a/test/unittest/codegen/tst.reg_spilling6.d +++ b/test/unittest/codegen/tst.reg_spilling6.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin("abc", strjoin("def", diff --git a/test/unittest/codegen/tst.reg_spilling7.d b/test/unittest/codegen/tst.reg_spilling7.d index cb7cac29..c80e1950 100644 --- a/test/unittest/codegen/tst.reg_spilling7.d +++ b/test/unittest/codegen/tst.reg_spilling7.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin("abc", strjoin("def", diff --git a/test/unittest/codegen/tst.str_const_length.d b/test/unittest/codegen/tst.str_const_length.d index bfdd00a2..055288cd 100644 --- a/test/unittest/codegen/tst.str_const_length.d +++ b/test/unittest/codegen/tst.str_const_length.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,13 +9,13 @@ #pragma D option strsize=6 #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace("abcdefgh"); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.str_data_size.d b/test/unittest/codegen/tst.str_data_size.d index c93174a4..df9930d7 100644 --- a/test/unittest/codegen/tst.str_data_size.d +++ b/test/unittest/codegen/tst.str_data_size.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,13 +9,13 @@ #pragma D option strsize=6 #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(probeprov); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.str_runtime_NULL-assoc.d b/test/unittest/codegen/tst.str_runtime_NULL-assoc.d index 5d7668c0..b08bbb08 100644 --- a/test/unittest/codegen/tst.str_runtime_NULL-assoc.d +++ b/test/unittest/codegen/tst.str_runtime_NULL-assoc.d @@ -1,32 +1,32 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a1[1234] = strchr("abcdefghij", 'Z'); a2[1234] = strstr("ABCDEFGHIJ", "a"); a3[1234] = a1[1234]; } -BEGIN +dtrace:::BEGIN /a1[1234] != a2[1234] || a1[1234] != a2[1234] || a1[1234] != a3[1234] || a1[1234] != NULL/ { printf("FAIL\n"); } -BEGIN +dtrace:::BEGIN { printf("done\n"); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.str_runtime_NULL-gvar.d b/test/unittest/codegen/tst.str_runtime_NULL-gvar.d index 439bcc13..f0343db8 100644 --- a/test/unittest/codegen/tst.str_runtime_NULL-gvar.d +++ b/test/unittest/codegen/tst.str_runtime_NULL-gvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ #pragma D option quiet /* set some global variables to run-time NULL */ -BEGIN +dtrace:::BEGIN { g1 = strchr("abcdefghij", 'Z'); g2 = strstr("ABCDEFGHIJ", "a"); @@ -20,7 +20,7 @@ BEGIN } /* set some (clause-)local variables to run-time NULL */ -BEGIN +dtrace:::BEGIN { this->l1 = strchr("abcdefghij", 'Z'); this->l2 = strstr("ABCDEFGHIJ", "a"); @@ -28,7 +28,7 @@ BEGIN } /* set some thread-local variables to run-time NULL */ -BEGIN +dtrace:::BEGIN { self->t1 = strchr("abcdefghij", 'Z'); self->t2 = strstr("ABCDEFGHIJ", "a"); @@ -36,7 +36,7 @@ BEGIN } /* set some associative-array variables to run-time NULL */ -BEGIN +dtrace:::BEGIN { a1[1234] = strchr("abcdefghij", 'Z'); a2[1234] = strstr("ABCDEFGHIJ", "a"); @@ -44,35 +44,35 @@ BEGIN } /* compare some variables */ -BEGIN +dtrace:::BEGIN /g1 != g2 || this->l1 != this->l2 || self->t1 != self->t2 || a1[1234] != a2[1234]/ { printf("FAIL A\n"); } /* compare more variables */ -BEGIN +dtrace:::BEGIN /g1 != g3 || this->l1 != this->l3 || self->t1 != self->t3 || a1[1234] != a3[1234]/ { printf("FAIL B\n"); } /* compare some variables to compile-time NULL */ -BEGIN +dtrace:::BEGIN /g1 != NULL || this->l1 != NULL || self->t1 != NULL || a1[1234] != NULL/ { printf("FAIL C\n"); } /* exit */ -BEGIN +dtrace:::BEGIN { printf("done\n"); exit(0); } /* handle any unexpected errors */ -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.str_runtime_NULL-lvar.d b/test/unittest/codegen/tst.str_runtime_NULL-lvar.d index 76feea80..e2aa39a5 100644 --- a/test/unittest/codegen/tst.str_runtime_NULL-lvar.d +++ b/test/unittest/codegen/tst.str_runtime_NULL-lvar.d @@ -1,32 +1,32 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->l1 = strchr("abcdefghij", 'Z'); this->l2 = strstr("ABCDEFGHIJ", "a"); this->l3 = this->l1; } -BEGIN +dtrace:::BEGIN /this->l1 != this->l2 || this->l1 != this->l2 || this->l1 != this->l3 || this->l1 != NULL/ { printf("FAIL\n"); } -BEGIN +dtrace:::BEGIN { printf("done\n"); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.str_runtime_NULL-tvar.d b/test/unittest/codegen/tst.str_runtime_NULL-tvar.d index e8aa14af..afcd21f8 100644 --- a/test/unittest/codegen/tst.str_runtime_NULL-tvar.d +++ b/test/unittest/codegen/tst.str_runtime_NULL-tvar.d @@ -1,32 +1,32 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->t1 = strchr("abcdefghij", 'Z'); self->t2 = strstr("ABCDEFGHIJ", "a"); self->t3 = self->t1; } -BEGIN +dtrace:::BEGIN /self->t1 != self->t2 || self->t1 != self->t2 || self->t1 != self->t3 || self->t1 != NULL/ { printf("FAIL\n"); } -BEGIN +dtrace:::BEGIN { printf("done\n"); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.str_store_var.d b/test/unittest/codegen/tst.str_store_var.d index cfd37404..7c2e1959 100644 --- a/test/unittest/codegen/tst.str_store_var.d +++ b/test/unittest/codegen/tst.str_store_var.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option strsize=7 #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* Global */ g = "abcdefgh"; trace(g); trace(g + 1); trace(1 + g); @@ -30,7 +30,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.tstring_asgn_expr.d b/test/unittest/codegen/tst.tstring_asgn_expr.d index 360371ab..09a42f48 100644 --- a/test/unittest/codegen/tst.tstring_asgn_expr.d +++ b/test/unittest/codegen/tst.tstring_asgn_expr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(z = strjoin((x = strjoin("abc", "def")), (y = strjoin("ABC", "DEF")))); trace(" "); @@ -24,6 +24,6 @@ BEGIN { exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.tstring_free.d b/test/unittest/codegen/tst.tstring_free.d index 71c70463..11f4aa8a 100644 --- a/test/unittest/codegen/tst.tstring_free.d +++ b/test/unittest/codegen/tst.tstring_free.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace( (x = strjoin("abc", "def")) == (y = strjoin("abc", "def")) ? 0 : 1); diff --git a/test/unittest/codegen/tst.tstring_leak.d b/test/unittest/codegen/tst.tstring_leak.d index 3d8dee2e..6a8f27e7 100644 --- a/test/unittest/codegen/tst.tstring_leak.d +++ b/test/unittest/codegen/tst.tstring_leak.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { strjoin("a", "b"); strjoin("a", "b"); strjoin("a", "b"); @@ -31,6 +31,6 @@ BEGIN { exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.tstring_leak2.d b/test/unittest/codegen/tst.tstring_leak2.d index 92d5c00f..beff1ed8 100644 --- a/test/unittest/codegen/tst.tstring_leak2.d +++ b/test/unittest/codegen/tst.tstring_leak2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { x = strjoin("a", "b"); x = strjoin("a", "b"); x = strjoin("a", "b"); @@ -31,6 +31,6 @@ BEGIN { exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.tstring_overlap_bug.d b/test/unittest/codegen/tst.tstring_overlap_bug.d index df2f87db..a98d088f 100644 --- a/test/unittest/codegen/tst.tstring_overlap_bug.d +++ b/test/unittest/codegen/tst.tstring_overlap_bug.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("stack depth is %d\n", stackdepth); i = stackdepth; diff --git a/test/unittest/codegen/tst.tstring_ternary.d b/test/unittest/codegen/tst.tstring_ternary.d index 4db6d72c..b7489f90 100644 --- a/test/unittest/codegen/tst.tstring_ternary.d +++ b/test/unittest/codegen/tst.tstring_ternary.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { a = 1; b = 2; trace(a > b ? strjoin("abc", "def") : strjoin("ABC", "DEF")); @@ -23,6 +23,6 @@ BEGIN { exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.tstring_ternary_mix.d b/test/unittest/codegen/tst.tstring_ternary_mix.d index 0123c428..930fced6 100644 --- a/test/unittest/codegen/tst.tstring_ternary_mix.d +++ b/test/unittest/codegen/tst.tstring_ternary_mix.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { a = 1; b = 2; trace(a != b ? "abcdef" : "ABCDEF"); @@ -25,6 +25,6 @@ BEGIN { exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/codegen/tst.tstring_ternary_nested.d b/test/unittest/codegen/tst.tstring_ternary_nested.d index d563553d..c77198b6 100644 --- a/test/unittest/codegen/tst.tstring_ternary_nested.d +++ b/test/unittest/codegen/tst.tstring_ternary_nested.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { x = 2; trace(x > 3 /* slot 2 */ ? strjoin( /* slot 2 */ @@ -42,6 +42,6 @@ BEGIN { exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/cpc/err.D_PDESC_ZERO.lowfrequency.d b/test/unittest/cpc/err.D_PDESC_ZERO.lowfrequency.d index 68ee5456..59efe15a 100644 --- a/test/unittest/cpc/err.D_PDESC_ZERO.lowfrequency.d +++ b/test/unittest/cpc/err.D_PDESC_ZERO.lowfrequency.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2009, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2009, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/cpc/err.D_PDESC_ZERO.malformedoverflow.d b/test/unittest/cpc/err.D_PDESC_ZERO.malformedoverflow.d index 444ee0ab..5f80c146 100644 --- a/test/unittest/cpc/err.D_PDESC_ZERO.malformedoverflow.d +++ b/test/unittest/cpc/err.D_PDESC_ZERO.malformedoverflow.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2009, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2009, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * (only digits are allowed) will fail. */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/cpc/err.D_PDESC_ZERO.nonexistentevent.d b/test/unittest/cpc/err.D_PDESC_ZERO.nonexistentevent.d index bc9868ae..d69a7f99 100644 --- a/test/unittest/cpc/err.D_PDESC_ZERO.nonexistentevent.d +++ b/test/unittest/cpc/err.D_PDESC_ZERO.nonexistentevent.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2009, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2009, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * will fail. */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/cpc/err.cpcvscpustatpart2.sh b/test/unittest/cpc/err.cpcvscpustatpart2.sh index f5597784..196d71f6 100755 --- a/test/unittest/cpc/err.cpcvscpustatpart2.sh +++ b/test/unittest/cpc/err.cpcvscpustatpart2.sh @@ -1,7 +1,7 @@ #!/bin/bash -p # # Oracle Linux DTrace. -# Copyright (c) 2009, 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2009, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -20,7 +20,7 @@ script() $dtrace $dt_flags -s /dev/stdin < 10/ { exit(0); diff --git a/test/unittest/cpc/err.toomanyenablings.d b/test/unittest/cpc/err.toomanyenablings.d index d9e487a7..f6655f6b 100644 --- a/test/unittest/cpc/err.toomanyenablings.d +++ b/test/unittest/cpc/err.toomanyenablings.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2009, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2009, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/cpc/tst.allcpus.sh b/test/unittest/cpc/tst.allcpus.sh index 1a09267b..713c1305 100755 --- a/test/unittest/cpc/tst.allcpus.sh +++ b/test/unittest/cpc/tst.allcpus.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2009, 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2009, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -25,7 +25,7 @@ cpc:::cpu_clock-all-1000000000 printf("%d\n", cpu); } -tick-2s +profile:::tick-2s { exit(0); }' | gawk 'NF != 0 {print}' | sort > dtrace.out diff --git a/test/unittest/cpc/tst.branches.sh b/test/unittest/cpc/tst.branches.sh index cc6ce452..9e2b2d51 100755 --- a/test/unittest/cpc/tst.branches.sh +++ b/test/unittest/cpc/tst.branches.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -27,7 +27,7 @@ period=$(($niters / 100)) # run DTrace $dtrace $dt_flags -qn ' -BEGIN +dtrace:::BEGIN { n = 0; } @@ -38,7 +38,7 @@ branches-all-'$period' n++; } -END +dtrace:::END { printf("%d\n", n); }' -c "$utils/workload_user $niters" -o tmp.txt diff --git a/test/unittest/cpc/tst.cpu_clock.d b/test/unittest/cpc/tst.cpu_clock.d index f1fbcf10..946304cf 100644 --- a/test/unittest/cpc/tst.cpu_clock.d +++ b/test/unittest/cpc/tst.cpu_clock.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -40,7 +40,7 @@ cpc:::cpu_clock-all-2000000000 } /* or time out */ -tick-5s +profile:::tick-5s { printf("time out: count is %d\n", n); exit(1); diff --git a/test/unittest/cpc/tst.cpu_clock2.d b/test/unittest/cpc/tst.cpu_clock2.d index 4e0259d9..4719ef59 100644 --- a/test/unittest/cpc/tst.cpu_clock2.d +++ b/test/unittest/cpc/tst.cpu_clock2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -36,7 +36,7 @@ cpc:::cpu_clock-all-PERIOD lasttime[cpu] = currtime[cpu]; } -tick-5s +profile:::tick-5s { exit(0); } diff --git a/test/unittest/cpc/tst.genericevent.d b/test/unittest/cpc/tst.genericevent.d index caf6c9be..2a73a8b6 100644 --- a/test/unittest/cpc/tst.genericevent.d +++ b/test/unittest/cpc/tst.genericevent.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2009, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2009, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ cpc:::cpu_clock-all-10000 @[probename] = count(); } -tick-3s +profile:::tick-3s { exit(0); } diff --git a/test/unittest/cpc/tst.instructions.sh b/test/unittest/cpc/tst.instructions.sh index 5d5526d5..10ff8d70 100755 --- a/test/unittest/cpc/tst.instructions.sh +++ b/test/unittest/cpc/tst.instructions.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -35,7 +35,7 @@ period=$(($niters / 100)) # run DTrace $dtrace $dt_flags -qn ' -BEGIN +dtrace:::BEGIN { n = 0; } @@ -46,7 +46,7 @@ instructions-all-'$period' n++; } -END +dtrace:::END { printf("%d\n", n); }' -c "$utils/workload_user $niters" -o tmp.txt diff --git a/test/unittest/cpc/tst.platformevent.sh b/test/unittest/cpc/tst.platformevent.sh index ca029e95..c013fdbe 100755 --- a/test/unittest/cpc/tst.platformevent.sh +++ b/test/unittest/cpc/tst.platformevent.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2009, 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2009, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -47,7 +47,7 @@ script() @[probename] = count(); } - tick-1s + profile:::tick-1s /n++ > 5/ { exit(0); diff --git a/test/unittest/decls/err.D_DECL_LOCASSC.NonLocalAssoc.d b/test/unittest/decls/err.D_DECL_LOCASSC.NonLocalAssoc.d index d3ac17f8..b83f7b26 100644 --- a/test/unittest/decls/err.D_DECL_LOCASSC.NonLocalAssoc.d +++ b/test/unittest/decls/err.D_DECL_LOCASSC.NonLocalAssoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,12 +17,12 @@ this int a[int]; -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/err.D_DECL_LONGINT.LongStruct.d b/test/unittest/decls/err.D_DECL_LONGINT.LongStruct.d index 5b8698bb..8b2b4e20 100644 --- a/test/unittest/decls/err.D_DECL_LONGINT.LongStruct.d +++ b/test/unittest/decls/err.D_DECL_LONGINT.LongStruct.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,12 +20,12 @@ long struct mystruct int i; }; -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/err.D_DECL_PARMCLASS.BadStorageClass.d b/test/unittest/decls/err.D_DECL_PARMCLASS.BadStorageClass.d index 681eba09..69bcd861 100644 --- a/test/unittest/decls/err.D_DECL_PARMCLASS.BadStorageClass.d +++ b/test/unittest/decls/err.D_DECL_PARMCLASS.BadStorageClass.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,12 +19,12 @@ int foo(static int); -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/err.D_DECL_PROTO_NAME.VoidName.d b/test/unittest/decls/err.D_DECL_PROTO_NAME.VoidName.d index 4d4e6833..72927093 100644 --- a/test/unittest/decls/err.D_DECL_PROTO_NAME.VoidName.d +++ b/test/unittest/decls/err.D_DECL_PROTO_NAME.VoidName.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,8 +12,8 @@ int a(void v); -BEGIN, -ERROR +dtrace:::BEGIN, +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/err.D_DECL_PROTO_TYPE.Dyn.d b/test/unittest/decls/err.D_DECL_PROTO_TYPE.Dyn.d index af50c56c..072492a9 100644 --- a/test/unittest/decls/err.D_DECL_PROTO_TYPE.Dyn.d +++ b/test/unittest/decls/err.D_DECL_PROTO_TYPE.Dyn.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,8 +12,8 @@ int a(int a[int]); -BEGIN, -ERROR +dtrace:::BEGIN, +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/err.D_DECL_PROTO_VARARGS.VarLenArgs.d b/test/unittest/decls/err.D_DECL_PROTO_VARARGS.VarLenArgs.d index 96425f2e..1620f6be 100644 --- a/test/unittest/decls/err.D_DECL_PROTO_VARARGS.VarLenArgs.d +++ b/test/unittest/decls/err.D_DECL_PROTO_VARARGS.VarLenArgs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,12 +18,12 @@ int a[...]; -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/err.D_DECL_PROTO_VOID.NonSoleVoid.d b/test/unittest/decls/err.D_DECL_PROTO_VOID.NonSoleVoid.d index f7d9c018..527f0f94 100644 --- a/test/unittest/decls/err.D_DECL_PROTO_VOID.NonSoleVoid.d +++ b/test/unittest/decls/err.D_DECL_PROTO_VOID.NonSoleVoid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,12 +17,12 @@ int foo(int, void); -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/err.D_DECL_SIGNINT.UnsignedStruct.d b/test/unittest/decls/err.D_DECL_SIGNINT.UnsignedStruct.d index 316adb7b..3e6e48b4 100644 --- a/test/unittest/decls/err.D_DECL_SIGNINT.UnsignedStruct.d +++ b/test/unittest/decls/err.D_DECL_SIGNINT.UnsignedStruct.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,12 +20,12 @@ unsigned struct mystruct { int i; }; -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/err.D_DECL_VOIDATTR.ShortVoidDecl.d b/test/unittest/decls/err.D_DECL_VOIDATTR.ShortVoidDecl.d index 5a323802..c8e122bb 100644 --- a/test/unittest/decls/err.D_DECL_VOIDATTR.ShortVoidDecl.d +++ b/test/unittest/decls/err.D_DECL_VOIDATTR.ShortVoidDecl.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,12 +17,12 @@ short void ptr; -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/decls/tst.arrays.d b/test/unittest/decls/tst.arrays.d index 9df02b82..d861c475 100644 --- a/test/unittest/decls/tst.arrays.d +++ b/test/unittest/decls/tst.arrays.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ extern int a4[123][456][789]; extern int a5[5], a6[6][6], a7[7][7][7]; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/decls/tst.basics.d b/test/unittest/decls/tst.basics.d index 97fada51..ddc2eb7d 100644 --- a/test/unittest/decls/tst.basics.d +++ b/test/unittest/decls/tst.basics.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -39,7 +39,7 @@ extern struct inode e22; extern union sigval e23; extern enum uio_rw e24; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/decls/tst.funcs.d b/test/unittest/decls/tst.funcs.d index 05513d3a..cfe7c516 100644 --- a/test/unittest/decls/tst.funcs.d +++ b/test/unittest/decls/tst.funcs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ extern int noparms(); extern int oneparm(int); extern int twoparms(int, int); -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/decls/tst.pointers.d b/test/unittest/decls/tst.pointers.d index 7075a678..98f78b84 100644 --- a/test/unittest/decls/tst.pointers.d +++ b/test/unittest/decls/tst.pointers.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ extern int e0, *e1, **e2, ***e3, ****e4, *****e5; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/decls/tst.varargsfuncs.d b/test/unittest/decls/tst.varargsfuncs.d index a2190199..2493c9fd 100644 --- a/test/unittest/decls/tst.varargsfuncs.d +++ b/test/unittest/decls/tst.varargsfuncs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ extern int varargs1(...); extern int varargs2(int, ...); -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/dif/alloca.d b/test/unittest/dif/alloca.d index c080acd2..c533bfec 100644 --- a/test/unittest/dif/alloca.d +++ b/test/unittest/dif/alloca.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { this->a = alloca(256); exit(0); diff --git a/test/unittest/dif/basename.d b/test/unittest/dif/basename.d index 5e60b96d..d8c11381 100644 --- a/test/unittest/dif/basename.d +++ b/test/unittest/dif/basename.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { exit(basename("/foo/bar") == "bar" ? 0 : 1); } diff --git a/test/unittest/dif/cleanpath.d b/test/unittest/dif/cleanpath.d index 3fc3d4c5..88aad93f 100644 --- a/test/unittest/dif/cleanpath.d +++ b/test/unittest/dif/cleanpath.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { exit(cleanpath("/foo/bar/.././../sys/foo") == "/sys/foo" ? 0 : 1); } diff --git a/test/unittest/dif/copyin.d b/test/unittest/dif/copyin.d index ed88c583..57b638f4 100644 --- a/test/unittest/dif/copyin.d +++ b/test/unittest/dif/copyin.d @@ -1,6 +1,6 @@ /* @@trigger: open */ -::open:entry +syscall::open:entry { self->data = copyin(arg0, 8); exit(0); diff --git a/test/unittest/dif/copyout.d b/test/unittest/dif/copyout.d index c7cc218e..75d664a1 100644 --- a/test/unittest/dif/copyout.d +++ b/test/unittest/dif/copyout.d @@ -1,13 +1,13 @@ #pragma D option destructive -BEGIN +dtrace:::BEGIN { i = 3; copyout((void *)i, 0, 5); exit(1); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/dif/dirname.d b/test/unittest/dif/dirname.d index 7919180a..9853e5c1 100644 --- a/test/unittest/dif/dirname.d +++ b/test/unittest/dif/dirname.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { exit(dirname("/foo/bar") == "/foo" ? 0 : 1); } diff --git a/test/unittest/dif/htonl.d b/test/unittest/dif/htonl.d index 410bc135..0e7e044b 100644 --- a/test/unittest/dif/htonl.d +++ b/test/unittest/dif/htonl.d @@ -2,7 +2,7 @@ #include -BEGIN +dtrace:::BEGIN { #if __BYTE_ORDER == __LITTLE_ENDIAN exit(htonl(0x12345678) == 0x78563412 ? 0 : 1); diff --git a/test/unittest/dif/htonll.d b/test/unittest/dif/htonll.d index 79828736..c3665852 100644 --- a/test/unittest/dif/htonll.d +++ b/test/unittest/dif/htonll.d @@ -2,7 +2,7 @@ #include -BEGIN +dtrace:::BEGIN { #if __BYTE_ORDER == __LITTLE_ENDIAN exit(htonll(0x123456780abcdef1) == 0xf1debc0a78563412 ? 0 : 1); diff --git a/test/unittest/dif/htons.d b/test/unittest/dif/htons.d index 97a4534c..6bab4eda 100644 --- a/test/unittest/dif/htons.d +++ b/test/unittest/dif/htons.d @@ -2,7 +2,7 @@ #include -BEGIN +dtrace:::BEGIN { #if __BYTE_ORDER == __LITTLE_ENDIAN exit(htons(0x1234) == 0x3412 ? 0 : 1); diff --git a/test/unittest/dif/index2arg.d b/test/unittest/dif/index2arg.d index 7eb8f15b..fd3eb563 100644 --- a/test/unittest/dif/index2arg.d +++ b/test/unittest/dif/index2arg.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { exit(index("BEGINNING", "G") == 2 ? 0 : 1); } diff --git a/test/unittest/dif/index3arg.d b/test/unittest/dif/index3arg.d index 886ba93e..dd370363 100644 --- a/test/unittest/dif/index3arg.d +++ b/test/unittest/dif/index3arg.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { exit(index("BEGINNING", "G", 3) == 8 ? 0 : 1); } diff --git a/test/unittest/dif/lltostr.d b/test/unittest/dif/lltostr.d index 6aa19d94..0d086911 100644 --- a/test/unittest/dif/lltostr.d +++ b/test/unittest/dif/lltostr.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { exit(lltostr(12345678) == "12345678" ? 0 : 1); } diff --git a/test/unittest/dif/loadX.d b/test/unittest/dif/loadX.d index 93e00973..a7e54dc6 100644 --- a/test/unittest/dif/loadX.d +++ b/test/unittest/dif/loadX.d @@ -1,6 +1,6 @@ /* @@trigger: open */ -::open:entry +syscall::open:entry { self->data = copyin(arg0, 8); self->l = *(uint64_t *)self->data; diff --git a/test/unittest/dif/rand.d b/test/unittest/dif/rand.d index 9746b58c..f144b59d 100644 --- a/test/unittest/dif/rand.d +++ b/test/unittest/dif/rand.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { trace(rand()); exit(0); diff --git a/test/unittest/dif/strchr.d b/test/unittest/dif/strchr.d index d42425c6..277a5856 100644 --- a/test/unittest/dif/strchr.d +++ b/test/unittest/dif/strchr.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { trace(strchr(probename, 'B')); exit(0); diff --git a/test/unittest/dif/strjoin.d b/test/unittest/dif/strjoin.d index ee70dec8..d2e5a184 100644 --- a/test/unittest/dif/strjoin.d +++ b/test/unittest/dif/strjoin.d @@ -1,10 +1,10 @@ -BEGIN +dtrace:::BEGIN { trace(strjoin(probeprov, probename)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/dif/strlen.d b/test/unittest/dif/strlen.d index b8f419d2..d40fef07 100644 --- a/test/unittest/dif/strlen.d +++ b/test/unittest/dif/strlen.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { trace(strlen(probename)); exit(0); diff --git a/test/unittest/dif/strncmp.d b/test/unittest/dif/strncmp.d index 1e5bfbde..5c0f2168 100644 --- a/test/unittest/dif/strncmp.d +++ b/test/unittest/dif/strncmp.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { rc = probename == "BEGIN" ? 0 : 1; printf("%d", rc); @@ -6,7 +6,7 @@ BEGIN exit(rc); } -END +dtrace:::END { printf("%d", probename == "BEGIN" ? 0 : 1); } diff --git a/test/unittest/dif/strstr.d b/test/unittest/dif/strstr.d index d5be34aa..639a843a 100644 --- a/test/unittest/dif/strstr.d +++ b/test/unittest/dif/strstr.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { trace(strstr(probename, "GIN")); exit(0); diff --git a/test/unittest/disasm/tst.ann-agg.sh b/test/unittest/disasm/tst.ann-agg.sh index 48ec3706..d2436f94 100755 --- a/test/unittest/disasm/tst.ann-agg.sh +++ b/test/unittest/disasm/tst.ann-agg.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { myvar_global = 0xdeadbeef; @myvar_agg = quantize(myvar_global); diff --git a/test/unittest/disasm/tst.ann-gvar-agg.sh b/test/unittest/disasm/tst.ann-gvar-agg.sh index 1b6ece91..3d42593b 100755 --- a/test/unittest/disasm/tst.ann-gvar-agg.sh +++ b/test/unittest/disasm/tst.ann-gvar-agg.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -11,7 +11,7 @@ dtrace=$1 # Test that annotation of gvars is not confused by agg vars. $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { @myvar_agg = count(); myvar_global = 0xdeadbeef; diff --git a/test/unittest/disasm/tst.ann-gvar-assoc.sh b/test/unittest/disasm/tst.ann-gvar-assoc.sh index 4528be96..75ccfe4c 100755 --- a/test/unittest/disasm/tst.ann-gvar-assoc.sh +++ b/test/unittest/disasm/tst.ann-gvar-assoc.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -11,7 +11,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' int st[int], ld[int]; -BEGIN +dtrace:::BEGIN { st[2] = 42; trace(ld[5]); diff --git a/test/unittest/disasm/tst.ann-js-neg.sh b/test/unittest/disasm/tst.ann-js-neg.sh index 6b266e83..bb0c9a83 100755 --- a/test/unittest/disasm/tst.ann-js-neg.sh +++ b/test/unittest/disasm/tst.ann-js-neg.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -xdisasm=8 -Sn ' -BEGIN, syscall::write:return +dtrace:::BEGIN, syscall::write:return { exit(0); } diff --git a/test/unittest/disasm/tst.ann-reg-spill.sh b/test/unittest/disasm/tst.ann-reg-spill.sh index bfcebaaf..1e518aa3 100755 --- a/test/unittest/disasm/tst.ann-reg-spill.sh +++ b/test/unittest/disasm/tst.ann-reg-spill.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. #/ @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -qSn ' -BEGIN +dtrace:::BEGIN { a = 100000000; b = 20000000; diff --git a/test/unittest/disasm/tst.ann-str_assoc.sh b/test/unittest/disasm/tst.ann-str_assoc.sh index 6f36d5d2..ce3c60e1 100755 --- a/test/unittest/disasm/tst.ann-str_assoc.sh +++ b/test/unittest/disasm/tst.ann-str_assoc.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { CheckVariable[1234] = "abc"; trace(CheckVariable[1234]); diff --git a/test/unittest/disasm/tst.ann-str_gvar.sh b/test/unittest/disasm/tst.ann-str_gvar.sh index 74f6b6a6..ff9cbcf2 100755 --- a/test/unittest/disasm/tst.ann-str_gvar.sh +++ b/test/unittest/disasm/tst.ann-str_gvar.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { CheckVariable = "abc"; trace(CheckVariable); diff --git a/test/unittest/disasm/tst.ann-str_lvar.sh b/test/unittest/disasm/tst.ann-str_lvar.sh index d80c0c99..202cc590 100755 --- a/test/unittest/disasm/tst.ann-str_lvar.sh +++ b/test/unittest/disasm/tst.ann-str_lvar.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { this->CheckVariable = "abc"; trace(this->CheckVariable); diff --git a/test/unittest/disasm/tst.ann-str_tvar.sh b/test/unittest/disasm/tst.ann-str_tvar.sh index b5d42a82..c8129644 100755 --- a/test/unittest/disasm/tst.ann-str_tvar.sh +++ b/test/unittest/disasm/tst.ann-str_tvar.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { self->CheckVariable = "abc"; trace(self->CheckVariable); diff --git a/test/unittest/disasm/tst.ann-strconst-strtab.sh b/test/unittest/disasm/tst.ann-strconst-strtab.sh index fdbe0203..26f64b00 100755 --- a/test/unittest/disasm/tst.ann-strconst-strtab.sh +++ b/test/unittest/disasm/tst.ann-strconst-strtab.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -16,7 +16,7 @@ dtrace=$1 $dtrace $dt_flags -xdisasm=12 -Sn ' -BEGIN +dtrace:::BEGIN { a["a"] = 42; exit(0); diff --git a/test/unittest/disasm/tst.ann-strconst.sh b/test/unittest/disasm/tst.ann-strconst.sh index 7ddaee42..82b54503 100755 --- a/test/unittest/disasm/tst.ann-strconst.sh +++ b/test/unittest/disasm/tst.ann-strconst.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { var = "strconst"; exit(0); diff --git a/test/unittest/disasm/tst.ann-tramp-lvar.sh b/test/unittest/disasm/tst.ann-tramp-lvar.sh index 3f25f4b6..09e1ff70 100755 --- a/test/unittest/disasm/tst.ann-tramp-lvar.sh +++ b/test/unittest/disasm/tst.ann-tramp-lvar.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -xdisasm=2 -Sn ' -BEGIN, +dtrace:::BEGIN, io:::start { exit(0); diff --git a/test/unittest/disasm/tst.ann-tramp-tvar.sh b/test/unittest/disasm/tst.ann-tramp-tvar.sh index a36dcff9..afa3c254 100755 --- a/test/unittest/disasm/tst.ann-tramp-tvar.sh +++ b/test/unittest/disasm/tst.ann-tramp-tvar.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -xdisasm=2 -Sn ' -BEGIN, +dtrace:::BEGIN, io:::wait-done { exit(0); diff --git a/test/unittest/disasm/tst.ann-tvar-assoc.sh b/test/unittest/disasm/tst.ann-tvar-assoc.sh index 3b0d6080..8881d030 100755 --- a/test/unittest/disasm/tst.ann-tvar-assoc.sh +++ b/test/unittest/disasm/tst.ann-tvar-assoc.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -11,7 +11,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' self int st[int], ld[int]; -BEGIN +dtrace:::BEGIN { self->st[2] = 42; trace(self->ld[5]); diff --git a/test/unittest/disasm/tst.ann-tvar.sh b/test/unittest/disasm/tst.ann-tvar.sh index 6c47566d..5d643da0 100755 --- a/test/unittest/disasm/tst.ann-tvar.sh +++ b/test/unittest/disasm/tst.ann-tvar.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { self->one = 42; self->two = 42; diff --git a/test/unittest/disasm/tst.ann-var.sh b/test/unittest/disasm/tst.ann-var.sh index 60063b33..e4a826a9 100755 --- a/test/unittest/disasm/tst.ann-var.sh +++ b/test/unittest/disasm/tst.ann-var.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -22,7 +22,7 @@ this struct foo CheckVariable_b, CheckVariable_c; -BEGIN { +dtrace:::BEGIN { CheckVariable_X = CheckVariable_Y = CheckVariable_Z = 1; diff --git a/test/unittest/drops/drp.DTRACEDROP_AGGREGATION.d b/test/unittest/drops/drp.DTRACEDROP_AGGREGATION.d index d5b6bf99..4322b335 100644 --- a/test/unittest/drops/drp.DTRACEDROP_AGGREGATION.d +++ b/test/unittest/drops/drp.DTRACEDROP_AGGREGATION.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option strsize=512 #pragma D option aggsize=1024 -BEGIN +dtrace:::BEGIN { @["Harding"] = count(); @["Hoover"] = count(); @@ -17,7 +17,7 @@ BEGIN @["Bush"] = count(); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/drops/drp.DTRACEDROP_DBLERROR.d b/test/unittest/drops/drp.DTRACEDROP_DBLERROR.d index 5123b7a9..0b0fe14a 100644 --- a/test/unittest/drops/drp.DTRACEDROP_DBLERROR.d +++ b/test/unittest/drops/drp.DTRACEDROP_DBLERROR.d @@ -1,22 +1,22 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@xfail: dtv2 */ -BEGIN +dtrace:::BEGIN { trace(*(int *)NULL); } -ERROR +dtrace:::ERROR { trace(*(int *)NULL); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/drops/drp.DTRACEDROP_DYNAMIC.d b/test/unittest/drops/drp.DTRACEDROP_DYNAMIC.d index 7b252f6e..4f9c7ab7 100644 --- a/test/unittest/drops/drp.DTRACEDROP_DYNAMIC.d +++ b/test/unittest/drops/drp.DTRACEDROP_DYNAMIC.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option strsize=512 #pragma D option dynvarsize=1024 -BEGIN +dtrace:::BEGIN { a["Harding"] = 1; a["Hoover"] = 1; @@ -16,7 +16,7 @@ BEGIN a["Bush"] = 1; } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/drops/drp.DTRACEDROP_DYNAMIC.local_only.d b/test/unittest/drops/drp.DTRACEDROP_DYNAMIC.local_only.d index 47c12ce5..25bde5af 100644 --- a/test/unittest/drops/drp.DTRACEDROP_DYNAMIC.local_only.d +++ b/test/unittest/drops/drp.DTRACEDROP_DYNAMIC.local_only.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option dynvarsize=15 -BEGIN +dtrace:::BEGIN { self->a = 1; self->b = 2; @@ -24,7 +24,7 @@ BEGIN self->d = 4; } -tick-1s +profile:::tick-1s { exit(0); } diff --git a/test/unittest/drops/drp.DTRACEDROP_PRINCIPAL.d b/test/unittest/drops/drp.DTRACEDROP_PRINCIPAL.d index 68b694de..05369093 100644 --- a/test/unittest/drops/drp.DTRACEDROP_PRINCIPAL.d +++ b/test/unittest/drops/drp.DTRACEDROP_PRINCIPAL.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,103 +9,103 @@ #pragma D option strsize=2k #pragma D option bufsize=64k -BEGIN +dtrace:::BEGIN { trace("00"); trace("01"); } -BEGIN +dtrace:::BEGIN { trace("02"); trace("03"); } -BEGIN +dtrace:::BEGIN { trace("04"); trace("05"); } -BEGIN +dtrace:::BEGIN { trace("06"); trace("07"); } -BEGIN +dtrace:::BEGIN { trace("08"); trace("09"); } -BEGIN +dtrace:::BEGIN { trace("10"); trace("11"); } -BEGIN +dtrace:::BEGIN { trace("12"); trace("13"); } -BEGIN +dtrace:::BEGIN { trace("14"); trace("15"); } -BEGIN +dtrace:::BEGIN { trace("16"); trace("17"); } -BEGIN +dtrace:::BEGIN { trace("18"); trace("19"); } -BEGIN +dtrace:::BEGIN { trace("20"); trace("21"); } -BEGIN +dtrace:::BEGIN { trace("22"); trace("23"); } -BEGIN +dtrace:::BEGIN { trace("24"); trace("25"); } -BEGIN +dtrace:::BEGIN { trace("26"); trace("27"); } -BEGIN +dtrace:::BEGIN { trace("28"); trace("29"); } -BEGIN +dtrace:::BEGIN { trace("30"); trace("31"); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/drops/drp.DTRACEDROP_PRINCIPAL.end.d b/test/unittest/drops/drp.DTRACEDROP_PRINCIPAL.end.d index 50145041..7d5e64c4 100644 --- a/test/unittest/drops/drp.DTRACEDROP_PRINCIPAL.end.d +++ b/test/unittest/drops/drp.DTRACEDROP_PRINCIPAL.end.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,102 +9,102 @@ #pragma D option strsize=2k #pragma D option bufsize=64k -BEGIN +dtrace:::BEGIN { exit(0); } -END +dtrace:::END { trace("00"); trace("01"); } -END +dtrace:::END { trace("02"); trace("03"); } -END +dtrace:::END { trace("04"); trace("05"); } -END +dtrace:::END { trace("06"); trace("07"); } -END +dtrace:::END { trace("08"); trace("09"); } -END +dtrace:::END { trace("10"); trace("11"); } -END +dtrace:::END { trace("12"); trace("13"); } -END +dtrace:::END { trace("14"); trace("15"); } -END +dtrace:::END { trace("16"); trace("17"); } -END +dtrace:::END { trace("18"); trace("19"); } -END +dtrace:::END { trace("20"); trace("21"); } -END +dtrace:::END { trace("22"); trace("23"); } -END +dtrace:::END { trace("24"); trace("25"); } -END +dtrace:::END { trace("26"); trace("27"); } -END +dtrace:::END { trace("28"); trace("29"); } -END +dtrace:::END { trace("30"); trace("31"); diff --git a/test/unittest/drops/drp.DTRACEDROP_SPEC.d b/test/unittest/drops/drp.DTRACEDROP_SPEC.d index 44f2cc2d..87b2321a 100644 --- a/test/unittest/drops/drp.DTRACEDROP_SPEC.d +++ b/test/unittest/drops/drp.DTRACEDROP_SPEC.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,19 +9,19 @@ #pragma D option specsize=32 #pragma D option strsize=512 -BEGIN +dtrace:::BEGIN { spec = speculation(); speculate(spec); trace("The, SystemTap, The."); } -BEGIN +dtrace:::BEGIN { commit(spec); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/drops/drp.DTRACEDROP_SPECUNAVAIL.d b/test/unittest/drops/drp.DTRACEDROP_SPECUNAVAIL.d index 73ce7ccb..1e184941 100644 --- a/test/unittest/drops/drp.DTRACEDROP_SPECUNAVAIL.d +++ b/test/unittest/drops/drp.DTRACEDROP_SPECUNAVAIL.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,15 +8,15 @@ #pragma D option nspec=1 -BEGIN, -BEGIN, -BEGIN, -BEGIN +dtrace:::BEGIN, +dtrace:::BEGIN, +dtrace:::BEGIN, +dtrace:::BEGIN { spec = speculation(); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/dtrace-util/err.MultipleNonOptFlags.d b/test/unittest/dtrace-util/err.MultipleNonOptFlags.d index 8ab959c8..ffc3d47b 100644 --- a/test/unittest/dtrace-util/err.MultipleNonOptFlags.d +++ b/test/unittest/dtrace-util/err.MultipleNonOptFlags.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,4 +14,4 @@ /* @@runtest-opts: -- -e -e */ -BEGIN { exit(0); } +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/dtrace-util/tst.AddSearchPath.d b/test/unittest/dtrace-util/tst.AddSearchPath.d index 3257cfda..3b7b1ac2 100644 --- a/test/unittest/dtrace-util/tst.AddSearchPath.d +++ b/test/unittest/dtrace-util/tst.AddSearchPath.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ #include "include-test.d" -BEGIN +dtrace:::BEGIN { printf("Value of VALUE: %d\n", VALUE); exit(0); diff --git a/test/unittest/dtrace-util/tst.CoalesceTrace.d b/test/unittest/dtrace-util/tst.CoalesceTrace.d index ffc0e948..572d30f0 100644 --- a/test/unittest/dtrace-util/tst.CoalesceTrace.d +++ b/test/unittest/dtrace-util/tst.CoalesceTrace.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ /* @@timeout: 70 */ /* @@trigger: readwholedir */ -BEGIN +dtrace:::BEGIN { i = 0; j = 0; diff --git a/test/unittest/dtrace-util/tst.DataModel32.sh b/test/unittest/dtrace-util/tst.DataModel32.sh index ee1dffec..1c9422d5 100755 --- a/test/unittest/dtrace-util/tst.DataModel32.sh +++ b/test/unittest/dtrace-util/tst.DataModel32.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -19,14 +19,14 @@ script() { $dtrace $dt_flags -32 -s /dev/stdin < D1.d int x; -BEGIN { +dtrace:::BEGIN { x = 1234; y = x; } EOF cat << EOF > D2.d -BEGIN { +dtrace:::BEGIN { trace(y); exit(0); } diff --git a/test/unittest/dtrace-util/tst.ELFGenerationOut.sh b/test/unittest/dtrace-util/tst.ELFGenerationOut.sh index 808d0745..cb8019b4 100755 --- a/test/unittest/dtrace-util/tst.ELFGenerationOut.sh +++ b/test/unittest/dtrace-util/tst.ELFGenerationOut.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,7 +21,7 @@ script() { $dtrace $dt_flags -G -s /dev/stdin < $tmpdir/test-unittest-dtrace-util-preprocessor-hashbang.d < - BEGIN + dtrace:::BEGIN { printf("This test should compile\n"); exit(0); diff --git a/test/unittest/dtrace-util/tst.ProcInvalid.sh b/test/unittest/dtrace-util/tst.ProcInvalid.sh index 770ba602..612cc0d4 100755 --- a/test/unittest/dtrace-util/tst.ProcInvalid.sh +++ b/test/unittest/dtrace-util/tst.ProcInvalid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2015, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2015, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -22,4 +22,4 @@ fi dtrace=$1 -$dtrace $dt_flags -p 484837947 -n 'BEGIN { exit(0); }' || true +$dtrace $dt_flags -p 484837947 -n 'dtrace:::BEGIN { exit(0); }' || true diff --git a/test/unittest/dtrace-util/tst.QuietMode.sh b/test/unittest/dtrace-util/tst.QuietMode.sh index 750998ce..2b362314 100755 --- a/test/unittest/dtrace-util/tst.QuietMode.sh +++ b/test/unittest/dtrace-util/tst.QuietMode.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ script() { $dtrace $dt_flags -q -s /dev/stdin <pid); exit(1); } -ERROR +dtrace:::ERROR { exit(arg1 != myid || arg2 != 0 || arg4 != DTRACEFLT_BADADDR || arg5 != 0); diff --git a/test/unittest/error/tst.DTRACEFLT_BADADDR2.d b/test/unittest/error/tst.DTRACEFLT_BADADDR2.d index a822e63a..f233ddff 100644 --- a/test/unittest/error/tst.DTRACEFLT_BADADDR2.d +++ b/test/unittest/error/tst.DTRACEFLT_BADADDR2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { printf("The arguments are %u %u %u %u\n", arg1, arg2, arg4, arg5); @@ -23,7 +23,7 @@ ERROR exit(0); } -BEGIN +dtrace:::BEGIN { x = (int *)0x4000; y = *x; diff --git a/test/unittest/error/tst.DTRACEFLT_DIVZERO.div.d b/test/unittest/error/tst.DTRACEFLT_DIVZERO.div.d index b1d15423..24b46bde 100644 --- a/test/unittest/error/tst.DTRACEFLT_DIVZERO.div.d +++ b/test/unittest/error/tst.DTRACEFLT_DIVZERO.div.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ #pragma D option quiet -BEGIN { myid = id } /* clause 0 */ -BEGIN { myid = id } /* clause 1 */ -BEGIN { myid = id } /* clause 2 */ -BEGIN { myid = id } /* clause 3 */ +dtrace:::BEGIN { myid = id } /* clause 0 */ +dtrace:::BEGIN { myid = id } /* clause 1 */ +dtrace:::BEGIN { myid = id } /* clause 2 */ +dtrace:::BEGIN { myid = id } /* clause 3 */ -BEGIN +dtrace:::BEGIN { myid = id; i = 1; @@ -27,7 +27,7 @@ BEGIN exit(1); } -ERROR +dtrace:::ERROR { exit(arg1 != myid || arg2 != 4 || arg4 != DTRACEFLT_DIVZERO || arg5 != 0); diff --git a/test/unittest/error/tst.DTRACEFLT_DIVZERO.mod.d b/test/unittest/error/tst.DTRACEFLT_DIVZERO.mod.d index 69452d8c..c4718a90 100644 --- a/test/unittest/error/tst.DTRACEFLT_DIVZERO.mod.d +++ b/test/unittest/error/tst.DTRACEFLT_DIVZERO.mod.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ #pragma D option quiet -BEGIN { myid = id; } /* clause 0 */ -BEGIN { myid = id; } /* clause 1 */ -BEGIN { myid = id; } /* clause 2 */ -BEGIN { myid = id; } /* clause 3 */ +dtrace:::BEGIN { myid = id; } /* clause 0 */ +dtrace:::BEGIN { myid = id; } /* clause 1 */ +dtrace:::BEGIN { myid = id; } /* clause 2 */ +dtrace:::BEGIN { myid = id; } /* clause 3 */ -BEGIN +dtrace:::BEGIN { myid = id; i = 1; @@ -27,7 +27,7 @@ BEGIN exit(1); } -ERROR +dtrace:::ERROR { exit(arg1 != myid || arg2 != 4 || arg4 != DTRACEFLT_DIVZERO || arg5 != 0); diff --git a/test/unittest/error/tst.DTRACEFLT_UNKNOWN.d b/test/unittest/error/tst.DTRACEFLT_UNKNOWN.d index c74762ae..c8924e82 100644 --- a/test/unittest/error/tst.DTRACEFLT_UNKNOWN.d +++ b/test/unittest/error/tst.DTRACEFLT_UNKNOWN.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { printf("The arguments are %u %u PC %u %u\n", arg1, arg2, arg4, arg5); @@ -24,7 +24,7 @@ ERROR exit(0); } -BEGIN +dtrace:::BEGIN { x = (int *)64; y = *x; diff --git a/test/unittest/error/tst.argv-corruption-by-error.d b/test/unittest/error/tst.argv-corruption-by-error.d index 1fdd8985..a286b261 100644 --- a/test/unittest/error/tst.argv-corruption-by-error.d +++ b/test/unittest/error/tst.argv-corruption-by-error.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -36,7 +36,7 @@ syscall::write*:entry } syscall::write*:entry, -ERROR { +dtrace:::ERROR { printf("%d / %d / %d / %d / %d / %d\n", arg0, arg1, arg2, arg3, arg4, arg5); } diff --git a/test/unittest/error/tst.clause_scope-begin-ended.d b/test/unittest/error/tst.clause_scope-begin-ended.d index 6ba9f22a..a23528eb 100644 --- a/test/unittest/error/tst.clause_scope-begin-ended.d +++ b/test/unittest/error/tst.clause_scope-begin-ended.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,17 +17,17 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { printf("Error fired\n"); } -BEGIN +dtrace:::BEGIN { trace(((struct task_struct *)NULL)->pid); } -BEGIN +dtrace:::BEGIN { printf("Clause executed\n"); exit(0); diff --git a/test/unittest/error/tst.clause_scope-begin.d b/test/unittest/error/tst.clause_scope-begin.d index c1195854..1ef6e3d0 100644 --- a/test/unittest/error/tst.clause_scope-begin.d +++ b/test/unittest/error/tst.clause_scope-begin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,22 +17,22 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { printf("Error fired\n"); } -BEGIN +dtrace:::BEGIN { trace(((struct task_struct *)NULL)->pid); } -BEGIN +dtrace:::BEGIN { printf("Clause executed\n"); } -tick-1s +profile:::tick-1s { exit(0); } diff --git a/test/unittest/error/tst.clause_scope-regular.d b/test/unittest/error/tst.clause_scope-regular.d index cda9f70a..1c84d0f8 100644 --- a/test/unittest/error/tst.clause_scope-regular.d +++ b/test/unittest/error/tst.clause_scope-regular.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,17 +15,17 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { printf("Error fired\n"); } -tick-10ms +profile:::tick-10ms { trace(((struct task_struct *)NULL)->pid); } -tick-10ms +profile:::tick-10ms { printf("Clause executed\n"); exit(0); diff --git a/test/unittest/error/tst.error.d b/test/unittest/error/tst.error.d index 6cace8e3..afdb54a6 100644 --- a/test/unittest/error/tst.error.d +++ b/test/unittest/error/tst.error.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,13 +13,13 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { printf("Error fired\n"); exit(0); } -BEGIN +dtrace:::BEGIN { *(char *)NULL; exit(1); diff --git a/test/unittest/error/tst.errorend.d b/test/unittest/error/tst.errorend.d index 8e22d393..27725fbf 100644 --- a/test/unittest/error/tst.errorend.d +++ b/test/unittest/error/tst.errorend.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,18 +13,18 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { printf("Error fired\n"); exit(0); } -END +dtrace:::END { printf("End fired after exit\n"); } -BEGIN +dtrace:::BEGIN { *(char *)NULL; exit(1); diff --git a/test/unittest/error/tst.fault-location.sh b/test/unittest/error/tst.fault-location.sh index 714d863b..52c92409 100755 --- a/test/unittest/error/tst.fault-location.sh +++ b/test/unittest/error/tst.fault-location.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -12,14 +12,14 @@ dtrace=$1 $dtrace $dt_flags -xdisasm=8 -Sn ' -BEGIN +dtrace:::BEGIN { a = b = 0; trace(a / b); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/error/tst.trace_string.d b/test/unittest/error/tst.trace_string.d index f5c8412b..8abf2c67 100644 --- a/test/unittest/error/tst.trace_string.d +++ b/test/unittest/error/tst.trace_string.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,13 +13,13 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { trace("Error fired"); exit(0); } -BEGIN +dtrace:::BEGIN { *(char *)NULL; exit(1); diff --git a/test/unittest/fbtprovider/err.D_ARGS_IDX.void-void.d b/test/unittest/fbtprovider/err.D_ARGS_IDX.void-void.d index 4bdf36cb..cd7cfc59 100644 --- a/test/unittest/fbtprovider/err.D_ARGS_IDX.void-void.d +++ b/test/unittest/fbtprovider/err.D_ARGS_IDX.void-void.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ fbt:vmlinux:oops_enter:return exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/fbtprovider/err.D_ARGS_IDX.void.d b/test/unittest/fbtprovider/err.D_ARGS_IDX.void.d index 516d733a..220d3bf1 100644 --- a/test/unittest/fbtprovider/err.D_ARGS_IDX.void.d +++ b/test/unittest/fbtprovider/err.D_ARGS_IDX.void.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ fbt:vmlinux:exit_creds:return exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/fbtprovider/err.D_PDESC_ZERO.notreturn.d b/test/unittest/fbtprovider/err.D_PDESC_ZERO.notreturn.d index 6e668b2d..5787e4be 100644 --- a/test/unittest/fbtprovider/err.D_PDESC_ZERO.notreturn.d +++ b/test/unittest/fbtprovider/err.D_PDESC_ZERO.notreturn.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->traceme = 1; } diff --git a/test/unittest/fbtprovider/tst.entry.d b/test/unittest/fbtprovider/tst.entry.d index 01a8d241..91956f9f 100644 --- a/test/unittest/fbtprovider/tst.entry.d +++ b/test/unittest/fbtprovider/tst.entry.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet #pragma D option statusrate=10ms -BEGIN +dtrace:::BEGIN { num_entry = 0; } diff --git a/test/unittest/fbtprovider/tst.entryargs.d b/test/unittest/fbtprovider/tst.entryargs.d index 0226659b..de8bb85a 100644 --- a/test/unittest/fbtprovider/tst.entryargs.d +++ b/test/unittest/fbtprovider/tst.entryargs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet #pragma D option statusrate=10ms -BEGIN +dtrace:::BEGIN { num_entry = 0; } diff --git a/test/unittest/fbtprovider/tst.manyargs.d b/test/unittest/fbtprovider/tst.manyargs.d index de1f22de..34165ef3 100644 --- a/test/unittest/fbtprovider/tst.manyargs.d +++ b/test/unittest/fbtprovider/tst.manyargs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option statusrate=10ms #pragma D option destructive -BEGIN +dtrace:::BEGIN { me = pid; num_entry = 0; diff --git a/test/unittest/fbtprovider/tst.offset.d b/test/unittest/fbtprovider/tst.offset.d index 4656281c..5ab5b360 100644 --- a/test/unittest/fbtprovider/tst.offset.d +++ b/test/unittest/fbtprovider/tst.offset.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet #pragma D option statusrate=10ms -BEGIN +dtrace:::BEGIN { self->traceme = 1; } diff --git a/test/unittest/fbtprovider/tst.return1.d b/test/unittest/fbtprovider/tst.return1.d index f63a237f..c7adc978 100644 --- a/test/unittest/fbtprovider/tst.return1.d +++ b/test/unittest/fbtprovider/tst.return1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet #pragma D option zdefs -BEGIN +dtrace:::BEGIN { niter = 0; rval = -1; diff --git a/test/unittest/fbtprovider/tst.tls.d b/test/unittest/fbtprovider/tst.tls.d index 9b65d7e1..31123876 100644 --- a/test/unittest/fbtprovider/tst.tls.d +++ b/test/unittest/fbtprovider/tst.tls.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet #pragma D option statusrate=10ms -BEGIN +dtrace:::BEGIN { num_entry = 0; num_return = 0; diff --git a/test/unittest/fbtprovider/tst.tls2.d b/test/unittest/fbtprovider/tst.tls2.d index e95ae234..17b6be59 100644 --- a/test/unittest/fbtprovider/tst.tls2.d +++ b/test/unittest/fbtprovider/tst.tls2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet #pragma D option statusrate=10ms -BEGIN +dtrace:::BEGIN { num_entry = 0; num_return = 0; diff --git a/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.ternary.d b/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.ternary.d index 8de49be0..def5b37b 100644 --- a/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.ternary.d +++ b/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.ternary.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = (char *) alloca(1); a = (a == NULL) ? (char *) 50 : a; } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.var-clash-non-first.d b/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.var-clash-non-first.d index ace3fd3a..7bb757be 100644 --- a/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.var-clash-non-first.d +++ b/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.var-clash-non-first.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { b = (char *) &`max_pfn; a = b + 5; } -BEGIN +dtrace:::BEGIN { a = (char *) alloca(1); trace(a); diff --git a/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.var-clash.d b/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.var-clash.d index fe9e2749..c76a2fad 100644 --- a/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.var-clash.d +++ b/test/unittest/funcs/alloca/err.D_ALLOCA_INCOMPAT.var-clash.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,12 +15,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = (char *) alloca(1); } -BEGIN +dtrace:::BEGIN { b = (char *) &`max_pfn; a = NULL; diff --git a/test/unittest/funcs/alloca/err.alloca-bcopy-before-beyond.d b/test/unittest/funcs/alloca/err.alloca-bcopy-before-beyond.d index 332b265d..4920fb85 100644 --- a/test/unittest/funcs/alloca/err.alloca-bcopy-before-beyond.d +++ b/test/unittest/funcs/alloca/err.alloca-bcopy-before-beyond.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "0"; s = (char *)alloca(15); @@ -21,7 +21,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-bcopy-before-bottom.d b/test/unittest/funcs/alloca/err.alloca-bcopy-before-bottom.d index add76824..57fec746 100644 --- a/test/unittest/funcs/alloca/err.alloca-bcopy-before-bottom.d +++ b/test/unittest/funcs/alloca/err.alloca-bcopy-before-bottom.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "0"; s = (char *)alloca(15); @@ -21,7 +21,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-bcopy-beyond-top.d b/test/unittest/funcs/alloca/err.alloca-bcopy-beyond-top.d index 5ed1eaa5..7e6e40c8 100644 --- a/test/unittest/funcs/alloca/err.alloca-bcopy-beyond-top.d +++ b/test/unittest/funcs/alloca/err.alloca-bcopy-beyond-top.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "01"; s = (char *)alloca(16); @@ -21,7 +21,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-bcopy-crossing-bottom.d b/test/unittest/funcs/alloca/err.alloca-bcopy-crossing-bottom.d index fa3a8d5c..a7b7aa0e 100644 --- a/test/unittest/funcs/alloca/err.alloca-bcopy-crossing-bottom.d +++ b/test/unittest/funcs/alloca/err.alloca-bcopy-crossing-bottom.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "01"; s = (char *)alloca(15); @@ -21,7 +21,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-bcopy-crossing-top.d b/test/unittest/funcs/alloca/err.alloca-bcopy-crossing-top.d index 8d4e1609..5a6a33e8 100644 --- a/test/unittest/funcs/alloca/err.alloca-bcopy-crossing-top.d +++ b/test/unittest/funcs/alloca/err.alloca-bcopy-crossing-top.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "01"; s = (char *)alloca(16); @@ -21,7 +21,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-crossing-clauses.d b/test/unittest/funcs/alloca/err.alloca-crossing-clauses.d index eaadc40a..d743f474 100644 --- a/test/unittest/funcs/alloca/err.alloca-crossing-clauses.d +++ b/test/unittest/funcs/alloca/err.alloca-crossing-clauses.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,19 +13,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (char *)alloca(1); *s = 'a'; } -BEGIN +dtrace:::BEGIN { trace(*s); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } \ No newline at end of file diff --git a/test/unittest/funcs/alloca/err.alloca-load-before-bottom.d b/test/unittest/funcs/alloca/err.alloca-load-before-bottom.d index 9eeafc0f..2dab69af 100644 --- a/test/unittest/funcs/alloca/err.alloca-load-before-bottom.d +++ b/test/unittest/funcs/alloca/err.alloca-load-before-bottom.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,14 +13,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (char *)alloca(15); trace(s[-1]); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-load-beyond-top.d b/test/unittest/funcs/alloca/err.alloca-load-beyond-top.d index b121179c..45252ae9 100644 --- a/test/unittest/funcs/alloca/err.alloca-load-beyond-top.d +++ b/test/unittest/funcs/alloca/err.alloca-load-beyond-top.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,14 +15,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (char *)alloca(15); trace(s[16]); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-load-crossing-bottom.d b/test/unittest/funcs/alloca/err.alloca-load-crossing-bottom.d index 8208ea5e..7ae46a80 100644 --- a/test/unittest/funcs/alloca/err.alloca-load-crossing-bottom.d +++ b/test/unittest/funcs/alloca/err.alloca-load-crossing-bottom.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,13 +13,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (int *)alloca(10); trace(s[-1]); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-null-deref-lvalue.d b/test/unittest/funcs/alloca/err.alloca-null-deref-lvalue.d index 97d13f12..24c00e69 100644 --- a/test/unittest/funcs/alloca/err.alloca-null-deref-lvalue.d +++ b/test/unittest/funcs/alloca/err.alloca-null-deref-lvalue.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet #pragma D option scratchsize=51 -BEGIN +dtrace:::BEGIN { s = (char *) alloca(10); s = NULL; @@ -23,7 +23,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-null-deref.d b/test/unittest/funcs/alloca/err.alloca-null-deref.d index 77ee7306..4a5017a8 100644 --- a/test/unittest/funcs/alloca/err.alloca-null-deref.d +++ b/test/unittest/funcs/alloca/err.alloca-null-deref.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (char *) alloca(10); s = NULL; @@ -21,7 +21,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-scratch-exceeding-bcopy.d b/test/unittest/funcs/alloca/err.alloca-scratch-exceeding-bcopy.d index 0d45362f..f72ae57c 100644 --- a/test/unittest/funcs/alloca/err.alloca-scratch-exceeding-bcopy.d +++ b/test/unittest/funcs/alloca/err.alloca-scratch-exceeding-bcopy.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ string a; -BEGIN +dtrace:::BEGIN { a = "0123456789abcdefgh"; s = (char *)alloca(9); @@ -30,7 +30,7 @@ BEGIN exit((s[0] == '0' && s[16] == 'g') ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-store-before-bottom.d b/test/unittest/funcs/alloca/err.alloca-store-before-bottom.d index c0e5e4e0..1b47d563 100644 --- a/test/unittest/funcs/alloca/err.alloca-store-before-bottom.d +++ b/test/unittest/funcs/alloca/err.alloca-store-before-bottom.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,14 +13,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (char *)alloca(15); s[-1] = 65; exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-store-beyond-top.d b/test/unittest/funcs/alloca/err.alloca-store-beyond-top.d index a47024ac..82338a56 100644 --- a/test/unittest/funcs/alloca/err.alloca-store-beyond-top.d +++ b/test/unittest/funcs/alloca/err.alloca-store-beyond-top.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,14 +15,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (char *)alloca(15); s[16] = 65; exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-store-crossing-bottom.d b/test/unittest/funcs/alloca/err.alloca-store-crossing-bottom.d index b4dc5a4c..e071d65a 100644 --- a/test/unittest/funcs/alloca/err.alloca-store-crossing-bottom.d +++ b/test/unittest/funcs/alloca/err.alloca-store-crossing-bottom.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,14 +13,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (int *)alloca(15); s[-1] = 65; exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/err.alloca-too-large.d b/test/unittest/funcs/alloca/err.alloca-too-large.d index 6ba87781..f850f4b9 100644 --- a/test/unittest/funcs/alloca/err.alloca-too-large.d +++ b/test/unittest/funcs/alloca/err.alloca-too-large.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,14 +14,14 @@ #pragma D option quiet #pragma D option scratchsize=64 -BEGIN +dtrace:::BEGIN { sz = 65; alloca(sz); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-alignment.d b/test/unittest/funcs/alloca/tst.alloca-alignment.d index b343cda9..12885aaa 100644 --- a/test/unittest/funcs/alloca/tst.alloca-alignment.d +++ b/test/unittest/funcs/alloca/tst.alloca-alignment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = alloca(1); b = alloca(1); @@ -28,7 +28,7 @@ BEGIN exit((uint64_t) b - (uint64_t) a != sizeof (uint64_t)); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-arith.d b/test/unittest/funcs/alloca/tst.alloca-arith.d index 6a7bc335..303ca900 100644 --- a/test/unittest/funcs/alloca/tst.alloca-arith.d +++ b/test/unittest/funcs/alloca/tst.alloca-arith.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = (char *)alloca(1); x = (char *)alloca(10); @@ -23,7 +23,7 @@ BEGIN exit(z == 2 ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-array-load.d b/test/unittest/funcs/alloca/tst.alloca-array-load.d index 3db98049..41ce9b83 100644 --- a/test/unittest/funcs/alloca/tst.alloca-array-load.d +++ b/test/unittest/funcs/alloca/tst.alloca-array-load.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ int *arr; -BEGIN +dtrace:::BEGIN { arr = alloca(5 * sizeof(int)); arr[3] = 0x42; @@ -23,7 +23,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-array-store.d b/test/unittest/funcs/alloca/tst.alloca-array-store.d index 17edb584..276b31ae 100644 --- a/test/unittest/funcs/alloca/tst.alloca-array-store.d +++ b/test/unittest/funcs/alloca/tst.alloca-array-store.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,14 +15,14 @@ int *arr; -BEGIN +dtrace:::BEGIN { arr = alloca(5 * sizeof(int)); arr[3] = 0x42; exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-bcopy-top.d b/test/unittest/funcs/alloca/tst.alloca-bcopy-top.d index 8ae26905..278d2cc2 100644 --- a/test/unittest/funcs/alloca/tst.alloca-bcopy-top.d +++ b/test/unittest/funcs/alloca/tst.alloca-bcopy-top.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "0"; s = (char *)alloca(15); @@ -22,7 +22,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-crossing-clauses.d b/test/unittest/funcs/alloca/tst.alloca-crossing-clauses.d index 91409ec3..aaa832d8 100644 --- a/test/unittest/funcs/alloca/tst.alloca-crossing-clauses.d +++ b/test/unittest/funcs/alloca/tst.alloca-crossing-clauses.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,20 +14,20 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (char *)alloca(1); *s = 'a'; } -BEGIN +dtrace:::BEGIN { s2 = (char *)alloca(1); *s2 = 'b'; exit(s == s2 ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } \ No newline at end of file diff --git a/test/unittest/funcs/alloca/tst.alloca-deref-load.d b/test/unittest/funcs/alloca/tst.alloca-deref-load.d index 2d23cdd3..851e2dec 100644 --- a/test/unittest/funcs/alloca/tst.alloca-deref-load.d +++ b/test/unittest/funcs/alloca/tst.alloca-deref-load.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ int *val; -BEGIN +dtrace:::BEGIN { val = alloca(sizeof(int)); *val = 0x42; @@ -23,7 +23,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-deref-store.d b/test/unittest/funcs/alloca/tst.alloca-deref-store.d index e7d36e53..913cf422 100644 --- a/test/unittest/funcs/alloca/tst.alloca-deref-store.d +++ b/test/unittest/funcs/alloca/tst.alloca-deref-store.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,14 +15,14 @@ int *val; -BEGIN +dtrace:::BEGIN { val = alloca(sizeof(int)); *val = 0x42; exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-funcs.d b/test/unittest/funcs/alloca/tst.alloca-funcs.d index a716d27d..2c9ac175 100644 --- a/test/unittest/funcs/alloca/tst.alloca-funcs.d +++ b/test/unittest/funcs/alloca/tst.alloca-funcs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ * from one test to the next. */ -BEGIN +dtrace:::BEGIN { base = (char *)alloca(0); x = (char *) alloca(8); @@ -31,7 +31,7 @@ BEGIN printf("%x\n", x - base); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); x[0] = 'a'; @@ -41,7 +41,7 @@ BEGIN trace(basename(x)); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); y = (char *) alloca(8); @@ -54,7 +54,7 @@ BEGIN trace(index(x, y)); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); y = (char *) alloca(8); @@ -67,7 +67,7 @@ BEGIN trace(rindex(x, y)); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); x[0] = 'a'; @@ -77,7 +77,7 @@ BEGIN trace(strchr(x, '/')); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); x[0] = 'a'; @@ -87,7 +87,7 @@ BEGIN trace(strrchr(x, '/')); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); x[0] = 'a'; @@ -97,7 +97,7 @@ BEGIN trace(strlen(x)); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); y = (char *) alloca(8); @@ -110,7 +110,7 @@ BEGIN trace(strjoin(x, y)); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); y = (char *) alloca(8); @@ -123,7 +123,7 @@ BEGIN trace(strstr(x, y)); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); y = (char *) alloca(8); @@ -136,7 +136,7 @@ BEGIN trace(strtok(x, y)); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); x[0] = '/'; @@ -144,7 +144,7 @@ BEGIN trace(strtok(NULL, x)); } -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); x[0] = 'a'; @@ -154,12 +154,12 @@ BEGIN trace(substr(x, 0, 1)); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/funcs/alloca/tst.alloca-overtainting.sh b/test/unittest/funcs/alloca/tst.alloca-overtainting.sh index 3d4d64ba..89e6c751 100755 --- a/test/unittest/funcs/alloca/tst.alloca-overtainting.sh +++ b/test/unittest/funcs/alloca/tst.alloca-overtainting.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -15,7 +15,7 @@ dtrace=$1 tmpfile=${tmpdir:-/tmp}/tst.alloca0-overtainting.$$ $dtrace $dt_flags -xtree=4 -s /dev/stdin > $tmpfile 2>&1 <c = 0x42; @@ -27,7 +27,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-struct-store.d b/test/unittest/funcs/alloca/tst.alloca-struct-store.d index 4f55f958..d2d9eddf 100644 --- a/test/unittest/funcs/alloca/tst.alloca-struct-store.d +++ b/test/unittest/funcs/alloca/tst.alloca-struct-store.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,14 +19,14 @@ struct foo { int c; } *ptr; -BEGIN +dtrace:::BEGIN { ptr = alloca(sizeof(struct foo)); ptr->c = 0x42; exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-struct-union-load.d b/test/unittest/funcs/alloca/tst.alloca-struct-union-load.d index 7361b494..79de739f 100644 --- a/test/unittest/funcs/alloca/tst.alloca-struct-union-load.d +++ b/test/unittest/funcs/alloca/tst.alloca-struct-union-load.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ struct st { } s; } *ptr; -BEGIN +dtrace:::BEGIN { ptr = alloca(sizeof(struct st)); ptr->s.u.apa.c = 0x42; @@ -34,7 +34,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca-struct-union-store.d b/test/unittest/funcs/alloca/tst.alloca-struct-union-store.d index c0cbd787..a34257d9 100644 --- a/test/unittest/funcs/alloca/tst.alloca-struct-union-store.d +++ b/test/unittest/funcs/alloca/tst.alloca-struct-union-store.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,14 +26,14 @@ struct st { } s; } *ptr; -BEGIN +dtrace:::BEGIN { ptr = alloca(sizeof(struct st)); ptr->s.u.apa.c = 0x42; exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca0-after-alloca-load.d b/test/unittest/funcs/alloca/tst.alloca0-after-alloca-load.d index 904f5ce3..2d8ec29d 100644 --- a/test/unittest/funcs/alloca/tst.alloca0-after-alloca-load.d +++ b/test/unittest/funcs/alloca/tst.alloca0-after-alloca-load.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,14 +15,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = alloca(10); s = alloca(0); exit(alloca(0) == s ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca0-after-alloca.d b/test/unittest/funcs/alloca/tst.alloca0-after-alloca.d index 62e79b90..81a88549 100644 --- a/test/unittest/funcs/alloca/tst.alloca0-after-alloca.d +++ b/test/unittest/funcs/alloca/tst.alloca0-after-alloca.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = alloca(10); exit(alloca(0) == alloca(0) ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca0-load.d b/test/unittest/funcs/alloca/tst.alloca0-load.d index 508c2c97..b4b14906 100644 --- a/test/unittest/funcs/alloca/tst.alloca0-load.d +++ b/test/unittest/funcs/alloca/tst.alloca0-load.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,13 +15,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = alloca(0); exit(alloca(0) == s ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/alloca/tst.alloca0-values.sh b/test/unittest/funcs/alloca/tst.alloca0-values.sh index 07b2393a..61fe0e76 100755 --- a/test/unittest/funcs/alloca/tst.alloca0-values.sh +++ b/test/unittest/funcs/alloca/tst.alloca0-values.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -15,7 +15,7 @@ dtrace=$1 tmpfile=${tmpdir:-/tmp}/tst.alloca0-values.$$ $dtrace $dt_flags -o $tmpfile -s /dev/stdin <mm->env_start, 65, ptr); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/copyinto/err.null_arg1.d b/test/unittest/funcs/copyinto/err.null_arg1.d index 2cb302e0..8460bc23 100644 --- a/test/unittest/funcs/copyinto/err.null_arg1.d +++ b/test/unittest/funcs/copyinto/err.null_arg1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,14 +11,14 @@ * SECTION: Actions and Subroutines/copyinto() */ -BEGIN +dtrace:::BEGIN { ptr = (char *)alloca(256); copyinto(0, 8, ptr); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/copyinto/tst.copyinto.d b/test/unittest/funcs/copyinto/tst.copyinto.d index a4c5f770..10f78108 100644 --- a/test/unittest/funcs/copyinto/tst.copyinto.d +++ b/test/unittest/funcs/copyinto/tst.copyinto.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ syscall::write:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/copyinto/tst.copyinto_arg_order.d b/test/unittest/funcs/copyinto/tst.copyinto_arg_order.d index a5a7b504..182fcce3 100644 --- a/test/unittest/funcs/copyinto/tst.copyinto_arg_order.d +++ b/test/unittest/funcs/copyinto/tst.copyinto_arg_order.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -51,7 +51,7 @@ syscall::write:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/copyout/err.D_PROTO_ARG.copyoutbadarg.d b/test/unittest/funcs/copyout/err.D_PROTO_ARG.copyoutbadarg.d index 755d7d69..8c08273d 100644 --- a/test/unittest/funcs/copyout/err.D_PROTO_ARG.copyoutbadarg.d +++ b/test/unittest/funcs/copyout/err.D_PROTO_ARG.copyoutbadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { copyout("not_void_*", "not_uinptr_t", "not_size_t"); exit(0); diff --git a/test/unittest/funcs/copyout/err.D_PROTO_LEN.copyouttoofew.d b/test/unittest/funcs/copyout/err.D_PROTO_LEN.copyouttoofew.d index e6529d74..aa46d329 100644 --- a/test/unittest/funcs/copyout/err.D_PROTO_LEN.copyouttoofew.d +++ b/test/unittest/funcs/copyout/err.D_PROTO_LEN.copyouttoofew.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { copyout(0, 20); exit(0); diff --git a/test/unittest/funcs/copyout/err.D_PROTO_LEN.copyouttoomany.d b/test/unittest/funcs/copyout/err.D_PROTO_LEN.copyouttoomany.d index 3d0fac14..6fb2ce88 100644 --- a/test/unittest/funcs/copyout/err.D_PROTO_LEN.copyouttoomany.d +++ b/test/unittest/funcs/copyout/err.D_PROTO_LEN.copyouttoomany.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ -BEGIN +dtrace:::BEGIN { copyout((void *)3, (uintptr_t)1000, (size_t)1000, "toomany"); exit(0); diff --git a/test/unittest/funcs/copyout/err.copyout.d b/test/unittest/funcs/copyout/err.copyout.d index 16416463..3da97acb 100644 --- a/test/unittest/funcs/copyout/err.copyout.d +++ b/test/unittest/funcs/copyout/err.copyout.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,14 +15,14 @@ #pragma D option destructive -BEGIN +dtrace:::BEGIN { i = 3; copyout((void *)i, 0, 5); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/copyout/err.copyoutbadaddr.sh b/test/unittest/funcs/copyout/err.copyoutbadaddr.sh index 0c775b27..dc19886f 100755 --- a/test/unittest/funcs/copyout/err.copyoutbadaddr.sh +++ b/test/unittest/funcs/copyout/err.copyoutbadaddr.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,14 +18,14 @@ dtrace_script() * */ - BEGIN + dtrace:::BEGIN { ptr = alloca(sizeof(char *)); copyinto(curpsinfo->pr_envp, sizeof(char *), ptr); copyout(ptr, 0, sizeof(char *)); } - ERROR + dtrace:::ERROR { exit(1) } diff --git a/test/unittest/funcs/copyoutstr/err.D_PROTO_LEN.copyoutstrbadarg.d b/test/unittest/funcs/copyoutstr/err.D_PROTO_LEN.copyoutstrbadarg.d index a38158c1..5a8c319c 100644 --- a/test/unittest/funcs/copyoutstr/err.D_PROTO_LEN.copyoutstrbadarg.d +++ b/test/unittest/funcs/copyoutstr/err.D_PROTO_LEN.copyoutstrbadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { copyoutstr("string", "not_uintptr_t"); exit(0); diff --git a/test/unittest/funcs/copyoutstr/err.D_PROTO_LEN.copyoutstrtoofew.d b/test/unittest/funcs/copyoutstr/err.D_PROTO_LEN.copyoutstrtoofew.d index c3527b0e..d7984117 100644 --- a/test/unittest/funcs/copyoutstr/err.D_PROTO_LEN.copyoutstrtoofew.d +++ b/test/unittest/funcs/copyoutstr/err.D_PROTO_LEN.copyoutstrtoofew.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { copyoutstr("string"); exit(0); diff --git a/test/unittest/funcs/copyoutstr/err.copyoutstrbadaddr.sh b/test/unittest/funcs/copyoutstr/err.copyoutstrbadaddr.sh index 5d4efe5e..81421bad 100755 --- a/test/unittest/funcs/copyoutstr/err.copyoutstrbadaddr.sh +++ b/test/unittest/funcs/copyoutstr/err.copyoutstrbadaddr.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,14 +18,14 @@ dtrace_script() * */ - BEGIN + dtrace:::BEGIN { ptr = alloca(sizeof(char *)); copyinto(curpsinfo->pr_envp, sizeof(char *), ptr); copyoutstr(ptr, 0, sizeof(char *)); } - ERROR + dtrace:::ERROR { exit(1) } diff --git a/test/unittest/funcs/err.D_ALLOCA_SIZE.big_alloca.d b/test/unittest/funcs/err.D_ALLOCA_SIZE.big_alloca.d index bccc765e..5c82c9cb 100644 --- a/test/unittest/funcs/err.D_ALLOCA_SIZE.big_alloca.d +++ b/test/unittest/funcs/err.D_ALLOCA_SIZE.big_alloca.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option scratchsize=1024 -BEGIN +dtrace:::BEGIN { ptr = alloca(1025); exit(1); diff --git a/test/unittest/funcs/err.D_OP_VFPTR.badop.d b/test/unittest/funcs/err.D_OP_VFPTR.badop.d index 5ff3e40e..441bd828 100644 --- a/test/unittest/funcs/err.D_OP_VFPTR.badop.d +++ b/test/unittest/funcs/err.D_OP_VFPTR.badop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ int p; -BEGIN +dtrace:::BEGIN { p = 1; p -= alloca(10); diff --git a/test/unittest/funcs/err.D_PROTO_ARG.chillbadarg.d b/test/unittest/funcs/err.D_PROTO_ARG.chillbadarg.d index 985f916d..26aaf32f 100644 --- a/test/unittest/funcs/err.D_PROTO_ARG.chillbadarg.d +++ b/test/unittest/funcs/err.D_PROTO_ARG.chillbadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { chill("badarg"); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_ARG.mobadarg.d b/test/unittest/funcs/err.D_PROTO_ARG.mobadarg.d index c206980b..8f0f40d0 100644 --- a/test/unittest/funcs/err.D_PROTO_ARG.mobadarg.d +++ b/test/unittest/funcs/err.D_PROTO_ARG.mobadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { mutex_owned("badarg"); exit(1); diff --git a/test/unittest/funcs/err.D_PROTO_ARG.mtabadarg.d b/test/unittest/funcs/err.D_PROTO_ARG.mtabadarg.d index 4fe39003..703f5075 100644 --- a/test/unittest/funcs/err.D_PROTO_ARG.mtabadarg.d +++ b/test/unittest/funcs/err.D_PROTO_ARG.mtabadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { mutex_type_adaptive(trace("badarg")); exit(1); diff --git a/test/unittest/funcs/err.D_PROTO_ARG.progenyofbad1.d b/test/unittest/funcs/err.D_PROTO_ARG.progenyofbad1.d index 4a00d08f..dfb02f3a 100644 --- a/test/unittest/funcs/err.D_PROTO_ARG.progenyofbad1.d +++ b/test/unittest/funcs/err.D_PROTO_ARG.progenyofbad1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/progenyof() */ -BEGIN +dtrace:::BEGIN { progenyof("some_string"); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_ARG.progenyofbad2.d b/test/unittest/funcs/err.D_PROTO_ARG.progenyofbad2.d index 67735b79..b5b388fa 100644 --- a/test/unittest/funcs/err.D_PROTO_ARG.progenyofbad2.d +++ b/test/unittest/funcs/err.D_PROTO_ARG.progenyofbad2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/progenyof() */ -BEGIN +dtrace:::BEGIN { progenyof(trace(1)); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_ARG.raisebadarg.d b/test/unittest/funcs/err.D_PROTO_ARG.raisebadarg.d index bcf110d6..21489a8f 100644 --- a/test/unittest/funcs/err.D_PROTO_ARG.raisebadarg.d +++ b/test/unittest/funcs/err.D_PROTO_ARG.raisebadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { raise("badarg"); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.allocanoarg.d b/test/unittest/funcs/err.D_PROTO_LEN.allocanoarg.d index 639884d9..a9d192c9 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.allocanoarg.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.allocanoarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ -BEGIN +dtrace:::BEGIN { ptr = alloca(); exit(1); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.badbreakpoint.d b/test/unittest/funcs/err.D_PROTO_LEN.badbreakpoint.d index 89ec5a9e..0a3820ac 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.badbreakpoint.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.badbreakpoint.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { breakpoint(1, 2); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.chilltoofew.d b/test/unittest/funcs/err.D_PROTO_LEN.chilltoofew.d index 6ec496b2..0ec30711 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.chilltoofew.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.chilltoofew.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { chill(); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.chilltoomany.d b/test/unittest/funcs/err.D_PROTO_LEN.chilltoomany.d index e06e4870..ea14a831 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.chilltoomany.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.chilltoomany.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { chill(1000, 1000, 1000); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.motoofew.d b/test/unittest/funcs/err.D_PROTO_LEN.motoofew.d index 7b310c3a..a092a588 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.motoofew.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.motoofew.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * SECTION: Actions and Subroutines/mutex_owned() */ -BEGIN +dtrace:::BEGIN { mutex_owned(); exit(1); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.motoomany.d b/test/unittest/funcs/err.D_PROTO_LEN.motoomany.d index 3b197467..cef7b509 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.motoomany.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.motoomany.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * SECTION: Actions and Subroutines/mutex_owned() */ -BEGIN +dtrace:::BEGIN { mutex_owned(0, 99); exit(1); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.mtatoofew.d b/test/unittest/funcs/err.D_PROTO_LEN.mtatoofew.d index b582d554..63d21453 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.mtatoofew.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.mtatoofew.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * SECTION: Actions and Subroutines/mutex_type_adaptive() */ -BEGIN +dtrace:::BEGIN { mutex_type_adaptive(); exit(1); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.mtatoomany.d b/test/unittest/funcs/err.D_PROTO_LEN.mtatoomany.d index 6f08673d..c2e21887 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.mtatoomany.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.mtatoomany.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ * SECTION: Actions and Subroutines/mutex_type_adaptive() */ -BEGIN +dtrace:::BEGIN { mutex_type_adaptive(0, 99); exit(1); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.panicbadarg.d b/test/unittest/funcs/err.D_PROTO_LEN.panicbadarg.d index fcd7d902..1749fac5 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.panicbadarg.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.panicbadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { panic("badarg"); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.progenyoftoofew.d b/test/unittest/funcs/err.D_PROTO_LEN.progenyoftoofew.d index 96bf8b4d..271210c2 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.progenyoftoofew.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.progenyoftoofew.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/progenyof() */ -BEGIN +dtrace:::BEGIN { progenyof(); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.progenyoftoomany.d b/test/unittest/funcs/err.D_PROTO_LEN.progenyoftoomany.d index 2d4d922a..c8ff1120 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.progenyoftoomany.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.progenyoftoomany.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/progenyof() */ -BEGIN +dtrace:::BEGIN { progenyof(1, 2); exit(0); diff --git a/test/unittest/funcs/err.D_PROTO_LEN.stopbadarg.d b/test/unittest/funcs/err.D_PROTO_LEN.stopbadarg.d index fdd299fc..e9f5828a 100644 --- a/test/unittest/funcs/err.D_PROTO_LEN.stopbadarg.d +++ b/test/unittest/funcs/err.D_PROTO_LEN.stopbadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { stop("badarg"); exit(0); diff --git a/test/unittest/funcs/err.D_STRINGOF_TYPE.badstringof.d b/test/unittest/funcs/err.D_STRINGOF_TYPE.badstringof.d index d01adc7e..299ae2b4 100644 --- a/test/unittest/funcs/err.D_STRINGOF_TYPE.badstringof.d +++ b/test/unittest/funcs/err.D_STRINGOF_TYPE.badstringof.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%s", stringof (trace(0))); exit(1); diff --git a/test/unittest/funcs/err.D_VAR_UNDEF.badvar.d b/test/unittest/funcs/err.D_VAR_UNDEF.badvar.d index 96d557b5..b1647635 100644 --- a/test/unittest/funcs/err.D_VAR_UNDEF.badvar.d +++ b/test/unittest/funcs/err.D_VAR_UNDEF.badvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ -BEGIN +dtrace:::BEGIN { p -= trace(0); exit(0); diff --git a/test/unittest/funcs/err.badalloca.d b/test/unittest/funcs/err.badalloca.d index 98f1f565..e6bb2ff1 100644 --- a/test/unittest/funcs/err.badalloca.d +++ b/test/unittest/funcs/err.badalloca.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,18 +17,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { ptr = alloca(sizeof(unsigned long)); } -tick-1 +profile:::tick-1 { bcopy((void *)&`max_pfn, ptr, sizeof(unsigned long)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/err.badalloca2.d b/test/unittest/funcs/err.badalloca2.d index c3fed3bb..d528b3e7 100644 --- a/test/unittest/funcs/err.badalloca2.d +++ b/test/unittest/funcs/err.badalloca2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,14 +14,14 @@ * */ -BEGIN +dtrace:::BEGIN { ptr = alloca(10); ptr = alloca(0xffffffffffffffff); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/err.badchill.d b/test/unittest/funcs/err.badchill.d index 5e7ee453..28ddf0cf 100644 --- a/test/unittest/funcs/err.badchill.d +++ b/test/unittest/funcs/err.badchill.d @@ -1,18 +1,18 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { chill(200); chill(((hrtime_t)1 << 63) - 1); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/err.chillbadarg.sh b/test/unittest/funcs/err.chillbadarg.sh index 64d4e5f6..d9161a0c 100755 --- a/test/unittest/funcs/err.chillbadarg.sh +++ b/test/unittest/funcs/err.chillbadarg.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,13 +20,13 @@ dtrace_script() * */ - BEGIN + dtrace:::BEGIN { chill(500000001); exit(1); } - ERROR + dtrace:::ERROR { exit(1) } diff --git a/test/unittest/funcs/err.inet_ntoabadaddr.d b/test/unittest/funcs/err.inet_ntoabadaddr.d index 40beaebf..e8f808f4 100644 --- a/test/unittest/funcs/err.inet_ntoabadaddr.d +++ b/test/unittest/funcs/err.inet_ntoabadaddr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ ipaddr_t *ip4a; -BEGIN +dtrace:::BEGIN { ip4a = 0; @@ -19,7 +19,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/err.inet_ntopbadaddr.d b/test/unittest/funcs/err.inet_ntopbadaddr.d index 79c15e4c..0ebbc627 100644 --- a/test/unittest/funcs/err.inet_ntopbadaddr.d +++ b/test/unittest/funcs/err.inet_ntopbadaddr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ ipaddr_t *ip4a; -BEGIN +dtrace:::BEGIN { ip4a = 0; @@ -19,7 +19,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/err.inet_ntopbadarg.d b/test/unittest/funcs/err.inet_ntopbadarg.d index 60f33714..0786ca31 100644 --- a/test/unittest/funcs/err.inet_ntopbadarg.d +++ b/test/unittest/funcs/err.inet_ntopbadarg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ ipaddr_t *ip4a; -BEGIN +dtrace:::BEGIN { this->buf4a = alloca(sizeof(ipaddr_t)); ip4a = this->buf4a; @@ -21,7 +21,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/err.link_ntopbadaddr.d b/test/unittest/funcs/err.link_ntopbadaddr.d index d4526693..74c15452 100644 --- a/test/unittest/funcs/err.link_ntopbadaddr.d +++ b/test/unittest/funcs/err.link_ntopbadaddr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ uint8_t *hwaddr; -BEGIN +dtrace:::BEGIN { hwaddr = 0; @@ -18,7 +18,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/err.link_ntopbadarg.d b/test/unittest/funcs/err.link_ntopbadarg.d index 289dc168..fe748c3b 100644 --- a/test/unittest/funcs/err.link_ntopbadarg.d +++ b/test/unittest/funcs/err.link_ntopbadarg.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->buf_eth = (uint64_t *)alloca(sizeof(uint64_t)); @@ -18,7 +18,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg1_not_in6_addr.d b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg1_not_in6_addr.d index 0a5ca604..7424e02f 100644 --- a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg1_not_in6_addr.d +++ b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg1_not_in6_addr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ int *p; -BEGIN +dtrace:::BEGIN { p = alloca(sizeof(int) * 4); p[3] = htonl(0x7f000001); diff --git a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg2_not_const.d b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg2_not_const.d index e33a9e48..a7517574 100644 --- a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg2_not_const.d +++ b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg2_not_const.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ int *p; -BEGIN +dtrace:::BEGIN { p = alloca(sizeof(int) * 4); n = 0; diff --git a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg2_not_int.d b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg2_not_int.d index 9e0990af..a5c01563 100644 --- a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg2_not_int.d +++ b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_ARG.inet_ntoa6.arg2_not_int.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ int *p; -BEGIN +dtrace:::BEGIN { p = alloca(sizeof(int) * 4); p[3] = htonl(0x7f000001); diff --git a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_LEN.inet_ntoa6.too_few_args.d b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_LEN.inet_ntoa6.too_few_args.d index 8f056165..c40531f4 100644 --- a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_LEN.inet_ntoa6.too_few_args.d +++ b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_LEN.inet_ntoa6.too_few_args.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { inet_ntoa6(); diff --git a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_LEN.inet_ntoa6.too_many_args.d b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_LEN.inet_ntoa6.too_many_args.d index 560df409..f76f92f7 100644 --- a/test/unittest/funcs/inet_ntoa6/err.D_PROTO_LEN.inet_ntoa6.too_many_args.d +++ b/test/unittest/funcs/inet_ntoa6/err.D_PROTO_LEN.inet_ntoa6.too_many_args.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { inet_ntoa6(0, 0, 0); diff --git a/test/unittest/funcs/inet_ntoa6/err.inet_ntoa6.arg1_null.d b/test/unittest/funcs/inet_ntoa6/err.inet_ntoa6.arg1_null.d index bde00dbd..30c43c1c 100644 --- a/test/unittest/funcs/inet_ntoa6/err.inet_ntoa6.arg1_null.d +++ b/test/unittest/funcs/inet_ntoa6/err.inet_ntoa6.arg1_null.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ struct in6_addr *ip6a; -BEGIN +dtrace:::BEGIN { ip6a = 0; @@ -18,7 +18,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/inet_ntoa6/err.inet_ntoa6.arg1_null_const.d b/test/unittest/funcs/inet_ntoa6/err.inet_ntoa6.arg1_null_const.d index f5881d40..20fbd0f8 100644 --- a/test/unittest/funcs/inet_ntoa6/err.inet_ntoa6.arg1_null_const.d +++ b/test/unittest/funcs/inet_ntoa6/err.inet_ntoa6.arg1_null_const.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { inet_ntoa6(NULL); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.d b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.d index feae1d64..b9474297 100644 --- a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.d +++ b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ struct in6_addr *ip6i; struct in6_addr *ip6j; struct in6_addr *ip6k; -BEGIN +dtrace:::BEGIN { this->buf6a = alloca(sizeof(struct in6_addr)); this->buf6b = alloca(sizeof(struct in6_addr)); diff --git a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-0.d b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-0.d index 4b2b5a2d..025f15da 100644 --- a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-0.d +++ b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ int *p; -BEGIN +dtrace:::BEGIN { p = alloca(sizeof(int) * 4); p[3] = htonl(0x7f000001); diff --git a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-1.d b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-1.d index 76b3c383..f78187c5 100644 --- a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-1.d +++ b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ int *p; -BEGIN +dtrace:::BEGIN { p = alloca(sizeof(int) * 4); p[3] = htonl(0x7f000001); diff --git a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-not-0.d b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-not-0.d index c7c8aef9..3e062c1d 100644 --- a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-not-0.d +++ b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strict-not-0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ int *p; -BEGIN +dtrace:::BEGIN { p = alloca(sizeof(int) * 4); p[3] = htonl(0x7f000001); diff --git a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strsize_10.d b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strsize_10.d index 292c4cbb..69df7872 100644 --- a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strsize_10.d +++ b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strsize_10.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ struct in6_addr *ip6e; struct in6_addr *ip6f; struct in6_addr *ip6g; -BEGIN +dtrace:::BEGIN { this->buf6a = alloca(sizeof(struct in6_addr)); this->buf6b = alloca(sizeof(struct in6_addr)); diff --git a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strsize_40.d b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strsize_40.d index 1f8e7ac4..77fb3c29 100644 --- a/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strsize_40.d +++ b/test/unittest/funcs/inet_ntoa6/tst.inet_ntoa6.strsize_40.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ struct in6_addr *ip6e; struct in6_addr *ip6f; struct in6_addr *ip6g; -BEGIN +dtrace:::BEGIN { this->buf6a = alloca(sizeof(struct in6_addr)); this->buf6b = alloca(sizeof(struct in6_addr)); diff --git a/test/unittest/funcs/stack/err.corrupted-data.d b/test/unittest/funcs/stack/err.corrupted-data.d index d35361eb..7f8853af 100644 --- a/test/unittest/funcs/stack/err.corrupted-data.d +++ b/test/unittest/funcs/stack/err.corrupted-data.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/err.store-to-stack.d b/test/unittest/funcs/stack/err.store-to-stack.d index 2125c395..97030bc7 100644 --- a/test/unittest/funcs/stack/err.store-to-stack.d +++ b/test/unittest/funcs/stack/err.store-to-stack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.asgn_dvar.d b/test/unittest/funcs/stack/tst.asgn_dvar.d index fd32c7b0..02ffe4cf 100644 --- a/test/unittest/funcs/stack/tst.asgn_dvar.d +++ b/test/unittest/funcs/stack/tst.asgn_dvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.asgn_gvar.d b/test/unittest/funcs/stack/tst.asgn_gvar.d index 06e75430..24787e57 100644 --- a/test/unittest/funcs/stack/tst.asgn_gvar.d +++ b/test/unittest/funcs/stack/tst.asgn_gvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.asgn_lvar.d b/test/unittest/funcs/stack/tst.asgn_lvar.d index 1b63d20a..8552a06a 100644 --- a/test/unittest/funcs/stack/tst.asgn_lvar.d +++ b/test/unittest/funcs/stack/tst.asgn_lvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.asgn_tvar.d b/test/unittest/funcs/stack/tst.asgn_tvar.d index 9722290b..35db15f5 100644 --- a/test/unittest/funcs/stack/tst.asgn_tvar.d +++ b/test/unittest/funcs/stack/tst.asgn_tvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.ref_addrs.d b/test/unittest/funcs/stack/tst.ref_addrs.d index 8ea385f7..c69d5700 100644 --- a/test/unittest/funcs/stack/tst.ref_addrs.d +++ b/test/unittest/funcs/stack/tst.ref_addrs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.ref_depth.d b/test/unittest/funcs/stack/tst.ref_depth.d index 0a8ce390..e1d83db9 100644 --- a/test/unittest/funcs/stack/tst.ref_depth.d +++ b/test/unittest/funcs/stack/tst.ref_depth.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ fbt::hrtimer_nanosleep:entry exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.ref_is_user.d b/test/unittest/funcs/stack/tst.ref_is_user.d index 076fe289..3ae9ed50 100644 --- a/test/unittest/funcs/stack/tst.ref_is_user.d +++ b/test/unittest/funcs/stack/tst.ref_is_user.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ fbt::hrtimer_nanosleep:entry exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.ref_pid.d b/test/unittest/funcs/stack/tst.ref_pid.d index db64d5fb..d50638e1 100644 --- a/test/unittest/funcs/stack/tst.ref_pid.d +++ b/test/unittest/funcs/stack/tst.ref_pid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ fbt::hrtimer_nanosleep:entry exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.ref_strsz.d b/test/unittest/funcs/stack/tst.ref_strsz.d index 3ec5efcf..9da39477 100644 --- a/test/unittest/funcs/stack/tst.ref_strsz.d +++ b/test/unittest/funcs/stack/tst.ref_strsz.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ fbt::hrtimer_nanosleep:entry exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/stack/tst.store.d b/test/unittest/funcs/stack/tst.store.d index 6d113596..8a165657 100644 --- a/test/unittest/funcs/stack/tst.store.d +++ b/test/unittest/funcs/stack/tst.store.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strjoin/tst.strjoin-bordercases.d b/test/unittest/funcs/strjoin/tst.strjoin-bordercases.d index 1ac5ffd1..e45c8485 100644 --- a/test/unittest/funcs/strjoin/tst.strjoin-bordercases.d +++ b/test/unittest/funcs/strjoin/tst.strjoin-bordercases.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option strsize=6 #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin("", "123")); trace(strjoin("", "12345")); @@ -26,7 +26,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strjoin/tst.strjoin-capped-size-2.d b/test/unittest/funcs/strjoin/tst.strjoin-capped-size-2.d index 44a6acd8..52198a18 100644 --- a/test/unittest/funcs/strjoin/tst.strjoin-capped-size-2.d +++ b/test/unittest/funcs/strjoin/tst.strjoin-capped-size-2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option strsize=7 #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = probeprov; y = probename; @@ -22,7 +22,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strjoin/tst.strjoin-capped-size-3.d b/test/unittest/funcs/strjoin/tst.strjoin-capped-size-3.d index d2982a70..538a41dc 100644 --- a/test/unittest/funcs/strjoin/tst.strjoin-capped-size-3.d +++ b/test/unittest/funcs/strjoin/tst.strjoin-capped-size-3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option strsize=7 #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = probeprov; y = probeprov; @@ -22,7 +22,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strjoin/tst.strjoin-capped-size.d b/test/unittest/funcs/strjoin/tst.strjoin-capped-size.d index b54fd2f2..aa90e3f7 100644 --- a/test/unittest/funcs/strjoin/tst.strjoin-capped-size.d +++ b/test/unittest/funcs/strjoin/tst.strjoin-capped-size.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,13 +9,13 @@ #pragma D option strsize=11 #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin(probeprov, probename)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strjoin/tst.strjoin-nested.d b/test/unittest/funcs/strjoin/tst.strjoin-nested.d index 84ba459c..e02aae82 100644 --- a/test/unittest/funcs/strjoin/tst.strjoin-nested.d +++ b/test/unittest/funcs/strjoin/tst.strjoin-nested.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(strjoin( strjoin( @@ -28,7 +28,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strjoin/tst.strjoin.d b/test/unittest/funcs/strjoin/tst.strjoin.d index f52443bd..70b10339 100644 --- a/test/unittest/funcs/strjoin/tst.strjoin.d +++ b/test/unittest/funcs/strjoin/tst.strjoin.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%s\n", strjoin("foo", "baz")); printf("%s\n", strjoin("foo", "")); diff --git a/test/unittest/funcs/strjoin/tst.strjoin_nonDPTR.d b/test/unittest/funcs/strjoin/tst.strjoin_nonDPTR.d index 2b700a5a..ae9095e2 100644 --- a/test/unittest/funcs/strjoin/tst.strjoin_nonDPTR.d +++ b/test/unittest/funcs/strjoin/tst.strjoin_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,13 +8,13 @@ #pragma D option quiet #pragma D option strsize=15 -BEGIN +dtrace:::BEGIN { printf("|%s|\n", strjoin((char *)&`linux_banner, (char *)&`linux_banner)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strlen/err.D_PROTO_ARG.non_string.d b/test/unittest/funcs/strlen/err.D_PROTO_ARG.non_string.d index a9f2a38c..70f3b54a 100644 --- a/test/unittest/funcs/strlen/err.D_PROTO_ARG.non_string.d +++ b/test/unittest/funcs/strlen/err.D_PROTO_ARG.non_string.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/strlen() */ -BEGIN +dtrace:::BEGIN { strlen(12); exit(0); diff --git a/test/unittest/funcs/strlen/err.D_PROTO_LEN.missing_arg.d b/test/unittest/funcs/strlen/err.D_PROTO_LEN.missing_arg.d index 9467240d..3d16e6ab 100644 --- a/test/unittest/funcs/strlen/err.D_PROTO_LEN.missing_arg.d +++ b/test/unittest/funcs/strlen/err.D_PROTO_LEN.missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/strlen() */ -BEGIN +dtrace:::BEGIN { strlen(); exit(0); diff --git a/test/unittest/funcs/strlen/err.D_PROTO_LEN.too_many_args.d b/test/unittest/funcs/strlen/err.D_PROTO_LEN.too_many_args.d index c0e8fd13..a95d7d92 100644 --- a/test/unittest/funcs/strlen/err.D_PROTO_LEN.too_many_args.d +++ b/test/unittest/funcs/strlen/err.D_PROTO_LEN.too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/strlen() */ -BEGIN +dtrace:::BEGIN { strlen("", 1); exit(0); diff --git a/test/unittest/funcs/strlen/tst.basic.d b/test/unittest/funcs/strlen/tst.basic.d index 88c2f048..e5e06436 100644 --- a/test/unittest/funcs/strlen/tst.basic.d +++ b/test/unittest/funcs/strlen/tst.basic.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #define TEST(s) printf("%60s %d\n", (s), strlen(s)) -BEGIN +dtrace:::BEGIN { TEST("1"); TEST("12"); diff --git a/test/unittest/funcs/strlen/tst.capped-size.d b/test/unittest/funcs/strlen/tst.capped-size.d index 676ed185..09ecfd62 100644 --- a/test/unittest/funcs/strlen/tst.capped-size.d +++ b/test/unittest/funcs/strlen/tst.capped-size.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ #pragma D option strsize=6 #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(strlen("123456789") == 5 ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strlen/tst.empty.d b/test/unittest/funcs/strlen/tst.empty.d index ede41c36..10469b9c 100644 --- a/test/unittest/funcs/strlen/tst.empty.d +++ b/test/unittest/funcs/strlen/tst.empty.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { exit(strlen("")); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strlen/tst.null.d b/test/unittest/funcs/strlen/tst.null.d index d2bff0f6..3a8e7291 100644 --- a/test/unittest/funcs/strlen/tst.null.d +++ b/test/unittest/funcs/strlen/tst.null.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,13 +13,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { strlen(0); exit(1); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/funcs/strlen/tst.rodata.d b/test/unittest/funcs/strlen/tst.rodata.d index 765a7717..b554cb0b 100644 --- a/test/unittest/funcs/strlen/tst.rodata.d +++ b/test/unittest/funcs/strlen/tst.rodata.d @@ -16,7 +16,7 @@ #pragma D option quiet #pragma D option strsize=128 -BEGIN +dtrace:::BEGIN { this->addr = (struct in6_addr *)alloca(sizeof(struct in6_addr)); this->addr->in6_u.u6_addr32[0] = 0; @@ -35,7 +35,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strlen/tst.zeros.d b/test/unittest/funcs/strlen/tst.zeros.d index c8928a1d..028c85f8 100644 --- a/test/unittest/funcs/strlen/tst.zeros.d +++ b/test/unittest/funcs/strlen/tst.zeros.d @@ -16,7 +16,7 @@ #pragma D option quiet #pragma D option strsize=128 -BEGIN +dtrace:::BEGIN { /* * With no IPv6 lookup table, rodata contains only its reserved byte. @@ -32,7 +32,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strtok/err.D_PROTO_ARG.strtokbaddel.d b/test/unittest/funcs/strtok/err.D_PROTO_ARG.strtokbaddel.d index da693577..bbb5106e 100644 --- a/test/unittest/funcs/strtok/err.D_PROTO_ARG.strtokbaddel.d +++ b/test/unittest/funcs/strtok/err.D_PROTO_ARG.strtokbaddel.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { strtok("abc", 1234); exit(0); diff --git a/test/unittest/funcs/strtok/err.D_PROTO_ARG.strtokbadstr.d b/test/unittest/funcs/strtok/err.D_PROTO_ARG.strtokbadstr.d index 30b3919b..12cf5f20 100644 --- a/test/unittest/funcs/strtok/err.D_PROTO_ARG.strtokbadstr.d +++ b/test/unittest/funcs/strtok/err.D_PROTO_ARG.strtokbadstr.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { strtok(1234, "abc"); exit(0); diff --git a/test/unittest/funcs/strtok/err.D_PROTO_LEN.strtoktoofew.d b/test/unittest/funcs/strtok/err.D_PROTO_LEN.strtoktoofew.d index 146b4e6f..57fdf378 100644 --- a/test/unittest/funcs/strtok/err.D_PROTO_LEN.strtoktoofew.d +++ b/test/unittest/funcs/strtok/err.D_PROTO_LEN.strtoktoofew.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { strtok("abc"); exit(0); diff --git a/test/unittest/funcs/strtok/err.D_PROTO_LEN.strtoktoomany.d b/test/unittest/funcs/strtok/err.D_PROTO_LEN.strtoktoomany.d index 242ea73d..2e9ab4dd 100644 --- a/test/unittest/funcs/strtok/err.D_PROTO_LEN.strtoktoomany.d +++ b/test/unittest/funcs/strtok/err.D_PROTO_LEN.strtoktoomany.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { strtok("abc", "def", "ghi"); exit(0); diff --git a/test/unittest/funcs/strtok/tst.strtok.d b/test/unittest/funcs/strtok/tst.strtok.d index b39e44bc..469231d9 100644 --- a/test/unittest/funcs/strtok/tst.strtok.d +++ b/test/unittest/funcs/strtok/tst.strtok.d @@ -8,56 +8,56 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->str = ",,,Carrots,,Barley,Oatmeal,,,Beans,"; } -BEGIN +dtrace:::BEGIN /(this->field = strtok(this->str, ",")) == NULL/ { exit(1); } -BEGIN +dtrace:::BEGIN { printf("%s\n", this->field); } -BEGIN +dtrace:::BEGIN /(this->field = strtok(NULL, ",")) == NULL/ { exit(2); } -BEGIN +dtrace:::BEGIN { printf("%s\n", this->field); } -BEGIN +dtrace:::BEGIN /(this->field = strtok(NULL, ",")) == NULL/ { exit(3); } -BEGIN +dtrace:::BEGIN { printf("%s\n", this->field); } -BEGIN +dtrace:::BEGIN /(this->field = strtok(NULL, ",")) == NULL/ { exit(4); } -BEGIN +dtrace:::BEGIN { printf("%s\n", this->field); } -BEGIN +dtrace:::BEGIN /(self->a = strtok(NULL, ",")) != NULL/ { printf("unexpected field: %s\n", this->field); @@ -72,7 +72,7 @@ struct { int i; -BEGIN +dtrace:::BEGIN { command[i].s1 = ""; command[i].s2 = ""; @@ -108,7 +108,7 @@ BEGIN i = 0; } -tick-1ms +profile:::tick-1ms /i < end && (this->result = strtok(command[i].s1, command[i].s2)) != command[i].result/ { @@ -119,13 +119,13 @@ tick-1ms exit(6 + i); } -tick-1ms +profile:::tick-1ms /++i == end/ { exit(0); } -ERROR +dtrace:::ERROR { printf("ERROR\n"); exit(1); diff --git a/test/unittest/funcs/strtok/tst.strtok2.d b/test/unittest/funcs/strtok/tst.strtok2.d index 14f34043..dd430434 100644 --- a/test/unittest/funcs/strtok/tst.strtok2.d +++ b/test/unittest/funcs/strtok/tst.strtok2.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; y = "abcABC"; @@ -33,7 +33,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strtok/tst.strtok_long.d b/test/unittest/funcs/strtok/tst.strtok_long.d index 254a6548..eba5242b 100644 --- a/test/unittest/funcs/strtok/tst.strtok_long.d +++ b/test/unittest/funcs/strtok/tst.strtok_long.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* 256-char string ending in "XYZ" (255 chars + NUL byte)*/ x = "____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________XYZ"; @@ -29,7 +29,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strtok/tst.strtok_nonDPTR.d b/test/unittest/funcs/strtok/tst.strtok_nonDPTR.d index 191b71a4..b1a831be 100644 --- a/test/unittest/funcs/strtok/tst.strtok_nonDPTR.d +++ b/test/unittest/funcs/strtok/tst.strtok_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option strsize=14 -BEGIN +dtrace:::BEGIN { printf("|%s|\n", strtok((char *)&`linux_banner, " ")); printf("|%s|\n", strtok(NULL, " ")); @@ -17,7 +17,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/strtok/tst.strtok_null.d b/test/unittest/funcs/strtok/tst.strtok_null.d index 1d536d60..50675cf7 100644 --- a/test/unittest/funcs/strtok/tst.strtok_null.d +++ b/test/unittest/funcs/strtok/tst.strtok_null.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,13 +10,13 @@ * produces an error */ -BEGIN +dtrace:::BEGIN { trace(strtok(NULL, "!")); exit(1); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/funcs/strtok/tst.strtok_nulldel.d b/test/unittest/funcs/strtok/tst.strtok_nulldel.d index 4f6d27f5..afc22f3d 100644 --- a/test/unittest/funcs/strtok/tst.strtok_nulldel.d +++ b/test/unittest/funcs/strtok/tst.strtok_nulldel.d @@ -1,17 +1,17 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { strtok("abc", NULL); exit(1); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/funcs/strtok/tst.strtok_nullstr.d b/test/unittest/funcs/strtok/tst.strtok_nullstr.d index 74562714..efd33976 100644 --- a/test/unittest/funcs/strtok/tst.strtok_nullstr.d +++ b/test/unittest/funcs/strtok/tst.strtok_nullstr.d @@ -1,17 +1,17 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { strtok(strstr("abc", "def"), ""); exit(1); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/funcs/strtok/tst.strtok_nullstr2.d b/test/unittest/funcs/strtok/tst.strtok_nullstr2.d index 2ac38c31..e843a996 100644 --- a/test/unittest/funcs/strtok/tst.strtok_nullstr2.d +++ b/test/unittest/funcs/strtok/tst.strtok_nullstr2.d @@ -1,26 +1,26 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { trace(strtok("abc", "def")); } -BEGIN +dtrace:::BEGIN { trace(strtok(NULL, "def")); } -BEGIN +dtrace:::BEGIN { exit(1); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/funcs/strtok/tst.strtok_regs.d b/test/unittest/funcs/strtok/tst.strtok_regs.d index 58ad4b62..dd1e870a 100644 --- a/test/unittest/funcs/strtok/tst.strtok_regs.d +++ b/test/unittest/funcs/strtok/tst.strtok_regs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { A = "000"; B = "111"; C = "222"; diff --git a/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_scalar_arg2.d b/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_scalar_arg2.d index bb2dc33a..83a2f5c7 100644 --- a/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_scalar_arg2.d +++ b/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_scalar_arg2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/substr() */ -BEGIN +dtrace:::BEGIN { trace(substr(probename, "a")); exit(0); diff --git a/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_scalar_arg3.d b/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_scalar_arg3.d index 147ec362..39c6b484 100644 --- a/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_scalar_arg3.d +++ b/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_scalar_arg3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/substr() */ -BEGIN +dtrace:::BEGIN { trace(substr(probename, 1, "a")); exit(0); diff --git a/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_string_arg1.d b/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_string_arg1.d index bd9d1319..b05b6d1b 100644 --- a/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_string_arg1.d +++ b/test/unittest/funcs/substr/err.D_PROTO_ARG.substr_non_string_arg1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/substr() */ -BEGIN +dtrace:::BEGIN { trace(substr(10, 1)); exit(0); diff --git a/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_missing_arg.d b/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_missing_arg.d index c254e38a..bc4315d9 100644 --- a/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_missing_arg.d +++ b/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/substr() */ -BEGIN +dtrace:::BEGIN { trace(substr()); exit(0); diff --git a/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_too_few_args.d b/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_too_few_args.d index 2d6eccac..7246e5f0 100644 --- a/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_too_few_args.d +++ b/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_too_few_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/substr() */ -BEGIN +dtrace:::BEGIN { trace(substr(probename)); exit(0); diff --git a/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_too_many_args.d b/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_too_many_args.d index d69e93e6..d4e6d618 100644 --- a/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_too_many_args.d +++ b/test/unittest/funcs/substr/err.D_PROTO_LEN.substr_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Actions and Subroutines/substr() */ -BEGIN +dtrace:::BEGIN { trace(substr(probename, 1, 2, 3)); exit(0); diff --git a/test/unittest/funcs/substr/err.substr_null_arg1.d b/test/unittest/funcs/substr/err.substr_null_arg1.d index 50f9091e..3b0b59f9 100644 --- a/test/unittest/funcs/substr/err.substr_null_arg1.d +++ b/test/unittest/funcs/substr/err.substr_null_arg1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,13 +13,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(substr(0, 1)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/substr/substr2arg.d b/test/unittest/funcs/substr/substr2arg.d index 33670550..f3ebc88e 100644 --- a/test/unittest/funcs/substr/substr2arg.d +++ b/test/unittest/funcs/substr/substr2arg.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { trace(substr(probename, 2)); exit(0); diff --git a/test/unittest/funcs/substr/substr3arg.d b/test/unittest/funcs/substr/substr3arg.d index 8958acac..ab692d0c 100644 --- a/test/unittest/funcs/substr/substr3arg.d +++ b/test/unittest/funcs/substr/substr3arg.d @@ -1,4 +1,4 @@ -BEGIN +dtrace:::BEGIN { trace(substr(probename, 0, 2)); exit(0); diff --git a/test/unittest/funcs/substr/tst.substr-large-idx.d b/test/unittest/funcs/substr/tst.substr-large-idx.d index 654a05e9..edaf405d 100644 --- a/test/unittest/funcs/substr/tst.substr-large-idx.d +++ b/test/unittest/funcs/substr/tst.substr-large-idx.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet #pragma D option strsize=256 -BEGIN +dtrace:::BEGIN { trace(substr("abcdefgh", 12345678)); exit(0); diff --git a/test/unittest/funcs/substr/tst.substr-multi-const-cnt-neg.d b/test/unittest/funcs/substr/tst.substr-multi-const-cnt-neg.d index c6e1230f..eda1a5ec 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-const-cnt-neg.d +++ b/test/unittest/funcs/substr/tst.substr-multi-const-cnt-neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n% 3d % 3d %s", 2, -10, substr("abcdefghijklmnop", 2, -10)); printf("\n% 3d % 3d %s", 2, -9, substr("abcdefghijklmnop", 2, -9)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-const-cnt-pos.d b/test/unittest/funcs/substr/tst.substr-multi-const-cnt-pos.d index 607df972..159aabe5 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-const-cnt-pos.d +++ b/test/unittest/funcs/substr/tst.substr-multi-const-cnt-pos.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n% 3d % 3d %s", 2, 0, substr("abcdefghijklmnop", 2, 0)); printf("\n% 3d % 3d %s", 2, 1, substr("abcdefghijklmnop", 2, 1)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-no-cnt.d b/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-no-cnt.d index 39ebf280..af65f5be 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-no-cnt.d +++ b/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-no-cnt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n% 3d %s", -10, substr("abcdefghijklmnop", -10)); printf("\n% 3d %s", -9, substr("abcdefghijklmnop", -9)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-too-far-no-cnt.d b/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-too-far-no-cnt.d index 95af3f37..4f11af4c 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-too-far-no-cnt.d +++ b/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-too-far-no-cnt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n% 3d %s", -10, substr("abcde", -10)); printf("\n% 3d %s", -9, substr("abcde", -9)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-too-far.d b/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-too-far.d index 05ea8f01..52c4fada 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-too-far.d +++ b/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg-too-far.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n% 3d % 3d %s", -10, 3, substr("abcde", -10, 3)); printf("\n% 3d % 3d %s", -9, 3, substr("abcde", -9, 3)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg.d b/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg.d index d69af788..3f777b99 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg.d +++ b/test/unittest/funcs/substr/tst.substr-multi-const-idx-neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n% 3d % 3d %s", -10, 3, substr("abcdefghijklmnop", -10, 3)); printf("\n% 3d % 3d %s", -9, 3, substr("abcdefghijklmnop", -9, 3)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-const-idx-pos-no-cnt.d b/test/unittest/funcs/substr/tst.substr-multi-const-idx-pos-no-cnt.d index 1ef6aaf3..aa329814 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-const-idx-pos-no-cnt.d +++ b/test/unittest/funcs/substr/tst.substr-multi-const-idx-pos-no-cnt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n% 3d %s", 0, substr("abcdefghijklmnop", 0)); printf("\n% 3d %s", 1, substr("abcdefghijklmnop", 1)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-const-idx-pos.d b/test/unittest/funcs/substr/tst.substr-multi-const-idx-pos.d index 558b747f..59a8abce 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-const-idx-pos.d +++ b/test/unittest/funcs/substr/tst.substr-multi-const-idx-pos.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n% 3d % 3d %s", 0, 3, substr("abcdefghijklmnop", 0, 3)); printf("\n% 3d % 3d %s", 1, 3, substr("abcdefghijklmnop", 1, 3)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-var-cnt-neg.d b/test/unittest/funcs/substr/tst.substr-multi-var-cnt-neg.d index 84b6efcb..a52bac26 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-var-cnt-neg.d +++ b/test/unittest/funcs/substr/tst.substr-multi-var-cnt-neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { cnt = -10; printf("\n% 3d % 3d %s", 2, cnt, substr("abcdefghijklmnop", 2, cnt)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-var-cnt-pos.d b/test/unittest/funcs/substr/tst.substr-multi-var-cnt-pos.d index 7bd234ad..a2266d2c 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-var-cnt-pos.d +++ b/test/unittest/funcs/substr/tst.substr-multi-var-cnt-pos.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { cnt = 0; printf("\n% 3d % 3d %s", 2, cnt, substr("abcdefghijklmnop", 2, cnt)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-no-cnt.d b/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-no-cnt.d index 4b496e92..8fdd48f4 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-no-cnt.d +++ b/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-no-cnt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { idx = -10; printf("\n% 3d %s", idx, substr("abcdefghijklmnop", idx)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-too-far-no-cnt.d b/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-too-far-no-cnt.d index aa9bc5c7..0657f378 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-too-far-no-cnt.d +++ b/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-too-far-no-cnt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { idx = -10; printf("\n% 3d %s", idx, substr("abcde", idx)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-too-far.d b/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-too-far.d index 8f2a10f1..2f797a49 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-too-far.d +++ b/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg-too-far.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { idx = -10; printf("\n% 3d % 3d %s", idx, 3, substr("abcde", idx, 3)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg.d b/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg.d index 232e2f5f..5bc9de3d 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg.d +++ b/test/unittest/funcs/substr/tst.substr-multi-var-idx-neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { idx = -10; printf("\n% 3d % 3d %s", idx, 3, substr("abcdefghijklmnop", idx, 3)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-var-idx-pos-no-cnt.d b/test/unittest/funcs/substr/tst.substr-multi-var-idx-pos-no-cnt.d index 0de17717..e05b064f 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-var-idx-pos-no-cnt.d +++ b/test/unittest/funcs/substr/tst.substr-multi-var-idx-pos-no-cnt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { idx = 0; printf("\n% 3d %s", idx, substr("abcdefghijklmnop", idx)); diff --git a/test/unittest/funcs/substr/tst.substr-multi-var-idx-pos.d b/test/unittest/funcs/substr/tst.substr-multi-var-idx-pos.d index eb38999e..063df81a 100644 --- a/test/unittest/funcs/substr/tst.substr-multi-var-idx-pos.d +++ b/test/unittest/funcs/substr/tst.substr-multi-var-idx-pos.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { idx = 0; printf("\n% 3d % 3d %s", idx, 3, substr("abcdefghijklmnop", idx, 3)); diff --git a/test/unittest/funcs/substr/tst.substr-stored-len.d b/test/unittest/funcs/substr/tst.substr-stored-len.d index fa3e5337..fa912024 100644 --- a/test/unittest/funcs/substr/tst.substr-stored-len.d +++ b/test/unittest/funcs/substr/tst.substr-stored-len.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option rawbytes #pragma D option strsize=14 -BEGIN +dtrace:::BEGIN { trace(strjoin((x = substr("abcdef", 2)), (y = substr("ABCDEF", 3)))); trace(x); @@ -23,7 +23,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/substr/tst.substr-strjoin.d b/test/unittest/funcs/substr/tst.substr-strjoin.d index f844d261..9c288b06 100644 --- a/test/unittest/funcs/substr/tst.substr-strjoin.d +++ b/test/unittest/funcs/substr/tst.substr-strjoin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace( substr( @@ -27,7 +27,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/substr/tst.substr-strsize.d b/test/unittest/funcs/substr/tst.substr-strsize.d index 04eab429..2dcde1f1 100644 --- a/test/unittest/funcs/substr/tst.substr-strsize.d +++ b/test/unittest/funcs/substr/tst.substr-strsize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option rawbytes #pragma D option strsize=14 -BEGIN +dtrace:::BEGIN { x = "1234567890123"; trace(x); @@ -28,7 +28,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/substr/tst.substr.d b/test/unittest/funcs/substr/tst.substr.d index 580dfa0f..5d0ed6e9 100644 --- a/test/unittest/funcs/substr/tst.substr.d +++ b/test/unittest/funcs/substr/tst.substr.d @@ -18,7 +18,7 @@ struct { int i; -BEGIN +dtrace:::BEGIN { str = "foobarbazbop"; str2 = ""; @@ -157,7 +157,7 @@ BEGIN } -tick-1ms +profile:::tick-1ms /i < end && command[i].nolen/ { this->str = command[i].alt ? altstr : str; @@ -180,7 +180,7 @@ tick-1ms printf("\t}\n\n"); } -tick-1ms +profile:::tick-1ms /i < end && !command[i].nolen/ { this->str = command[i].alt ? altstr : str; @@ -203,14 +203,14 @@ tick-1ms printf("\t}\n\n"); } -tick-1ms +profile:::tick-1ms /++i == end/ { printf("\texit($failed);\n}\n"); exit(0); } -ERROR +dtrace:::ERROR { printf("ERROR\n"); exit(1); diff --git a/test/unittest/funcs/substr/tst.substr_nonDPTR.d b/test/unittest/funcs/substr/tst.substr_nonDPTR.d index 3e10af08..a8c3d312 100644 --- a/test/unittest/funcs/substr/tst.substr_nonDPTR.d +++ b/test/unittest/funcs/substr/tst.substr_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,14 +8,14 @@ #pragma D option quiet #pragma D option strsize=14 -BEGIN +dtrace:::BEGIN { printf("|%s|\n", substr((char *)&`linux_banner, 1)); printf("|%s|\n", substr((char *)&`linux_banner, 1, 4)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/substr/tst.substrminate.d b/test/unittest/funcs/substr/tst.substrminate.d index 56532bc7..5fefdefc 100644 --- a/test/unittest/funcs/substr/tst.substrminate.d +++ b/test/unittest/funcs/substr/tst.substrminate.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ syscall::ioctl:entry (i & 1) ? 8 : 18)] = count(); } -END +dtrace:::END { printa("%s\n", @); } diff --git a/test/unittest/funcs/tst.basename.d b/test/unittest/funcs/tst.basename.d index 2b3d098a..0442cd4a 100644 --- a/test/unittest/funcs/tst.basename.d +++ b/test/unittest/funcs/tst.basename.d @@ -13,7 +13,7 @@ * properly. Note that the output of this is a bash script. When run, * it will give no output if the output is correct. */ -BEGIN +dtrace:::BEGIN { dir[i++] = "/foo/bar/baz"; dir[i++] = "/foo/bar///baz/"; diff --git a/test/unittest/funcs/tst.basename0.d b/test/unittest/funcs/tst.basename0.d index 0f758996..436bb010 100644 --- a/test/unittest/funcs/tst.basename0.d +++ b/test/unittest/funcs/tst.basename0.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("|%s|\n", basename("/foo/bar/baz")); printf("|%s|\n", basename("/foo/bar///baz/")); @@ -32,7 +32,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.basename_nonDPTR.d b/test/unittest/funcs/tst.basename_nonDPTR.d index cecef827..cdc15f8e 100644 --- a/test/unittest/funcs/tst.basename_nonDPTR.d +++ b/test/unittest/funcs/tst.basename_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,13 +8,13 @@ #pragma D option quiet #pragma D option strsize=15 -BEGIN +dtrace:::BEGIN { printf("|%s|\n", basename((char *)&`linux_banner)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.chill.sh b/test/unittest/funcs/tst.chill.sh index dbd55500..605a8df2 100755 --- a/test/unittest/funcs/tst.chill.sh +++ b/test/unittest/funcs/tst.chill.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -22,7 +22,7 @@ dtrace_script() * we just run this and make sure it runs. */ - BEGIN + dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/funcs/tst.cleanpath.d b/test/unittest/funcs/tst.cleanpath.d index b3dd8db9..53f854a6 100644 --- a/test/unittest/funcs/tst.cleanpath.d +++ b/test/unittest/funcs/tst.cleanpath.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { path[i++] = "/foo/bar/baz"; path[i++] = "/foo/bar///baz/"; @@ -60,14 +60,14 @@ BEGIN i = 0; } -tick-1ms +profile:::tick-1ms /i < end/ { printf("cleanpath(\"%s\") = \"%s\"\n", path[i], cleanpath(path[i])); i++; } -tick-1ms +profile:::tick-1ms /i == end/ { exit(0); diff --git a/test/unittest/funcs/tst.ddi_pathname.d b/test/unittest/funcs/tst.ddi_pathname.d index c9aefd26..c43e4ff8 100644 --- a/test/unittest/funcs/tst.ddi_pathname.d +++ b/test/unittest/funcs/tst.ddi_pathname.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->dev = (struct dev_info *)alloca(sizeof(struct dev_info)); this->minor1 = @@ -32,13 +32,13 @@ BEGIN trace(ddi_pathname(this->dev, 1)); } -ERROR +dtrace:::ERROR /arg4 == DTRACEFLT_ILLOP/ { exit(0); } -ERROR +dtrace:::ERROR /arg4 != DTRACEFLT_ILLOP/ { exit(1); diff --git a/test/unittest/funcs/tst.default.d b/test/unittest/funcs/tst.default.d index d6d9b64b..e023f192 100644 --- a/test/unittest/funcs/tst.default.d +++ b/test/unittest/funcs/tst.default.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 1; @@ -28,14 +28,14 @@ syscall:::entry } -tick-1 +profile:::tick-1 /i != 0/ { exit(0); } -END +dtrace:::END { } diff --git a/test/unittest/funcs/tst.dirname0.d b/test/unittest/funcs/tst.dirname0.d index a3708d56..ec10dd65 100644 --- a/test/unittest/funcs/tst.dirname0.d +++ b/test/unittest/funcs/tst.dirname0.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("|%s|\n", dirname("/foo/bar/baz")); printf("|%s|\n", dirname("/foo/bar///baz/")); @@ -32,7 +32,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.dirname_nonDPTR.d b/test/unittest/funcs/tst.dirname_nonDPTR.d index 8a60cc98..f5cd32ba 100644 --- a/test/unittest/funcs/tst.dirname_nonDPTR.d +++ b/test/unittest/funcs/tst.dirname_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,13 +8,13 @@ #pragma D option quiet #pragma D option strsize=14 -BEGIN +dtrace:::BEGIN { printf("|%s|\n", dirname((char *)&`linux_banner)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.ftruncate.sh b/test/unittest/funcs/tst.ftruncate.sh index 59ca9beb..642c0b03 100755 --- a/test/unittest/funcs/tst.ftruncate.sh +++ b/test/unittest/funcs/tst.ftruncate.sh @@ -1,25 +1,25 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # script() { $dtrace $dt_flags -q -o $tmpfile -s /dev/stdin < -BEGIN +dtrace:::BEGIN { before[0] = 0x1122LL; before[1] = 0x11223344LL; @@ -30,49 +30,49 @@ BEGIN #endif } -BEGIN +dtrace:::BEGIN /after[0] != htons(before[0])/ { printf("%x rather than %x", htons(before[0]), after[0]); exit(1); } -BEGIN +dtrace:::BEGIN /after[0] != ntohs(before[0])/ { printf("%x rather than %x", ntohs(before[0]), after[0]); exit(1); } -BEGIN +dtrace:::BEGIN /after[1] != htonl(before[1])/ { printf("%x rather than %x", htonl(before[1]), after[1]); exit(1); } -BEGIN +dtrace:::BEGIN /after[1] != ntohl(before[1])/ { printf("%x rather than %x", ntohl(before[1]), after[1]); exit(1); } -BEGIN +dtrace:::BEGIN /after[2] != htonll(before[2])/ { printf("%x rather than %x", htonll(before[2]), after[2]); exit(1); } -BEGIN +dtrace:::BEGIN /after[2] != ntohll(before[2])/ { printf("%x rather than %x", ntohll(before[2]), after[2]); exit(1); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/funcs/tst.hton2.d b/test/unittest/funcs/tst.hton2.d index a1a506ac..88517f26 100644 --- a/test/unittest/funcs/tst.hton2.d +++ b/test/unittest/funcs/tst.hton2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%x\n", htons (0x123456789abcdef0ll)); printf("%x\n", htonl (0x123456789abcdef0ll)); @@ -22,7 +22,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.index.d b/test/unittest/funcs/tst.index.d index 564fc5b5..7bf6e708 100644 --- a/test/unittest/funcs/tst.index.d +++ b/test/unittest/funcs/tst.index.d @@ -17,7 +17,7 @@ struct { int i; -BEGIN +dtrace:::BEGIN { command[i].str = "foobarbaz"; command[i].substr = "barbaz"; @@ -63,7 +63,7 @@ BEGIN printf("BEGIN {\n"); } -tick-1ms +profile:::tick-1ms /j < i && end == 0/ { command[i + k].str = command[j].str; @@ -117,14 +117,14 @@ tick-1ms j++; } -tick-1ms +profile:::tick-1ms /j == i && end == 0/ { end = k; i = 0; } -tick-1ms +profile:::tick-1ms /end != 0 && i < end && !command[i].haspos/ { this->result = index(command[i].str, command[i].substr); @@ -142,7 +142,7 @@ tick-1ms printf("\t}\n\n"); } -tick-1ms +profile:::tick-1ms /end != 0 && i < end && !command[i].haspos/ { this->result = rindex(command[i].str, command[i].substr); @@ -160,7 +160,7 @@ tick-1ms printf("\t}\n\n"); } -tick-1ms +profile:::tick-1ms /end != 0 && i < end && command[i].haspos/ { this->result = index(command[i].str, @@ -179,7 +179,7 @@ tick-1ms printf("\t}\n\n"); } -tick-1ms +profile:::tick-1ms /end != 0 && i < end && command[i].haspos/ { this->result = rindex(command[i].str, @@ -198,7 +198,7 @@ tick-1ms printf("\t}\n\n"); } -tick-1ms +profile:::tick-1ms /end != 0 && ++i == end/ { printf("\texit($failed);\n}\n"); diff --git a/test/unittest/funcs/tst.index2.d b/test/unittest/funcs/tst.index2.d index cf3cb92a..969aa365 100644 --- a/test/unittest/funcs/tst.index2.d +++ b/test/unittest/funcs/tst.index2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ /* cut string size back a little to ease pressure on BPF verifier */ #pragma D option strsize=184 -BEGIN { +dtrace:::BEGIN { x = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@#abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@#"; y = "abcdefghijklmnopqrstuvwxyz"; printf(" 0 %3d\n", index(x, y)); diff --git a/test/unittest/funcs/tst.index_nonDPTR.d b/test/unittest/funcs/tst.index_nonDPTR.d index cf7e762c..b2d9070b 100644 --- a/test/unittest/funcs/tst.index_nonDPTR.d +++ b/test/unittest/funcs/tst.index_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,13 +8,13 @@ #pragma D option quiet #pragma D option strsize=14 -BEGIN +dtrace:::BEGIN { printf("index is %d, should be 0\n", index((char *)&`linux_banner, (char *)&`linux_banner)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.inet_ntoa.d b/test/unittest/funcs/tst.inet_ntoa.d index 3b7b7556..43eb1a46 100644 --- a/test/unittest/funcs/tst.inet_ntoa.d +++ b/test/unittest/funcs/tst.inet_ntoa.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ ipaddr_t *ip4b; ipaddr_t *ip4c; ipaddr_t *ip4d; -BEGIN +dtrace:::BEGIN { this->buf4a = alloca(sizeof(ipaddr_t)); this->buf4b = alloca(sizeof(ipaddr_t)); diff --git a/test/unittest/funcs/tst.inet_ntoa_alloca.d b/test/unittest/funcs/tst.inet_ntoa_alloca.d index 4c44fb39..d87a183c 100644 --- a/test/unittest/funcs/tst.inet_ntoa_alloca.d +++ b/test/unittest/funcs/tst.inet_ntoa_alloca.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("printf '\xc0\xa8\x01\x17' > /dev/null 2>&1"); } @@ -22,4 +22,4 @@ syscall::write:entry exit(0); } -ERROR { exit(1); } +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.inet_ntoa_copyin.d b/test/unittest/funcs/tst.inet_ntoa_copyin.d index a4b56685..01947533 100644 --- a/test/unittest/funcs/tst.inet_ntoa_copyin.d +++ b/test/unittest/funcs/tst.inet_ntoa_copyin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("printf '\xc0\xa8\x01\x17' > /dev/null 2>&1"); } @@ -20,4 +20,4 @@ syscall::write:entry exit(0); } -ERROR { exit(1); } +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.inet_ntoa_nonDPTR.d b/test/unittest/funcs/tst.inet_ntoa_nonDPTR.d index f079c7ef..0ce43847 100644 --- a/test/unittest/funcs/tst.inet_ntoa_nonDPTR.d +++ b/test/unittest/funcs/tst.inet_ntoa_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,14 +8,14 @@ #pragma D option quiet #pragma D option strsize=15 -BEGIN +dtrace:::BEGIN { /* "Linu" will be 76.105.110.117 */ printf("%s\n", inet_ntoa((ipaddr_t *)&`linux_banner)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.inet_ntop.d b/test/unittest/funcs/tst.inet_ntop.d index e2f00356..747fc875 100644 --- a/test/unittest/funcs/tst.inet_ntop.d +++ b/test/unittest/funcs/tst.inet_ntop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ struct in6_addr *ip6f; struct in6_addr *ip6g; struct in6_addr *ip6h; -BEGIN +dtrace:::BEGIN { this->buf4a = alloca(sizeof(struct in_addr)); this->buf4b = alloca(sizeof(struct in_addr)); diff --git a/test/unittest/funcs/tst.inet_ntop_runtime_af.d b/test/unittest/funcs/tst.inet_ntop_runtime_af.d index 7843a4ea..1bdcf825 100644 --- a/test/unittest/funcs/tst.inet_ntop_runtime_af.d +++ b/test/unittest/funcs/tst.inet_ntop_runtime_af.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ struct in6_addr *ip6e; struct in6_addr *ip6f; struct in6_addr *ip6g; -BEGIN +dtrace:::BEGIN { this->buf4a = alloca(sizeof(ipaddr_t)); this->buf4b = alloca(sizeof(ipaddr_t)); diff --git a/test/unittest/funcs/tst.link_ntop.d b/test/unittest/funcs/tst.link_ntop.d index 7a9ceea2..ce265fb5 100644 --- a/test/unittest/funcs/tst.link_ntop.d +++ b/test/unittest/funcs/tst.link_ntop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ uint8_t ibaddr[20]; -BEGIN +dtrace:::BEGIN { this->buf_eth = (uint64_t *)alloca(sizeof(uint64_t)); diff --git a/test/unittest/funcs/tst.link_ntop_runtime_type.d b/test/unittest/funcs/tst.link_ntop_runtime_type.d index d28056de..af81a0de 100644 --- a/test/unittest/funcs/tst.link_ntop_runtime_type.d +++ b/test/unittest/funcs/tst.link_ntop_runtime_type.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ uint8_t ibaddr[20]; -BEGIN +dtrace:::BEGIN { mytype = ARPHRD_ETHER; diff --git a/test/unittest/funcs/tst.lltostr-short.d b/test/unittest/funcs/tst.lltostr-short.d index 65a5714c..a52c589a 100644 --- a/test/unittest/funcs/tst.lltostr-short.d +++ b/test/unittest/funcs/tst.lltostr-short.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option strsize=8 -BEGIN +dtrace:::BEGIN { printf("%s\n", lltostr(0)); printf("%s\n", lltostr(1)); diff --git a/test/unittest/funcs/tst.lltostr.d b/test/unittest/funcs/tst.lltostr.d index 0563778b..ac9b27c8 100644 --- a/test/unittest/funcs/tst.lltostr.d +++ b/test/unittest/funcs/tst.lltostr.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%s\n", lltostr(0)); printf("%s\n", lltostr(1)); diff --git a/test/unittest/funcs/tst.progenyof.d b/test/unittest/funcs/tst.progenyof.d index 9d73420f..131c33df 100644 --- a/test/unittest/funcs/tst.progenyof.d +++ b/test/unittest/funcs/tst.progenyof.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* exit status reports if any errors */ exit( diff --git a/test/unittest/funcs/tst.rand.d b/test/unittest/funcs/tst.rand.d index 88bd8510..43caadb2 100644 --- a/test/unittest/funcs/tst.rand.d +++ b/test/unittest/funcs/tst.rand.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,19 +11,19 @@ * SECTION: Actions and Subroutines/rand() */ -BEGIN +dtrace:::BEGIN { i = 0; } -tick-1 +profile:::tick-1 /i != 10/ { i++; trace(rand()); } -tick-1 +profile:::tick-1 /i == 10/ { exit(0); diff --git a/test/unittest/funcs/tst.rand_inter.sh b/test/unittest/funcs/tst.rand_inter.sh index e1d60964..9fd3d40a 100755 --- a/test/unittest/funcs/tst.rand_inter.sh +++ b/test/unittest/funcs/tst.rand_inter.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -15,7 +15,7 @@ niter=25000 # 2 bits from two consecutive words at arbitrary locations. $dtrace $dt_flags -q -o $tmpfile -c test/triggers/bogus-ioctl -n ' -BEGIN +dtrace:::BEGIN { n = 0; x = rand(); diff --git a/test/unittest/funcs/tst.rand_intra.sh b/test/unittest/funcs/tst.rand_intra.sh index 8afb124d..785673ef 100755 --- a/test/unittest/funcs/tst.rand_intra.sh +++ b/test/unittest/funcs/tst.rand_intra.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -14,7 +14,7 @@ niter=25000 # is, use lquantize to look at the distribution of 4-bit blocks. $dtrace $dt_flags -q -o $tmpfile -c test/triggers/bogus-ioctl -n ' -BEGIN { n = 0 } +dtrace:::BEGIN { n = 0 } syscall::ioctl:entry /pid == $target/ { diff --git a/test/unittest/funcs/tst.rindex.d b/test/unittest/funcs/tst.rindex.d index 7af96412..45e73f46 100644 --- a/test/unittest/funcs/tst.rindex.d +++ b/test/unittest/funcs/tst.rindex.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ /* cut string size back a little to ease pressure on BPF verifier */ #pragma D option strsize=144 -BEGIN { +dtrace:::BEGIN { x = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@#abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@#"; y = "abcdefghijklmnopqrstuvwxyz"; printf(" 64 %3d\n", rindex(x, y)); diff --git a/test/unittest/funcs/tst.rindex_nonDPTR.d b/test/unittest/funcs/tst.rindex_nonDPTR.d index ad14e357..8b8c07e5 100644 --- a/test/unittest/funcs/tst.rindex_nonDPTR.d +++ b/test/unittest/funcs/tst.rindex_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,13 +8,13 @@ #pragma D option quiet #pragma D option strsize=14 -BEGIN +dtrace:::BEGIN { printf("rindex is %d, should be 0\n", rindex((char *)&`linux_banner, (char *)&`linux_banner)); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.rw_.sh b/test/unittest/funcs/tst.rw_.sh index 5104d249..38719632 100755 --- a/test/unittest/funcs/tst.rw_.sh +++ b/test/unittest/funcs/tst.rw_.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -24,7 +24,7 @@ $dtrace $dt_flags -qn ' /* desired numbers of read and write events */ -BEGIN +dtrace:::BEGIN { nr = 4; nw = 1; diff --git a/test/unittest/funcs/tst.strchr.d b/test/unittest/funcs/tst.strchr.d index 11d0f592..47702a17 100644 --- a/test/unittest/funcs/tst.strchr.d +++ b/test/unittest/funcs/tst.strchr.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { str = "fooeyfooeyfoo"; this->success = 0; @@ -26,25 +26,25 @@ BEGIN this->success = 1; } -BEGIN +dtrace:::BEGIN /!this->success/ { exit(1); } -BEGIN +dtrace:::BEGIN /strchr(str, 'a') != NULL/ { exit(2); } -BEGIN +dtrace:::BEGIN /strrchr(str, 'a') != NULL/ { exit(3); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/funcs/tst.strchr_nonDPTR.d b/test/unittest/funcs/tst.strchr_nonDPTR.d index b3dacef8..7f200d34 100644 --- a/test/unittest/funcs/tst.strchr_nonDPTR.d +++ b/test/unittest/funcs/tst.strchr_nonDPTR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,14 +8,14 @@ #pragma D option quiet #pragma D option strsize=14 -BEGIN +dtrace:::BEGIN { printf("|%s|\n", strchr((char *)&`linux_banner, 'x')); printf("|%s|\n", strrchr((char *)&`linux_banner, 'u')); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/tst.strstr.d b/test/unittest/funcs/tst.strstr.d index de96cd28..96b9aa9d 100644 --- a/test/unittest/funcs/tst.strstr.d +++ b/test/unittest/funcs/tst.strstr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet #pragma D option strsize=184 -BEGIN +dtrace:::BEGIN { str = "foobarbarbazbarbop"; this->success = 0; @@ -46,25 +46,25 @@ BEGIN this->success = 1; } -BEGIN +dtrace:::BEGIN /!this->success/ { exit(1); } -BEGIN +dtrace:::BEGIN /strstr(str, "barbarf") != NULL/ { exit(2); } -BEGIN +dtrace:::BEGIN /strstr(str, "foobarbarbazbarbopp") != NULL/ { exit(3); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/funcs/tst.subr.d b/test/unittest/funcs/tst.subr.d index e30d541a..1dcb225c 100644 --- a/test/unittest/funcs/tst.subr.d +++ b/test/unittest/funcs/tst.subr.d @@ -11,7 +11,7 @@ #include #define INTFUNC(x) \ - BEGIN \ + dtrace:::BEGIN \ /*DSTYLED*/ \ { \ this->ival = (long)(x); \ @@ -20,7 +20,7 @@ } #define AINTFUNC(x) \ - BEGIN \ + dtrace:::BEGIN \ /*DSTYLED*/ \ { \ subr++; \ @@ -29,7 +29,7 @@ } #define STRFUNC(x) \ - BEGIN \ + dtrace:::BEGIN \ /*DSTYLED*/ \ { \ subr++; \ @@ -38,7 +38,7 @@ } #define VOIDFUNC(x) \ - BEGIN \ + dtrace:::BEGIN \ /*DSTYLED*/ \ { \ subr++; \ @@ -46,7 +46,7 @@ } #define STKFUNC(x) \ - BEGIN \ + dtrace:::BEGIN \ /*DSTYLED*/ \ { \ subr++; \ @@ -110,13 +110,13 @@ STRFUNC(inet_ntoa6((in6_addr_t *)alloca(sizeof(in6_addr_t)))) STKFUNC(stack(5)) STKFUNC(ustack(5)) -BEGIN +dtrace:::BEGIN /subr == DIF_SUBR_MAX + 1 - NUM_UNIMPLEMENTED/ { exit(0); } -BEGIN +dtrace:::BEGIN { printf("found %d subroutines, expected %d\n", subr, DIF_SUBR_MAX + 1 - NUM_UNIMPLEMENTED); exit(1); diff --git a/test/unittest/funcs/ustack/err.corrupted-data.d b/test/unittest/funcs/ustack/err.corrupted-data.d index c4525aaf..09e91af1 100644 --- a/test/unittest/funcs/ustack/err.corrupted-data.d +++ b/test/unittest/funcs/ustack/err.corrupted-data.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/err.store-to-stack.d b/test/unittest/funcs/ustack/err.store-to-stack.d index 106c0cd9..75bc296f 100644 --- a/test/unittest/funcs/ustack/err.store-to-stack.d +++ b/test/unittest/funcs/ustack/err.store-to-stack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.asgn_dvar.d b/test/unittest/funcs/ustack/tst.asgn_dvar.d index 142a56ce..73199c66 100644 --- a/test/unittest/funcs/ustack/tst.asgn_dvar.d +++ b/test/unittest/funcs/ustack/tst.asgn_dvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.asgn_gvar.d b/test/unittest/funcs/ustack/tst.asgn_gvar.d index 089e145f..c24331da 100644 --- a/test/unittest/funcs/ustack/tst.asgn_gvar.d +++ b/test/unittest/funcs/ustack/tst.asgn_gvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.asgn_lvar.d b/test/unittest/funcs/ustack/tst.asgn_lvar.d index 132d4a89..bad4672b 100644 --- a/test/unittest/funcs/ustack/tst.asgn_lvar.d +++ b/test/unittest/funcs/ustack/tst.asgn_lvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.asgn_tvar.d b/test/unittest/funcs/ustack/tst.asgn_tvar.d index 46fbe606..8734d06e 100644 --- a/test/unittest/funcs/ustack/tst.asgn_tvar.d +++ b/test/unittest/funcs/ustack/tst.asgn_tvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.ref_addrs.d b/test/unittest/funcs/ustack/tst.ref_addrs.d index 97b0d684..8a34103a 100644 --- a/test/unittest/funcs/ustack/tst.ref_addrs.d +++ b/test/unittest/funcs/ustack/tst.ref_addrs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.ref_depth.d b/test/unittest/funcs/ustack/tst.ref_depth.d index d847736a..be11c6e9 100644 --- a/test/unittest/funcs/ustack/tst.ref_depth.d +++ b/test/unittest/funcs/ustack/tst.ref_depth.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ pid$target:a.out:myfunc_z:entry exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.ref_is_user.d b/test/unittest/funcs/ustack/tst.ref_is_user.d index 5465f090..50748a18 100644 --- a/test/unittest/funcs/ustack/tst.ref_is_user.d +++ b/test/unittest/funcs/ustack/tst.ref_is_user.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ pid$target:a.out:myfunc_z:entry exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.ref_pid.d b/test/unittest/funcs/ustack/tst.ref_pid.d index 80c2473b..0162470e 100644 --- a/test/unittest/funcs/ustack/tst.ref_pid.d +++ b/test/unittest/funcs/ustack/tst.ref_pid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ pid$target:a.out:myfunc_z:entry exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.ref_strsz.d b/test/unittest/funcs/ustack/tst.ref_strsz.d index 7d4740c3..ce387061 100644 --- a/test/unittest/funcs/ustack/tst.ref_strsz.d +++ b/test/unittest/funcs/ustack/tst.ref_strsz.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ pid$target:a.out:myfunc_z:entry exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/funcs/ustack/tst.store.d b/test/unittest/funcs/ustack/tst.store.d index 066d5705..8a39c206 100644 --- a/test/unittest/funcs/ustack/tst.store.d +++ b/test/unittest/funcs/ustack/tst.store.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/grammar/err.D_ADDROF_LVAL.d b/test/unittest/grammar/err.D_ADDROF_LVAL.d index 8644c9f4..c6097534 100644 --- a/test/unittest/grammar/err.D_ADDROF_LVAL.d +++ b/test/unittest/grammar/err.D_ADDROF_LVAL.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { trace(&1); exit(0); diff --git a/test/unittest/grammar/tst.clauses.d b/test/unittest/grammar/tst.clauses.d index f2cfe4d6..96c8e13d 100644 --- a/test/unittest/grammar/tst.clauses.d +++ b/test/unittest/grammar/tst.clauses.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,14 +13,14 @@ */ -BEGIN +dtrace:::BEGIN {} -BEGIN +dtrace:::BEGIN /1/ {} -tick-1 +profile:::tick-1 { exit(0); } diff --git a/test/unittest/inline/tst.InlineDataAssign.d b/test/unittest/inline/tst.InlineDataAssign.d index a0ce2bfe..58e5e1bf 100644 --- a/test/unittest/inline/tst.InlineDataAssign.d +++ b/test/unittest/inline/tst.InlineDataAssign.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -41,7 +41,7 @@ inline long double new_long_double = 3.567890123; inline unsigned long * pointer = (unsigned long *)&`max_pfn; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/inline/tst.InlineExpression.d b/test/unittest/inline/tst.InlineExpression.d index 8ba57e36..64820455 100644 --- a/test/unittest/inline/tst.InlineExpression.d +++ b/test/unittest/inline/tst.InlineExpression.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -44,7 +44,7 @@ inline long double new_long_double = 3.567890123; inline unsigned long * pointer = (unsigned long *)&`max_pfn; inline int result = 3 > 2 ? 3 : 2; -BEGIN +dtrace:::BEGIN { printf("new_char: %c\nnew_short: %d\nnew_int: %d\nnew_long: %d\n", new_char, new_short, new_int, new_long); diff --git a/test/unittest/inline/tst.InlineKinds.d b/test/unittest/inline/tst.InlineKinds.d index 5f2ec1b8..b569fd7a 100644 --- a/test/unittest/inline/tst.InlineKinds.d +++ b/test/unittest/inline/tst.InlineKinds.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ inline struct s i3 = xlate < struct s > (i0); /* translator */ inline int i4[int x, int y] = x + y; /* associative array */ inline int i5[int x] = (xlate < struct s > (x)).s_x; /* array by xlate */ -BEGIN +dtrace:::BEGIN { printf("i0 = %d\n", i0); printf("i1 = %s\n", i1); diff --git a/test/unittest/inline/tst.InlineTypedef.d b/test/unittest/inline/tst.InlineTypedef.d index fc2ca1ec..5e55f322 100644 --- a/test/unittest/inline/tst.InlineTypedef.d +++ b/test/unittest/inline/tst.InlineTypedef.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ inline new_char char_var = 'c'; typedef unsigned long * pointer; inline pointer p = (pointer)&`max_pfn; -BEGIN +dtrace:::BEGIN { printf("char_var: %c\npointer p: %d", char_var, *p); exit(0); diff --git a/test/unittest/inline/tst.InlineWritableAssign.d b/test/unittest/inline/tst.InlineWritableAssign.d index ce95c025..8d38bedf 100644 --- a/test/unittest/inline/tst.InlineWritableAssign.d +++ b/test/unittest/inline/tst.InlineWritableAssign.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ union var un1; inline union var un2 = un1; -BEGIN +dtrace:::BEGIN { rec1.c = 'c'; rec1.i = 10; diff --git a/test/unittest/io/check_io_probe_args.sh b/test/unittest/io/check_io_probe_args.sh index 8e1f5a4c..7015c8b6 100755 --- a/test/unittest/io/check_io_probe_args.sh +++ b/test/unittest/io/check_io_probe_args.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -205,12 +205,12 @@ gawk 'NF == 23 { print $16, $21 }' $infile | sort | uniq > majnam.txt # Compose a D script to write a name for each major number. gawk '{ - printf("BEGIN { x = %s }\n", $1); - printf("BEGIN { printf(\"%%d %%s\\n\", %s, stringof(((struct blk_major_name **)&`major_names)[%s % 255]->name)); }\n", + printf("dtrace:::BEGIN { x = %s }\n", $1); + printf("dtrace:::BEGIN { printf(\"%%d %%s\\n\", %s, stringof(((struct blk_major_name **)&`major_names)[%s % 255]->name)); }\n", $1, $1); }' majnam.txt >> D.d -echo "BEGIN { exit(0); }" >> D.d -echo "ERROR { printf(\"%d nfs\\n\", x) }" >> D.d +echo "dtrace:::BEGIN { exit(0); }" >> D.d +echo "dtrace:::ERROR { printf(\"%d nfs\\n\", x) }" >> D.d $dtrace $dt_flags -qs D.d | sort | gawk 'NF != 0' > majnam.chk diff --git a/test/unittest/io/tst.local.sh b/test/unittest/io/tst.local.sh index 702c6f45..aa959b49 100755 --- a/test/unittest/io/tst.local.sh +++ b/test/unittest/io/tst.local.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -34,7 +34,7 @@ mount=`losetup -j $iodir.img | gawk 'BEGIN { FS = ":" } ; {print $1}'` statname=`basename $mount` $dtrace $dt_flags -c "test/triggers/doio.sh $tempfile $filesize test/triggers/io-mount-local.sh $iodir $fstype $fsoptions" -qs /dev/stdin <b_bufsize; } -END +dtrace:::END /byteswr >= $minsize/ { printf("wrote-expected: yes\n"); } -END +dtrace:::END /byteswr < $minsize/ { printf("wrote-expected: no (%d / %d)\n", byteswr, $minsize); } -END +dtrace:::END /bytesrd >= $minsize/ { printf("read-expected: yes\n"); } -END +dtrace:::END /bytesrd < $minsize/ { printf("read-expected: no (%d / %d)\n", bytesrd, $minsize); diff --git a/test/unittest/io/tst.nfs.sh b/test/unittest/io/tst.nfs.sh index ca790817..b3c51396 100755 --- a/test/unittest/io/tst.nfs.sh +++ b/test/unittest/io/tst.nfs.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2017, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -32,7 +32,7 @@ mkdir $clientpath test/triggers/io-mount-nfs.sh $clientpath $serverpath $dtrace $dt_flags -c "test/triggers/doio.sh $tempfile $filesize test/triggers/io-mount-nfs.sh $clientpath $serverpath" -qs /dev/stdin <b_bufsize; } -END +dtrace:::END /byteswr >= $minsize/ { printf("wrote-expected: yes\n"); } -END +dtrace:::END /byteswr < $minsize/ { printf("wrote-expected: no (%d / %d)\n", byteswr, $minsize); } -END +dtrace:::END /bytesrd >= $minsize/ { printf("read-expected: yes\n"); } -END +dtrace:::END /bytesrd < $minsize/ { printf("read-expected: no (%d / %d)\n", bytesrd, $minsize); diff --git a/test/unittest/io/tst.wait.sh b/test/unittest/io/tst.wait.sh index 24ac2e43..bc2f943f 100755 --- a/test/unittest/io/tst.wait.sh +++ b/test/unittest/io/tst.wait.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2017, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -61,26 +61,26 @@ io:::wait-done self->wait_read_started = 0; } -END +dtrace:::END /(wait_write_start > 0) && (wait_write_start == wait_write_done)/ { printf("wait-write-expected: yes\n"); } -END +dtrace:::END /(wait_write_start == 0) || (wait_write_start != wait_write_done)/ { printf("wait-write-expected: no (%d / %d)\n", wait_write_start, wait_write_done); } -END +dtrace:::END /(wait_read_start > 0) && (wait_read_start == wait_read_done)/ { printf("wait-read-expected: yes\n"); } -END +dtrace:::END /(wait_read_start == 0) || (wait_read_start != wait_read_done)/ { printf("wait-read-expected: no (%d / %d)\n", wait_read_start, diff --git a/test/unittest/ip/tst.ipv4localtcp.sh b/test/unittest/ip/tst.ipv4localtcp.sh index 78a77740..b388f3fe 100755 --- a/test/unittest/ip/tst.ipv4localtcp.sh +++ b/test/unittest/ip/tst.ipv4localtcp.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2008, 2017, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -48,7 +48,7 @@ cat > $tmpdir/tst.ipv4localtcp.test.pl <<-EOPERL EOPERL $dtrace $dt_flags -c "/usr/bin/perl $tmpdir/tst.ipv4localtcp.test.pl" -qs /dev/stdin <= 4 ? "yes" : "no"); diff --git a/test/unittest/ip/tst.ipv4localudp.sh b/test/unittest/ip/tst.ipv4localudp.sh index 4ee58440..5489c5c5 100755 --- a/test/unittest/ip/tst.ipv4localudp.sh +++ b/test/unittest/ip/tst.ipv4localudp.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2008, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -34,7 +34,7 @@ dtrace=$1 testdir="$(dirname $_test)" local=127.0.0.1 $dtrace $dt_flags -c "$testdir/perlping.pl udp $local" -qs /dev/stdin <= 1 ? "yes" : "no"); diff --git a/test/unittest/ip/tst.ipv4remotetcp.sh b/test/unittest/ip/tst.ipv4remotetcp.sh index 8a3fc7eb..71d43f55 100755 --- a/test/unittest/ip/tst.ipv4remotetcp.sh +++ b/test/unittest/ip/tst.ipv4remotetcp.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2008, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -61,7 +61,7 @@ cat > $tmpdir/tst.ipv4remotetcp.test.pl <<-EOPERL EOPERL $dtrace $dt_flags -c "/usr/bin/perl $tmpdir/tst.ipv4remotetcp.test.pl" -qs /dev/stdin <= 3 ? "yes" : "no"); diff --git a/test/unittest/ip/tst.ipv4remoteudp.sh b/test/unittest/ip/tst.ipv4remoteudp.sh index 08e32740..47a17d0c 100755 --- a/test/unittest/ip/tst.ipv4remoteudp.sh +++ b/test/unittest/ip/tst.ipv4remoteudp.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2008, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -43,7 +43,7 @@ if [[ $? -ne 0 ]] || [[ -z $dest ]]; then fi $dtrace $dt_flags -c "$testdir/perlping.pl udp $dest" -qs /dev/stdin <= 1 ? "yes" : "no"); diff --git a/test/unittest/lexer/err.D_CHR_NL.char.d b/test/unittest/lexer/err.D_CHR_NL.char.d index dba3ff47..65184ed2 100644 --- a/test/unittest/lexer/err.D_CHR_NL.char.d +++ b/test/unittest/lexer/err.D_CHR_NL.char.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ */ -BEGIN +dtrace:::BEGIN { h = ' diff --git a/test/unittest/lexer/err.D_CHR_NULL.char.d b/test/unittest/lexer/err.D_CHR_NULL.char.d index 784095aa..f9ceb32d 100644 --- a/test/unittest/lexer/err.D_CHR_NULL.char.d +++ b/test/unittest/lexer/err.D_CHR_NULL.char.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ */ -BEGIN +dtrace:::BEGIN { h = ''; diff --git a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-dot-kernel.d b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-dot-kernel.d index 2a267567..0c71a810 100644 --- a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-dot-kernel.d +++ b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-dot-kernel.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(foo.bar`baz); exit(0); diff --git a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-dot.d b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-dot.d index 6b3dcfda..5a723b22 100644 --- a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-dot.d +++ b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-dot.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(foo.bar``baz); exit(0); diff --git a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-kernel-as-user.d b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-kernel-as-user.d index d332191b..edf7b958 100644 --- a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-kernel-as-user.d +++ b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-kernel-as-user.d @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(vmlinux``major_names); exit(0); diff --git a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-user-as-kernel.d b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-user-as-kernel.d index bc7e8b9f..880d12b4 100644 --- a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-user-as-kernel.d +++ b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-user-as-kernel.d @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(&testprobe`main); exit(0); diff --git a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-user-missing.d b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-user-missing.d index 7304da72..bd89e433 100644 --- a/test/unittest/lexer/err.D_IDENT_UNDEF.scope-user-missing.d +++ b/test/unittest/lexer/err.D_IDENT_UNDEF.scope-user-missing.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(no_such_module``main); exit(0); diff --git a/test/unittest/lexer/err.D_INT_DIGIT.InvalidDigit.d b/test/unittest/lexer/err.D_INT_DIGIT.InvalidDigit.d index cf4fc96a..b662b35a 100644 --- a/test/unittest/lexer/err.D_INT_DIGIT.InvalidDigit.d +++ b/test/unittest/lexer/err.D_INT_DIGIT.InvalidDigit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Errtags/D_INT_DIGIT */ -BEGIN +dtrace:::BEGIN { 0128; } diff --git a/test/unittest/lexer/err.D_INT_OFLOW.BigInt.d b/test/unittest/lexer/err.D_INT_OFLOW.BigInt.d index efd8a35c..5660619f 100644 --- a/test/unittest/lexer/err.D_INT_OFLOW.BigInt.d +++ b/test/unittest/lexer/err.D_INT_OFLOW.BigInt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Errtags/D_INT_OFLOW */ -BEGIN +dtrace:::BEGIN { 0x12345678123456781; } diff --git a/test/unittest/lexer/err.D_STR_NL.string.d b/test/unittest/lexer/err.D_STR_NL.string.d index 03016663..c4db7663 100644 --- a/test/unittest/lexer/err.D_STR_NL.string.d +++ b/test/unittest/lexer/err.D_STR_NL.string.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ */ -BEGIN +dtrace:::BEGIN { h = "hello diff --git a/test/unittest/lexer/err.D_SYNTAX.brace1.d b/test/unittest/lexer/err.D_SYNTAX.brace1.d index acf5f1af..a873178c 100644 --- a/test/unittest/lexer/err.D_SYNTAX.brace1.d +++ b/test/unittest/lexer/err.D_SYNTAX.brace1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Lexer */ -BEGIN +dtrace:::BEGIN { trace(epid); } diff --git a/test/unittest/lexer/err.D_SYNTAX.brace2.d b/test/unittest/lexer/err.D_SYNTAX.brace2.d index 8b6bff30..3462414b 100644 --- a/test/unittest/lexer/err.D_SYNTAX.brace2.d +++ b/test/unittest/lexer/err.D_SYNTAX.brace2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,6 +11,6 @@ * SECTION: Lexer */ -BEGIN +dtrace:::BEGIN { trace(epid); diff --git a/test/unittest/lexer/err.D_SYNTAX.brack1.d b/test/unittest/lexer/err.D_SYNTAX.brack1.d index 61033275..30dd5465 100644 --- a/test/unittest/lexer/err.D_SYNTAX.brack1.d +++ b/test/unittest/lexer/err.D_SYNTAX.brack1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Lexer */ -BEGIN +dtrace:::BEGIN { trace(args[0]]); } diff --git a/test/unittest/lexer/err.D_SYNTAX.brack2.d b/test/unittest/lexer/err.D_SYNTAX.brack2.d index 63121f4d..234c1311 100644 --- a/test/unittest/lexer/err.D_SYNTAX.brack2.d +++ b/test/unittest/lexer/err.D_SYNTAX.brack2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Lexer */ -BEGIN +dtrace:::BEGIN { args[0 } diff --git a/test/unittest/lexer/err.D_SYNTAX.brack3.d b/test/unittest/lexer/err.D_SYNTAX.brack3.d index c757bb44..21462044 100644 --- a/test/unittest/lexer/err.D_SYNTAX.brack3.d +++ b/test/unittest/lexer/err.D_SYNTAX.brack3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Lexer */ -BEGIN +dtrace:::BEGIN /args[0/ { trace(epid); diff --git a/test/unittest/lexer/err.D_SYNTAX.paren1.d b/test/unittest/lexer/err.D_SYNTAX.paren1.d index a1d42ec7..9b934a6d 100644 --- a/test/unittest/lexer/err.D_SYNTAX.paren1.d +++ b/test/unittest/lexer/err.D_SYNTAX.paren1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Lexer */ -BEGIN +dtrace:::BEGIN { trace(epid)); } diff --git a/test/unittest/lexer/err.D_SYNTAX.paren2.d b/test/unittest/lexer/err.D_SYNTAX.paren2.d index de641bd8..955b7ce8 100644 --- a/test/unittest/lexer/err.D_SYNTAX.paren2.d +++ b/test/unittest/lexer/err.D_SYNTAX.paren2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Lexer */ -BEGIN +dtrace:::BEGIN { rand( } diff --git a/test/unittest/lexer/err.D_SYNTAX.paren3.d b/test/unittest/lexer/err.D_SYNTAX.paren3.d index 7e2b299f..fe3b936a 100644 --- a/test/unittest/lexer/err.D_SYNTAX.paren3.d +++ b/test/unittest/lexer/err.D_SYNTAX.paren3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Lexer */ -BEGIN +dtrace:::BEGIN /rand(/ { trace(epid); diff --git a/test/unittest/lexer/err.D_SYNTAX.scope-empty-bare-user.d b/test/unittest/lexer/err.D_SYNTAX.scope-empty-bare-user.d index d7cff89f..29771b9a 100644 --- a/test/unittest/lexer/err.D_SYNTAX.scope-empty-bare-user.d +++ b/test/unittest/lexer/err.D_SYNTAX.scope-empty-bare-user.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(``); exit(0); diff --git a/test/unittest/lexer/err.D_SYNTAX.scope-empty-bare.d b/test/unittest/lexer/err.D_SYNTAX.scope-empty-bare.d index 44b4f60e..2250d1fa 100644 --- a/test/unittest/lexer/err.D_SYNTAX.scope-empty-bare.d +++ b/test/unittest/lexer/err.D_SYNTAX.scope-empty-bare.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(`); exit(0); diff --git a/test/unittest/lexer/err.D_SYNTAX.scope-empty-dot-user.d b/test/unittest/lexer/err.D_SYNTAX.scope-empty-dot-user.d index 5ead7b3e..92b17fd9 100644 --- a/test/unittest/lexer/err.D_SYNTAX.scope-empty-dot-user.d +++ b/test/unittest/lexer/err.D_SYNTAX.scope-empty-dot-user.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(foo.bar``); exit(0); diff --git a/test/unittest/lexer/err.D_SYNTAX.scope-empty-user.d b/test/unittest/lexer/err.D_SYNTAX.scope-empty-user.d index d3a927d7..11e43049 100644 --- a/test/unittest/lexer/err.D_SYNTAX.scope-empty-user.d +++ b/test/unittest/lexer/err.D_SYNTAX.scope-empty-user.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(bar``); exit(0); diff --git a/test/unittest/lexer/err.D_SYNTAX.scope-empty.d b/test/unittest/lexer/err.D_SYNTAX.scope-empty.d index e32b3812..52d762e2 100644 --- a/test/unittest/lexer/err.D_SYNTAX.scope-empty.d +++ b/test/unittest/lexer/err.D_SYNTAX.scope-empty.d @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(foo`); exit(0); diff --git a/test/unittest/lexer/err.D_SYNTAX.scope-multiple.d b/test/unittest/lexer/err.D_SYNTAX.scope-multiple.d index 5e236c45..2a6a7203 100644 --- a/test/unittest/lexer/err.D_SYNTAX.scope-multiple.d +++ b/test/unittest/lexer/err.D_SYNTAX.scope-multiple.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(foo``bar``baz); exit(0); diff --git a/test/unittest/lexer/err.D_SYNTAX.scope-triple.d b/test/unittest/lexer/err.D_SYNTAX.scope-triple.d index 41f7391c..afe9ccf7 100644 --- a/test/unittest/lexer/err.D_SYNTAX.scope-triple.d +++ b/test/unittest/lexer/err.D_SYNTAX.scope-triple.d @@ -12,7 +12,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(foo```bar); exit(0); diff --git a/test/unittest/lexer/tst.D_MACRO_OFLOW.ParIntOvflow.r b/test/unittest/lexer/tst.D_MACRO_OFLOW.ParIntOvflow.r index 12388a9f..ed96f7fe 100644 --- a/test/unittest/lexer/tst.D_MACRO_OFLOW.ParIntOvflow.r +++ b/test/unittest/lexer/tst.D_MACRO_OFLOW.ParIntOvflow.r @@ -1,2 +1,2 @@ -- @@stderr -- -dtrace: invalid probe specifier BEGIN { $1; }: macro argument $1 constant {ptr} results in integer overflow +dtrace: invalid probe specifier dtrace:::BEGIN { $1; }: macro argument $1 constant {ptr} results in integer overflow diff --git a/test/unittest/lexer/tst.D_MACRO_OFLOW.ParIntOvflow.sh b/test/unittest/lexer/tst.D_MACRO_OFLOW.ParIntOvflow.sh index d8d88796..82bcb650 100755 --- a/test/unittest/lexer/tst.D_MACRO_OFLOW.ParIntOvflow.sh +++ b/test/unittest/lexer/tst.D_MACRO_OFLOW.ParIntOvflow.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -22,7 +22,7 @@ fi dtrace=$1 -$dtrace $dt_flags -n 'BEGIN { $1; }' 0x12345678123456781 +$dtrace $dt_flags -n 'dtrace:::BEGIN { $1; }' 0x12345678123456781 status=$? if [ "$status" -ne 0 ]; then diff --git a/test/unittest/lexer/tst.boc-in-line-comment.d b/test/unittest/lexer/tst.boc-in-line-comment.d index 61f5961f..2a223c3d 100644 --- a/test/unittest/lexer/tst.boc-in-line-comment.d +++ b/test/unittest/lexer/tst.boc-in-line-comment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ */ // Comment /* -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/lexer/tst.eoc-in-line-comment.d b/test/unittest/lexer/tst.eoc-in-line-comment.d index 8fe2ff04..70b97418 100644 --- a/test/unittest/lexer/tst.eoc-in-line-comment.d +++ b/test/unittest/lexer/tst.eoc-in-line-comment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ */ // Comment */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/lexer/tst.eof-in-line-comment.d b/test/unittest/lexer/tst.eof-in-line-comment.d index a9207693..e65337e2 100644 --- a/test/unittest/lexer/tst.eof-in-line-comment.d +++ b/test/unittest/lexer/tst.eof-in-line-comment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ * ASSERTION: End-of-file in a line comment is an error. */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/lexer/tst.keyword-member.d b/test/unittest/lexer/tst.keyword-member.d index 138194aa..aec7b92e 100644 --- a/test/unittest/lexer/tst.keyword-member.d +++ b/test/unittest/lexer/tst.keyword-member.d @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%p\n", &(*(struct cgroup_root *)&`cgrp_dfl_root).cgrp.self); printf("%p\n", &(*(struct cgroup_root *)&`cgrp_dfl_root).cgrp.self.cgroup->self); diff --git a/test/unittest/lexer/tst.lc-in-line-comment.d b/test/unittest/lexer/tst.lc-in-line-comment.d index 0332e1ae..b26fc0a7 100644 --- a/test/unittest/lexer/tst.lc-in-line-comment.d +++ b/test/unittest/lexer/tst.lc-in-line-comment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ */ // Comment // -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/lexer/tst.line-comment.d b/test/unittest/lexer/tst.line-comment.d index 4deb66f4..543e14a0 100644 --- a/test/unittest/lexer/tst.line-comment.d +++ b/test/unittest/lexer/tst.line-comment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ */ // exit(1); -BEGIN // exit(1); +dtrace:::BEGIN // exit(1); { // exit(1); exit(0); // exit(1); } // exit(1); diff --git a/test/unittest/lexer/tst.scope-user-explicit.d b/test/unittest/lexer/tst.scope-user-explicit.d index 46989a76..c0753199 100644 --- a/test/unittest/lexer/tst.scope-user-explicit.d +++ b/test/unittest/lexer/tst.scope-user-explicit.d @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(&testprobe``main); exit(0); diff --git a/test/unittest/lexer/tst.scope-user-path-empty.sh b/test/unittest/lexer/tst.scope-user-path-empty.sh index e78669e6..5e09b005 100755 --- a/test/unittest/lexer/tst.scope-user-path-empty.sh +++ b/test/unittest/lexer/tst.scope-user-path-empty.sh @@ -24,7 +24,7 @@ cd "$dir" || exit 1 # Now add an empty training entry. PATH=$PATH: LD_LIBRARY_PATH=$LD_LIBRARY_PATH: "$dtrace" -xlinkmode=static $dt_flags -c testprobe -n ' -BEGIN +dtrace:::BEGIN { trace(&testprobe``main); exit(0); diff --git a/test/unittest/lexer/tst.yyinput-pragma-bug.d b/test/unittest/lexer/tst.yyinput-pragma-bug.d index 4699f46a..50c17555 100644 --- a/test/unittest/lexer/tst.yyinput-pragma-bug.d +++ b/test/unittest/lexer/tst.yyinput-pragma-bug.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -111,4 +111,4 @@ inline int foo = 0; #pragma D binding "1.1" foo -BEGIN { exit(0); } +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/lockstat/tst.lockstat-summary.d b/test/unittest/lockstat/tst.lockstat-summary.d index 8a25bbaf..82373e71 100644 --- a/test/unittest/lockstat/tst.lockstat-summary.d +++ b/test/unittest/lockstat/tst.lockstat-summary.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2017, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ lockstat::: events[probename]++; } -END +dtrace:::END { printf("Minimum lockstat events seen\n\n"); /* diff --git a/test/unittest/lquantize/tst.normalize-bug26261502.sh b/test/unittest/lquantize/tst.normalize-bug26261502.sh index 35c6c685..db7ab0f0 100755 --- a/test/unittest/lquantize/tst.normalize-bug26261502.sh +++ b/test/unittest/lquantize/tst.normalize-bug26261502.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2017, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -35,7 +35,7 @@ rm -f $file $dtrace $dt_flags -o $file -c "sleep 10" -s /dev/stdin < 1/ { setopt("quiet", "no"); @@ -28,14 +28,14 @@ tick-100ms printa("%@d\n", @); } -tick-100ms +profile:::tick-100ms /i == 5/ { setopt("switchrate", "5sec"); setopt("aggrate", "5sec"); } -tick-100ms +profile:::tick-100ms /i == 31/ { exit(0); diff --git a/test/unittest/misc/tst.enablerace.dpp b/test/unittest/misc/tst.enablerace.dpp index 66af15f7..0d629142 100644 --- a/test/unittest/misc/tst.enablerace.dpp +++ b/test/unittest/misc/tst.enablerace.dpp @@ -22,7 +22,7 @@ exit(1); } - tick-1sec + profile:::tick-1sec /secs++/ { exit(0); diff --git a/test/unittest/misc/tst.haslam.d b/test/unittest/misc/tst.haslam.d index 406a9ead..34d2fd35 100644 --- a/test/unittest/misc/tst.haslam.d +++ b/test/unittest/misc/tst.haslam.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ * A script from Jon Haslam that induced an off-by-one error in the * format lookup code. */ -BEGIN +dtrace:::BEGIN { start = timestamp; allocd = 0; @@ -29,13 +29,13 @@ syscall:::entry @sys[tid] = sum(tid); } -END +dtrace:::END { printf("%s, %s, %s, %d numtids", "hhh", "jjj", "ggg", numtids); printa(@sys); } -tick-1sec +profile:::tick-1sec /n++ == 5/ { exit(0); diff --git a/test/unittest/misc/tst.include.sh b/test/unittest/misc/tst.include.sh index 4cdacfe9..2b252de1 100755 --- a/test/unittest/misc/tst.include.sh +++ b/test/unittest/misc/tst.include.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -35,7 +35,7 @@ EOF $dtrace $dt_flags -xerrtags -C -s /dev/stdin \ >/dev/null 2>$errfile < -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/misc/tst.lockmem-cmdline.sh b/test/unittest/misc/tst.lockmem-cmdline.sh index af2b7132..4cbaf1c5 100755 --- a/test/unittest/misc/tst.lockmem-cmdline.sh +++ b/test/unittest/misc/tst.lockmem-cmdline.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -12,7 +12,7 @@ dtrace=$1 for val in 1 268435456 unlimited; do ulimit -l $val - $dtrace $dt_flags -qn 'BEGIN { @ = avg(1234); exit(0); }' + $dtrace $dt_flags -qn 'dtrace:::BEGIN { @ = avg(1234); exit(0); }' echo $? done diff --git a/test/unittest/misc/tst.lockmem-envvar.sh b/test/unittest/misc/tst.lockmem-envvar.sh index 2b0cde01..fef817b7 100755 --- a/test/unittest/misc/tst.lockmem-envvar.sh +++ b/test/unittest/misc/tst.lockmem-envvar.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -12,7 +12,7 @@ dtrace=$1 ulimit -l 1 for val in 16 1K 268435456K 262144M 256G unlimited; do - DTRACE_OPT_LOCKMEM=$val $dtrace $dt_flags -qn 'BEGIN { @ = avg(1234); exit(0); }' + DTRACE_OPT_LOCKMEM=$val $dtrace $dt_flags -qn 'dtrace:::BEGIN { @ = avg(1234); exit(0); }' echo $? done diff --git a/test/unittest/misc/tst.lockmem-x.sh b/test/unittest/misc/tst.lockmem-x.sh index 0f75b93f..8bd20bd3 100755 --- a/test/unittest/misc/tst.lockmem-x.sh +++ b/test/unittest/misc/tst.lockmem-x.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -12,7 +12,7 @@ dtrace=$1 ulimit -l 1 for val in 16 1K 268435456K 262144M 256G unlimited; do - $dtrace $dt_flags -xlockmem=$val -qn 'BEGIN { @ = avg(1234); exit(0); }' + $dtrace $dt_flags -xlockmem=$val -qn 'dtrace:::BEGIN { @ = avg(1234); exit(0); }' echo $? done diff --git a/test/unittest/misc/tst.parser1.sh b/test/unittest/misc/tst.parser1.sh index 75df4f82..db1a62f0 100755 --- a/test/unittest/misc/tst.parser1.sh +++ b/test/unittest/misc/tst.parser1.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ chkfile=$tmpfile.check # Run DTrace. $dtrace $dt_flags -xtree=1 -e -n ' -BEGIN +dtrace:::BEGIN { x = 1234; printf("%d\n", x); @@ -36,7 +36,7 @@ fi # Generate check file. cat > $chkfile << EOF - PDESC :::BEGIN [0] + PDESC dtrace:::BEGIN [0] CTXATTR [i/i/u] ACTION D EXPRESSION attr=[s/s/c] @@ -80,7 +80,7 @@ EOF gawk ' # Look for the BEGIN clause. -/PDESC :::BEGIN / { +/PDESC dtrace:::BEGIN / { # Print until we get the next clause. while (index($0, "Parse tree") == 0) { print; diff --git a/test/unittest/misc/tst.parser2.sh b/test/unittest/misc/tst.parser2.sh index 803af8ea..df8767dd 100755 --- a/test/unittest/misc/tst.parser2.sh +++ b/test/unittest/misc/tst.parser2.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -13,12 +13,13 @@ dtrace=$1 tmpfile=$tmpdir/tst.parser2.$$ +outfile=$tmpfile.output chkfile=$tmpfile.check # Run DTrace. $dtrace $dt_flags -xtree=2 -e -n ' -BEGIN +dtrace:::BEGIN { x = 1234; printf("%d\n", x); @@ -36,8 +37,8 @@ fi # Generate check file. cat > $chkfile << EOF - PDESC :::BEGIN [0] - CTXATTR [u/u/c] + PDESC dtrace:::BEGIN [0] + CTXATTR [s/s/c] ACTION D EXPRESSION attr=[s/s/c] OP2 = (type= attr=[s/s/c] flags=SIGN,COOK,WRITE) @@ -84,13 +85,15 @@ EOF gawk ' # Look for the BEGIN clause. -/PDESC :::BEGIN / { +/PDESC dtrace:::BEGIN / { # Print until we get the next clause. while (index($0, "Parse tree") == 0) { print; getline; } -}' $tmpfile | diff -q - $chkfile > /dev/null +}' $tmpfile > $outfile + +diff $outfile $chkfile if [ $? -ne 0 ]; then echo ERROR in output cat $tmpfile diff --git a/test/unittest/misc/tst.parser4.sh b/test/unittest/misc/tst.parser4.sh index 8f728e15..2aeb0c91 100755 --- a/test/unittest/misc/tst.parser4.sh +++ b/test/unittest/misc/tst.parser4.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -13,12 +13,13 @@ dtrace=$1 tmpfile=$tmpdir/tst.parser4.$$ +outfile=$tmpfile.out chkfile=$tmpfile.check # Run DTrace. $dtrace $dt_flags -xtree=4 -e -n ' -BEGIN +dtrace:::BEGIN { x = 1234; printf("%d\n", x); @@ -36,8 +37,8 @@ fi # Generate check file. cat > $chkfile << EOF - PDESC :::BEGIN [0] - CTXATTR [u/u/c] + PDESC dtrace:::BEGIN [0] + CTXATTR [s/s/c] ACTION D EXPRESSION attr=[s/s/c] OP2 = (type= attr=[s/s/c] flags=SIGN,COOK,WRITE) @@ -84,13 +85,15 @@ EOF gawk ' # Look for the BEGIN clause. -/PDESC :::BEGIN / { +/PDESC dtrace:::BEGIN / { # Print until we get the next clause. while (index($0, "Parse tree") == 0) { print; getline; } -}' $tmpfile | diff -q - $chkfile > /dev/null +}' $tmpfile > $outfile + +diff $outfile $chkfile if [ $? -ne 0 ]; then echo ERROR in output cat $tmpfile diff --git a/test/unittest/multiaggs/err.D_PRINTA_AGGKEY.d b/test/unittest/multiaggs/err.D_PRINTA_AGGKEY.d index a9ea789b..c043e463 100644 --- a/test/unittest/multiaggs/err.D_PRINTA_AGGKEY.d +++ b/test/unittest/multiaggs/err.D_PRINTA_AGGKEY.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @foo[123] = sum(123); @bar = sum(456); diff --git a/test/unittest/multiaggs/err.D_PRINTA_AGGPROTO.d b/test/unittest/multiaggs/err.D_PRINTA_AGGPROTO.d index b8887e81..aac36e03 100644 --- a/test/unittest/multiaggs/err.D_PRINTA_AGGPROTO.d +++ b/test/unittest/multiaggs/err.D_PRINTA_AGGPROTO.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @foo[123] = sum(123); @bar["fooey"] = sum(456); diff --git a/test/unittest/multiaggs/tst.many.d b/test/unittest/multiaggs/tst.many.d index 168cca13..de5557b5 100644 --- a/test/unittest/multiaggs/tst.many.d +++ b/test/unittest/multiaggs/tst.many.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN /0/ { @agg996[996] = quantize(998); @@ -17,7 +17,7 @@ BEGIN @agg999[999] = lquantize(0, -10, 10, 1); } -BEGIN +dtrace:::BEGIN { @agg0[0] = sum(0); @agg1[1] = sum(1); diff --git a/test/unittest/multiaggs/tst.same.d b/test/unittest/multiaggs/tst.same.d index 4fd8815d..5f4e01b6 100644 --- a/test/unittest/multiaggs/tst.same.d +++ b/test/unittest/multiaggs/tst.same.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @ = sum(90904); printa("%@d %@d %@d\n", @, @, @); diff --git a/test/unittest/multiaggs/tst.sortpos.d b/test/unittest/multiaggs/tst.sortpos.d index 223bc15d..353bf87a 100644 --- a/test/unittest/multiaggs/tst.sortpos.d +++ b/test/unittest/multiaggs/tst.sortpos.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { j = 0; } diff --git a/test/unittest/multiaggs/tst.tuplecompat.d b/test/unittest/multiaggs/tst.tuplecompat.d index b191bf6a..e10f0f2b 100644 --- a/test/unittest/multiaggs/tst.tuplecompat.d +++ b/test/unittest/multiaggs/tst.tuplecompat.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option strsize=128 -BEGIN +dtrace:::BEGIN { @one["foo", 789, "bar", curthread] = sum(123); @two["foo", 789, "bar", curthread] = sum(456); diff --git a/test/unittest/multiaggs/tst.zero.d b/test/unittest/multiaggs/tst.zero.d index 197949cd..ba834fba 100644 --- a/test/unittest/multiaggs/tst.zero.d +++ b/test/unittest/multiaggs/tst.zero.d @@ -1,20 +1,20 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN /0/ { @bop[345] = quantize(0); @baz[345] = lquantize(0, -10, 10, 1); } -BEGIN +dtrace:::BEGIN { @foo[123] = sum(123); @bar[456] = sum(456); diff --git a/test/unittest/multiaggs/tst.zero2.d b/test/unittest/multiaggs/tst.zero2.d index cba509bc..7ff92702 100644 --- a/test/unittest/multiaggs/tst.zero2.d +++ b/test/unittest/multiaggs/tst.zero2.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @bop[345] = quantize(0, 0); @baz[345] = lquantize(0, -10, 10, 1, 0); } -BEGIN +dtrace:::BEGIN { @foo[123] = sum(123); @bar[456] = sum(456); diff --git a/test/unittest/multiaggs/tst.zero3.d b/test/unittest/multiaggs/tst.zero3.d index 6dd3763f..651629cc 100644 --- a/test/unittest/multiaggs/tst.zero3.d +++ b/test/unittest/multiaggs/tst.zero3.d @@ -1,20 +1,20 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN /0/ { @bop[345] = quantize(0, 0); @baz[345] = lquantize(0, -10, 10, 1, 0); } -BEGIN +dtrace:::BEGIN { printa(@bop); printa(@baz); diff --git a/test/unittest/noresolve/tst.uaddr.sh b/test/unittest/noresolve/tst.uaddr.sh index a583c72d..17823639 100755 --- a/test/unittest/noresolve/tst.uaddr.sh +++ b/test/unittest/noresolve/tst.uaddr.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2018, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -10,13 +10,13 @@ script() { $dtrace $dt_flags -qs /dev/stdin < strjoin("def", "abc") ? 1 : (strjoin("ABC", "def") > strjoin("def", "ABC") ? 2 : @@ -33,7 +33,7 @@ BEGIN { (strjoin("ABc", "DEf") > strjoin("DEf", "ABc") ? 16 : 0)))))))))))))))); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/operators/tst.str_comparison-signed.d b/test/unittest/operators/tst.str_comparison-signed.d index 0eb18d3d..2b4f3ebf 100644 --- a/test/unittest/operators/tst.str_comparison-signed.d +++ b/test/unittest/operators/tst.str_comparison-signed.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { nerrors = 0; @@ -53,7 +53,7 @@ BEGIN printf("%d errors\n", nerrors); exit(nerrors == 0 ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/operators/tst.ternary.d b/test/unittest/operators/tst.ternary.d index 471a07ed..ae8ce3b9 100644 --- a/test/unittest/operators/tst.ternary.d +++ b/test/unittest/operators/tst.ternary.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = 0; y = 1; diff --git a/test/unittest/options/err.D_ASRELO.kdefs.d b/test/unittest/options/err.D_ASRELO.kdefs.d index 0f79c90d..73d191a2 100644 --- a/test/unittest/options/err.D_ASRELO.kdefs.d +++ b/test/unittest/options/err.D_ASRELO.kdefs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -xerrtags -xlinkmode=dynamic -xknodefs -xkdefs */ -BEGIN { +dtrace:::BEGIN { trace((string)&`linux_banner); exit(0); } diff --git a/test/unittest/options/err.D_MACRO_UNDEF.no-defaultargs.d b/test/unittest/options/err.D_MACRO_UNDEF.no-defaultargs.d index 81b61d29..e3786880 100644 --- a/test/unittest/options/err.D_MACRO_UNDEF.no-defaultargs.d +++ b/test/unittest/options/err.D_MACRO_UNDEF.no-defaultargs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,12 +11,12 @@ * SECTION: Options and Tunables/Consumer Options */ -BEGIN +dtrace:::BEGIN { exit($1 ? 1 : 0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/options/err.D_MACRO_UNDEF.no-defaultargs2.d b/test/unittest/options/err.D_MACRO_UNDEF.no-defaultargs2.d index dee7bdd2..41b25f25 100644 --- a/test/unittest/options/err.D_MACRO_UNDEF.no-defaultargs2.d +++ b/test/unittest/options/err.D_MACRO_UNDEF.no-defaultargs2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: 2 1 */ -BEGIN +dtrace:::BEGIN { trace($1); trace($2); @@ -21,7 +21,7 @@ BEGIN exit($3 ? 1 : 0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/options/err.D_MACRO_UNUSED.no-argref.d b/test/unittest/options/err.D_MACRO_UNUSED.no-argref.d index a6c6345e..41cdfd22 100644 --- a/test/unittest/options/err.D_MACRO_UNUSED.no-argref.d +++ b/test/unittest/options/err.D_MACRO_UNUSED.no-argref.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: 1234 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.d b/test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.d index 8dc841c2..83598370 100644 --- a/test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.d +++ b/test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,8 +12,8 @@ * SECTION: Options and Tunables/Consumer Options */ -BEGIN, -fake:oracle:probe +dtrace:::BEGIN, +fake:oracle::probe { exit(0); } diff --git a/test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.r b/test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.r index 524134c9..445b7c3b 100644 --- a/test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.r +++ b/test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.r @@ -1,2 +1,2 @@ -- @@stderr -- -dtrace: failed to compile script test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.d: [D_PDESC_ZERO] line 16: probe description :fake:oracle:probe does not match any probes +dtrace: failed to compile script test/unittest/options/err.D_PDESC_ZERO.no-Z-or-zdefs.d: [D_PDESC_ZERO] line 16: probe description fake:oracle::probe does not match any probes diff --git a/test/unittest/options/err.D_PRAGCTL_INVAL.no-cpp.d b/test/unittest/options/err.D_PRAGCTL_INVAL.no-cpp.d index 719b4fc6..8501868b 100644 --- a/test/unittest/options/err.D_PRAGCTL_INVAL.no-cpp.d +++ b/test/unittest/options/err.D_PRAGCTL_INVAL.no-cpp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,12 +11,12 @@ * SECTION: Options and Tunables/Consumer Options */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.D_PRAGMA_OPTSET.ldpath.d b/test/unittest/options/err.D_PRAGMA_OPTSET.ldpath.d index d5457593..beab19fe 100644 --- a/test/unittest/options/err.D_PRAGMA_OPTSET.ldpath.d +++ b/test/unittest/options/err.D_PRAGMA_OPTSET.ldpath.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option ldpath=/nonexistent/directory -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/err.D_PRAGMA_OPTSET.modpath.d b/test/unittest/options/err.D_PRAGMA_OPTSET.modpath.d index 741c3e83..53d5d931 100644 --- a/test/unittest/options/err.D_PRAGMA_OPTSET.modpath.d +++ b/test/unittest/options/err.D_PRAGMA_OPTSET.modpath.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option modpath=/nonexistent/directory -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/err.b-too-low.d b/test/unittest/options/err.b-too-low.d index bb77e37c..be375aa4 100644 --- a/test/unittest/options/err.b-too-low.d +++ b/test/unittest/options/err.b-too-low.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,12 +23,12 @@ */ /* @@runtest-opts: -b59 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.bufsize-negative.d b/test/unittest/options/err.bufsize-negative.d index ac194dc8..22a15690 100644 --- a/test/unittest/options/err.bufsize-negative.d +++ b/test/unittest/options/err.bufsize-negative.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: -xbufsize=-1 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.bufsize-too-low.d b/test/unittest/options/err.bufsize-too-low.d index bbbdb5c5..dee23ca7 100644 --- a/test/unittest/options/err.bufsize-too-low.d +++ b/test/unittest/options/err.bufsize-too-low.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,12 +23,12 @@ */ /* @@runtest-opts: -xbufsize=59 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.ctfpath.sh b/test/unittest/options/err.ctfpath.sh index 9a4aa812..97af5f84 100755 --- a/test/unittest/options/err.ctfpath.sh +++ b/test/unittest/options/err.ctfpath.sh @@ -1,14 +1,14 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # dtrace=$1 -$dtrace $dt_flags -xdebug -xctfpath=/dev/null -n 'BEGIN { exit(0); }' |& +$dtrace $dt_flags -xdebug -xctfpath=/dev/null -n 'dtrace:::BEGIN { exit(0); }' |& gawk '/Cannot open CTF archive \/dev\/null/ { sub(/^[^:]+: /, ""); sub(/:.*$/, ""); diff --git a/test/unittest/options/err.iregs.d b/test/unittest/options/err.iregs.d index ace21d6d..5b487975 100644 --- a/test/unittest/options/err.iregs.d +++ b/test/unittest/options/err.iregs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ /* DTrace should recognize when iregs is too great for # of BPF registers */ #pragma D option iregs=9 -BEGIN +dtrace:::BEGIN { a = 1; trace(a); diff --git a/test/unittest/options/err.jstackframes-negative.d b/test/unittest/options/err.jstackframes-negative.d index 0fdcbb58..d26527aa 100644 --- a/test/unittest/options/err.jstackframes-negative.d +++ b/test/unittest/options/err.jstackframes-negative.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: -xjstackframes=-1 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.jstackframes-too-high.sh b/test/unittest/options/err.jstackframes-too-high.sh index 869a3d1f..520190b0 100755 --- a/test/unittest/options/err.jstackframes-too-high.sh +++ b/test/unittest/options/err.jstackframes-too-high.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -16,7 +16,7 @@ dtrace=$1 maxframes=$[ `cat /proc/sys/kernel/perf_event_max_stack` + 1 ] $dtrace $dt_flags -xjstackframes=$maxframes -qn ' -BEGIN, ERROR +dtrace:::BEGIN, dtrace:::ERROR { trace("ERROR: DTrace should fail to start."); exit(0); diff --git a/test/unittest/options/err.ldpath.d b/test/unittest/options/err.ldpath.d index 576e22e6..4165317b 100644 --- a/test/unittest/options/err.ldpath.d +++ b/test/unittest/options/err.ldpath.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -G -xldpath=/nonexistent/ld */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/err.maxframes-negative.d b/test/unittest/options/err.maxframes-negative.d index 62e4d21f..f7dec097 100644 --- a/test/unittest/options/err.maxframes-negative.d +++ b/test/unittest/options/err.maxframes-negative.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: -xmaxframes=-1 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.maxframes-too-high.sh b/test/unittest/options/err.maxframes-too-high.sh index 3b2674cf..8406bcd6 100755 --- a/test/unittest/options/err.maxframes-too-high.sh +++ b/test/unittest/options/err.maxframes-too-high.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -16,7 +16,7 @@ dtrace=$1 maxframes=$[ `cat /proc/sys/kernel/perf_event_max_stack` + 1 ] $dtrace $dt_flags -xmaxframes=$maxframes -qn ' -BEGIN, ERROR +dtrace:::BEGIN, dtrace:::ERROR { trace("ERROR: DTrace should fail to start."); exit(0); diff --git a/test/unittest/options/err.no-w-or-destructive.d b/test/unittest/options/err.no-w-or-destructive.d index 68b2cd5e..a229a751 100644 --- a/test/unittest/options/err.no-w-or-destructive.d +++ b/test/unittest/options/err.no-w-or-destructive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ * SECTION: Options and Tunables/Consumer Options */ -BEGIN +dtrace:::BEGIN { system("echo ok"); exit(0); diff --git a/test/unittest/options/err.no-w-or-destructive2.d b/test/unittest/options/err.no-w-or-destructive2.d index eb9365fe..7fc1c984 100644 --- a/test/unittest/options/err.no-w-or-destructive2.d +++ b/test/unittest/options/err.no-w-or-destructive2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ /* @@runtest-opts: -Z */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/err.stackframes-negative.d b/test/unittest/options/err.stackframes-negative.d index e6c276d7..90e33708 100644 --- a/test/unittest/options/err.stackframes-negative.d +++ b/test/unittest/options/err.stackframes-negative.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: -xstackframes=-1 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.stackframes-too-high.sh b/test/unittest/options/err.stackframes-too-high.sh index 0123f92b..e349192f 100755 --- a/test/unittest/options/err.stackframes-too-high.sh +++ b/test/unittest/options/err.stackframes-too-high.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -16,7 +16,7 @@ dtrace=$1 maxframes=$[ `cat /proc/sys/kernel/perf_event_max_stack` + 1 ] $dtrace $dt_flags -xstackframes=$maxframes -qn ' -BEGIN, ERROR +dtrace:::BEGIN, dtrace:::ERROR { trace("ERROR: DTrace should fail to start."); exit(0); diff --git a/test/unittest/options/err.stdc-x.d b/test/unittest/options/err.stdc-x.d index a25abc25..af3b1a66 100644 --- a/test/unittest/options/err.stdc-x.d +++ b/test/unittest/options/err.stdc-x.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@runtest-opts: -xstdc=X */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/err.strsize-min.d b/test/unittest/options/err.strsize-min.d index a2aeca0f..b290efa2 100644 --- a/test/unittest/options/err.strsize-min.d +++ b/test/unittest/options/err.strsize-min.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@runtest-opts: -xstrsize=1 */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/err.ustackframes-negative.d b/test/unittest/options/err.ustackframes-negative.d index ede20425..ca96a699 100644 --- a/test/unittest/options/err.ustackframes-negative.d +++ b/test/unittest/options/err.ustackframes-negative.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: -xustackframes=-1 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/err.ustackframes-too-high.sh b/test/unittest/options/err.ustackframes-too-high.sh index fc362fff..8c39116b 100755 --- a/test/unittest/options/err.ustackframes-too-high.sh +++ b/test/unittest/options/err.ustackframes-too-high.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -16,7 +16,7 @@ dtrace=$1 maxframes=$[ `cat /proc/sys/kernel/perf_event_max_stack` + 1 ] $dtrace $dt_flags -xustackframes=$maxframes -qn ' -BEGIN, ERROR +dtrace:::BEGIN, dtrace:::ERROR { trace("ERROR: DTrace should fail to start."); exit(0); diff --git a/test/unittest/options/err.version-pragma.d b/test/unittest/options/err.version-pragma.d index 88825ef6..54ce43c4 100644 --- a/test/unittest/options/err.version-pragma.d +++ b/test/unittest/options/err.version-pragma.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,6 +13,6 @@ #pragma D option version=99.1 -BEGIN { +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/err.version.d b/test/unittest/options/err.version.d index 093b29aa..9d7ee087 100644 --- a/test/unittest/options/err.version.d +++ b/test/unittest/options/err.version.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,6 +12,6 @@ */ /* @@runtest-opts: -xversion=99.1 */ -BEGIN { +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/tst.D.d b/test/unittest/options/tst.D.d index 8b1ab4f4..f6e0e47e 100644 --- a/test/unittest/options/tst.D.d +++ b/test/unittest/options/tst.D.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,14 +11,14 @@ * SECTION: Options and Tunables/Consumer Options */ -/* @@runtest-opts: -Dprobe=BEGIN -C */ +/* @@runtest-opts: -Dprobe=dtrace:::BEGIN -C */ probe { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.S.sh b/test/unittest/options/tst.S.sh index 5e2a9135..fde535b5 100755 --- a/test/unittest/options/tst.S.sh +++ b/test/unittest/options/tst.S.sh @@ -1,16 +1,16 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # dtrace=$1 -$dtrace $dt_flags -S -n 'BEGIN { exit(0); }' 2>&1 | \ +$dtrace $dt_flags -S -n 'dtrace:::BEGIN { exit(0); }' 2>&1 | \ gawk '{ print; } - /^Disassembly of clause :::BEGIN/ { hdr = 1; next; } + /^Disassembly of clause dtrace:::BEGIN/ { hdr = 1; next; } /^[0-9]{4} [0-9]{5}: [0-9a-f]{2} / { ins++; next; } END { exit(hdr && ins > 20 ? 0 : 1); diff --git a/test/unittest/options/tst.U.d b/test/unittest/options/tst.U.d index c2bcffbb..4c56a142 100644 --- a/test/unittest/options/tst.U.d +++ b/test/unittest/options/tst.U.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -U__linux -C */ -BEGIN +dtrace:::BEGIN { #ifdef __linux exit(1); @@ -22,7 +22,7 @@ BEGIN #endif } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.Z.d b/test/unittest/options/tst.Z.d index 614dd090..ced3a517 100644 --- a/test/unittest/options/tst.Z.d +++ b/test/unittest/options/tst.Z.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,8 +13,8 @@ /* @@runtest-opts: -Z */ -BEGIN, -fake:oracle:probe +dtrace:::BEGIN, +fake:oracle::probe { exit(0); } diff --git a/test/unittest/options/tst.argref.d b/test/unittest/options/tst.argref.d index 5f400c58..972f4843 100644 --- a/test/unittest/options/tst.argref.d +++ b/test/unittest/options/tst.argref.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: -xargref 1234 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.b.d b/test/unittest/options/tst.b.d index af7d090a..37238028 100644 --- a/test/unittest/options/tst.b.d +++ b/test/unittest/options/tst.b.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,12 +24,12 @@ */ /* @@runtest-opts: -b64 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.bpflog-cmdline.sh b/test/unittest/options/tst.bpflog-cmdline.sh index dd3971c0..d13ec462 100755 --- a/test/unittest/options/tst.bpflog-cmdline.sh +++ b/test/unittest/options/tst.bpflog-cmdline.sh @@ -1,13 +1,13 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # dtrace=$1 -$dtrace $dt_flags -xbpflog -qn 'BEGIN { exit(0); }' |& grep '^BPF: ' > /dev/null +$dtrace $dt_flags -xbpflog -qn 'dtrace:::BEGIN { exit(0); }' |& grep '^BPF: ' > /dev/null exit $? diff --git a/test/unittest/options/tst.bpflog-pragma.sh b/test/unittest/options/tst.bpflog-pragma.sh index ae7b89bf..22eacba7 100755 --- a/test/unittest/options/tst.bpflog-pragma.sh +++ b/test/unittest/options/tst.bpflog-pragma.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -11,7 +11,7 @@ dtrace=$1 $dtrace $dt_flags -qs /dev/stdin << EOT |& grep '^BPF: ' > /dev/null #pragma D option bpflog -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/tst.bpflogsize-cmdline.sh b/test/unittest/options/tst.bpflogsize-cmdline.sh index 509f9d07..c67dd280 100755 --- a/test/unittest/options/tst.bpflogsize-cmdline.sh +++ b/test/unittest/options/tst.bpflogsize-cmdline.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ cd $DIRNAME # - requires a larger-than-default-size BPF log file cat > D.d << EOF -BEGIN +dtrace:::BEGIN { x = 1; EOF diff --git a/test/unittest/options/tst.bpflogsize-pragma.sh b/test/unittest/options/tst.bpflogsize-pragma.sh index b9f12b6d..25cda675 100755 --- a/test/unittest/options/tst.bpflogsize-pragma.sh +++ b/test/unittest/options/tst.bpflogsize-pragma.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -19,7 +19,7 @@ cd $DIRNAME cat > D.d << EOF /* #pragma D option bpflogsize=nnnn */ -BEGIN +dtrace:::BEGIN { x = 1; EOF diff --git a/test/unittest/options/tst.bufsize.d b/test/unittest/options/tst.bufsize.d index 7884c0bc..4f4126d2 100644 --- a/test/unittest/options/tst.bufsize.d +++ b/test/unittest/options/tst.bufsize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,12 +24,12 @@ */ /* @@runtest-opts: -xbufsize=64 */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.core.sh b/test/unittest/options/tst.core.sh index df1b1bbd..25ac32a6 100755 --- a/test/unittest/options/tst.core.sh +++ b/test/unittest/options/tst.core.sh @@ -1,14 +1,14 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # dtrace=$1 -$dtrace $dt_flags -xcore -n 'BEGIN { exit(0); }' +$dtrace $dt_flags -xcore -n 'dtrace:::BEGIN { exit(0); }' file core | tee /dev/stderr | \ gawk 'BEGIN { rc = 1; } /ELF/ && /core file/ && /dtrace/ { rc = 0; next; } diff --git a/test/unittest/options/tst.cpp.d b/test/unittest/options/tst.cpp.d index f9b1a9cd..99dd9d06 100644 --- a/test/unittest/options/tst.cpp.d +++ b/test/unittest/options/tst.cpp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: -xcpp */ -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.cppargs.sh b/test/unittest/options/tst.cppargs.sh index 043dae4e..7d8bc8bc 100755 --- a/test/unittest/options/tst.cppargs.sh +++ b/test/unittest/options/tst.cppargs.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -15,7 +15,7 @@ $dtrace $dt_flags -xcppargs='-H -dM' -Cs /dev/stdin << EOT 2>&1 | \ END { exit(cnt < 0 ? 0 : 1); }' #include -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/tst.cpphdrs.sh b/test/unittest/options/tst.cpphdrs.sh index 22025c4a..1f4bd68a 100755 --- a/test/unittest/options/tst.cpphdrs.sh +++ b/test/unittest/options/tst.cpphdrs.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -14,7 +14,7 @@ $dtrace $dt_flags -xcpphdrs -Cs /dev/stdin << EOT 2>&1 | \ END { exit(cnt > 0 ? 0 : 1); }' #include -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/tst.cpppath.sh b/test/unittest/options/tst.cpppath.sh index f51b9a1e..6fc3a8b3 100755 --- a/test/unittest/options/tst.cpppath.sh +++ b/test/unittest/options/tst.cpppath.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -16,7 +16,7 @@ dtrace=$1 # $dtrace $dt_flags -xcpppath=/bin/cat -Cs /dev/stdin << EOT #if 1 -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/tst.cpu-BEGIN.sh b/test/unittest/options/tst.cpu-BEGIN.sh index 1fbdab41..1bd26edc 100755 --- a/test/unittest/options/tst.cpu-BEGIN.sh +++ b/test/unittest/options/tst.cpu-BEGIN.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -14,7 +14,7 @@ ncpus=${#cpulist[@]} cpu0=${cpulist[$((RANDOM % $ncpus))]} # Observe where DTrace runs. -cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'BEGIN { trace(cpu); exit(0); }'` +cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'dtrace:::BEGIN { trace(cpu); exit(0); }'` # Check result. echo expected cpu $cpu0 got cpu $cpu diff --git a/test/unittest/options/tst.cpu-END.sh b/test/unittest/options/tst.cpu-END.sh index 52b8ed4e..90ef2b65 100755 --- a/test/unittest/options/tst.cpu-END.sh +++ b/test/unittest/options/tst.cpu-END.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -14,7 +14,7 @@ ncpus=${#cpulist[@]} cpu0=${cpulist[$((RANDOM % $ncpus))]} # Observe where DTrace runs. -cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'BEGIN { exit(0) } END { trace(cpu); }'` +cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'dtrace:::BEGIN { exit(0) } dtrace:::END { trace(cpu); }'` # Check result. echo expected cpu $cpu0 got cpu $cpu diff --git a/test/unittest/options/tst.cpu-profile.sh b/test/unittest/options/tst.cpu-profile.sh index ab437aca..fb1bcfad 100755 --- a/test/unittest/options/tst.cpu-profile.sh +++ b/test/unittest/options/tst.cpu-profile.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -14,7 +14,7 @@ ncpus=${#cpulist[@]} cpu0=${cpulist[$((RANDOM % $ncpus))]} # Observe where DTrace runs. -cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'profile-100ms { trace(cpu); exit(0); }'` +cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'profile:::profile-100ms { trace(cpu); exit(0); }'` # Check result. echo expected cpu $cpu0 got cpu $cpu diff --git a/test/unittest/options/tst.cpu-tick.sh b/test/unittest/options/tst.cpu-tick.sh index 5a4a5ed1..1bbd6b5f 100755 --- a/test/unittest/options/tst.cpu-tick.sh +++ b/test/unittest/options/tst.cpu-tick.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -14,7 +14,7 @@ ncpus=${#cpulist[@]} cpu0=${cpulist[$((RANDOM % $ncpus))]} # Observe where DTrace runs. -cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'tick-100ms { trace(cpu); exit(0); }'` +cpu=`$dtrace $dt_flags -xcpu=$cpu0 -qn 'profile:::tick-100ms { trace(cpu); exit(0); }'` # Check result. echo expected cpu $cpu0 got cpu $cpu diff --git a/test/unittest/options/tst.ctf-only.sh b/test/unittest/options/tst.ctf-only.sh index 8ca8a0ac..fe13f320 100755 --- a/test/unittest/options/tst.ctf-only.sh +++ b/test/unittest/options/tst.ctf-only.sh @@ -8,7 +8,7 @@ dir=$tmpdir/ctf-only.$$ mkdir -p "$dir" || exit 1 "$dtrace" $dt_flags -e -xdebug -xbtfpath=none -n ' -BEGIN +dtrace:::BEGIN { this->size = sizeof(struct vmlinux`task_struct); }' >"$dir/output" 2>&1 diff --git a/test/unittest/options/tst.ctfpath.r b/test/unittest/options/tst.ctfpath.r index 13795321..ce73f4b0 100644 --- a/test/unittest/options/tst.ctfpath.r +++ b/test/unittest/options/tst.ctfpath.r @@ -2,4 +2,4 @@ :BEGIN -- @@stderr -- -dtrace: description 'BEGIN ' matched 1 probe +dtrace: description 'dtrace:::BEGIN ' matched 1 probe diff --git a/test/unittest/options/tst.ctfpath.sh b/test/unittest/options/tst.ctfpath.sh index eb7a64d9..43953873 100755 --- a/test/unittest/options/tst.ctfpath.sh +++ b/test/unittest/options/tst.ctfpath.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -14,6 +14,6 @@ dtrace=$1 ctf=`$dtrace $dt_flags -xdebug |& gawk '/Loaded shared CTF from/ { $0 = $NF; sub(/\.$/, ""); print; }'` -$dtrace $dt_flags -xctfpath=$ctf -n 'BEGIN { exit(0); }' +$dtrace $dt_flags -xctfpath=$ctf -n 'dtrace:::BEGIN { exit(0); }' exit $? diff --git a/test/unittest/options/tst.ctypes.sh b/test/unittest/options/tst.ctypes.sh index 767de0db..8b81eb3e 100755 --- a/test/unittest/options/tst.ctypes.sh +++ b/test/unittest/options/tst.ctypes.sh @@ -1,14 +1,14 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # dtrace=$1 -$dtrace $dt_flags -xctypes=$tmpdir/ctypes.ctf -n 'BEGIN { exit(0); }' +$dtrace $dt_flags -xctypes=$tmpdir/ctypes.ctf -n 'dtrace:::BEGIN { exit(0); }' if [ ! -r $tmpdir/ctypes.ctf ]; then echo "ERROR: No ctypes.ctf generated" exit 1 diff --git a/test/unittest/options/tst.debug.sh b/test/unittest/options/tst.debug.sh index a0cfc339..657ebb1d 100755 --- a/test/unittest/options/tst.debug.sh +++ b/test/unittest/options/tst.debug.sh @@ -1,14 +1,14 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # dtrace=$1 -$dtrace $dt_flags -xdebug -n 'BEGIN { exit(0); }' 2>&1 | \ +$dtrace $dt_flags -xdebug -n 'dtrace:::BEGIN { exit(0); }' 2>&1 | \ gawk '$2 == "DEBUG" && int($3) > 0 { cnt[$1]++; } diff --git a/test/unittest/options/tst.defaultargs.d b/test/unittest/options/tst.defaultargs.d index 3c1bad05..efdba20e 100644 --- a/test/unittest/options/tst.defaultargs.d +++ b/test/unittest/options/tst.defaultargs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ /* @@runtest-opts: -xdefaultargs */ -BEGIN +dtrace:::BEGIN { exit($1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.defaultargs2.d b/test/unittest/options/tst.defaultargs2.d index bdf96904..4e7e023a 100644 --- a/test/unittest/options/tst.defaultargs2.d +++ b/test/unittest/options/tst.defaultargs2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -xdefaultargs 2 1 */ -BEGIN +dtrace:::BEGIN { trace($1); trace($2); @@ -21,7 +21,7 @@ BEGIN exit($3); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.define.d b/test/unittest/options/tst.define.d index 2a1c589d..40f0a16a 100644 --- a/test/unittest/options/tst.define.d +++ b/test/unittest/options/tst.define.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,14 +11,14 @@ * SECTION: Options and Tunables/Consumer Options */ -/* @@runtest-opts: -xdefine=probe=BEGIN -C */ +/* @@runtest-opts: -xdefine=probe=dtrace:::BEGIN -C */ probe { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.destructive.d b/test/unittest/options/tst.destructive.d index 8bebca8c..e8c7906d 100644 --- a/test/unittest/options/tst.destructive.d +++ b/test/unittest/options/tst.destructive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -xdestructive */ -BEGIN +dtrace:::BEGIN { system("echo ok"); exit(0); diff --git a/test/unittest/options/tst.dtypes.sh b/test/unittest/options/tst.dtypes.sh index ac6a8036..7954f076 100755 --- a/test/unittest/options/tst.dtypes.sh +++ b/test/unittest/options/tst.dtypes.sh @@ -1,14 +1,14 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # dtrace=$1 -$dtrace $dt_flags -xdtypes=$tmpdir/dtypes.ctf -n 'BEGIN { exit(0); }' +$dtrace $dt_flags -xdtypes=$tmpdir/dtypes.ctf -n 'dtrace:::BEGIN { exit(0); }' if [ ! -r $tmpdir/dtypes.ctf ]; then echo "ERROR: No dtypes.ctf generated" exit 1 diff --git a/test/unittest/options/tst.incdir.sh b/test/unittest/options/tst.incdir.sh index 3193a016..ba0b9fa4 100755 --- a/test/unittest/options/tst.incdir.sh +++ b/test/unittest/options/tst.incdir.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -16,7 +16,7 @@ cd $DIRNAME cat << EOF > D.d #include "D.h" -BEGIN +dtrace:::BEGIN { printf("%c%c%c%c\n", (foo) 0x67, (foo) 0x6f, (foo) 0x6f, (foo) 0x64); exit(0); diff --git a/test/unittest/options/tst.iregs.sh b/test/unittest/options/tst.iregs.sh index 15fb1b1e..d5df52c2 100755 --- a/test/unittest/options/tst.iregs.sh +++ b/test/unittest/options/tst.iregs.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -13,7 +13,7 @@ dtrace=$1 # once n becomes too small, there are insufficient registers for n in 8 7 6 5 4 3; do - $dtrace $dt_flags -xiregs=$n -qn 'BEGIN { + $dtrace $dt_flags -xiregs=$n -qn 'dtrace:::BEGIN { a = b = c = d = e = f = g = h = i = j = k = l = 1; trace(a + b * (c + d * (e + f * (g + h * (i + j * (k + l)))))); exit(0); diff --git a/test/unittest/options/tst.knodefs.sh b/test/unittest/options/tst.knodefs.sh index ab9f619e..832e5575 100755 --- a/test/unittest/options/tst.knodefs.sh +++ b/test/unittest/options/tst.knodefs.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,7 +9,7 @@ dtrace=$1 $dtrace $dt_flags -xlinkmode=dynamic -xknodefs \ - -Sn 'BEGIN { trace((string)&`linux_banner); exit(0); }' 2>&1 | \ + -Sn 'dtrace:::BEGIN { trace((string)&`linux_banner); exit(0); }' 2>&1 | \ gawk '/^KREL/ { print; while (getline == 1) { diff --git a/test/unittest/options/tst.ldpath.sh b/test/unittest/options/tst.ldpath.sh index 96d12871..fd4856a9 100755 --- a/test/unittest/options/tst.ldpath.sh +++ b/test/unittest/options/tst.ldpath.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -13,5 +13,5 @@ mkdir -p $DIRNAME cd $DIRNAME # ldpath=ld does nothing remarkable, but this test complements err.ldpath.d -$dtrace $dt_flags -G -xldpath=ld -n 'BEGIN {exit(0)}' +$dtrace $dt_flags -G -xldpath=ld -n 'dtrace:::BEGIN {exit(0)}' exit $? diff --git a/test/unittest/options/tst.libdir.r b/test/unittest/options/tst.libdir.r index 718bb99b..c180bea1 100644 --- a/test/unittest/options/tst.libdir.r +++ b/test/unittest/options/tst.libdir.r @@ -1,3 +1,3 @@ DTrace found the faulty D program in the specified subdirectory -- @@stderr -- -dtrace: invalid probe specifier BEGIN {exit(0)}: "subdirectory/faulty_D_program.d", line 2: undefined function name: nonexistent_action +dtrace: invalid probe specifier dtrace:::BEGIN {exit(0)}: "subdirectory/faulty_D_program.d", line 2: undefined function name: nonexistent_action diff --git a/test/unittest/options/tst.libdir.sh b/test/unittest/options/tst.libdir.sh index bf56f6b3..6b2b04d9 100755 --- a/test/unittest/options/tst.libdir.sh +++ b/test/unittest/options/tst.libdir.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -15,13 +15,13 @@ cd $DIRNAME # place a faulty D program in a subdirectory mkdir subdirectory cat << EOF > subdirectory/faulty_D_program.d -BEGIN { +dtrace:::BEGIN { nonexistent_action(); } EOF # check that the subdirectory (and its faulty program) is found -$dtrace $dt_flags -xlibdir=subdirectory -n 'BEGIN {exit(0)}' +$dtrace $dt_flags -xlibdir=subdirectory -n 'dtrace:::BEGIN {exit(0)}' if [ $? -eq 0 ]; then echo ERROR: DTrace should have failed due to faulty D program exit 1 diff --git a/test/unittest/options/tst.linkmode.r b/test/unittest/options/tst.linkmode.r index acbf8025..ccdc4b5f 100644 --- a/test/unittest/options/tst.linkmode.r +++ b/test/unittest/options/tst.linkmode.r @@ -14,4 +14,4 @@ Linux version -- @@stderr -- dtrace: failed to set -x linkmode: Invalid value for specified option -dtrace: invalid probe specifier BEGIN { trace((string)&`linux_banner); exit(0); }: relocation remains against kernel symbol vmlinux`linux_banner (offset {ptr}) +dtrace: invalid probe specifier dtrace:::BEGIN { trace((string)&`linux_banner); exit(0); }: relocation remains against kernel symbol vmlinux`linux_banner (offset {ptr}) diff --git a/test/unittest/options/tst.linkmode.sh b/test/unittest/options/tst.linkmode.sh index 07045fd5..8839f805 100755 --- a/test/unittest/options/tst.linkmode.sh +++ b/test/unittest/options/tst.linkmode.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -12,7 +12,7 @@ dtrace=$1 function mytest() { echo try $1 - $dtrace $1 -qn 'BEGIN { trace((string)&`linux_banner); exit(0); }' | cut -c-14 + $dtrace $1 -qn 'dtrace:::BEGIN { trace((string)&`linux_banner); exit(0); }' | cut -c-14 } # Test different link modes. diff --git a/test/unittest/options/tst.q.d b/test/unittest/options/tst.q.d index 34e21e93..ebb312f1 100644 --- a/test/unittest/options/tst.q.d +++ b/test/unittest/options/tst.q.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -q */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/tst.quiet.d b/test/unittest/options/tst.quiet.d index 2aed2597..82909df9 100644 --- a/test/unittest/options/tst.quiet.d +++ b/test/unittest/options/tst.quiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ /* @@runtest-opts: -xquiet */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/tst.stdc-a.d b/test/unittest/options/tst.stdc-a.d index 6b383032..6e9a9453 100644 --- a/test/unittest/options/tst.stdc-a.d +++ b/test/unittest/options/tst.stdc-a.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@runtest-opts: -C -xstdc=a */ -BEGIN +dtrace:::BEGIN { #ifdef __STDC__ exit(0); diff --git a/test/unittest/options/tst.stdc-c.d b/test/unittest/options/tst.stdc-c.d index a896a3b6..a79e6111 100644 --- a/test/unittest/options/tst.stdc-c.d +++ b/test/unittest/options/tst.stdc-c.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@runtest-opts: -C -xstdc=c */ -BEGIN +dtrace:::BEGIN { #ifdef __STDC__ exit(0); diff --git a/test/unittest/options/tst.stdc-s.d b/test/unittest/options/tst.stdc-s.d index 87d45778..503beb27 100644 --- a/test/unittest/options/tst.stdc-s.d +++ b/test/unittest/options/tst.stdc-s.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@runtest-opts: -C -xstdc=s */ -BEGIN +dtrace:::BEGIN { #ifdef __STDC__ exit(1); diff --git a/test/unittest/options/tst.stdc-t.d b/test/unittest/options/tst.stdc-t.d index 244d2f01..b9806c65 100644 --- a/test/unittest/options/tst.stdc-t.d +++ b/test/unittest/options/tst.stdc-t.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@runtest-opts: -C -xstdc=t */ -BEGIN +dtrace:::BEGIN { #ifdef __STDC__ exit(0); diff --git a/test/unittest/options/tst.strsize-min.d b/test/unittest/options/tst.strsize-min.d index 9fd902b1..55698247 100644 --- a/test/unittest/options/tst.strsize-min.d +++ b/test/unittest/options/tst.strsize-min.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@runtest-opts: -xstrsize=2 */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/options/tst.switchrate.sh b/test/unittest/options/tst.switchrate.sh index ce8065ab..0c712cdf 100755 --- a/test/unittest/options/tst.switchrate.sh +++ b/test/unittest/options/tst.switchrate.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ for nexpect in 1 16; do # Run the "instantaneous" D script with the prescribed switchrate. # Time it. Round to the nearest number of seconds with int(t+0.5). nactual=`/usr/bin/time -f "%e" \ - $dtrace $dt_flags -xswitchrate=${nexpect}sec -qn 'BEGIN { exit(0) }' \ + $dtrace $dt_flags -xswitchrate=${nexpect}sec -qn 'dtrace:::BEGIN { exit(0) }' \ |& gawk 'NF != 0 {print int($1 + 0.5)}'` # Check the actual number of seconds to the expected value. diff --git a/test/unittest/options/tst.tregs.r b/test/unittest/options/tst.tregs.r index 79c16047..eaae4461 100644 --- a/test/unittest/options/tst.tregs.r +++ b/test/unittest/options/tst.tregs.r @@ -7,5 +7,5 @@ tregs 9 gives 0 1 2 3 4 5 6 7 1 tregs 11 gives 0 -- @@stderr -- -dtrace: invalid probe specifier BEGIN { @[1, 2, 3, 4, 5, 6, 7] = count(); exit(0) }: Insufficient tuple registers to generate code -dtrace: invalid probe specifier BEGIN { @[1, 2, 3, 4, 5, 6, 7] = count(); exit(0) }: Insufficient tuple registers to generate code +dtrace: invalid probe specifier dtrace:::BEGIN { @[1, 2, 3, 4, 5, 6, 7] = count(); exit(0) }: Insufficient tuple registers to generate code +dtrace: invalid probe specifier dtrace:::BEGIN { @[1, 2, 3, 4, 5, 6, 7] = count(); exit(0) }: Insufficient tuple registers to generate code diff --git a/test/unittest/options/tst.tregs.sh b/test/unittest/options/tst.tregs.sh index 65cdb83e..ff16bab2 100755 --- a/test/unittest/options/tst.tregs.sh +++ b/test/unittest/options/tst.tregs.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,6 +9,6 @@ dtrace=$1 for x in 3 5 9 11; do - $dtrace $dt_flags -xtregs=$x -qn 'BEGIN { @[1, 2, 3, 4, 5, 6, 7] = count(); exit(0) }' + $dtrace $dt_flags -xtregs=$x -qn 'dtrace:::BEGIN { @[1, 2, 3, 4, 5, 6, 7] = count(); exit(0) }' echo "tregs $x gives $?" done diff --git a/test/unittest/options/tst.undef.d b/test/unittest/options/tst.undef.d index 9913cc1f..a3ce8d0f 100644 --- a/test/unittest/options/tst.undef.d +++ b/test/unittest/options/tst.undef.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -xundef=__linux -C */ -BEGIN +dtrace:::BEGIN { #ifdef __linux exit(1); @@ -22,7 +22,7 @@ BEGIN #endif } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/options/tst.verbose.sh b/test/unittest/options/tst.verbose.sh index 90ab5a62..7cdd97e4 100755 --- a/test/unittest/options/tst.verbose.sh +++ b/test/unittest/options/tst.verbose.sh @@ -1,16 +1,16 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # dtrace=$1 -$dtrace $dt_flags -xverbose -n 'BEGIN { exit(0); }' 2>&1 | \ +$dtrace $dt_flags -xverbose -n 'dtrace:::BEGIN { exit(0); }' 2>&1 | \ gawk '{ print; } - /^Disassembly of clause :::BEGIN/ { hdr = 1; next; } + /^Disassembly of clause dtrace:::BEGIN/ { hdr = 1; next; } /^[0-9]{4} [0-9]{5}: [0-9a-f]{2} / { ins++; next; } END { exit(hdr && ins > 20 ? 0 : 1); diff --git a/test/unittest/options/tst.w.d b/test/unittest/options/tst.w.d index 850bb3c8..e887515e 100644 --- a/test/unittest/options/tst.w.d +++ b/test/unittest/options/tst.w.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -w */ -BEGIN +dtrace:::BEGIN { system("echo ok"); exit(0); diff --git a/test/unittest/options/tst.zdefs.d b/test/unittest/options/tst.zdefs.d index 322ea6bf..921b968a 100644 --- a/test/unittest/options/tst.zdefs.d +++ b/test/unittest/options/tst.zdefs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,8 +13,8 @@ /* @@runtest-opts: -xzdefs */ -BEGIN, -fake:oracle:probe +dtrace:::BEGIN, +fake:oracle::probe { exit(0); } diff --git a/test/unittest/pcap/err.D_PROTO_ARG.pcap_non_scalar_arg1.d b/test/unittest/pcap/err.D_PROTO_ARG.pcap_non_scalar_arg1.d index ecd6cf69..af23e069 100644 --- a/test/unittest/pcap/err.D_PROTO_ARG.pcap_non_scalar_arg1.d +++ b/test/unittest/pcap/err.D_PROTO_ARG.pcap_non_scalar_arg1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,13 +15,13 @@ struct { int a; } arg; -BEGIN +dtrace:::BEGIN { pcap(arg, 0); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/pcap/err.D_PROTO_ARG.pcap_non_scalar_arg2.d b/test/unittest/pcap/err.D_PROTO_ARG.pcap_non_scalar_arg2.d index fed3c4a9..dafd1e98 100644 --- a/test/unittest/pcap/err.D_PROTO_ARG.pcap_non_scalar_arg2.d +++ b/test/unittest/pcap/err.D_PROTO_ARG.pcap_non_scalar_arg2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,13 +11,13 @@ * SECTION: Actions and Subroutines/pcap() */ -BEGIN +dtrace:::BEGIN { pcap(0, "a"); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/pcap/err.D_PROTO_LEN.pcap_missing_arg.d b/test/unittest/pcap/err.D_PROTO_LEN.pcap_missing_arg.d index 3ab818a3..84b2f839 100644 --- a/test/unittest/pcap/err.D_PROTO_LEN.pcap_missing_arg.d +++ b/test/unittest/pcap/err.D_PROTO_LEN.pcap_missing_arg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,13 +11,13 @@ * SECTION: Actions and Subroutines/pcap() */ -BEGIN +dtrace:::BEGIN { pcap(); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/pcap/err.D_PROTO_LEN.pcap_too_few_args.d b/test/unittest/pcap/err.D_PROTO_LEN.pcap_too_few_args.d index 4f4f2eaf..e8fbfa32 100644 --- a/test/unittest/pcap/err.D_PROTO_LEN.pcap_too_few_args.d +++ b/test/unittest/pcap/err.D_PROTO_LEN.pcap_too_few_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,13 +11,13 @@ * SECTION: Actions and Subroutines/pcap() */ -BEGIN +dtrace:::BEGIN { pcap(0); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/pcap/err.D_PROTO_LEN.pcap_too_many_args.d b/test/unittest/pcap/err.D_PROTO_LEN.pcap_too_many_args.d index e744df36..03e79e0f 100644 --- a/test/unittest/pcap/err.D_PROTO_LEN.pcap_too_many_args.d +++ b/test/unittest/pcap/err.D_PROTO_LEN.pcap_too_many_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,13 +11,13 @@ * SECTION: Actions and Subroutines/pcap() */ -BEGIN +dtrace:::BEGIN { pcap(1, 2, 3); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/pcap/tst.pcap.regleak.d b/test/unittest/pcap/tst.pcap.regleak.d index 3eb3cbc7..1be34ad0 100644 --- a/test/unittest/pcap/tst.pcap.regleak.d +++ b/test/unittest/pcap/tst.pcap.regleak.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ /* @@runtest-opts: -e */ -BEGIN +dtrace:::BEGIN { /* * If pcap() leaks even a single register, ten invocations will most @@ -32,7 +32,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pid/err.D_PROC_CREATEFAIL.many.d b/test/unittest/pid/err.D_PROC_CREATEFAIL.many.d index 815fa202..d7c6eb24 100644 --- a/test/unittest/pid/err.D_PROC_CREATEFAIL.many.d +++ b/test/unittest/pid/err.D_PROC_CREATEFAIL.many.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2018, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ pid$target::: { } -BEGIN +dtrace:::BEGIN { exit(1); } diff --git a/test/unittest/pid/tst.addprobes.sh b/test/unittest/pid/tst.addprobes.sh index 81092c9f..8cd161fd 100755 --- a/test/unittest/pid/tst.addprobes.sh +++ b/test/unittest/pid/tst.addprobes.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -23,14 +23,14 @@ sleep 60 & pid=$! disown %+ -$dtrace $dt_flags -n pid$pid:libc::entry -n 'tick-1s{exit(0);}' +$dtrace $dt_flags -n pid$pid:libc::entry -n 'profile:::tick-1s{exit(0);}' status=$? if [ $status -gt 0 ]; then exit $status; fi -$dtrace $dt_flags -n pid$pid:libc::return -n 'tick-1s{exit(0);}' +$dtrace $dt_flags -n pid$pid:libc::return -n 'profile:::tick-1s{exit(0);}' status=$? if [ $status -gt 0 ]; then diff --git a/test/unittest/pid/tst.args1.d b/test/unittest/pid/tst.args1.d index c92bf719..449849c8 100644 --- a/test/unittest/pid/tst.args1.d +++ b/test/unittest/pid/tst.args1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option destructive -BEGIN +dtrace:::BEGIN { /* * Wait no more than a second for the first call to getpid(2). diff --git a/test/unittest/pid/tst.coverage.d b/test/unittest/pid/tst.coverage.d index 4d93033e..9c55c857 100644 --- a/test/unittest/pid/tst.coverage.d +++ b/test/unittest/pid/tst.coverage.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ profile:::tick-2sec exit(n > 0 ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pid/tst.emptystack.d b/test/unittest/pid/tst.emptystack.d index 2581e6b6..082c9504 100644 --- a/test/unittest/pid/tst.emptystack.d +++ b/test/unittest/pid/tst.emptystack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* * Monitor the program for two seconds. diff --git a/test/unittest/pid/tst.gcc.d b/test/unittest/pid/tst.gcc.d index 99fca559..512276da 100644 --- a/test/unittest/pid/tst.gcc.d +++ b/test/unittest/pid/tst.gcc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ * */ -BEGIN +dtrace:::BEGIN { /* * Let's just do this for 2 seconds. diff --git a/test/unittest/pid/tst.main.sh b/test/unittest/pid/tst.main.sh index 5faafa5f..c8722f66 100755 --- a/test/unittest/pid/tst.main.sh +++ b/test/unittest/pid/tst.main.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -19,7 +19,7 @@ dtrace=$1 # $dtrace $dt_flags -c test/triggers/delaydie -s /dev/stdin < $tmpfile +echo "profile:::tick-1sec { exit(0); }" > $tmpfile while [ "$i" -lt "$numkids" ]; do echo "pid${pids[$i]}::malloc:entry {}" >> $tmpfile diff --git a/test/unittest/pid/tst.multi-return.d b/test/unittest/pid/tst.multi-return.d index 0f81f343..1493a18c 100644 --- a/test/unittest/pid/tst.multi-return.d +++ b/test/unittest/pid/tst.multi-return.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ pid$target:a.out::return @[probefunc] = count(); } -tick-2s +profile:::tick-2s { exit(0); } diff --git a/test/unittest/pid/tst.newprobes.sh b/test/unittest/pid/tst.newprobes.sh index 7f6969ea..de9391f9 100755 --- a/test/unittest/pid/tst.newprobes.sh +++ b/test/unittest/pid/tst.newprobes.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2008, 2018, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -25,19 +25,19 @@ pid*:awk:: printf("%s:%s\n", probefunc, probename); } -tick-1s +profile:::tick-1s /i++ > 5/ { exit(0); } -tick-1s +profile:::tick-1s /(i % 2) == 0/ { system("$dtrace $dt_flags -c awk -n 'pid\$target::main:entry{exit(0);}' >/dev/null 2>&1"); } -tick-1s +profile:::tick-1s /(i % 2) == 1/ { system("$dtrace $dt_flags -c awk -n 'pid\$target::main:entry{exit(0);}' >/dev/null 2>&1"); diff --git a/test/unittest/pid/tst.probemod.sh b/test/unittest/pid/tst.probemod.sh index 5a6dcdbe..51a9ce70 100755 --- a/test/unittest/pid/tst.probemod.sh +++ b/test/unittest/pid/tst.probemod.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -37,7 +37,7 @@ for lib in $names; do sleep 60 & pid=$! disown %+ - $dtrace $dt_flags -n "pid$pid:$lib:malloc*:entry" -n 'tick-2s{exit(0);}' + $dtrace $dt_flags -n "pid$pid:$lib:malloc*:entry" -n 'profile:::tick-2s{exit(0);}' status=$? kill $pid diff --git a/test/unittest/pid/tst.provregex2.sh b/test/unittest/pid/tst.provregex2.sh index 890836d9..3a4d1441 100755 --- a/test/unittest/pid/tst.provregex2.sh +++ b/test/unittest/pid/tst.provregex2.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2008, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -90,7 +90,7 @@ p*d$target::go:entry @foo[probemod, probefunc, probename] = count(); } -END +dtrace:::END { printa("%s:%s:%s %@u\n",@foo); } diff --git a/test/unittest/pid/tst.provregex4.sh b/test/unittest/pid/tst.provregex4.sh index 0e405d3a..529b2d1d 100755 --- a/test/unittest/pid/tst.provregex4.sh +++ b/test/unittest/pid/tst.provregex4.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2008, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -113,7 +113,7 @@ p*d$target::go:entry @foo[probemod, probefunc, probename] = count(); } -END +dtrace:::END { printa("%s:%s:%s %@u\n",@foo); } diff --git a/test/unittest/pid/tst.restartloop.sh b/test/unittest/pid/tst.restartloop.sh index ee96080c..7ca87f15 100755 --- a/test/unittest/pid/tst.restartloop.sh +++ b/test/unittest/pid/tst.restartloop.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2014, 2018, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2014, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ script() { # Just quit at once. $dtrace -Z $dt_flags -s /dev/stdin <&1` +out=`run_in_pidns "$dtrace" $dt_flags -qn 'dtrace:::BEGIN { printf("begin\n"); exit(0); }' 2>&1` status=$? if [ $status -ne 0 ]; then diff --git a/test/unittest/pidns/tst.concurrent.sh b/test/unittest/pidns/tst.concurrent.sh index b73459bf..c6fbdea9 100755 --- a/test/unittest/pidns/tst.concurrent.sh +++ b/test/unittest/pidns/tst.concurrent.sh @@ -22,11 +22,11 @@ run_in_pidns bash -s "$dtrace" "$DIRNAME" <<'EOS' dtrace=$1 dir=$2 -"$dtrace" $dt_flags -qn 'BEGIN { printf("A\n"); exit(0); }' \ +"$dtrace" $dt_flags -qn 'dtrace:::BEGIN { printf("A\n"); exit(0); }' \ > "$dir/a.out" 2> "$dir/a.err" & p1=$! -"$dtrace" $dt_flags -qn 'BEGIN { printf("B\n"); exit(0); }' \ +"$dtrace" $dt_flags -qn 'dtrace:::BEGIN { printf("B\n"); exit(0); }' \ > "$dir/b.out" 2> "$dir/b.err" & p2=$! diff --git a/test/unittest/pidns/tst.disasm-helper.sh b/test/unittest/pidns/tst.disasm-helper.sh index 552275db..5e5f9e17 100755 --- a/test/unittest/pidns/tst.disasm-helper.sh +++ b/test/unittest/pidns/tst.disasm-helper.sh @@ -21,7 +21,7 @@ cur_pidns_ino=`stat -Lc %i /proc/self/ns/pid 2>/dev/null` check_current_namespace() { - out=`"$dtrace" $dt_flags -xdisasm=8 -S -n 'BEGIN { exit(0); }' 2>&1` + out=`"$dtrace" $dt_flags -xdisasm=8 -S -n 'dtrace:::BEGIN { exit(0); }' 2>&1` status=$? if [ $status -ne 0 ]; then echo "$out" @@ -41,7 +41,7 @@ echo "$out" check_nested_namespace() { - out=`run_in_pidns "$dtrace" $dt_flags -xdisasm=8 -S -n 'BEGIN { exit(0); }' 2>&1` + out=`run_in_pidns "$dtrace" $dt_flags -xdisasm=8 -S -n 'dtrace:::BEGIN { exit(0); }' 2>&1` status=$? if [ $status -ne 0 ]; then echo "$out" diff --git a/test/unittest/pidns/tst.end.sh b/test/unittest/pidns/tst.end.sh index 2ea21f1e..6bb75102 100755 --- a/test/unittest/pidns/tst.end.sh +++ b/test/unittest/pidns/tst.end.sh @@ -17,13 +17,13 @@ check_dtrace_arg "$@" dtrace=$1 out=`run_in_pidns "$dtrace" $dt_flags -qn ' -BEGIN +dtrace:::BEGIN { printf("begin\n"); exit(0); } -END +dtrace:::END { printf("end\n"); } diff --git a/test/unittest/pidns/tst.io-dev-name.sh b/test/unittest/pidns/tst.io-dev-name.sh index 9c6be5c6..a22be7be 100755 --- a/test/unittest/pidns/tst.io-dev-name.sh +++ b/test/unittest/pidns/tst.io-dev-name.sh @@ -57,13 +57,13 @@ io:::start bad++; } -END +dtrace:::END /seen == 0/ { printf("did not see io:::start for %s\n", "'"$statname"'"); } -END +dtrace:::END { exit(seen == 0 || bad != 0); } diff --git a/test/unittest/pointers/err.AllocaOverrun.d b/test/unittest/pointers/err.AllocaOverrun.d index 0cfbd58c..cac2ba33 100644 --- a/test/unittest/pointers/err.AllocaOverrun.d +++ b/test/unittest/pointers/err.AllocaOverrun.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = (int *)alloca(sizeof(int)); printf("Address x: %x\n", (int)x); @@ -30,7 +30,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/err.BadAlign.d b/test/unittest/pointers/err.BadAlign.d index e859dd75..36d50d9b 100644 --- a/test/unittest/pointers/err.BadAlign.d +++ b/test/unittest/pointers/err.BadAlign.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,14 +16,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = (int *)64; y = *x; trace(y); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/err.D_ADDROF_VAR.ArrayVar.d b/test/unittest/pointers/err.D_ADDROF_VAR.ArrayVar.d index f41822ae..acfca958 100644 --- a/test/unittest/pointers/err.D_ADDROF_VAR.ArrayVar.d +++ b/test/unittest/pointers/err.D_ADDROF_VAR.ArrayVar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ int a[5]; int *p; -BEGIN +dtrace:::BEGIN { p = &a; diff --git a/test/unittest/pointers/err.D_ADDROF_VAR.DynamicVar.d b/test/unittest/pointers/err.D_ADDROF_VAR.DynamicVar.d index a28f89af..b816481b 100644 --- a/test/unittest/pointers/err.D_ADDROF_VAR.DynamicVar.d +++ b/test/unittest/pointers/err.D_ADDROF_VAR.DynamicVar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ int i; int *p; -BEGIN +dtrace:::BEGIN { i = 10; p = &i; diff --git a/test/unittest/pointers/err.D_ADDROF_VAR.agg.d b/test/unittest/pointers/err.D_ADDROF_VAR.agg.d index 7b23755b..50935fb6 100644 --- a/test/unittest/pointers/err.D_ADDROF_VAR.agg.d +++ b/test/unittest/pointers/err.D_ADDROF_VAR.agg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * SECTION: Pointers and Arrays/Pointers to Dtrace Objects */ -BEGIN +dtrace:::BEGIN { @a = count(); trace(&@a); diff --git a/test/unittest/pointers/err.D_DEREF_NONPTR.noptr.d b/test/unittest/pointers/err.D_DEREF_NONPTR.noptr.d index 61623f81..561ecd9c 100644 --- a/test/unittest/pointers/err.D_DEREF_NONPTR.noptr.d +++ b/test/unittest/pointers/err.D_DEREF_NONPTR.noptr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ int x; -BEGIN +dtrace:::BEGIN { b = *x; } diff --git a/test/unittest/pointers/err.D_DEREF_VOID.VoidPointerDeref.d b/test/unittest/pointers/err.D_DEREF_VOID.VoidPointerDeref.d index 749153a9..abaa315d 100644 --- a/test/unittest/pointers/err.D_DEREF_VOID.VoidPointerDeref.d +++ b/test/unittest/pointers/err.D_DEREF_VOID.VoidPointerDeref.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ void *p; int array[3]; -BEGIN +dtrace:::BEGIN { array[0] = 234; array[1] = 334; diff --git a/test/unittest/pointers/err.D_OP_ARRFUN.ArrayAssignment.d b/test/unittest/pointers/err.D_OP_ARRFUN.ArrayAssignment.d index 0f78c48b..3424f73f 100644 --- a/test/unittest/pointers/err.D_OP_ARRFUN.ArrayAssignment.d +++ b/test/unittest/pointers/err.D_OP_ARRFUN.ArrayAssignment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ int array1[3]; int array2[3]; -BEGIN +dtrace:::BEGIN { array1[0] = 200; array1[1] = 400; diff --git a/test/unittest/pointers/err.D_OP_INCOMPAT.VoidPointerArith.d b/test/unittest/pointers/err.D_OP_INCOMPAT.VoidPointerArith.d index 4feda30e..27a9a7c3 100644 --- a/test/unittest/pointers/err.D_OP_INCOMPAT.VoidPointerArith.d +++ b/test/unittest/pointers/err.D_OP_INCOMPAT.VoidPointerArith.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ void *p; -BEGIN +dtrace:::BEGIN { printf("p: %d\n", (int)p); printf("p+1: %d\n", (int)(p+1)); diff --git a/test/unittest/pointers/err.D_OP_LVAL.AddressChange.d b/test/unittest/pointers/err.D_OP_LVAL.AddressChange.d index 0585708f..c1bf6077 100644 --- a/test/unittest/pointers/err.D_OP_LVAL.AddressChange.d +++ b/test/unittest/pointers/err.D_OP_LVAL.AddressChange.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { &`max_pfn = (int *)0x185ede4; pfnAddress = &`max_pfn; @@ -25,7 +25,7 @@ BEGIN printf("Value of max_pfn: %d\n", `max_pfn); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/err.D_OP_PTR.NonPointerAccess.d b/test/unittest/pointers/err.D_OP_PTR.NonPointerAccess.d index f73b0719..70efce32 100644 --- a/test/unittest/pointers/err.D_OP_PTR.NonPointerAccess.d +++ b/test/unittest/pointers/err.D_OP_PTR.NonPointerAccess.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ struct myinput_struct { struct myinput_struct f; -BEGIN +dtrace:::BEGIN { f.i = 10; f.c = 'c'; @@ -32,7 +32,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/err.D_OP_PTR.badpointer.d b/test/unittest/pointers/err.D_OP_PTR.badpointer.d index a0048400..cc9c25d1 100644 --- a/test/unittest/pointers/err.D_OP_PTR.badpointer.d +++ b/test/unittest/pointers/err.D_OP_PTR.badpointer.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ struct teststruct { struct teststruct xyz; -BEGIN +dtrace:::BEGIN { xyz->a = 1; exit(1); diff --git a/test/unittest/pointers/err.D_OP_SOU.BadPointerAccess.d b/test/unittest/pointers/err.D_OP_SOU.BadPointerAccess.d index 35f64dad..9b32e75a 100644 --- a/test/unittest/pointers/err.D_OP_SOU.BadPointerAccess.d +++ b/test/unittest/pointers/err.D_OP_SOU.BadPointerAccess.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ struct myinput_struct { }; struct myinput_struct *f; -BEGIN +dtrace:::BEGIN { f.i = 10; f.c = 'c'; diff --git a/test/unittest/pointers/err.D_OP_SOU.badpointer.d b/test/unittest/pointers/err.D_OP_SOU.badpointer.d index 8e5b6b92..71646fe6 100644 --- a/test/unittest/pointers/err.D_OP_SOU.badpointer.d +++ b/test/unittest/pointers/err.D_OP_SOU.badpointer.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ int *abc; -BEGIN +dtrace:::BEGIN { abc->a = 1; exit(1); diff --git a/test/unittest/pointers/err.InvalidAddress1.d b/test/unittest/pointers/err.InvalidAddress1.d index 15852697..e778b6b5 100644 --- a/test/unittest/pointers/err.InvalidAddress1.d +++ b/test/unittest/pointers/err.InvalidAddress1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { pfnAddress = &`max_pfn; *pfnAddress = 20; @@ -25,7 +25,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/err.InvalidAddress2.d b/test/unittest/pointers/err.InvalidAddress2.d index b22f08fb..2ebf3044 100644 --- a/test/unittest/pointers/err.InvalidAddress2.d +++ b/test/unittest/pointers/err.InvalidAddress2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = (int *)alloca(sizeof(int)); trace(x); @@ -25,7 +25,7 @@ BEGIN trace(*y); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/err.InvalidAddress3.d b/test/unittest/pointers/err.InvalidAddress3.d index 90cb7815..699001e4 100644 --- a/test/unittest/pointers/err.InvalidAddress3.d +++ b/test/unittest/pointers/err.InvalidAddress3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,14 +17,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { y = (int *)(-33007); *y = 3; trace(*y); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/err.InvalidAddress4.d b/test/unittest/pointers/err.InvalidAddress4.d index 586cddf9..865b0f9e 100644 --- a/test/unittest/pointers/err.InvalidAddress4.d +++ b/test/unittest/pointers/err.InvalidAddress4.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = (int *)alloca(sizeof(int)); printf("Address x: %x\n", (int)x); @@ -25,7 +25,7 @@ BEGIN printf("Address y: %x\tValue: %d\n", (int)y, *y); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/err.InvalidAddress5.d b/test/unittest/pointers/err.InvalidAddress5.d index 6dc7b9ac..07178b8e 100644 --- a/test/unittest/pointers/err.InvalidAddress5.d +++ b/test/unittest/pointers/err.InvalidAddress5.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ int *p; int *q; int *r; -BEGIN +dtrace:::BEGIN { array[0] = 20; array[1] = 40; @@ -40,7 +40,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/pointers/tst.ArrayPointer1.d b/test/unittest/pointers/tst.ArrayPointer1.d index 8ee23799..442c3351 100644 --- a/test/unittest/pointers/tst.ArrayPointer1.d +++ b/test/unittest/pointers/tst.ArrayPointer1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -69,7 +69,7 @@ enum colors { BLUE } enum_array[6]; -BEGIN +dtrace:::BEGIN { char_var0 = &char_array[0]; char_var2 = &char_array[2]; short_var0 = &short_array[0]; short_var3 = &short_array[3]; @@ -130,7 +130,7 @@ BEGIN exit(0); } -END +dtrace:::END /(2 != ((int)char_var2 - (int)char_var0)) || (6 != ((int)short_var3 - (int)short_var0)) || (8 != ((int)int_var5 - (int)int_var3)) || diff --git a/test/unittest/pointers/tst.ArrayPointer2.d b/test/unittest/pointers/tst.ArrayPointer2.d index daa7cdcc..2adbc8e7 100644 --- a/test/unittest/pointers/tst.ArrayPointer2.d +++ b/test/unittest/pointers/tst.ArrayPointer2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet int array[5]; -BEGIN +dtrace:::BEGIN { array[0] = 100; array[1] = 200; @@ -38,7 +38,7 @@ BEGIN } -END +dtrace:::END /(array[0] != p[0]) || (array[1] != p[1]) || (array[2] != p[2]) || (array[3] != p[3]) || (array[4] != p[4])/ { diff --git a/test/unittest/pointers/tst.ArrayPointer3.d b/test/unittest/pointers/tst.ArrayPointer3.d index e3efd390..5e9ff557 100644 --- a/test/unittest/pointers/tst.ArrayPointer3.d +++ b/test/unittest/pointers/tst.ArrayPointer3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ int array[5]; int *p; -BEGIN +dtrace:::BEGIN { array[0] = 100; array[1] = 200; @@ -39,7 +39,7 @@ BEGIN } -END +dtrace:::END /(array[0] != p[0]) || (array[1] != p[1]) || (array[2] != p[2]) || (array[3] != p[3]) || (array[4] != p[4])/ { diff --git a/test/unittest/pointers/tst.GlobalVar.d b/test/unittest/pointers/tst.GlobalVar.d index 35499245..3b2a361a 100644 --- a/test/unittest/pointers/tst.GlobalVar.d +++ b/test/unittest/pointers/tst.GlobalVar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; pfnAddress = (unsigned long *)&`max_pfn; @@ -31,7 +31,7 @@ profile:::tick-1sec exit(1); } -END +dtrace:::END /(&`max_pfn == pfnAddress) && (*pfnAddress == pfnValue)/ { exit(0); diff --git a/test/unittest/pointers/tst.IntegerArithmetic1.d b/test/unittest/pointers/tst.IntegerArithmetic1.d index a41f1ce1..d0df2b1a 100644 --- a/test/unittest/pointers/tst.IntegerArithmetic1.d +++ b/test/unittest/pointers/tst.IntegerArithmetic1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ int *p; int *q; int *r; -BEGIN +dtrace:::BEGIN { array[0] = 20; array[1] = 40; @@ -42,7 +42,7 @@ BEGIN exit(0); } -END +dtrace:::END /(20 != *p) || (40 != *q) || (80 != *r)/ { printf("Error"); diff --git a/test/unittest/pointers/tst.PointerArithmetic1.d b/test/unittest/pointers/tst.PointerArithmetic1.d index 08855ba4..1a13df40 100644 --- a/test/unittest/pointers/tst.PointerArithmetic1.d +++ b/test/unittest/pointers/tst.PointerArithmetic1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ int *x; -BEGIN +dtrace:::BEGIN { printf("x: %x\n", (int)x); printf("x + 1: %x\n", (int)(x+1)); @@ -29,7 +29,7 @@ BEGIN exit(0); } -END +dtrace:::END /(0 != (int)x) || (4 != (int)(x+1)) || (8 != (int)(x+2))/ { printf("Error"); diff --git a/test/unittest/pointers/tst.PointerArithmetic2.d b/test/unittest/pointers/tst.PointerArithmetic2.d index 3f240125..47cbdb87 100644 --- a/test/unittest/pointers/tst.PointerArithmetic2.d +++ b/test/unittest/pointers/tst.PointerArithmetic2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet int array[5]; -BEGIN +dtrace:::BEGIN { array[0] = 100; array[1] = 200; @@ -39,7 +39,7 @@ BEGIN } -END +dtrace:::END /(array[0] != *p) || (array[1] != *(p+1)) || (array[2] != *(p+2)) || (array[3] != *(p+3)) || (array[4] != *(p+4))/ { diff --git a/test/unittest/pointers/tst.PointerArithmetic3.d b/test/unittest/pointers/tst.PointerArithmetic3.d index 304e908c..72513500 100644 --- a/test/unittest/pointers/tst.PointerArithmetic3.d +++ b/test/unittest/pointers/tst.PointerArithmetic3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ int *x; int *y; int a[5]; -BEGIN +dtrace:::BEGIN { x = &a[0]; y = &a[2]; @@ -32,7 +32,7 @@ BEGIN exit(0); } -END +dtrace:::END /(2 != (int)(y-x))/ { printf("Error"); diff --git a/test/unittest/pointers/tst.PointerAssignment.d b/test/unittest/pointers/tst.PointerAssignment.d index 5070207c..0dccbcb8 100644 --- a/test/unittest/pointers/tst.PointerAssignment.d +++ b/test/unittest/pointers/tst.PointerAssignment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ int array[3]; int *ptr1; int *ptr2; -BEGIN +dtrace:::BEGIN { array[0] = 200; array[1] = 400; @@ -43,7 +43,7 @@ BEGIN } -END +dtrace:::END /(array[0] != 400) || (array[1] != 800) || (array[2] != 1200)/ { printf("Error"); diff --git a/test/unittest/pointers/tst.ValidPointer1.d b/test/unittest/pointers/tst.ValidPointer1.d index 9dd3fdf4..5c9fb082 100644 --- a/test/unittest/pointers/tst.ValidPointer1.d +++ b/test/unittest/pointers/tst.ValidPointer1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = (int *)alloca(sizeof(int)); printf("Address x: %x\n", (int)x); diff --git a/test/unittest/pointers/tst.VoidCast.d b/test/unittest/pointers/tst.VoidCast.d index 64f66ce9..586580c3 100644 --- a/test/unittest/pointers/tst.VoidCast.d +++ b/test/unittest/pointers/tst.VoidCast.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ void *p; int array[3]; -BEGIN +dtrace:::BEGIN { array[0] = 234; array[1] = 334; @@ -31,7 +31,7 @@ BEGIN exit(0); } -END +dtrace:::END /234 != *newp/ { exit(1); diff --git a/test/unittest/pointers/tst.basic1.d b/test/unittest/pointers/tst.basic1.d index f4e6ad0f..44c72032 100644 --- a/test/unittest/pointers/tst.basic1.d +++ b/test/unittest/pointers/tst.basic1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { pfnAddress = (unsigned long *)&`max_pfn; pfnValue = *pfnAddress; diff --git a/test/unittest/pointers/tst.basic2.d b/test/unittest/pointers/tst.basic2.d index f026a10d..71f3ee15 100644 --- a/test/unittest/pointers/tst.basic2.d +++ b/test/unittest/pointers/tst.basic2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { assoc_array["pfnAddress"] = (unsigned long *)&`max_pfn; pfnValue = *(assoc_array["pfnAddress"]); diff --git a/test/unittest/pragma/err.D_PRAGERR.d b/test/unittest/pragma/err.D_PRAGERR.d index 051cfdc4..2a7d8580 100644 --- a/test/unittest/pragma/err.D_PRAGERR.d +++ b/test/unittest/pragma/err.D_PRAGERR.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D error "this is an error message" -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/pragma/err.D_PRAGMA_DEPEND.main.d b/test/unittest/pragma/err.D_PRAGMA_DEPEND.main.d index f23dee7f..fb78598e 100644 --- a/test/unittest/pragma/err.D_PRAGMA_DEPEND.main.d +++ b/test/unittest/pragma/err.D_PRAGMA_DEPEND.main.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2008, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2008, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D depends_on library net.d -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/pragma/err.D_PRAGMA_INVAL.d b/test/unittest/pragma/err.D_PRAGMA_INVAL.d index 8bfa0003..98e44af8 100644 --- a/test/unittest/pragma/err.D_PRAGMA_INVAL.d +++ b/test/unittest/pragma/err.D_PRAGMA_INVAL.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ inline int foo #pragma D attributes incorrect_attr foo -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/pragma/err.D_PRAGMA_MALFORM.d b/test/unittest/pragma/err.D_PRAGMA_MALFORM.d index fbc1a0aa..62df93e6 100644 --- a/test/unittest/pragma/err.D_PRAGMA_MALFORM.d +++ b/test/unittest/pragma/err.D_PRAGMA_MALFORM.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D attributes incorrect_attr -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/pragma/err.D_PRAGMA_UNUSED.UnusedPragma.d b/test/unittest/pragma/err.D_PRAGMA_UNUSED.UnusedPragma.d index d11a03c3..27ed8e21 100644 --- a/test/unittest/pragma/err.D_PRAGMA_UNUSED.UnusedPragma.d +++ b/test/unittest/pragma/err.D_PRAGMA_UNUSED.UnusedPragma.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,12 +18,12 @@ void func(int, int); #pragma D option quiet #pragma D attributes Stable/Stable/Common func; -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/pragma/err.circlibdep.sh b/test/unittest/pragma/err.circlibdep.sh index f2b1397d..9c6c2cb6 100755 --- a/test/unittest/pragma/err.circlibdep.sh +++ b/test/unittest/pragma/err.circlibdep.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -30,7 +30,7 @@ EOF setup_libs -$dtrace $dt_flags -L$libdir -e -n 'BEGIN {exit(0)}' +$dtrace $dt_flags -L$libdir -e -n 'dtrace:::BEGIN {exit(0)}' status=$? rm -rf $libdir diff --git a/test/unittest/pragma/err.invalidlibdep.sh b/test/unittest/pragma/err.invalidlibdep.sh index f4090de9..6662bfb1 100755 --- a/test/unittest/pragma/err.invalidlibdep.sh +++ b/test/unittest/pragma/err.invalidlibdep.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -30,7 +30,7 @@ EOF setup_libs -$dtrace $dt_flags -L$libdir -e -n 'BEGIN {exit(0)}' +$dtrace $dt_flags -L$libdir -e -n 'dtrace:::BEGIN {exit(0)}' status=$? rm -rf $libdir diff --git a/test/unittest/pragma/tst.libdep.sh b/test/unittest/pragma/tst.libdep.sh index 8f48568a..f8fdbb7d 100755 --- a/test/unittest/pragma/tst.libdep.sh +++ b/test/unittest/pragma/tst.libdep.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -38,7 +38,7 @@ EOF setup_libs -$dtrace $dt_flags -L$libdir -e -n 'BEGIN {exit(0)}' +$dtrace $dt_flags -L$libdir -e -n 'dtrace:::BEGIN {exit(0)}' status=$? rm -rf $libdir diff --git a/test/unittest/pragma/tst.libdepfullyconnected.sh b/test/unittest/pragma/tst.libdepfullyconnected.sh index fd111ada..73f6bc6e 100755 --- a/test/unittest/pragma/tst.libdepfullyconnected.sh +++ b/test/unittest/pragma/tst.libdepfullyconnected.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -43,7 +43,7 @@ EOF setup_libs -DTRACE_DEBUG=1 $dtrace $dt_flags -L$libdir -e -n 'BEGIN {exit(0)}' >$tmpfile 2>&1 +DTRACE_DEBUG=1 $dtrace $dt_flags -L$libdir -e -n 'dtrace:::BEGIN {exit(0)}' >$tmpfile 2>&1 perl /dev/stdin $tmpfile < 10/ { i++; diff --git a/test/unittest/predicates/err.D_SYNTAX.operr.d b/test/unittest/predicates/err.D_SYNTAX.operr.d index 8cfa0d10..78cabe20 100644 --- a/test/unittest/predicates/err.D_SYNTAX.operr.d +++ b/test/unittest/predicates/err.D_SYNTAX.operr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,12 +16,12 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -profile-1 +profile:::profile-1 /i != 0 && >= 5 || <= 10/ { i++; diff --git a/test/unittest/predicates/tst.alloca-postinc-instantiation.d b/test/unittest/predicates/tst.alloca-postinc-instantiation.d index e4117136..886c377f 100644 --- a/test/unittest/predicates/tst.alloca-postinc-instantiation.d +++ b/test/unittest/predicates/tst.alloca-postinc-instantiation.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN / (new++ == 0) ? bar = alloca(10) : bar / +dtrace:::BEGIN / (new++ == 0) ? bar = alloca(10) : bar / { trace(new); trace(bar); @@ -23,24 +23,24 @@ BEGIN / (new++ == 0) ? bar = alloca(10) : bar / b_value = *b; } -BEGIN / new == 0 / +dtrace:::BEGIN / new == 0 / { trace("new is still zero"); exit(1); } -BEGIN / b_value == 0 / { exit(0); } +dtrace:::BEGIN / b_value == 0 / { exit(0); } -BEGIN / b == 0 / +dtrace:::BEGIN / b == 0 / { printf("b stayed zero"); exit(1); } -BEGIN +dtrace:::BEGIN { printf("*b is %x, not zero", b_value); exit(1); } -ERROR { exit(1); } +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/predicates/tst.basics.d b/test/unittest/predicates/tst.basics.d index 7419800a..859f115a 100644 --- a/test/unittest/predicates/tst.basics.d +++ b/test/unittest/predicates/tst.basics.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,19 +17,19 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i < 10/ { i++; trace(i); } -tick-10ms +profile:::tick-10ms /i == 10/ { exit(0); diff --git a/test/unittest/predicates/tst.complex.d b/test/unittest/predicates/tst.complex.d index de73914e..d14ca249 100644 --- a/test/unittest/predicates/tst.complex.d +++ b/test/unittest/predicates/tst.complex.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,13 +17,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; j = 0; } -tick-10ms +profile:::tick-10ms /i < 10/ { i++; @@ -31,73 +31,73 @@ tick-10ms printf("\n\n%d\n------\n", i); } -tick-10ms +profile:::tick-10ms /i == 5 || i == 10/ { printf("i == 5 (or) i == 10\n"); } -tick-10ms +profile:::tick-10ms /i <= 5/ { printf("i <= 5\n"); } -tick-10ms +profile:::tick-10ms /j >= 5/ { printf("j >= 5\n"); } -tick-10ms +profile:::tick-10ms /j >= 5 || i <= 5/ { printf("i >= 5 || j >= 5\n"); } -tick-10ms +profile:::tick-10ms /j >= 5 && i <= 5/ { printf("j >= 5 && i <= 55\n"); } -tick-10ms +profile:::tick-10ms /i < 5/ { printf("i < 5\n"); } -tick-10ms +profile:::tick-10ms /i == 2 || j == 2/ { printf("i == 2 (or) j == 2\n"); } -tick-10ms +profile:::tick-10ms /i == 2 && j == 2/ { printf("i == 2 (and) j == 2\n"); } -tick-10ms +profile:::tick-10ms /j != 10/ { printf("j != 10\n"); } -tick-10ms +profile:::tick-10ms /j == 5 || i == 2/ { printf("j == 5 || i == 2\n"); } -tick-10ms +profile:::tick-10ms /j == 5 && i == 2/ { printf("j == 5 && i == 2\n"); } -tick-10ms +profile:::tick-10ms /i == 10/ { printf("i == 10\n"); diff --git a/test/unittest/predicates/tst.predcache.sh b/test/unittest/predicates/tst.predcache.sh index 0a294e76..0a2a31a3 100755 --- a/test/unittest/predicates/tst.predcache.sh +++ b/test/unittest/predicates/tst.predcache.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -85,7 +85,7 @@ script1() @a[probefunc] = count(); } - tick-1sec + profile:::tick-1sec /i++ == 5/ { exit(0); @@ -105,20 +105,20 @@ script2() ttl++; } - tick-1sec + profile:::tick-1sec /i++ == 5/ { exit(2); } - END + dtrace:::END /ttl/ { printf("success; ttl is %d", ttl); exit(0); } - END + dtrace:::END /ttl == 0/ { printf("error -- total should be non-zero"); diff --git a/test/unittest/preprocessor/err.D_IDENT_UNDEF.afterprobe.d b/test/unittest/preprocessor/err.D_IDENT_UNDEF.afterprobe.d index d98300c4..442d94d7 100644 --- a/test/unittest/preprocessor/err.D_IDENT_UNDEF.afterprobe.d +++ b/test/unittest/preprocessor/err.D_IDENT_UNDEF.afterprobe.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); diff --git a/test/unittest/preprocessor/err.D_SYNTAX.withoutpound.d b/test/unittest/preprocessor/err.D_SYNTAX.withoutpound.d index 3bf02fee..ca34cfad 100644 --- a/test/unittest/preprocessor/err.D_SYNTAX.withoutpound.d +++ b/test/unittest/preprocessor/err.D_SYNTAX.withoutpound.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ define VALUE 5 #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/err.defincomp.d b/test/unittest/preprocessor/err.defincomp.d index 67b06239..19497412 100644 --- a/test/unittest/preprocessor/err.defincomp.d +++ b/test/unittest/preprocessor/err.defincomp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/err.ifdefelsenotendif.d b/test/unittest/preprocessor/err.ifdefelsenotendif.d index 264cd726..14d77f12 100644 --- a/test/unittest/preprocessor/err.ifdefelsenotendif.d +++ b/test/unittest/preprocessor/err.ifdefelsenotendif.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", RETURN); exit(0); diff --git a/test/unittest/preprocessor/err.ifdefincomp.d b/test/unittest/preprocessor/err.ifdefincomp.d index ada7756c..5c8a0999 100644 --- a/test/unittest/preprocessor/err.ifdefincomp.d +++ b/test/unittest/preprocessor/err.ifdefincomp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/err.ifdefnotendif.d b/test/unittest/preprocessor/err.ifdefnotendif.d index 3d22b939..beed7bd9 100644 --- a/test/unittest/preprocessor/err.ifdefnotendif.d +++ b/test/unittest/preprocessor/err.ifdefnotendif.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/err.incompelse.d b/test/unittest/preprocessor/err.incompelse.d index 55b8b8dc..6bd90b9c 100644 --- a/test/unittest/preprocessor/err.incompelse.d +++ b/test/unittest/preprocessor/err.incompelse.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/err.mulelse.d b/test/unittest/preprocessor/err.mulelse.d index 283f82b2..fffffd7e 100644 --- a/test/unittest/preprocessor/err.mulelse.d +++ b/test/unittest/preprocessor/err.mulelse.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.ifdef.d b/test/unittest/preprocessor/tst.ifdef.d index 0f858cc5..2f06ae60 100644 --- a/test/unittest/preprocessor/tst.ifdef.d +++ b/test/unittest/preprocessor/tst.ifdef.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.ifndef.d b/test/unittest/preprocessor/tst.ifndef.d index 26f02f45..f040fdbf 100644 --- a/test/unittest/preprocessor/tst.ifndef.d +++ b/test/unittest/preprocessor/tst.ifndef.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.ifnotdef.d b/test/unittest/preprocessor/tst.ifnotdef.d index 50e12815..b8eaa71f 100644 --- a/test/unittest/preprocessor/tst.ifnotdef.d +++ b/test/unittest/preprocessor/tst.ifnotdef.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.logicaland.d b/test/unittest/preprocessor/tst.logicaland.d index 666bdda6..20361c91 100644 --- a/test/unittest/preprocessor/tst.logicaland.d +++ b/test/unittest/preprocessor/tst.logicaland.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.logicalandor.d b/test/unittest/preprocessor/tst.logicalandor.d index b71f5a0e..fb5b6687 100644 --- a/test/unittest/preprocessor/tst.logicalandor.d +++ b/test/unittest/preprocessor/tst.logicalandor.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.logicalor.d b/test/unittest/preprocessor/tst.logicalor.d index 106a097e..beab7511 100644 --- a/test/unittest/preprocessor/tst.logicalor.d +++ b/test/unittest/preprocessor/tst.logicalor.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.muland.d b/test/unittest/preprocessor/tst.muland.d index 73338403..e7486662 100644 --- a/test/unittest/preprocessor/tst.muland.d +++ b/test/unittest/preprocessor/tst.muland.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.mulor.d b/test/unittest/preprocessor/tst.mulor.d index caf72bba..91c77b9d 100644 --- a/test/unittest/preprocessor/tst.mulor.d +++ b/test/unittest/preprocessor/tst.mulor.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.precondi.d b/test/unittest/preprocessor/tst.precondi.d index 1deceed8..2a7a776c 100644 --- a/test/unittest/preprocessor/tst.precondi.d +++ b/test/unittest/preprocessor/tst.precondi.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms /value == 5/ { printf("The value is %d\n", value); diff --git a/test/unittest/preprocessor/tst.predefined.sh b/test/unittest/preprocessor/tst.predefined.sh index 47e35d9c..86a2128f 100755 --- a/test/unittest/preprocessor/tst.predefined.sh +++ b/test/unittest/preprocessor/tst.predefined.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -58,7 +58,7 @@ vers=`printf "%x" $(($MM << 24 | $mmm << 12 | $uuu))` # Start setting up the D script. -echo 'BEGIN {' > D.d +echo 'dtrace:::BEGIN {' > D.d # Check for the preprocessor definitions of COMMANDLINE-OPTIONS. diff --git a/test/unittest/preprocessor/tst.predicatedeclare.d b/test/unittest/preprocessor/tst.predicatedeclare.d index 75213e17..c2ed6715 100644 --- a/test/unittest/preprocessor/tst.predicatedeclare.d +++ b/test/unittest/preprocessor/tst.predicatedeclare.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms #if !defined (FLAG) #define VALUE 5 #endif diff --git a/test/unittest/preprocessor/tst.preexp.d b/test/unittest/preprocessor/tst.preexp.d index 06f38273..3e4f2914 100644 --- a/test/unittest/preprocessor/tst.preexp.d +++ b/test/unittest/preprocessor/tst.preexp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms /MAXVAL > 5/ { printf("The value is %d\n", MAXVAL); diff --git a/test/unittest/preprocessor/tst.preexpelse.d b/test/unittest/preprocessor/tst.preexpelse.d index 2b0dd4f0..158d8ddb 100644 --- a/test/unittest/preprocessor/tst.preexpelse.d +++ b/test/unittest/preprocessor/tst.preexpelse.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.preexpif.d b/test/unittest/preprocessor/tst.preexpif.d index ab80a534..bcf07afc 100644 --- a/test/unittest/preprocessor/tst.preexpif.d +++ b/test/unittest/preprocessor/tst.preexpif.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -22,7 +22,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.preexpifelse.d b/test/unittest/preprocessor/tst.preexpifelse.d index fea523f3..08d3dae4 100644 --- a/test/unittest/preprocessor/tst.preexpifelse.d +++ b/test/unittest/preprocessor/tst.preexpifelse.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { printf("The value is %d\n", VALUE); exit(0); diff --git a/test/unittest/preprocessor/tst.withinprobe.d b/test/unittest/preprocessor/tst.withinprobe.d index d7c366a0..9ee37573 100644 --- a/test/unittest/preprocessor/tst.withinprobe.d +++ b/test/unittest/preprocessor/tst.withinprobe.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { #if !defined (FLAG) diff --git a/test/unittest/print/err.D_PRINT_SIZE.zero.d b/test/unittest/print/err.D_PRINT_SIZE.zero.d index bbd8a217..c3570a1f 100644 --- a/test/unittest/print/err.D_PRINT_SIZE.zero.d +++ b/test/unittest/print/err.D_PRINT_SIZE.zero.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { t = (int *)alloca(sizeof(int)); print((struct bpf_raw_tracepoint_args *)t); diff --git a/test/unittest/print/err.D_PROTO_ARG.arg.d b/test/unittest/print/err.D_PROTO_ARG.arg.d index 7a32dd13..ace21211 100644 --- a/test/unittest/print/err.D_PROTO_ARG.arg.d +++ b/test/unittest/print/err.D_PROTO_ARG.arg.d @@ -1,11 +1,11 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { print(1); exit(1); diff --git a/test/unittest/print/err.D_PROTO_LEN.toofew.d b/test/unittest/print/err.D_PROTO_LEN.toofew.d index 0785ed52..69a431ff 100644 --- a/test/unittest/print/err.D_PROTO_LEN.toofew.d +++ b/test/unittest/print/err.D_PROTO_LEN.toofew.d @@ -1,11 +1,11 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { print(); exit(1); diff --git a/test/unittest/print/err.D_PROTO_LEN.toomany.d b/test/unittest/print/err.D_PROTO_LEN.toomany.d index 81d600bc..2e7ebb4f 100644 --- a/test/unittest/print/err.D_PROTO_LEN.toomany.d +++ b/test/unittest/print/err.D_PROTO_LEN.toomany.d @@ -1,11 +1,11 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { x = 1; print(x, x); diff --git a/test/unittest/print/tst.print.local.d b/test/unittest/print/tst.print.local.d index ba37be7a..e9bbc275 100644 --- a/test/unittest/print/tst.print.local.d +++ b/test/unittest/print/tst.print.local.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ struct test_struct { enum eh h; }; -BEGIN +dtrace:::BEGIN { t = (struct test_struct *)alloca(sizeof (struct test_struct)); t->a = 1; diff --git a/test/unittest/print/tst.print.local.trunc.d b/test/unittest/print/tst.print.local.trunc.d index 2e40dd84..abfaefe1 100644 --- a/test/unittest/print/tst.print.local.trunc.d +++ b/test/unittest/print/tst.print.local.trunc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ struct test_struct { enum eh h; }; -BEGIN +dtrace:::BEGIN { t = (struct test_struct *)alloca(sizeof (struct test_struct)); t->a = 1; diff --git a/test/unittest/print/tst.print.local.trunc2.d b/test/unittest/print/tst.print.local.trunc2.d index 5f500fc8..44ede65c 100644 --- a/test/unittest/print/tst.print.local.trunc2.d +++ b/test/unittest/print/tst.print.local.trunc2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -33,7 +33,7 @@ struct test_struct { } a; }; -BEGIN +dtrace:::BEGIN { t = (struct test_struct *)alloca(sizeof (struct test_struct)); t->x = 1111111111111111ll; diff --git a/test/unittest/print/tst.print.local.zeroed.d b/test/unittest/print/tst.print.local.zeroed.d index 0372f581..099f9529 100644 --- a/test/unittest/print/tst.print.local.zeroed.d +++ b/test/unittest/print/tst.print.local.zeroed.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ struct test_struct { enum eh h; }; -BEGIN +dtrace:::BEGIN { t = (struct test_struct *)alloca(sizeof (struct test_struct)); t->a = 0; diff --git a/test/unittest/print/tst.print.modtype.d b/test/unittest/print/tst.print.modtype.d index ed68b492..611e04cb 100644 --- a/test/unittest/print/tst.print.modtype.d +++ b/test/unittest/print/tst.print.modtype.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { tun_page = (struct tun_page *)alloca(sizeof (struct tun_page)); tun_page->page = (struct page *)0xfeedfacefeedface; diff --git a/test/unittest/print/tst.print.regleak.d b/test/unittest/print/tst.print.regleak.d index 287d9c13..790dc1d2 100644 --- a/test/unittest/print/tst.print.regleak.d +++ b/test/unittest/print/tst.print.regleak.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { skb = (struct sk_buff *)alloca(sizeof (struct sk_buff)); skb->len = 123; diff --git a/test/unittest/print/tst.print.skb.d b/test/unittest/print/tst.print.skb.d index 7213dd3a..844660a4 100644 --- a/test/unittest/print/tst.print.skb.d +++ b/test/unittest/print/tst.print.skb.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { skb = (struct sk_buff *)alloca(sizeof (struct sk_buff)); skb->len = 123; diff --git a/test/unittest/printa/err.D_PRINTA_AGGARG.badagg.d b/test/unittest/printa/err.D_PRINTA_AGGARG.badagg.d index 75822f9c..4267e894 100644 --- a/test/unittest/printa/err.D_PRINTA_AGGARG.badagg.d +++ b/test/unittest/printa/err.D_PRINTA_AGGARG.badagg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { printa("%d", 123); } diff --git a/test/unittest/printa/err.D_PRINTA_AGGARG.badfmt.d b/test/unittest/printa/err.D_PRINTA_AGGARG.badfmt.d index 88004e3c..aa9e83e4 100644 --- a/test/unittest/printa/err.D_PRINTA_AGGARG.badfmt.d +++ b/test/unittest/printa/err.D_PRINTA_AGGARG.badfmt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { printa(123); } diff --git a/test/unittest/printa/err.D_PRINTA_AGGARG.badval.d b/test/unittest/printa/err.D_PRINTA_AGGARG.badval.d index 5527da7a..7c7485b4 100644 --- a/test/unittest/printa/err.D_PRINTA_AGGARG.badval.d +++ b/test/unittest/printa/err.D_PRINTA_AGGARG.badval.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { printa("%@d\n", 123); } diff --git a/test/unittest/printa/err.D_PRINTA_PROTO.bad.d b/test/unittest/printa/err.D_PRINTA_PROTO.bad.d index edf8cdd7..4f2f3789 100644 --- a/test/unittest/printa/err.D_PRINTA_PROTO.bad.d +++ b/test/unittest/printa/err.D_PRINTA_PROTO.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { printa("%d"); } diff --git a/test/unittest/printa/err.D_PRINTF_ARG_TYPE.jstack.d b/test/unittest/printa/err.D_PRINTF_ARG_TYPE.jstack.d index d2fccff7..8c956af7 100644 --- a/test/unittest/printa/err.D_PRINTF_ARG_TYPE.jstack.d +++ b/test/unittest/printa/err.D_PRINTF_ARG_TYPE.jstack.d @@ -1,11 +1,11 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@xfail: dtv2 jstack not implemented */ -BEGIN +dtrace:::BEGIN { @[jstack()] = count(); diff --git a/test/unittest/printa/err.D_PRINTF_ARG_TYPE.stack.d b/test/unittest/printa/err.D_PRINTF_ARG_TYPE.stack.d index 863cd346..1d8d4544 100644 --- a/test/unittest/printa/err.D_PRINTF_ARG_TYPE.stack.d +++ b/test/unittest/printa/err.D_PRINTF_ARG_TYPE.stack.d @@ -1,11 +1,11 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { @[stack()] = count(); diff --git a/test/unittest/printa/err.D_PRINTF_ARG_TYPE.ustack.d b/test/unittest/printa/err.D_PRINTF_ARG_TYPE.ustack.d index 4fb3a5b8..eec9faf2 100644 --- a/test/unittest/printa/err.D_PRINTF_ARG_TYPE.ustack.d +++ b/test/unittest/printa/err.D_PRINTF_ARG_TYPE.ustack.d @@ -1,11 +1,11 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { @[ustack()] = count(); diff --git a/test/unittest/printa/tst.basics.d b/test/unittest/printa/tst.basics.d index 28ec0db0..c7d2fedb 100644 --- a/test/unittest/printa/tst.basics.d +++ b/test/unittest/printa/tst.basics.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = avg(1); @b = count(); diff --git a/test/unittest/printa/tst.def.d b/test/unittest/printa/tst.def.d index 3b564f6b..ee65ed66 100644 --- a/test/unittest/printa/tst.def.d +++ b/test/unittest/printa/tst.def.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = count(); printa(@a); diff --git a/test/unittest/printa/tst.dynwidth.d b/test/unittest/printa/tst.dynwidth.d index d6039ca3..abd71880 100644 --- a/test/unittest/printa/tst.dynwidth.d +++ b/test/unittest/printa/tst.dynwidth.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* * Yes, this works. But is it useful? And is it useful to someone diff --git a/test/unittest/printa/tst.fmt.d b/test/unittest/printa/tst.fmt.d index dff80304..2c949cb5 100644 --- a/test/unittest/printa/tst.fmt.d +++ b/test/unittest/printa/tst.fmt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = count(); printa("%@u", @a); diff --git a/test/unittest/printa/tst.jstack.d b/test/unittest/printa/tst.jstack.d index 7a404a09..9d53f113 100644 --- a/test/unittest/printa/tst.jstack.d +++ b/test/unittest/printa/tst.jstack.d @@ -1,12 +1,12 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@xfail: dtv2 jstack not implemented */ -BEGIN +dtrace:::BEGIN { @[jstack()] = count(); diff --git a/test/unittest/printa/tst.many.d b/test/unittest/printa/tst.many.d index 939e7a96..ea3acc4d 100644 --- a/test/unittest/printa/tst.many.d +++ b/test/unittest/printa/tst.many.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,18 +17,18 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN /0 == 1/ { @ = count(); } -BEGIN +dtrace:::BEGIN { freopen("/dev/null"); } -profile-4000hz +profile:::profile-4000hz { printa(@); printa(@); diff --git a/test/unittest/printa/tst.manyval.d b/test/unittest/printa/tst.manyval.d index 17e3494e..33026699 100644 --- a/test/unittest/printa/tst.manyval.d +++ b/test/unittest/printa/tst.manyval.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a = count(); printa("%@u %@u %@u %@u %@u %@u %@u\n", @a); diff --git a/test/unittest/printa/tst.stack.d b/test/unittest/printa/tst.stack.d index 4ac6414f..576ce76b 100644 --- a/test/unittest/printa/tst.stack.d +++ b/test/unittest/printa/tst.stack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option maxframes=5 -BEGIN +dtrace:::BEGIN { @[stack()] = count(); diff --git a/test/unittest/printa/tst.tuple.d b/test/unittest/printa/tst.tuple.d index 2996edaa..c0861679 100644 --- a/test/unittest/printa/tst.tuple.d +++ b/test/unittest/printa/tst.tuple.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { @a[1, 2, 3, 4, 5] = count(); printf("\n"); diff --git a/test/unittest/printa/tst.ustack.d b/test/unittest/printa/tst.ustack.d index 639b79fc..537464b9 100644 --- a/test/unittest/printa/tst.ustack.d +++ b/test/unittest/printa/tst.ustack.d @@ -1,13 +1,13 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option maxframes=10 -BEGIN +dtrace:::BEGIN { @[ustack()] = count(); diff --git a/test/unittest/printa/tst.walltimestamp.sh b/test/unittest/printa/tst.walltimestamp.sh index 8037ccab..dfd15495 100755 --- a/test/unittest/printa/tst.walltimestamp.sh +++ b/test/unittest/printa/tst.walltimestamp.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -s /dev/stdin < /dev/null"); } @@ -27,7 +27,7 @@ fbt::ksys_write:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/printf/tst.str.d b/test/unittest/printf/tst.str.d index 2ea55277..99502fcb 100644 --- a/test/unittest/printf/tst.str.d +++ b/test/unittest/printf/tst.str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("command line = %s", stringof(vmlinux`saved_command_line)); exit(0); diff --git a/test/unittest/printf/tst.sym.d b/test/unittest/printf/tst.sym.d index c6cc7389..fa9ac016 100644 --- a/test/unittest/printf/tst.sym.d +++ b/test/unittest/printf/tst.sym.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("symbol = %a", &`max_pfn); exit(0); diff --git a/test/unittest/printf/tst.uints.d b/test/unittest/printf/tst.uints.d index 201948e8..b5a3790b 100644 --- a/test/unittest/printf/tst.uints.d +++ b/test/unittest/printf/tst.uints.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n"); printf("%u\n", (uchar_t)123); diff --git a/test/unittest/printf/tst.ustack25_pid.d b/test/unittest/printf/tst.ustack25_pid.d index 9ae3a7b8..ef1907dc 100644 --- a/test/unittest/printf/tst.ustack25_pid.d +++ b/test/unittest/printf/tst.ustack25_pid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ pid$target:a.out:myfunc_z:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/printf/tst.wide-bug30404549.sh b/test/unittest/printf/tst.wide-bug30404549.sh index 5ec0e400..7c3fa109 100755 --- a/test/unittest/printf/tst.wide-bug30404549.sh +++ b/test/unittest/printf/tst.wide-bug30404549.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2019, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2019, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ dtrace=$1 # abbreviate output to a simple statement of length. raw output is big (29M) $dtrace $dt_flags -qs /dev/stdin << EOF | gawk '{ print length($0); }' -BEGIN +dtrace:::BEGIN { printf("%10000000d\n", 1); printf("%.10000000d\n", 1); diff --git a/test/unittest/printf/tst.wide.sh b/test/unittest/printf/tst.wide.sh index 5c0c98d1..510da3c8 100755 --- a/test/unittest/printf/tst.wide.sh +++ b/test/unittest/printf/tst.wide.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2019, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2019, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -26,7 +26,7 @@ $dtrace $dt_flags -qs /dev/stdin << EOF | gawk '{ RLENGTH, substr($0, RSTART + RLENGTH)); else print; }' -BEGIN +dtrace:::BEGIN { printf("%10000000d\n", 1); printf("%.10000000d\n", 1); diff --git a/test/unittest/printf/tst.widths.d b/test/unittest/printf/tst.widths.d index 5b91c896..395bca1c 100644 --- a/test/unittest/printf/tst.widths.d +++ b/test/unittest/printf/tst.widths.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n"); x = 0; diff --git a/test/unittest/printf/tst.widths1.d b/test/unittest/printf/tst.widths1.d index 78d003f3..10de13ff 100644 --- a/test/unittest/printf/tst.widths1.d +++ b/test/unittest/printf/tst.widths1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n"); x = 0; diff --git a/test/unittest/printf/tst.wp.d b/test/unittest/printf/tst.wp.d index fd130f93..9d7f7f46 100644 --- a/test/unittest/printf/tst.wp.d +++ b/test/unittest/printf/tst.wp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\n"); x = 0; diff --git a/test/unittest/probes/err.D_PDESC_ZERO.probeqtn.d b/test/unittest/probes/err.D_PDESC_ZERO.probeqtn.d index b658cfcb..82d3a9e2 100644 --- a/test/unittest/probes/err.D_PDESC_ZERO.probeqtn.d +++ b/test/unittest/probes/err.D_PDESC_ZERO.probeqtn.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet int i; -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/probes/err.D_PDESC_ZERO.tickstar.d b/test/unittest/probes/err.D_PDESC_ZERO.tickstar.d index 5d73a73f..76161d66 100644 --- a/test/unittest/probes/err.D_PDESC_ZERO.tickstar.d +++ b/test/unittest/probes/err.D_PDESC_ZERO.tickstar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet int i; -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/probes/tst.basic1.d b/test/unittest/probes/tst.basic1.d index 9bd3d25b..5a7eacd2 100644 --- a/test/unittest/probes/tst.basic1.d +++ b/test/unittest/probes/tst.basic1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { exit(0); } diff --git a/test/unittest/probes/tst.check.d b/test/unittest/probes/tst.check.d index 3a53af58..6785762b 100644 --- a/test/unittest/probes/tst.check.d +++ b/test/unittest/probes/tst.check.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,12 +18,12 @@ #pragma D option quiet int i; -BEGIN +dtrace:::BEGIN { i = 0; } -tick-10ms +profile:::tick-10ms /i == 0/ { exit(0); diff --git a/test/unittest/probes/tst.declare.d b/test/unittest/probes/tst.declare.d index 80b43795..dcaec94c 100644 --- a/test/unittest/probes/tst.declare.d +++ b/test/unittest/probes/tst.declare.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet int i; -tick-10ms +profile:::tick-10ms { exit(0); } diff --git a/test/unittest/probes/tst.declareafter.d b/test/unittest/probes/tst.declareafter.d index 2f8f4800..3bece567 100644 --- a/test/unittest/probes/tst.declareafter.d +++ b/test/unittest/probes/tst.declareafter.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { exit(0); } diff --git a/test/unittest/probes/tst.emptyprobe.d b/test/unittest/probes/tst.emptyprobe.d index 87ea02e6..52e131d8 100644 --- a/test/unittest/probes/tst.emptyprobe.d +++ b/test/unittest/probes/tst.emptyprobe.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,10 +17,10 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { } -tick-10ms +profile:::tick-10ms { exit(0); } diff --git a/test/unittest/probes/tst.pragma.d b/test/unittest/probes/tst.pragma.d index 7334b752..cbb8edd5 100644 --- a/test/unittest/probes/tst.pragma.d +++ b/test/unittest/probes/tst.pragma.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-10ms +profile:::tick-10ms { exit(0); } diff --git a/test/unittest/probes/tst.pragmainside.d b/test/unittest/probes/tst.pragmainside.d index 4dc04d32..4766fb7e 100644 --- a/test/unittest/probes/tst.pragmainside.d +++ b/test/unittest/probes/tst.pragmainside.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ -tick-10ms +profile:::tick-10ms { #pragma D option quiet exit(0); diff --git a/test/unittest/probes/tst.pragmaoutside.d b/test/unittest/probes/tst.pragmaoutside.d index 3dca09ef..e1d5f26f 100644 --- a/test/unittest/probes/tst.pragmaoutside.d +++ b/test/unittest/probes/tst.pragmaoutside.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ -tick-10ms +profile:::tick-10ms { exit(0); } diff --git a/test/unittest/probes/tst.probestar.d b/test/unittest/probes/tst.probestar.d index 1f433d90..eb5e7320 100644 --- a/test/unittest/probes/tst.probestar.d +++ b/test/unittest/probes/tst.probestar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2011, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2011, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet int i; -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/proc/tst.discard.sh b/test/unittest/proc/tst.discard.sh index db620fef..54a2213b 100755 --- a/test/unittest/proc/tst.discard.sh +++ b/test/unittest/proc/tst.discard.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ script() exit(0); } - tick-5s + profile:::tick-5s { exit(124); } diff --git a/test/unittest/proc/tst.exec-execve.sh b/test/unittest/proc/tst.exec-execve.sh index b70f0a6e..11710ff2 100755 --- a/test/unittest/proc/tst.exec-execve.sh +++ b/test/unittest/proc/tst.exec-execve.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -33,7 +33,7 @@ EOF ${CC} -o parent.x parent.c $dtrace $dt_flags -qn ' -BEGIN { dtpid = pid; } +dtrace:::BEGIN { dtpid = pid; } proc:::exec /ppid == dtpid && execname == "parent.x"/ { diff --git a/test/unittest/proc/tst.exec-execveat.sh b/test/unittest/proc/tst.exec-execveat.sh index 09a3d933..4803bdd2 100755 --- a/test/unittest/proc/tst.exec-execveat.sh +++ b/test/unittest/proc/tst.exec-execveat.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -35,7 +35,7 @@ EOF ${CC} -o parent.x parent.c $dtrace $dt_flags -qn ' -BEGIN { dtpid = pid; } +dtrace:::BEGIN { dtpid = pid; } proc:::exec /ppid == dtpid && execname == "parent.x"/ { diff --git a/test/unittest/proc/tst.execloop.sh b/test/unittest/proc/tst.execloop.sh index 123a53ac..8242dc4b 100755 --- a/test/unittest/proc/tst.execloop.sh +++ b/test/unittest/proc/tst.execloop.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2014, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2014, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,4 +21,4 @@ fi dtrace=$1 -$dtrace $dt_flags -n 'BEGIN { exit(0); }' +$dtrace $dt_flags -n 'dtrace:::BEGIN { exit(0); }' diff --git a/test/unittest/proc/tst.exitcore.sh b/test/unittest/proc/tst.exitcore.sh index 7c43fdbb..d1c4498a 100755 --- a/test/unittest/proc/tst.exitcore.sh +++ b/test/unittest/proc/tst.exitcore.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -45,7 +45,7 @@ script() exit(1); } - tick-5s + profile:::tick-5s { exit(124); } diff --git a/test/unittest/proc/tst.exitkilled.sh b/test/unittest/proc/tst.exitkilled.sh index 723dff88..87d8fb3a 100755 --- a/test/unittest/proc/tst.exitkilled.sh +++ b/test/unittest/proc/tst.exitkilled.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -27,7 +27,7 @@ script() exit(0); } - tick-5s + profile:::tick-5s { exit(124); } diff --git a/test/unittest/proc/tst.omp.sh b/test/unittest/proc/tst.omp.sh index 9f5cafaa..b3b7d546 100755 --- a/test/unittest/proc/tst.omp.sh +++ b/test/unittest/proc/tst.omp.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2018, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -17,4 +17,4 @@ if [ $# != 1 ]; then fi dtrace=$1 -exec $dtrace $dt_flags -c test/triggers/proc-tst-omp -n 'BEGIN' +exec $dtrace $dt_flags -c test/triggers/proc-tst-omp -n 'dtrace:::BEGIN' diff --git a/test/unittest/proc/tst.pr_psargs.d b/test/unittest/proc/tst.pr_psargs.d index 5c4995ad..d3f39fc0 100644 --- a/test/unittest/proc/tst.pr_psargs.d +++ b/test/unittest/proc/tst.pr_psargs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN { mypid = pid; system("/bin/echo TEST a b c "); @@ -25,12 +25,12 @@ proc:::exec-success exit(0); } -tick-1s +profile:::tick-1s { exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/proc/tst.pr_psargs_other_task.d b/test/unittest/proc/tst.pr_psargs_other_task.d index 040a7864..37a4a92d 100644 --- a/test/unittest/proc/tst.pr_psargs_other_task.d +++ b/test/unittest/proc/tst.pr_psargs_other_task.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN { mypid = pid; tsk = curthread; @@ -26,12 +26,12 @@ proc:::exec-success exit(0); } -tick-1s +profile:::tick-1s { exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/proc/tst.pthread-exec.sh b/test/unittest/proc/tst.pthread-exec.sh index 7900c6ae..8c05dcb1 100755 --- a/test/unittest/proc/tst.pthread-exec.sh +++ b/test/unittest/proc/tst.pthread-exec.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2018, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -17,4 +17,4 @@ if [ $# != 1 ]; then fi dtrace=$1 -exec $dtrace $dt_flags -c test/triggers/proc-tst-pthread-exec -n 'BEGIN' +exec $dtrace $dt_flags -c test/triggers/proc-tst-pthread-exec -n 'dtrace:::BEGIN' diff --git a/test/unittest/proc/tst.self-grab.sh b/test/unittest/proc/tst.self-grab.sh index c56501fb..1ca793a5 100755 --- a/test/unittest/proc/tst.self-grab.sh +++ b/test/unittest/proc/tst.self-grab.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2016, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2016, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -23,7 +23,7 @@ syscall::write:entry { ustack(1); } -tick-20s +profile:::tick-20s { exit(1); } diff --git a/test/unittest/proc/tst.signal.sh b/test/unittest/proc/tst.signal.sh index 1db10042..b432f503 100755 --- a/test/unittest/proc/tst.signal.sh +++ b/test/unittest/proc/tst.signal.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -36,7 +36,7 @@ script() exit(args[0] == SIGUSR1 ? 0 : 1); } - tick-5s + profile:::tick-5s { exit(124); } diff --git a/test/unittest/proc/tst.signals.sh b/test/unittest/proc/tst.signals.sh index 1105ebc2..1a4fd879 100755 --- a/test/unittest/proc/tst.signals.sh +++ b/test/unittest/proc/tst.signals.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2014, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2014, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -106,7 +106,7 @@ for signal in $(seq 1 31); do proc_pid=$! DTRACE_DEBUG=t $dtrace $dt_flags -xquiet -p $! \ - -n 'tick-5s { exit(0); }' \ + -n 'profile:::tick-5s { exit(0); }' \ 2> $DIRNAME/dtrace.out & dt_pid=$! diff --git a/test/unittest/proc/tst.slow-self-grab.sh b/test/unittest/proc/tst.slow-self-grab.sh index 0a6aafb6..edcf856f 100755 --- a/test/unittest/proc/tst.slow-self-grab.sh +++ b/test/unittest/proc/tst.slow-self-grab.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2016, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2016, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -24,7 +24,7 @@ syscall::write:entry { ustack(1); } -tick-20s +profile:::tick-20s { exit(1); } diff --git a/test/unittest/proc/tst.system-daemon.sh b/test/unittest/proc/tst.system-daemon.sh index 7165128f..28603c2b 100755 --- a/test/unittest/proc/tst.system-daemon.sh +++ b/test/unittest/proc/tst.system-daemon.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2015, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2015, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,10 +20,10 @@ script() { rsyslogd_pid="$(cat /var/run/syslogd.pid)" DTRACE_DEBUG=t $dtrace $dt_flags -qws /dev/stdin < 4 / { exit(0); } + profile:::tick-1s { i++; } + profile:::tick-1s / i > 4 / { exit(0); } EOF } diff --git a/test/unittest/profile-n/tst.argtest.d b/test/unittest/profile-n/tst.argtest.d index 83fe3ff2..87dd7bef 100644 --- a/test/unittest/profile-n/tst.argtest.d +++ b/test/unittest/profile-n/tst.argtest.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,14 +17,14 @@ #pragma D option quiet -tick-1 +profile:::tick-1 /(arg0 != 0 && arg1 == 0) || (arg0 == 0 && arg1 != 0)/ { printf("Test passed; either arg0/arg1 is zero\n"); exit(0); } -tick-1 +profile:::tick-1 /(arg0 == 0 && arg1 == 0) || (arg0 != 0 && arg1 != 0)/ { printf("Test failed; either arg0 (or) arg1 should be non zero\n"); diff --git a/test/unittest/profile-n/tst.func.sh b/test/unittest/profile-n/tst.func.sh index 1179718a..4853b44b 100755 --- a/test/unittest/profile-n/tst.func.sh +++ b/test/unittest/profile-n/tst.func.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -9,13 +9,13 @@ script() { $dtrace $dt_flags -qs /dev/stdin <traceme = 1; } diff --git a/test/unittest/providers/rawfbt/tst.entry.d b/test/unittest/providers/rawfbt/tst.entry.d index 3f845003..76490321 100644 --- a/test/unittest/providers/rawfbt/tst.entry.d +++ b/test/unittest/providers/rawfbt/tst.entry.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet #pragma D option statusrate=10ms -BEGIN +dtrace:::BEGIN { num_entry = 0; } diff --git a/test/unittest/providers/rawfbt/tst.return1.d b/test/unittest/providers/rawfbt/tst.return1.d index 029eeadd..d430ae96 100644 --- a/test/unittest/providers/rawfbt/tst.return1.d +++ b/test/unittest/providers/rawfbt/tst.return1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet #pragma D option zdefs -BEGIN +dtrace:::BEGIN { niter = 0; rval = -1; diff --git a/test/unittest/providers/rawfbt/tst.wildcard-provider.d b/test/unittest/providers/rawfbt/tst.wildcard-provider.d index f73b33f2..f89a9743 100644 --- a/test/unittest/providers/rawfbt/tst.wildcard-provider.d +++ b/test/unittest/providers/rawfbt/tst.wildcard-provider.d @@ -23,7 +23,7 @@ * - the script executes (dtrace could attach to the probes) */ -BEGIN, +dtrace:::BEGIN, *fbt:vmlinux:do_sys_open*:entry { printf("success\n"); diff --git a/test/unittest/providers/rawtp/err.lockmem-too-low.sh b/test/unittest/providers/rawtp/err.lockmem-too-low.sh index 629c35ad..0cddd5aa 100755 --- a/test/unittest/providers/rawtp/err.lockmem-too-low.sh +++ b/test/unittest/providers/rawtp/err.lockmem-too-low.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -23,7 +23,7 @@ dtrace=$1 # Determine whether the system respects setting the lockmem limit as root. # Some systems ignore lowering the limit, which means we cannot make it fail. # In that case, we report XFAIL. -if $dtrace $dt_flags -xlockmem=1 -n 'BEGIN { exit(0); }' &> /dev/null; then +if $dtrace $dt_flags -xlockmem=1 -n 'dtrace:::BEGIN { exit(0); }' &> /dev/null; then exit 67 fi diff --git a/test/unittest/providers/tst.basics.d b/test/unittest/providers/tst.basics.d index 5280e45d..a9df8c36 100644 --- a/test/unittest/providers/tst.basics.d +++ b/test/unittest/providers/tst.basics.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.beginexit.d b/test/unittest/providers/tst.beginexit.d index 53c95951..af9e88c2 100644 --- a/test/unittest/providers/tst.beginexit.d +++ b/test/unittest/providers/tst.beginexit.d @@ -1,22 +1,22 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { exit(0); } -BEGIN +dtrace:::BEGIN { printf("shouldn't be here..."); here++; } -END +dtrace:::END { exit(here); } diff --git a/test/unittest/providers/tst.beginprof.d b/test/unittest/providers/tst.beginprof.d index 2b97718a..3ac855b2 100644 --- a/test/unittest/providers/tst.beginprof.d +++ b/test/unittest/providers/tst.beginprof.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%s %s %s %s", probeprov, probemod, probefunc, probename); exit (0); diff --git a/test/unittest/providers/tst.dtrace_cleanup.sh b/test/unittest/providers/tst.dtrace_cleanup.sh index 4ac59ccb..b2b1d4b6 100755 --- a/test/unittest/providers/tst.dtrace_cleanup.sh +++ b/test/unittest/providers/tst.dtrace_cleanup.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -17,7 +17,7 @@ dtrace=$1 UPROBE_EVENTS=/sys/kernel/debug/tracing/uprobe_events out=/tmp/output.$$ -$dtrace $dt_flags -n BEGIN,END &>> $out & +$dtrace $dt_flags -n dtrace:::BEGIN,dtrace:::END &>> $out & pid=$! for iter in $(seq 1 $((timeout/2))); do diff --git a/test/unittest/providers/tst.probattrs.d b/test/unittest/providers/tst.probattrs.d index af42a6b0..1577985f 100644 --- a/test/unittest/providers/tst.probattrs.d +++ b/test/unittest/providers/tst.probattrs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.probefunc.d b/test/unittest/providers/tst.probefunc.d index 0f4c7980..9f138c3c 100644 --- a/test/unittest/providers/tst.probefunc.d +++ b/test/unittest/providers/tst.probefunc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.probemod.d b/test/unittest/providers/tst.probemod.d index fc20a4c7..8a5f84f3 100644 --- a/test/unittest/providers/tst.probemod.d +++ b/test/unittest/providers/tst.probemod.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.probename.d b/test/unittest/providers/tst.probename.d index 462d07f4..73fae2cc 100644 --- a/test/unittest/providers/tst.probename.d +++ b/test/unittest/providers/tst.probename.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.probprov.d b/test/unittest/providers/tst.probprov.d index faac3658..3409cd17 100644 --- a/test/unittest/providers/tst.probprov.d +++ b/test/unittest/providers/tst.probprov.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.profend.d b/test/unittest/providers/tst.profend.d index a724e60d..13faea1e 100644 --- a/test/unittest/providers/tst.profend.d +++ b/test/unittest/providers/tst.profend.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.profexit.d b/test/unittest/providers/tst.profexit.d index a0d69026..c3e3c0f7 100644 --- a/test/unittest/providers/tst.profexit.d +++ b/test/unittest/providers/tst.profexit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.trace.d b/test/unittest/providers/tst.trace.d index 58630495..133387bb 100644 --- a/test/unittest/providers/tst.trace.d +++ b/test/unittest/providers/tst.trace.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/tst.twoprof.d b/test/unittest/providers/tst.twoprof.d index 0d506114..4616917a 100644 --- a/test/unittest/providers/tst.twoprof.d +++ b/test/unittest/providers/tst.twoprof.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } diff --git a/test/unittest/providers/uprobe/tst.multithread.sh b/test/unittest/providers/uprobe/tst.multithread.sh index 3c44546f..875e5273 100755 --- a/test/unittest/providers/uprobe/tst.multithread.sh +++ b/test/unittest/providers/uprobe/tst.multithread.sh @@ -96,7 +96,7 @@ cleanup() trap cleanup EXIT $dtrace $dt_flags -qn ' -BEGIN +dtrace:::BEGIN { entries = 0; bad = 0; diff --git a/test/unittest/rates/tst.aggrate.d b/test/unittest/rates/tst.aggrate.d index f6e6bfda..91d0e119 100644 --- a/test/unittest/rates/tst.aggrate.d +++ b/test/unittest/rates/tst.aggrate.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,19 +32,19 @@ int n; -tick-100msec +profile:::tick-100msec /n < 100/ { @a[n++] = sum(n); } -tick-100msec +profile:::tick-100msec /n == 100/ { exit(0); } -END +dtrace:::END { printa("%10d\n", @a); } diff --git a/test/unittest/rates/tst.statusrate.d b/test/unittest/rates/tst.statusrate.d index 1f9996ef..19257c05 100644 --- a/test/unittest/rates/tst.statusrate.d +++ b/test/unittest/rates/tst.statusrate.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,20 +21,20 @@ inline uint64_t NANOSEC = 1000000000; -tick-1sec +profile:::tick-1sec /n++ > 5/ { exit(2); ts = timestamp; } -END +dtrace:::END /(this->delta = timestamp - ts) > 2 * NANOSEC/ { exit(0); } -END +dtrace:::END /this->delta <= 2 * NANOSEC/ { printf("delta between exit() and END (%u nanos) too small", @@ -42,7 +42,7 @@ END exit(1); } -END +dtrace:::END /this->delta > 20 * NANOSEC/ { printf("delta between exit() and END (%u nanos) too large", diff --git a/test/unittest/rates/tst.switchrate.d b/test/unittest/rates/tst.switchrate.d index 867bf650..477a7101 100644 --- a/test/unittest/rates/tst.switchrate.d +++ b/test/unittest/rates/tst.switchrate.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,13 +31,13 @@ int n; -tick-100msec +profile:::tick-100msec /n < 100/ { printf("%10d\n", n++); } -tick-100msec +profile:::tick-100msec /n == 100/ { exit(0); diff --git a/test/unittest/regression/exit_panic.d b/test/unittest/regression/exit_panic.d index 9fc08f84..cf81f990 100644 --- a/test/unittest/regression/exit_panic.d +++ b/test/unittest/regression/exit_panic.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option destructive -BEGIN +dtrace:::BEGIN { /* Force some process to exit sharpish. */ system("true"); diff --git a/test/unittest/regression/tst.DTRACEFLT_BADADDR.d_path.d b/test/unittest/regression/tst.DTRACEFLT_BADADDR.d_path.d index ec519f4f..6e09701e 100644 --- a/test/unittest/regression/tst.DTRACEFLT_BADADDR.d_path.d +++ b/test/unittest/regression/tst.DTRACEFLT_BADADDR.d_path.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2015, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2015, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -ERROR +dtrace:::ERROR { printf("The arguments are %u %u PC %u %u\n", arg1, arg2, arg4, arg5); printf("The value of arg4 should be %u\n", DTRACEFLT_BADADDR); @@ -24,7 +24,7 @@ ERROR exit(0); } -BEGIN +dtrace:::BEGIN { d = d_path((struct path *)0x18); trace(d); diff --git a/test/unittest/regression/tst.array.d b/test/unittest/regression/tst.array.d index cd4f42f9..a3dba175 100644 --- a/test/unittest/regression/tst.array.d +++ b/test/unittest/regression/tst.array.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("%s\n", curthread->comm); exit(0); diff --git a/test/unittest/regression/tst.sigaltstack.d b/test/unittest/regression/tst.sigaltstack.d index 40535201..3b745ff2 100644 --- a/test/unittest/regression/tst.sigaltstack.d +++ b/test/unittest/regression/tst.sigaltstack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2015, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2015, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ /* * Ensure that tracing sigaltstack syscalls works. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 3 seconds */ timeout = timestamp + 3000000000; diff --git a/test/unittest/regression/tst.unload-reload-oops.sh b/test/unittest/regression/tst.unload-reload-oops.sh index fa7d0da1..030099ac 100755 --- a/test/unittest/regression/tst.unload-reload-oops.sh +++ b/test/unittest/regression/tst.unload-reload-oops.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2016, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2016, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -19,7 +19,7 @@ dtrace=$1 -$dtrace $dt_flags -qn proc:::exit -n 'tick-1s { exit(0); }' +$dtrace $dt_flags -qn proc:::exit -n 'profile:::tick-1s { exit(0); }' rmmod sdt modprobe sdt >/dev/null 2>/dev/null $dtrace $dt_flags -l > /dev/null diff --git a/test/unittest/scalars/err.D_ARR_LOCAL.thisarray.d b/test/unittest/scalars/err.D_ARR_LOCAL.thisarray.d index 8145cd0a..b9fafe85 100644 --- a/test/unittest/scalars/err.D_ARR_LOCAL.thisarray.d +++ b/test/unittest/scalars/err.D_ARR_LOCAL.thisarray.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ this int y; this int z; this int res; -BEGIN +dtrace:::BEGIN { this->x[this->y, this->z] = 123; this->res = this->x[this->y, this->z]++; diff --git a/test/unittest/scalars/err.D_DECL_CLASS.selfthis.d b/test/unittest/scalars/err.D_DECL_CLASS.selfthis.d index 57fcfd3a..d3e3692b 100644 --- a/test/unittest/scalars/err.D_DECL_CLASS.selfthis.d +++ b/test/unittest/scalars/err.D_DECL_CLASS.selfthis.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ self this int x; -BEGIN +dtrace:::BEGIN { x = "dummy"; } diff --git a/test/unittest/scalars/err.D_DECL_CLASS.thisself.d b/test/unittest/scalars/err.D_DECL_CLASS.thisself.d index 14e39092..2a5593f3 100644 --- a/test/unittest/scalars/err.D_DECL_CLASS.thisself.d +++ b/test/unittest/scalars/err.D_DECL_CLASS.thisself.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ this self int x; -BEGIN +dtrace:::BEGIN { x = "dummy"; } diff --git a/test/unittest/scalars/err.D_DECL_IDRED.errval.d b/test/unittest/scalars/err.D_DECL_IDRED.errval.d index 344e39bb..9990bc17 100644 --- a/test/unittest/scalars/err.D_DECL_IDRED.errval.d +++ b/test/unittest/scalars/err.D_DECL_IDRED.errval.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ char x; double x; long x; -BEGIN +dtrace:::BEGIN { x = 123; } diff --git a/test/unittest/scalars/err.D_OP_INCOMPAT.dec.err.d b/test/unittest/scalars/err.D_OP_INCOMPAT.dec.err.d index d2161b8d..35003157 100644 --- a/test/unittest/scalars/err.D_OP_INCOMPAT.dec.err.d +++ b/test/unittest/scalars/err.D_OP_INCOMPAT.dec.err.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ int x; -BEGIN +dtrace:::BEGIN { x = "dummy"; } diff --git a/test/unittest/scalars/err.D_OP_INCOMPAT.dupgtype.d b/test/unittest/scalars/err.D_OP_INCOMPAT.dupgtype.d index fd4452c7..7b7e82c0 100644 --- a/test/unittest/scalars/err.D_OP_INCOMPAT.dupgtype.d +++ b/test/unittest/scalars/err.D_OP_INCOMPAT.dupgtype.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { x = curthread; x = pid; diff --git a/test/unittest/scalars/err.D_OP_INCOMPAT.dupltype.d b/test/unittest/scalars/err.D_OP_INCOMPAT.dupltype.d index 713c1898..730e8df7 100644 --- a/test/unittest/scalars/err.D_OP_INCOMPAT.dupltype.d +++ b/test/unittest/scalars/err.D_OP_INCOMPAT.dupltype.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { this->x = curthread; this->x = pid; diff --git a/test/unittest/scalars/err.D_OP_INCOMPAT.dupttype.d b/test/unittest/scalars/err.D_OP_INCOMPAT.dupttype.d index 23a7d440..1bb5b8f0 100644 --- a/test/unittest/scalars/err.D_OP_INCOMPAT.dupttype.d +++ b/test/unittest/scalars/err.D_OP_INCOMPAT.dupttype.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { self->x = curthread; self->x = pid; diff --git a/test/unittest/scalars/err.D_SYNTAX.declare-init.d b/test/unittest/scalars/err.D_SYNTAX.declare-init.d index fd8dca6c..aaecdf48 100644 --- a/test/unittest/scalars/err.D_SYNTAX.declare-init.d +++ b/test/unittest/scalars/err.D_SYNTAX.declare-init.d @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { int x = 123; } diff --git a/test/unittest/scalars/err.D_SYNTAX.declare.d b/test/unittest/scalars/err.D_SYNTAX.declare.d index b26acd04..ee88c57a 100644 --- a/test/unittest/scalars/err.D_SYNTAX.declare.d +++ b/test/unittest/scalars/err.D_SYNTAX.declare.d @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { int x; } diff --git a/test/unittest/scalars/tst.basicvar.d b/test/unittest/scalars/tst.basicvar.d index 5393ff67..892c73dd 100644 --- a/test/unittest/scalars/tst.basicvar.d +++ b/test/unittest/scalars/tst.basicvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ int x; -BEGIN +dtrace:::BEGIN { x = 123; } diff --git a/test/unittest/scalars/tst.localvar.d b/test/unittest/scalars/tst.localvar.d index 3b85c926..0094924f 100644 --- a/test/unittest/scalars/tst.localvar.d +++ b/test/unittest/scalars/tst.localvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { } int i; diff --git a/test/unittest/scalars/tst.misc.d b/test/unittest/scalars/tst.misc.d index 60edab45..883e1b79 100644 --- a/test/unittest/scalars/tst.misc.d +++ b/test/unittest/scalars/tst.misc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ * */ -BEGIN +dtrace:::BEGIN { printf("\nr_cpu_ids = 0x%x\n", `nr_cpu_ids); printf("ext4`ext4_dir_operations = %p\n", &ext4`ext4_dir_operations); diff --git a/test/unittest/scalars/tst.self.d b/test/unittest/scalars/tst.self.d index ff190de8..953031d8 100644 --- a/test/unittest/scalars/tst.self.d +++ b/test/unittest/scalars/tst.self.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ self x; -BEGIN +dtrace:::BEGIN { x = "dummy"; exit(0); diff --git a/test/unittest/scalars/tst.selfarray.d b/test/unittest/scalars/tst.selfarray.d index fd0c1383..cc1b9306 100644 --- a/test/unittest/scalars/tst.selfarray.d +++ b/test/unittest/scalars/tst.selfarray.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ self int y; self int z; self int res; -BEGIN +dtrace:::BEGIN { self->x[self->y, self->z] = 123; self->res = self->x[self->y, self->z]++; diff --git a/test/unittest/scalars/tst.selfarray2.d b/test/unittest/scalars/tst.selfarray2.d index 3c8140d6..4e2b88dd 100644 --- a/test/unittest/scalars/tst.selfarray2.d +++ b/test/unittest/scalars/tst.selfarray2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -34,18 +34,18 @@ syscall:::entry exit(1); } -tick-100hz +profile:::tick-100hz { system("date > /dev/null") } -tick-1sec +profile:::tick-1sec /i++ == 10/ { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/scalars/tst.selfthis.d b/test/unittest/scalars/tst.selfthis.d index 475045b7..361eaf48 100644 --- a/test/unittest/scalars/tst.selfthis.d +++ b/test/unittest/scalars/tst.selfthis.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ self int x; this int y; -BEGIN +dtrace:::BEGIN { this->x = 123; self->y = this->x; diff --git a/test/unittest/scalars/tst.thisself.d b/test/unittest/scalars/tst.thisself.d index 24fc6d2b..aba66bd5 100644 --- a/test/unittest/scalars/tst.thisself.d +++ b/test/unittest/scalars/tst.thisself.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ self int x; this int y; -BEGIN +dtrace:::BEGIN { self->x = 123; this->y = self->x; diff --git a/test/unittest/sched/tst.stackdepth.d b/test/unittest/sched/tst.stackdepth.d index e6ffca01..8ba01776 100644 --- a/test/unittest/sched/tst.stackdepth.d +++ b/test/unittest/sched/tst.stackdepth.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ sched:::on-cpu exit(0); } -tick-1s +profile:::tick-1s /i++ == 3/ { exit(1); diff --git a/test/unittest/sched/tst.var-chip.d b/test/unittest/sched/tst.var-chip.d index b345e75e..e4d59f20 100644 --- a/test/unittest/sched/tst.var-chip.d +++ b/test/unittest/sched/tst.var-chip.d @@ -1,25 +1,25 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@trigger: none */ -profile-10ms +profile:::profile-10ms { trace(chip); n++; } -profile-10ms +profile:::profile-10ms /n > 2/ { exit(0); } -tick-1s +profile:::tick-1s { exit(1); } diff --git a/test/unittest/sched/tst.var-cpu.d b/test/unittest/sched/tst.var-cpu.d index 93113d8c..1a3719f2 100644 --- a/test/unittest/sched/tst.var-cpu.d +++ b/test/unittest/sched/tst.var-cpu.d @@ -1,25 +1,25 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@trigger: none */ -profile-10ms +profile:::profile-10ms { trace(cpu); n++; } -profile-10ms +profile:::profile-10ms /n > 2/ { exit(0); } -tick-1s +profile:::tick-1s { exit(1); } diff --git a/test/unittest/sched/tst.var-curcpu.d b/test/unittest/sched/tst.var-curcpu.d index de1a230e..47bec477 100644 --- a/test/unittest/sched/tst.var-curcpu.d +++ b/test/unittest/sched/tst.var-curcpu.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,20 +9,20 @@ cpuinfo_t *cpuinfo; -profile-10ms +profile:::profile-10ms { cpuinfo = curcpu; trace(cpuinfo->cpu_id); n++; } -profile-10ms +profile:::profile-10ms /n > 2/ { exit(0); } -tick-1s +profile:::tick-1s { exit(1); } diff --git a/test/unittest/sched/tst.var-lgrp.d b/test/unittest/sched/tst.var-lgrp.d index dfc0a448..55158d71 100644 --- a/test/unittest/sched/tst.var-lgrp.d +++ b/test/unittest/sched/tst.var-lgrp.d @@ -1,25 +1,25 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@trigger: none */ -profile-10ms +profile:::profile-10ms { trace(lgrp); n++; } -profile-10ms +profile:::profile-10ms /n > 2/ { exit(0); } -tick-1s +profile:::tick-1s { exit(1); } diff --git a/test/unittest/sched/tst.var-pset.d b/test/unittest/sched/tst.var-pset.d index 41f02a36..fd8e78e6 100644 --- a/test/unittest/sched/tst.var-pset.d +++ b/test/unittest/sched/tst.var-pset.d @@ -1,25 +1,25 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ /* @@trigger: none */ -profile-10ms +profile:::profile-10ms { trace(pset); n++; } -profile-10ms +profile:::profile-10ms /n > 2/ { exit(0); } -tick-1s +profile:::tick-1s { exit(1); } diff --git a/test/unittest/scripting/err.D_MACRO_UNDEF.invalidargs.d b/test/unittest/scripting/err.D_MACRO_UNDEF.invalidargs.d index 6fcb4d54..53b7ccaf 100755 --- a/test/unittest/scripting/err.D_MACRO_UNDEF.invalidargs.d +++ b/test/unittest/scripting/err.D_MACRO_UNDEF.invalidargs.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { print("The arguments are %d %d\n", $1, $2); exit(0); diff --git a/test/unittest/scripting/err.D_OP_LVAL.rdonly.d b/test/unittest/scripting/err.D_OP_LVAL.rdonly.d index 866a7f32..9d0df377 100755 --- a/test/unittest/scripting/err.D_OP_LVAL.rdonly.d +++ b/test/unittest/scripting/err.D_OP_LVAL.rdonly.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { $pid++; exit(0); diff --git a/test/unittest/scripting/err.D_OP_WRITE.usepidmacro.d b/test/unittest/scripting/err.D_OP_WRITE.usepidmacro.d index 9a9d1566..5440d3a9 100755 --- a/test/unittest/scripting/err.D_OP_WRITE.usepidmacro.d +++ b/test/unittest/scripting/err.D_OP_WRITE.usepidmacro.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { pid = 1; exit(0); diff --git a/test/unittest/scripting/err.D_SYNTAX.concat.d b/test/unittest/scripting/err.D_SYNTAX.concat.d index 8d6e5f64..8921d8d4 100755 --- a/test/unittest/scripting/err.D_SYNTAX.concat.d +++ b/test/unittest/scripting/err.D_SYNTAX.concat.d @@ -17,7 +17,7 @@ * */ -BEGIN +dtrace:::BEGIN /i = 123$pid/ { exit(0); diff --git a/test/unittest/scripting/err.D_SYNTAX.desc.d b/test/unittest/scripting/err.D_SYNTAX.desc.d index e8ec7851..298b1c84 100755 --- a/test/unittest/scripting/err.D_SYNTAX.desc.d +++ b/test/unittest/scripting/err.D_SYNTAX.desc.d @@ -16,7 +16,7 @@ * */ -BEGIN +dtrace:::BEGIN /i = 123$pid/ { exit(0); diff --git a/test/unittest/scripting/err.D_SYNTAX.inval.d b/test/unittest/scripting/err.D_SYNTAX.inval.d index d2ae68a6..900445a9 100755 --- a/test/unittest/scripting/err.D_SYNTAX.inval.d +++ b/test/unittest/scripting/err.D_SYNTAX.inval.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { print("The arguments are %d %d\n", $-1); exit(0); diff --git a/test/unittest/scripting/err.D_SYNTAX.pid.d b/test/unittest/scripting/err.D_SYNTAX.pid.d index 1f383dd7..8b6e0230 100755 --- a/test/unittest/scripting/err.D_SYNTAX.pid.d +++ b/test/unittest/scripting/err.D_SYNTAX.pid.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { i = 123$pid; exit(0); diff --git a/test/unittest/scripting/tst.D_MACRO_UNUSED.overflow.sh b/test/unittest/scripting/tst.D_MACRO_UNUSED.overflow.sh index 8e35e9de..7561a0d9 100755 --- a/test/unittest/scripting/tst.D_MACRO_UNUSED.overflow.sh +++ b/test/unittest/scripting/tst.D_MACRO_UNUSED.overflow.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -29,7 +29,7 @@ errorfile=$tmpdir/$bname.$$.err cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/scripting/tst.arg0.d b/test/unittest/scripting/tst.arg0.d index d2aa4345..a3a12644 100755 --- a/test/unittest/scripting/tst.arg0.d +++ b/test/unittest/scripting/tst.arg0.d @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { printf("The arg0 is %s\n", $0); exit(0); diff --git a/test/unittest/scripting/tst.arguments.sh b/test/unittest/scripting/tst.arguments.sh index 6124f886..1a02bfa0 100755 --- a/test/unittest/scripting/tst.arguments.sh +++ b/test/unittest/scripting/tst.arguments.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -31,7 +31,7 @@ cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN { printf("%d %d %d %d %d %d %d %d %d %d", \$1, \$2, \$3, \$4, \$5, \$6, \$7, \$8, \$9, \$10); diff --git a/test/unittest/scripting/tst.assign.d b/test/unittest/scripting/tst.assign.d index cde5d64c..7afbbbf2 100755 --- a/test/unittest/scripting/tst.assign.d +++ b/test/unittest/scripting/tst.assign.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { processid = $pid; exit(0); diff --git a/test/unittest/scripting/tst.basic.d b/test/unittest/scripting/tst.basic.d index 792d6f06..3bc3c0bf 100755 --- a/test/unittest/scripting/tst.basic.d +++ b/test/unittest/scripting/tst.basic.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/scripting/tst.egid.sh b/test/unittest/scripting/tst.egid.sh index b9f38819..7191b5e0 100755 --- a/test/unittest/scripting/tst.egid.sh +++ b/test/unittest/scripting/tst.egid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -31,13 +31,13 @@ cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN /\$egid != \$1/ { exit(1); } -BEGIN +dtrace:::BEGIN /\$egid == \$1/ { exit(0); diff --git a/test/unittest/scripting/tst.euid.sh b/test/unittest/scripting/tst.euid.sh index fc86182e..71fa1e48 100755 --- a/test/unittest/scripting/tst.euid.sh +++ b/test/unittest/scripting/tst.euid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -29,13 +29,13 @@ cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN /\$euid != \$1/ { exit(1); } -BEGIN +dtrace:::BEGIN /\$euid == \$1/ { exit(0); diff --git a/test/unittest/scripting/tst.gid.sh b/test/unittest/scripting/tst.gid.sh index 680da73f..f7a949bd 100755 --- a/test/unittest/scripting/tst.gid.sh +++ b/test/unittest/scripting/tst.gid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -29,13 +29,13 @@ cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN /\$gid != \$1/ { exit(1); } -BEGIN +dtrace:::BEGIN /\$gid == \$1/ { exit(0); diff --git a/test/unittest/scripting/tst.pgid.d b/test/unittest/scripting/tst.pgid.d index 44ce7515..91546f6a 100755 --- a/test/unittest/scripting/tst.pgid.d +++ b/test/unittest/scripting/tst.pgid.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { printf("The pgid is %d\n", $pgid); exit(0); diff --git a/test/unittest/scripting/tst.pid.d b/test/unittest/scripting/tst.pid.d index 70197c86..5c88930b 100755 --- a/test/unittest/scripting/tst.pid.d +++ b/test/unittest/scripting/tst.pid.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { printf("The pid is %d\n", $pid); exit(0); diff --git a/test/unittest/scripting/tst.ppid.sh b/test/unittest/scripting/tst.ppid.sh index a15beafb..1009321d 100755 --- a/test/unittest/scripting/tst.ppid.sh +++ b/test/unittest/scripting/tst.ppid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -29,13 +29,13 @@ cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN /\$ppid != \$1/ { exit(1); } -BEGIN +dtrace:::BEGIN /\$ppid == \$1/ { exit(0); diff --git a/test/unittest/scripting/tst.quiet.d b/test/unittest/scripting/tst.quiet.d index 90381a2c..eae5a410 100755 --- a/test/unittest/scripting/tst.quiet.d +++ b/test/unittest/scripting/tst.quiet.d @@ -2,7 +2,7 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/scripting/tst.sid-valid.sh b/test/unittest/scripting/tst.sid-valid.sh index c8faf7e8..2713a792 100755 --- a/test/unittest/scripting/tst.sid-valid.sh +++ b/test/unittest/scripting/tst.sid-valid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -29,14 +29,14 @@ cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN /\$sid != \$1/ { printf("actual: %d mismatches expected: %d\n", \$sid, \$1); exit(1); } -BEGIN +dtrace:::BEGIN /\$sid == \$1/ { printf("actual: %d matches expected: %d\n", \$sid, \$1); diff --git a/test/unittest/scripting/tst.sid.d b/test/unittest/scripting/tst.sid.d index 670761d8..cb8c5681 100755 --- a/test/unittest/scripting/tst.sid.d +++ b/test/unittest/scripting/tst.sid.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { printf("The sid is %d\n", $sid); exit(0); diff --git a/test/unittest/scripting/tst.stringmacro.sh b/test/unittest/scripting/tst.stringmacro.sh index 6aa5c060..f94a3bea 100755 --- a/test/unittest/scripting/tst.stringmacro.sh +++ b/test/unittest/scripting/tst.stringmacro.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -27,7 +27,7 @@ dfilename=$tmpdir/$bname.$$.d cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN { printf("%s", \$\$1); exit(0); diff --git a/test/unittest/scripting/tst.trace.d b/test/unittest/scripting/tst.trace.d index f52b14ef..ca5b4571 100755 --- a/test/unittest/scripting/tst.trace.d +++ b/test/unittest/scripting/tst.trace.d @@ -15,7 +15,7 @@ * */ -BEGIN +dtrace:::BEGIN { trace("hello"); exit(0); diff --git a/test/unittest/scripting/tst.uid.sh b/test/unittest/scripting/tst.uid.sh index cc43ac2b..e5cede55 100755 --- a/test/unittest/scripting/tst.uid.sh +++ b/test/unittest/scripting/tst.uid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -29,13 +29,13 @@ cat > $dfilename <<-EOF #!$dtrace -qs -BEGIN +dtrace:::BEGIN /\$uid != \$1/ { exit(1); } -BEGIN +dtrace:::BEGIN /\$uid == \$1/ { exit(0); diff --git a/test/unittest/sdt/tst.args-3.d b/test/unittest/sdt/tst.args-3.d index ae070cb7..38fcead6 100644 --- a/test/unittest/sdt/tst.args-3.d +++ b/test/unittest/sdt/tst.args-3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ /* * Ensure that arguments to SDT probes can be retrieved correctly. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/sdt/tst.args-4.d b/test/unittest/sdt/tst.args-4.d index 6b24bbf7..0a946dec 100644 --- a/test/unittest/sdt/tst.args-4.d +++ b/test/unittest/sdt/tst.args-4.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ /* * Ensure that arguments to SDT probes can be retrieved correctly. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/sdt/tst.modsdt.d b/test/unittest/sdt/tst.modsdt.d index 359003de..36af2391 100644 --- a/test/unittest/sdt/tst.modsdt.d +++ b/test/unittest/sdt/tst.modsdt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ /* * Ensure that SDT probes in modules are supported. */ -BEGIN +dtrace:::BEGIN { i = 0; system("test/triggers/testprobe"); diff --git a/test/unittest/sdt/tst.perf-types.sh b/test/unittest/sdt/tst.perf-types.sh index 2b076110..8b59f9e1 100755 --- a/test/unittest/sdt/tst.perf-types.sh +++ b/test/unittest/sdt/tst.perf-types.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2016, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2016, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -11,4 +11,4 @@ dtrace=$1 exec $dtrace $dt_flags -c "find /dev/dtrace -exec /bin/true ;" \ -n 'perf:::sched_process_fork { trace(args[0]->pid); trace (args[1]->pid); hitany = 1; }' \ - -n 'END / hitany == 0 / { exit(1); }' + -n 'dtrace:::END / hitany == 0 / { exit(1); }' diff --git a/test/unittest/sdt/tst.section-oops.sh b/test/unittest/sdt/tst.section-oops.sh index e066ecfa..f6e9b10f 100755 --- a/test/unittest/sdt/tst.section-oops.sh +++ b/test/unittest/sdt/tst.section-oops.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2016, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2016, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -38,7 +38,7 @@ pounder=$! dtrace=$1 -$dtrace $dt_flags -qm 'perf:ext4 { @probes[probename] = count(); } ' -n 'tick-1s { i++; }' -n 'tick-1s / i > 50 / { exit(0); }' +$dtrace $dt_flags -qm 'perf:ext4 { @probes[probename] = count(); } ' -n 'profile:::tick-1s { i++; }' -n 'profile:::tick-1s / i > 50 / { exit(0); }' kill -9 $pounder wait 2>/dev/null diff --git a/test/unittest/sizeof/err.D_IDENT_BADREF.SizeofAssoc.d b/test/unittest/sizeof/err.D_IDENT_BADREF.SizeofAssoc.d index b556eb23..19d85fbb 100644 --- a/test/unittest/sizeof/err.D_IDENT_BADREF.SizeofAssoc.d +++ b/test/unittest/sizeof/err.D_IDENT_BADREF.SizeofAssoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { assoc_array[0] = 010; assoc_array[1] = 100; diff --git a/test/unittest/sizeof/err.D_IDENT_UNDEF.UnknownSymbol.d b/test/unittest/sizeof/err.D_IDENT_UNDEF.UnknownSymbol.d index 9bf78874..c24dc6e2 100644 --- a/test/unittest/sizeof/err.D_IDENT_UNDEF.UnknownSymbol.d +++ b/test/unittest/sizeof/err.D_IDENT_UNDEF.UnknownSymbol.d @@ -14,7 +14,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("sizeof(`unknown_symbol): %d\n", sizeof(`unknown_symbol)); exit(0); diff --git a/test/unittest/sizeof/err.D_SIZEOF_TYPE.d b/test/unittest/sizeof/err.D_SIZEOF_TYPE.d index 9533a2c8..0d72f6c7 100644 --- a/test/unittest/sizeof/err.D_SIZEOF_TYPE.d +++ b/test/unittest/sizeof/err.D_SIZEOF_TYPE.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { trace(sizeof(void)); exit(0); diff --git a/test/unittest/sizeof/err.D_SYNTAX.SizeofBadType.d b/test/unittest/sizeof/err.D_SYNTAX.SizeofBadType.d index fcb0c512..7da9d4ca 100644 --- a/test/unittest/sizeof/err.D_SYNTAX.SizeofBadType.d +++ b/test/unittest/sizeof/err.D_SYNTAX.SizeofBadType.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("sizeof(*): %d\n", sizeof(*)); exit(0); diff --git a/test/unittest/sizeof/tst.SizeofArray.d b/test/unittest/sizeof/tst.SizeofArray.d index 85e24c90..2a9604b2 100644 --- a/test/unittest/sizeof/tst.SizeofArray.d +++ b/test/unittest/sizeof/tst.SizeofArray.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ int array[5]; -BEGIN +dtrace:::BEGIN { array[0] = 010; array[1] = 100; @@ -32,7 +32,7 @@ BEGIN exit(0); } -END +dtrace:::END /(20 != sizeof(array)) || (4 != sizeof(array[0])) || (4 != sizeof(array[1])) || (4 != sizeof(array[2]))/ { diff --git a/test/unittest/sizeof/tst.SizeofDataTypes.d b/test/unittest/sizeof/tst.SizeofDataTypes.d index e5db3721..cd302792 100644 --- a/test/unittest/sizeof/tst.SizeofDataTypes.d +++ b/test/unittest/sizeof/tst.SizeofDataTypes.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -66,7 +66,7 @@ enum colors { int *pointer; -BEGIN +dtrace:::BEGIN { printf("sizeof(new_char): %d\n", sizeof(new_char)); printf("sizeof(new_short): %d\n", sizeof(new_short)); @@ -87,7 +87,7 @@ BEGIN exit(0); } -END +dtrace:::END /(1 != sizeof(new_char)) || (2 != sizeof(new_short)) || (4 != sizeof(new_int)) || ((4 != sizeof(new_long)) && (8 != sizeof(new_long))) || diff --git a/test/unittest/sizeof/tst.SizeofExpression.d b/test/unittest/sizeof/tst.SizeofExpression.d index 0589259d..3baec19d 100644 --- a/test/unittest/sizeof/tst.SizeofExpression.d +++ b/test/unittest/sizeof/tst.SizeofExpression.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("sizeof('c') : %d\n", sizeof('c')); printf("sizeof(10 * 'c') : %d\n", sizeof(10 * 'c')); @@ -32,7 +32,7 @@ BEGIN exit(0); } -END +dtrace:::END /(4 != sizeof('c')) || (4 != sizeof(10 * 'c')) || (4 != sizeof(100 + 12345)) || (4 != sizeof(1234567890)) || (8 != sizeof(1234512345 * 1234512345 * 12345678 * 1ULL)) || diff --git a/test/unittest/sizeof/tst.SizeofNULL.d b/test/unittest/sizeof/tst.SizeofNULL.d index aacd66d8..0809c9b8 100644 --- a/test/unittest/sizeof/tst.SizeofNULL.d +++ b/test/unittest/sizeof/tst.SizeofNULL.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,13 +14,13 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("sizeof(NULL): %d\n", sizeof(NULL)); exit(0); } -END +dtrace:::END /4 != sizeof(NULL)/ { exit(1); diff --git a/test/unittest/sizeof/tst.SizeofStrConst.d b/test/unittest/sizeof/tst.SizeofStrConst.d index 5ab3db12..69f84508 100644 --- a/test/unittest/sizeof/tst.SizeofStrConst.d +++ b/test/unittest/sizeof/tst.SizeofStrConst.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("sizeof \"hi\": %d\n", sizeof("hi")); exit(0); diff --git a/test/unittest/sizeof/tst.SizeofString1.d b/test/unittest/sizeof/tst.SizeofString1.d index 2e604b2a..7d82069d 100644 --- a/test/unittest/sizeof/tst.SizeofString1.d +++ b/test/unittest/sizeof/tst.SizeofString1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet #pragma D option strsize=256 -BEGIN +dtrace:::BEGIN { assoc_array["hello"] = "hello"; assoc_array["hi"] = "hi"; diff --git a/test/unittest/sizeof/tst.SizeofString2.d b/test/unittest/sizeof/tst.SizeofString2.d index d5f436d6..c5ee7619 100644 --- a/test/unittest/sizeof/tst.SizeofString2.d +++ b/test/unittest/sizeof/tst.SizeofString2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet #pragma D option strsize=256 -BEGIN +dtrace:::BEGIN { var = "hello"; printf("sizeof(var): %d\n", sizeof(var)); diff --git a/test/unittest/speculation/err.CommitWithInvalid.d b/test/unittest/speculation/err.CommitWithInvalid.d index 7dc094d4..c45223e6 100644 --- a/test/unittest/speculation/err.CommitWithInvalid.d +++ b/test/unittest/speculation/err.CommitWithInvalid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,27 +14,27 @@ #pragma D option quiet #pragma D option nspec=8 -BEGIN +dtrace:::BEGIN { self->i = 0; } -BEGIN +dtrace:::BEGIN { commit(1024); } -BEGIN +dtrace:::BEGIN { trace("This should not be seen"); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithBreakPoint.d b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithBreakPoint.d index 044b5a95..96531fb5 100644 --- a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithBreakPoint.d +++ b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithBreakPoint.d @@ -13,7 +13,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -34,12 +34,12 @@ syscall::: exit(0); } -ERROR +dtrace:::ERROR { exit(0); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithChill.d b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithChill.d index e02577d2..bd1fb2b7 100644 --- a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithChill.d +++ b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithChill.d @@ -13,7 +13,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -34,12 +34,12 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithCopyOut.d b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithCopyOut.d index dbb8f294..2e5c78d2 100644 --- a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithCopyOut.d +++ b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithCopyOut.d @@ -17,7 +17,7 @@ char a[2]; void *buf; uintptr_t addr; size_t nbytes; -BEGIN +dtrace:::BEGIN { self->i = 0; addr = (uintptr_t)&a[0]; @@ -25,7 +25,7 @@ BEGIN var = speculation(); } -BEGIN +dtrace:::BEGIN { speculate(var); printf("Speculation ID: %d", var); @@ -33,13 +33,13 @@ BEGIN copyout(buf, addr, nbytes); } -BEGIN +dtrace:::BEGIN { printf("This test should not have compiled\n"); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithCopyOutStr.d b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithCopyOutStr.d index 00f56e1d..92aa9594 100644 --- a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithCopyOutStr.d +++ b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithCopyOutStr.d @@ -17,7 +17,7 @@ string str; char a[2]; uintptr_t addr; size_t maxlen; -BEGIN +dtrace:::BEGIN { self->i = 0; addr = (uintptr_t)&a[0]; @@ -25,7 +25,7 @@ BEGIN var = speculation(); } -BEGIN +dtrace:::BEGIN { speculate(var); printf("Speculation ID: %d", var); @@ -33,13 +33,13 @@ BEGIN copyoutstr(str, addr, maxlen); } -BEGIN +dtrace:::BEGIN { printf("This test should not have compiled\n"); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithPanic.d b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithPanic.d index 9fb6a1e3..843ccec6 100644 --- a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithPanic.d +++ b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithPanic.d @@ -13,7 +13,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -34,12 +34,12 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithRaise.d b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithRaise.d index c239bc7a..3fe15ad1 100644 --- a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithRaise.d +++ b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithRaise.d @@ -13,7 +13,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -34,12 +34,12 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithStop.d b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithStop.d index dd20eac4..ff23632d 100644 --- a/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithStop.d +++ b/test/unittest/speculation/err.D_ACT_SPEC.SpeculateWithStop.d @@ -13,7 +13,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -34,12 +34,12 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/speculation/err.D_AGG_COMM.AggAftCommit.d b/test/unittest/speculation/err.D_AGG_COMM.AggAftCommit.d index cf007da6..9f2ece24 100644 --- a/test/unittest/speculation/err.D_AGG_COMM.AggAftCommit.d +++ b/test/unittest/speculation/err.D_AGG_COMM.AggAftCommit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,13 +11,13 @@ * SECTION: Speculative Tracing/Committing a Speculation; */ -BEGIN +dtrace:::BEGIN { commit(1); @a = count(); exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithAvg.d b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithAvg.d index 4c624787..491e58fd 100644 --- a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithAvg.d +++ b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithAvg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -33,7 +33,7 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithCount.d b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithCount.d index 475a6b26..9c21feb0 100644 --- a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithCount.d +++ b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithCount.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -33,7 +33,7 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithLquant.d b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithLquant.d index bfd19544..b73db3a5 100644 --- a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithLquant.d +++ b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithLquant.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -33,7 +33,7 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithMax.d b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithMax.d index 39e3cebd..040388f8 100644 --- a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithMax.d +++ b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithMax.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -33,7 +33,7 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithMin.d b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithMin.d index b3f6ee88..1b3fc334 100644 --- a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithMin.d +++ b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithMin.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -33,7 +33,7 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithQuant.d b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithQuant.d index 342971b2..f46dedf1 100644 --- a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithQuant.d +++ b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithQuant.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -33,7 +33,7 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithSum.d b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithSum.d index a4fd0857..73a1a50e 100644 --- a/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithSum.d +++ b/test/unittest/speculation/err.D_AGG_SPEC.SpeculateWithSum.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -33,7 +33,7 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_COMM_DREC.CommitAftDataRec.d b/test/unittest/speculation/err.D_COMM_DREC.CommitAftDataRec.d index 5030b40b..c8091e92 100644 --- a/test/unittest/speculation/err.D_COMM_DREC.CommitAftDataRec.d +++ b/test/unittest/speculation/err.D_COMM_DREC.CommitAftDataRec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->speculateFlag = 0; self->spec = speculation(); @@ -22,7 +22,7 @@ BEGIN exit(0); } -END +dtrace:::END { printf("This test shouldnt have compiled\n"); commit(self->spec); diff --git a/test/unittest/speculation/err.D_DREC_COMM.DataRecAftCommit.d b/test/unittest/speculation/err.D_DREC_COMM.DataRecAftCommit.d index 5954e8db..e0b68365 100644 --- a/test/unittest/speculation/err.D_DREC_COMM.DataRecAftCommit.d +++ b/test/unittest/speculation/err.D_DREC_COMM.DataRecAftCommit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet #pragma D option cleanrate=2000hz -BEGIN +dtrace:::BEGIN { self->speculateFlag = 0; } @@ -41,12 +41,12 @@ syscall::: printf("Data recording after commit\n"); } -END +dtrace:::END { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_DREC_COMM.ExitAfterCommit.d b/test/unittest/speculation/err.D_DREC_COMM.ExitAfterCommit.d index 79034d1b..8ce076a0 100644 --- a/test/unittest/speculation/err.D_DREC_COMM.ExitAfterCommit.d +++ b/test/unittest/speculation/err.D_DREC_COMM.ExitAfterCommit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,13 +13,13 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; self->spec = speculation(); } -BEGIN +dtrace:::BEGIN /self->spec/ { speculate(self->spec); @@ -27,14 +27,14 @@ BEGIN printf("self->i: %d\n", self->i); } -BEGIN +dtrace:::BEGIN /self->i/ { commit(self->spec); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_EXIT_SPEC.ExitAftSpec.d b/test/unittest/speculation/err.D_EXIT_SPEC.ExitAftSpec.d index 650c318a..88fc9da2 100644 --- a/test/unittest/speculation/err.D_EXIT_SPEC.ExitAftSpec.d +++ b/test/unittest/speculation/err.D_EXIT_SPEC.ExitAftSpec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -38,12 +38,12 @@ syscall::: exit(0); } -END +dtrace:::END { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_PRAGMA_MALFORM.NspecExpr.d b/test/unittest/speculation/err.D_PRAGMA_MALFORM.NspecExpr.d index 302ada66..3728e6ea 100644 --- a/test/unittest/speculation/err.D_PRAGMA_MALFORM.NspecExpr.d +++ b/test/unittest/speculation/err.D_PRAGMA_MALFORM.NspecExpr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,14 +19,14 @@ #pragma D option cleanrate=3000hz #pragma D option nspec=24 * 44 -BEGIN +dtrace:::BEGIN { var1 = 0; var2 = 0; var3 = 0; } -BEGIN +dtrace:::BEGIN { var1 = speculation(); printf("Speculation ID: %d\n", var1); @@ -36,21 +36,21 @@ BEGIN printf("Speculation ID: %d\n", var3); } -BEGIN +dtrace:::BEGIN /var1 && var2 && (!var3)/ { printf("Succesfully got two speculative buffers"); exit(0); } -BEGIN +dtrace:::BEGIN /(!var1) || (!var2) || var3/ { printf("Test failed"); exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/err.D_PRAGMA_OPTSET.HugeNspecValue.d b/test/unittest/speculation/err.D_PRAGMA_OPTSET.HugeNspecValue.d index ca5e616d..73153e9a 100644 --- a/test/unittest/speculation/err.D_PRAGMA_OPTSET.HugeNspecValue.d +++ b/test/unittest/speculation/err.D_PRAGMA_OPTSET.HugeNspecValue.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,14 +18,14 @@ #pragma D option cleanrate=3000hz #pragma D option nspec=245566729809009887663 -BEGIN +dtrace:::BEGIN { var1 = 0; var2 = 0; var3 = 0; } -BEGIN +dtrace:::BEGIN { var1 = speculation(); printf("Speculation ID: %d\n", var1); @@ -35,21 +35,21 @@ BEGIN printf("Speculation ID: %d\n", var3); } -BEGIN +dtrace:::BEGIN /var1 && var2 && (!var3)/ { printf("Succesfully got two speculative buffers"); exit(0); } -BEGIN +dtrace:::BEGIN /(!var1) || (!var2) || var3/ { printf("Test failed"); exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/err.D_PRAGMA_OPTSET.InvalidSpecSize.d b/test/unittest/speculation/err.D_PRAGMA_OPTSET.InvalidSpecSize.d index 66f11306..61c7f470 100644 --- a/test/unittest/speculation/err.D_PRAGMA_OPTSET.InvalidSpecSize.d +++ b/test/unittest/speculation/err.D_PRAGMA_OPTSET.InvalidSpecSize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet #pragma D option specsize=1b -BEGIN +dtrace:::BEGIN { self->speculateFlag = 0; self->spec = speculation(); @@ -25,7 +25,7 @@ BEGIN exit(0); } -END +dtrace:::END { printf("This shouldnt have compiled\n"); exit(0); diff --git a/test/unittest/speculation/err.D_PRAGMA_OPTSET.NegSpecSize.d b/test/unittest/speculation/err.D_PRAGMA_OPTSET.NegSpecSize.d index 4125283e..3d6d5b95 100644 --- a/test/unittest/speculation/err.D_PRAGMA_OPTSET.NegSpecSize.d +++ b/test/unittest/speculation/err.D_PRAGMA_OPTSET.NegSpecSize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet #pragma D option specsize=-40 -BEGIN +dtrace:::BEGIN { self->speculateFlag = 0; self->commitFlag = 0; @@ -25,7 +25,7 @@ BEGIN printf("Speculative buffer ID: %d\n", self->spec); } -BEGIN +dtrace:::BEGIN { speculate(self->spec); printf("Lots of data\n"); @@ -36,21 +36,21 @@ BEGIN } -BEGIN +dtrace:::BEGIN /1 <= self->speculateFlag/ { commit(self->spec); self->commitFlag++; } -BEGIN +dtrace:::BEGIN /1 <= self->commitFlag/ { printf("Statement was executed\n"); exit(0); } -BEGIN +dtrace:::BEGIN /1 > self->commitFlag/ { printf("Statement wasn't executed\n"); diff --git a/test/unittest/speculation/err.D_PROTO_LEN.SpecNoId.d b/test/unittest/speculation/err.D_PROTO_LEN.SpecNoId.d index e04fb3a9..ab5cac5b 100644 --- a/test/unittest/speculation/err.D_PROTO_LEN.SpecNoId.d +++ b/test/unittest/speculation/err.D_PROTO_LEN.SpecNoId.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { var = speculation(); printf("Speculation ID: %d", var); @@ -34,7 +34,7 @@ profile:::tick-1sec exit(0); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/speculation/err.D_SPEC_COMM.SpecAftCommit.d b/test/unittest/speculation/err.D_SPEC_COMM.SpecAftCommit.d index 53bc4ead..22ae419b 100644 --- a/test/unittest/speculation/err.D_SPEC_COMM.SpecAftCommit.d +++ b/test/unittest/speculation/err.D_SPEC_COMM.SpecAftCommit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet #pragma D option cleanrate=3000hz -BEGIN +dtrace:::BEGIN { self->i = 0; var1 = 0; @@ -45,7 +45,7 @@ profile:::tick-1sec exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_SPEC_DREC.SpecAftDataRec.d b/test/unittest/speculation/err.D_SPEC_DREC.SpecAftDataRec.d index 820ddb9c..6d49bc13 100644 --- a/test/unittest/speculation/err.D_SPEC_DREC.SpecAftDataRec.d +++ b/test/unittest/speculation/err.D_SPEC_DREC.SpecAftDataRec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; } @@ -38,12 +38,12 @@ syscall::: exit(0); } -END +dtrace:::END { exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/speculation/err.D_SPEC_SPEC.SpecAftSpec.d b/test/unittest/speculation/err.D_SPEC_SPEC.SpecAftSpec.d index a2663790..4fdcf89e 100644 --- a/test/unittest/speculation/err.D_SPEC_SPEC.SpecAftSpec.d +++ b/test/unittest/speculation/err.D_SPEC_SPEC.SpecAftSpec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; var1 = speculation(); @@ -39,7 +39,7 @@ profile:::tick-1sec exit(0); } -END +dtrace:::END { exit(0); } diff --git a/test/unittest/speculation/err.DiscardWithInvalid.d b/test/unittest/speculation/err.DiscardWithInvalid.d index 15ad1190..483955a0 100644 --- a/test/unittest/speculation/err.DiscardWithInvalid.d +++ b/test/unittest/speculation/err.DiscardWithInvalid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,27 +14,27 @@ #pragma D option quiet #pragma D option nspec=8 -BEGIN +dtrace:::BEGIN { self->i = 0; } -BEGIN +dtrace:::BEGIN { discard(1024); } -BEGIN +dtrace:::BEGIN { trace("This should not be seen"); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/err.NegativeNspec.d b/test/unittest/speculation/err.NegativeNspec.d index 182fa00f..7437148a 100644 --- a/test/unittest/speculation/err.NegativeNspec.d +++ b/test/unittest/speculation/err.NegativeNspec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet #pragma D option nspec=-72 -BEGIN +dtrace:::BEGIN { self->speculateFlag = 0; self->commitFlag = 0; diff --git a/test/unittest/speculation/tst.CommitAfterDiscard.d b/test/unittest/speculation/tst.CommitAfterDiscard.d index 9f7ff312..3f67f9d0 100644 --- a/test/unittest/speculation/tst.CommitAfterDiscard.d +++ b/test/unittest/speculation/tst.CommitAfterDiscard.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; self->commit = 0; @@ -24,7 +24,7 @@ BEGIN printf("Speculation ID: %d\n", var1); } -BEGIN +dtrace:::BEGIN /var1/ { speculate(var1); @@ -33,7 +33,7 @@ BEGIN self->i++; } -BEGIN +dtrace:::BEGIN /(self->i)/ { discard(var1); @@ -42,7 +42,7 @@ BEGIN self->commit++; } -BEGIN +dtrace:::BEGIN /self->commit/ { printf("Committed a discarded buffer\n"); @@ -50,14 +50,14 @@ BEGIN } -BEGIN +dtrace:::BEGIN /!self->commit/ { printf("Couldn't commit a discarded buffer\n"); exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.CommitCommitCommit.d b/test/unittest/speculation/tst.CommitCommitCommit.d index e91d0d05..4cd2ffca 100644 --- a/test/unittest/speculation/tst.CommitCommitCommit.d +++ b/test/unittest/speculation/tst.CommitCommitCommit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option nspec=3 -BEGIN +dtrace:::BEGIN { i = speculation(); j = speculation(); @@ -22,37 +22,37 @@ BEGIN printf("Speculation IDs: %d %d %d\n", i, j, k); } -BEGIN +dtrace:::BEGIN { speculate(i); printf("Speculating on id: %d\n", i); } -BEGIN +dtrace:::BEGIN { speculate(j); printf("Speculating on id: %d\n", j); } -BEGIN +dtrace:::BEGIN { speculate(k); printf("Speculating on id: %d\n", k); } -BEGIN +dtrace:::BEGIN { commit(k); commit(j); commit(i); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.CommitDiscard4x.d b/test/unittest/speculation/tst.CommitDiscard4x.d index 3a1f5b04..722ee444 100644 --- a/test/unittest/speculation/tst.CommitDiscard4x.d +++ b/test/unittest/speculation/tst.CommitDiscard4x.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option nspec=8 -BEGIN +dtrace:::BEGIN { a = speculation(); b = speculation(); @@ -28,55 +28,55 @@ BEGIN a, b, c, d, e, f, g, h); } -BEGIN +dtrace:::BEGIN { speculate(a); printf("Speculating on id: %d\n", a); } -BEGIN +dtrace:::BEGIN { speculate(b); printf("Speculating on id: %d\n", b); } -BEGIN +dtrace:::BEGIN { speculate(c); printf("Speculating on id: %d\n", c); } -BEGIN +dtrace:::BEGIN { speculate(d); printf("Speculating on id: %d\n", d); } -BEGIN +dtrace:::BEGIN { speculate(e); printf("Speculating on id: %d\n", e); } -BEGIN +dtrace:::BEGIN { speculate(f); printf("Speculating on id: %d\n", f); } -BEGIN +dtrace:::BEGIN { speculate(g); printf("Speculating on id: %d\n", g); } -BEGIN +dtrace:::BEGIN { speculate(h); printf("Speculating on id: %d\n", h); } -BEGIN +dtrace:::BEGIN { commit(h); discard(g); @@ -88,12 +88,12 @@ BEGIN discard(a); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.CommitWithInactive.d b/test/unittest/speculation/tst.CommitWithInactive.d index 17bfe52b..a58488b8 100644 --- a/test/unittest/speculation/tst.CommitWithInactive.d +++ b/test/unittest/speculation/tst.CommitWithInactive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,27 +12,27 @@ * SECTION: Speculative Tracing/Comitting a Speculation */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; } -BEGIN +dtrace:::BEGIN { commit(1); } -BEGIN +dtrace:::BEGIN { trace("This should be seen"); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.CommitWithZero.d b/test/unittest/speculation/tst.CommitWithZero.d index 56ec2fc2..ac361e18 100644 --- a/test/unittest/speculation/tst.CommitWithZero.d +++ b/test/unittest/speculation/tst.CommitWithZero.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,25 +13,25 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->commitFlag = 0; } -BEGIN +dtrace:::BEGIN { commit(0); self->commitFlag++; } -BEGIN +dtrace:::BEGIN /0 < self->commitFlag/ { printf("commit(), self->commitFlag = %d\n", self->commitFlag); exit(0); } -BEGIN +dtrace:::BEGIN /0 == self->commitFlag/ { printf("commit(), self->commitFlag = %d\n", self->commitFlag); diff --git a/test/unittest/speculation/tst.DataRecAftDiscard.d b/test/unittest/speculation/tst.DataRecAftDiscard.d index ab842bcf..956c53a7 100644 --- a/test/unittest/speculation/tst.DataRecAftDiscard.d +++ b/test/unittest/speculation/tst.DataRecAftDiscard.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,14 +13,14 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->speculateFlag = 0; self->discardFlag = 0; self->spec = speculation(); } -BEGIN +dtrace:::BEGIN /self->spec/ { speculate(self->spec); @@ -28,7 +28,7 @@ BEGIN self->speculateFlag++; } -BEGIN +dtrace:::BEGIN /(self->spec) && (self->speculateFlag)/ { discard(self->spec); @@ -36,19 +36,19 @@ BEGIN printf("Data recording after discard\n"); } -BEGIN +dtrace:::BEGIN /self->discardFlag/ { exit(0); } -BEGIN +dtrace:::BEGIN /!self->discardFlag/ { exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.DiscardAftCommit.d b/test/unittest/speculation/tst.DiscardAftCommit.d index adffa94e..a1b57ef8 100644 --- a/test/unittest/speculation/tst.DiscardAftCommit.d +++ b/test/unittest/speculation/tst.DiscardAftCommit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; self->commit = 0; @@ -24,7 +24,7 @@ BEGIN printf("Speculation ID: %d\n", var1); } -BEGIN +dtrace:::BEGIN /var1/ { speculate(var1); @@ -33,7 +33,7 @@ BEGIN self->i++; } -BEGIN +dtrace:::BEGIN /(self->i)/ { commit(var1); @@ -42,7 +42,7 @@ BEGIN self->discard++; } -BEGIN +dtrace:::BEGIN /self->discard/ { printf("Discarded a committed buffer\n"); @@ -50,14 +50,14 @@ BEGIN } -BEGIN +dtrace:::BEGIN /!self->discard/ { printf("Couldn't discard a committed buffer\n"); exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.DiscardAftDataRec.d b/test/unittest/speculation/tst.DiscardAftDataRec.d index 8a7da82c..86b97086 100644 --- a/test/unittest/speculation/tst.DiscardAftDataRec.d +++ b/test/unittest/speculation/tst.DiscardAftDataRec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,13 +15,13 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->spec = speculation(); printf("Speculative buffer ID: %d\n", self->spec); } -BEGIN +dtrace:::BEGIN { printf("Can have data recording before discarding\n"); discard(self->spec); diff --git a/test/unittest/speculation/tst.DiscardAftDiscard.d b/test/unittest/speculation/tst.DiscardAftDiscard.d index 080be451..dc4e6697 100644 --- a/test/unittest/speculation/tst.DiscardAftDiscard.d +++ b/test/unittest/speculation/tst.DiscardAftDiscard.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; self->discard1 = 0; @@ -23,7 +23,7 @@ BEGIN printf("Speculation ID: %d\n", var1); } -BEGIN +dtrace:::BEGIN /var1/ { speculate(var1); @@ -32,7 +32,7 @@ BEGIN self->i++; } -BEGIN +dtrace:::BEGIN /(self->i)/ { discard(var1); @@ -41,7 +41,7 @@ BEGIN self->discard2++; } -BEGIN +dtrace:::BEGIN /(self->discard2) && (self->discard1)/ { printf("Discarded a discarded buffer\n"); @@ -49,14 +49,14 @@ BEGIN } -BEGIN +dtrace:::BEGIN /(!self->discard2) || (!self->discard1)/ { printf("Couldn't discard a discarded buffer\n"); exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.DiscardWithInactive.d b/test/unittest/speculation/tst.DiscardWithInactive.d index 4228244b..54ce04c1 100644 --- a/test/unittest/speculation/tst.DiscardWithInactive.d +++ b/test/unittest/speculation/tst.DiscardWithInactive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,27 +12,27 @@ * SECTION: Speculative Tracing/Discarding a Speculation */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; } -BEGIN +dtrace:::BEGIN { discard(1); } -BEGIN +dtrace:::BEGIN { trace("This should be seen"); } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.DiscardWithZero.d b/test/unittest/speculation/tst.DiscardWithZero.d index e5761c53..94db0b1d 100644 --- a/test/unittest/speculation/tst.DiscardWithZero.d +++ b/test/unittest/speculation/tst.DiscardWithZero.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,25 +13,25 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->discardFlag = 0; } -BEGIN +dtrace:::BEGIN { discard(0); self->discardFlag++; } -BEGIN +dtrace:::BEGIN /0 < self->discardFlag/ { printf("discard(), self->discardFlag = %d\n", self->discardFlag); exit(0); } -BEGIN +dtrace:::BEGIN /0 == self->discardFlag/ { printf("discard(), self->discardFlag = %d\n", self->discardFlag); diff --git a/test/unittest/speculation/tst.ExitAftDiscard.d b/test/unittest/speculation/tst.ExitAftDiscard.d index bb4023d2..0f2be8ff 100644 --- a/test/unittest/speculation/tst.ExitAftDiscard.d +++ b/test/unittest/speculation/tst.ExitAftDiscard.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,13 +13,13 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; self->spec = speculation(); } -BEGIN +dtrace:::BEGIN /self->spec/ { speculate(self->spec); @@ -27,7 +27,7 @@ BEGIN printf("self->i: %d\n", self->i); } -BEGIN +dtrace:::BEGIN /self->i/ { discard(self->spec); diff --git a/test/unittest/speculation/tst.NoSpecBuffer.d b/test/unittest/speculation/tst.NoSpecBuffer.d index 818ea8e1..c09c5c6b 100644 --- a/test/unittest/speculation/tst.NoSpecBuffer.d +++ b/test/unittest/speculation/tst.NoSpecBuffer.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,12 +18,12 @@ #pragma D option quiet #pragma D option nspec=1 -BEGIN +dtrace:::BEGIN { i = 0; } -tick-100ms +profile:::tick-100ms /i < 2/ { self->spec = speculation(); @@ -31,7 +31,7 @@ tick-100ms i++; } -tick-100ms +profile:::tick-100ms /i == 2/ { printf("i: %d\tself->spec: %d", i, self->spec); diff --git a/test/unittest/speculation/tst.SingleCPU.d b/test/unittest/speculation/tst.SingleCPU.d index dd68db1a..82acd092 100644 --- a/test/unittest/speculation/tst.SingleCPU.d +++ b/test/unittest/speculation/tst.SingleCPU.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option nspec=16 #pragma D option switchrate=3ms -BEGIN +dtrace:::BEGIN { n = 0; } diff --git a/test/unittest/speculation/tst.SpecSizeVariations.sh b/test/unittest/speculation/tst.SpecSizeVariations.sh index 79995b59..3a3a4447 100755 --- a/test/unittest/speculation/tst.SpecSizeVariations.sh +++ b/test/unittest/speculation/tst.SpecSizeVariations.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -11,7 +11,7 @@ dtrace=$1 for x in 71 72 159 160; do $dtrace $dt_flags -xspecsize=$x -qn ' - BEGIN + dtrace:::BEGIN { x = 123456700ll; self->nspeculate = 0; @@ -21,7 +21,7 @@ for x in 71 72 159 160; do } /* 16 + 7 * 8 = 72 bytes */ - BEGIN + dtrace:::BEGIN { speculate(self->spec); printf("%lld\n", x++); @@ -34,13 +34,13 @@ for x in 71 72 159 160; do self->nspeculate++; } - BEGIN + dtrace:::BEGIN { x = 123456800ll; } /* 16 + 9 * 8 = 88 bytes */ - BEGIN + dtrace:::BEGIN { speculate(self->spec); printf("%lld\n", x++); @@ -55,19 +55,19 @@ for x in 71 72 159 160; do self->nspeculate++; } - BEGIN + dtrace:::BEGIN { commit(self->spec); self->ncommit++; } - BEGIN + dtrace:::BEGIN { printf("counts: %d %d\n", self->nspeculate, self->ncommit); exit(0); } - ERROR + dtrace:::ERROR { exit(1); }' diff --git a/test/unittest/speculation/tst.SpeculateWithRandom.d b/test/unittest/speculation/tst.SpeculateWithRandom.d index 0e280974..e9a56e9b 100644 --- a/test/unittest/speculation/tst.SpeculateWithRandom.d +++ b/test/unittest/speculation/tst.SpeculateWithRandom.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,12 +12,12 @@ * SECTION: Speculative Tracing/Creating a Speculation */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->i = 0; } -BEGIN +dtrace:::BEGIN { speculate(3456710); self->i++; @@ -25,12 +25,12 @@ BEGIN } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.SpeculationCommit.d b/test/unittest/speculation/tst.SpeculationCommit.d index 96bd8cbe..bfd77cdc 100644 --- a/test/unittest/speculation/tst.SpeculationCommit.d +++ b/test/unittest/speculation/tst.SpeculationCommit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->var = speculation(); printf("Speculation ID: %d\n", self->var); @@ -22,7 +22,7 @@ BEGIN self->commit = 0; } -BEGIN +dtrace:::BEGIN /1 > self->speculate/ { speculate(self->var); @@ -30,21 +30,21 @@ BEGIN printf("Called speculate on id: %d\n", self->var); } -BEGIN +dtrace:::BEGIN /1 <= self->speculate/ { commit(self->var); self->commit++; } -BEGIN +dtrace:::BEGIN /(1 == self->commit)/ { printf("Succesfully tested buffer commit\n"); exit(0); } -BEGIN +dtrace:::BEGIN /(0 == self->commit)/ { printf("Failed to commit buffer\n"); diff --git a/test/unittest/speculation/tst.SpeculationCommitNotQuiet.d b/test/unittest/speculation/tst.SpeculationCommitNotQuiet.d index 322eefea..80a84ab5 100644 --- a/test/unittest/speculation/tst.SpeculationCommitNotQuiet.d +++ b/test/unittest/speculation/tst.SpeculationCommitNotQuiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * */ -BEGIN +dtrace:::BEGIN { self->var = speculation(); printf("Speculation ID: %d\n", self->var); @@ -22,7 +22,7 @@ BEGIN self->commit = 0; } -BEGIN +dtrace:::BEGIN /1 > self->speculate/ { speculate(self->var); @@ -30,21 +30,21 @@ BEGIN printf("Called speculate on id: %d\n", self->var); } -BEGIN +dtrace:::BEGIN /1 <= self->speculate/ { commit(self->var); self->commit++; } -BEGIN +dtrace:::BEGIN /(1 == self->commit)/ { printf("Succesfully tested buffer commit\n"); exit(0); } -BEGIN +dtrace:::BEGIN /(0 == self->commit)/ { printf("Failed to commit buffer\n"); diff --git a/test/unittest/speculation/tst.SpeculationDefault.d b/test/unittest/speculation/tst.SpeculationDefault.d index aeeeb64d..33a1fce4 100644 --- a/test/unittest/speculation/tst.SpeculationDefault.d +++ b/test/unittest/speculation/tst.SpeculationDefault.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,18 +13,18 @@ * */ -BEGIN +dtrace:::BEGIN { self->spec = speculation(); } -BEGIN +dtrace:::BEGIN /self->spec/ { speculate(self->spec); } -BEGIN +dtrace:::BEGIN /self->spec/ { exit(0); diff --git a/test/unittest/speculation/tst.SpeculationDefaultCommit.d b/test/unittest/speculation/tst.SpeculationDefaultCommit.d index 6a8e2043..1b7f3304 100644 --- a/test/unittest/speculation/tst.SpeculationDefaultCommit.d +++ b/test/unittest/speculation/tst.SpeculationDefaultCommit.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,24 +14,24 @@ * */ -BEGIN +dtrace:::BEGIN { self->spec = speculation(); } -BEGIN +dtrace:::BEGIN /self->spec/ { speculate(self->spec); } -BEGIN +dtrace:::BEGIN /self->spec/ { commit(self->spec); } -BEGIN +dtrace:::BEGIN /self->spec/ { exit(0); diff --git a/test/unittest/speculation/tst.SpeculationDefaultDiscard.d b/test/unittest/speculation/tst.SpeculationDefaultDiscard.d index 3292ca98..bec19788 100644 --- a/test/unittest/speculation/tst.SpeculationDefaultDiscard.d +++ b/test/unittest/speculation/tst.SpeculationDefaultDiscard.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,24 +13,24 @@ * Actions and Subroutines/speculation() */ -BEGIN +dtrace:::BEGIN { self->spec = speculation(); } -BEGIN +dtrace:::BEGIN /self->spec/ { speculate(self->spec); } -BEGIN +dtrace:::BEGIN /self->spec/ { discard(self->spec); } -BEGIN +dtrace:::BEGIN /self->spec/ { exit(0); diff --git a/test/unittest/speculation/tst.SpeculationDiscard.d b/test/unittest/speculation/tst.SpeculationDiscard.d index 47037567..c69cda7e 100644 --- a/test/unittest/speculation/tst.SpeculationDiscard.d +++ b/test/unittest/speculation/tst.SpeculationDiscard.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->var = speculation(); printf("Speculation ID: %d\n", self->var); @@ -21,7 +21,7 @@ BEGIN self->discard = 0; } -BEGIN +dtrace:::BEGIN /1 > self->speculate/ { speculate(self->var); @@ -29,21 +29,21 @@ BEGIN printf("Called speculate on id: %d\n", self->var); } -BEGIN +dtrace:::BEGIN /1 <= self->speculate/ { discard(self->var); self->discard++; } -BEGIN +dtrace:::BEGIN /(1 == self->discard)/ { printf("Successfully tested buffer discard\n"); exit(0); } -BEGIN +dtrace:::BEGIN /(0 == self->discard)/ { printf("Failed to discard buffer\n"); diff --git a/test/unittest/speculation/tst.SpeculationDiscardNotQuiet.d b/test/unittest/speculation/tst.SpeculationDiscardNotQuiet.d index 23013c6e..b401efa4 100644 --- a/test/unittest/speculation/tst.SpeculationDiscardNotQuiet.d +++ b/test/unittest/speculation/tst.SpeculationDiscardNotQuiet.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * */ -BEGIN +dtrace:::BEGIN { self->var = speculation(); printf("Speculation ID: %d\n", self->var); @@ -20,7 +20,7 @@ BEGIN self->discard = 0; } -BEGIN +dtrace:::BEGIN /1 > self->speculate/ { speculate(self->var); @@ -28,21 +28,21 @@ BEGIN printf("Called speculate on id: %d\n", self->var); } -BEGIN +dtrace:::BEGIN /1 <= self->speculate/ { discard(self->var); self->discard++; } -BEGIN +dtrace:::BEGIN /(1 == self->discard)/ { printf("Successfully tested buffer discard\n"); exit(0); } -BEGIN +dtrace:::BEGIN /(0 == self->discard)/ { printf("Failed to discard buffer\n"); diff --git a/test/unittest/speculation/tst.SpeculationID.d b/test/unittest/speculation/tst.SpeculationID.d index 98f31702..3939a812 100644 --- a/test/unittest/speculation/tst.SpeculationID.d +++ b/test/unittest/speculation/tst.SpeculationID.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,14 +15,14 @@ */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { var = speculation(); printf("Speculation ID: %d", var); exit(0); } -END +dtrace:::END /0 == var/ { exit(1); diff --git a/test/unittest/speculation/tst.SpeculationWithZero.d b/test/unittest/speculation/tst.SpeculationWithZero.d index 945a4eb1..2918ee02 100644 --- a/test/unittest/speculation/tst.SpeculationWithZero.d +++ b/test/unittest/speculation/tst.SpeculationWithZero.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,25 +15,25 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { self->speculateFlag = 0; } -BEGIN +dtrace:::BEGIN { speculate(0); self->speculateFlag++; } -BEGIN +dtrace:::BEGIN /1 == self->speculateFlag/ { printf("Statement was executed\n"); exit(1); } -BEGIN +dtrace:::BEGIN /1 != self->speculateFlag/ { printf("Statement wasn't executed\n"); diff --git a/test/unittest/speculation/tst.TwoSpecBuffers.d b/test/unittest/speculation/tst.TwoSpecBuffers.d index f4c70f31..37d40623 100644 --- a/test/unittest/speculation/tst.TwoSpecBuffers.d +++ b/test/unittest/speculation/tst.TwoSpecBuffers.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,14 +18,14 @@ #pragma D option quiet #pragma D option nspec=2 -BEGIN +dtrace:::BEGIN { var1 = 0; var2 = 0; var3 = 0; } -BEGIN +dtrace:::BEGIN { var1 = speculation(); printf("Speculation ID: %d\n", var1); @@ -35,21 +35,21 @@ BEGIN printf("Speculation ID: %d\n", var3); } -BEGIN +dtrace:::BEGIN /var1 && var2 && (!var3)/ { printf("Successfully got two speculative buffers"); exit(0); } -BEGIN +dtrace:::BEGIN /(!var1) || (!var2) || var3/ { printf("Test failed"); exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/speculation/tst.negcommit.d b/test/unittest/speculation/tst.negcommit.d index 5d4f7a2e..09c577ab 100644 --- a/test/unittest/speculation/tst.negcommit.d +++ b/test/unittest/speculation/tst.negcommit.d @@ -1,16 +1,16 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { commit(-1); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/speculation/tst.negspec.d b/test/unittest/speculation/tst.negspec.d index f1f60f20..9d01c288 100644 --- a/test/unittest/speculation/tst.negspec.d +++ b/test/unittest/speculation/tst.negspec.d @@ -1,16 +1,16 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { speculate(-1); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/speculation/tst.zerosize-chill.d b/test/unittest/speculation/tst.zerosize-chill.d index ac63bbfa..01215e7c 100644 --- a/test/unittest/speculation/tst.zerosize-chill.d +++ b/test/unittest/speculation/tst.zerosize-chill.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,13 +9,13 @@ #pragma D option destructive -BEGIN +dtrace:::BEGIN { self->spec = speculation(); speculate(self->spec); } -BEGIN +dtrace:::BEGIN { this->one = 1; this->two = 2; @@ -23,12 +23,12 @@ BEGIN speculate(self->spec); } -BEGIN +dtrace:::BEGIN { speculate(self->spec); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/speculation/tst.zerosize.d b/test/unittest/speculation/tst.zerosize.d index ec75381e..389f853c 100644 --- a/test/unittest/speculation/tst.zerosize.d +++ b/test/unittest/speculation/tst.zerosize.d @@ -1,29 +1,29 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ -BEGIN +dtrace:::BEGIN { self->spec = speculation(); speculate(self->spec); } -BEGIN +dtrace:::BEGIN { this->one = 1; this->two = 2; speculate(self->spec); } -BEGIN +dtrace:::BEGIN { speculate(self->spec); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/stability/err.D_ATTR_MIN.MinAttributes.d b/test/unittest/stability/err.D_ATTR_MIN.MinAttributes.d index 1e47f0bc..e9aaa546 100644 --- a/test/unittest/stability/err.D_ATTR_MIN.MinAttributes.d +++ b/test/unittest/stability/err.D_ATTR_MIN.MinAttributes.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,13 +17,13 @@ #pragma D option quiet #pragma D option amin=Evolving/Evolving/Common -BEGIN +dtrace:::BEGIN { trace(curthread->t_procp); exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/stack/err.D_PROTO_ARG.stack.d b/test/unittest/stack/err.D_PROTO_ARG.stack.d index de45fb75..f2d60ada 100644 --- a/test/unittest/stack/err.D_PROTO_ARG.stack.d +++ b/test/unittest/stack/err.D_PROTO_ARG.stack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { stack("i'm not an integer constant"); } diff --git a/test/unittest/stack/err.D_PROTO_ARG.ustack-frames.d b/test/unittest/stack/err.D_PROTO_ARG.ustack-frames.d index c41f3852..c29dda5f 100644 --- a/test/unittest/stack/err.D_PROTO_ARG.ustack-frames.d +++ b/test/unittest/stack/err.D_PROTO_ARG.ustack-frames.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { ustack("i'm not an integer constant"); } diff --git a/test/unittest/stack/err.D_PROTO_ARG.ustack-strsize.d b/test/unittest/stack/err.D_PROTO_ARG.ustack-strsize.d index f840921b..f268ec96 100644 --- a/test/unittest/stack/err.D_PROTO_ARG.ustack-strsize.d +++ b/test/unittest/stack/err.D_PROTO_ARG.ustack-strsize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { ustack(1, "i'm not an integer constant"); } diff --git a/test/unittest/stack/err.D_PROTO_LEN.stack.d b/test/unittest/stack/err.D_PROTO_LEN.stack.d index 129968f3..6fafd12c 100644 --- a/test/unittest/stack/err.D_PROTO_LEN.stack.d +++ b/test/unittest/stack/err.D_PROTO_LEN.stack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ */ -BEGIN +dtrace:::BEGIN { stack(1, 2); exit(0); diff --git a/test/unittest/stack/err.D_PROTO_LEN.ustack.d b/test/unittest/stack/err.D_PROTO_LEN.ustack.d index 01a0f636..f85b8c7b 100644 --- a/test/unittest/stack/err.D_PROTO_LEN.ustack.d +++ b/test/unittest/stack/err.D_PROTO_LEN.ustack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ -BEGIN +dtrace:::BEGIN { ustack(1, 10, "badarg"); exit(0); diff --git a/test/unittest/stack/err.D_STACK_SIZE.neg.d b/test/unittest/stack/err.D_STACK_SIZE.neg.d index 00cc92c6..bc8152ef 100644 --- a/test/unittest/stack/err.D_STACK_SIZE.neg.d +++ b/test/unittest/stack/err.D_STACK_SIZE.neg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { stack(-1); } diff --git a/test/unittest/stack/err.D_STACK_SIZE.zero.d b/test/unittest/stack/err.D_STACK_SIZE.zero.d index 7e4e781c..94b2b5c0 100644 --- a/test/unittest/stack/err.D_STACK_SIZE.zero.d +++ b/test/unittest/stack/err.D_STACK_SIZE.zero.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * */ -BEGIN +dtrace:::BEGIN { stack(0); } diff --git a/test/unittest/stack/err.D_USTACK_FRAMES.bad.d b/test/unittest/stack/err.D_USTACK_FRAMES.bad.d index dc13b2e2..e62b4697 100644 --- a/test/unittest/stack/err.D_USTACK_FRAMES.bad.d +++ b/test/unittest/stack/err.D_USTACK_FRAMES.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ -BEGIN +dtrace:::BEGIN { ustack(0, 200); exit(0); diff --git a/test/unittest/stack/err.D_USTACK_STRSIZE.bad.d b/test/unittest/stack/err.D_USTACK_STRSIZE.bad.d index 0999b271..599fac8f 100644 --- a/test/unittest/stack/err.D_USTACK_STRSIZE.bad.d +++ b/test/unittest/stack/err.D_USTACK_STRSIZE.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ */ -BEGIN +dtrace:::BEGIN { ustack(1, -1); exit(0); diff --git a/test/unittest/stack/tst.stack.d b/test/unittest/stack/tst.stack.d index 05c2644b..081073e0 100644 --- a/test/unittest/stack/tst.stack.d +++ b/test/unittest/stack/tst.stack.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("echo write something > /dev/null"); } diff --git a/test/unittest/stack/tst.stack_fbt.sh b/test/unittest/stack/tst.stack_fbt.sh index f3d321e7..717b8058 100755 --- a/test/unittest/stack/tst.stack_fbt.sh +++ b/test/unittest/stack/tst.stack_fbt.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ cd $DIRNAME # Use DTrace to capture stack() at vfs_write:entry. $dtrace $dt_flags -wqn ' -BEGIN +dtrace:::BEGIN { system("echo write something > /dev/null"); } diff --git a/test/unittest/struct/err.D_ADDROF_VAR.StructPointer.d b/test/unittest/struct/err.D_ADDROF_VAR.StructPointer.d index 3f6201d7..837ffde2 100644 --- a/test/unittest/struct/err.D_ADDROF_VAR.StructPointer.d +++ b/test/unittest/struct/err.D_ADDROF_VAR.StructPointer.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ struct record { struct record var; struct record *ptr; -BEGIN +dtrace:::BEGIN { var.position = 1; diff --git a/test/unittest/struct/err.D_DECL_COMBO.StructWithoutColon.d b/test/unittest/struct/err.D_DECL_COMBO.StructWithoutColon.d index 856faaad..860400c7 100644 --- a/test/unittest/struct/err.D_DECL_COMBO.StructWithoutColon.d +++ b/test/unittest/struct/err.D_DECL_COMBO.StructWithoutColon.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -37,7 +37,7 @@ struct superStruct super; struct record rec; struct pirate pir; -BEGIN +dtrace:::BEGIN { rec.content = 'a'; rec.position = 1; diff --git a/test/unittest/struct/err.D_DECL_COMBO.StructWithoutColon1.d b/test/unittest/struct/err.D_DECL_COMBO.StructWithoutColon1.d index 8ef78fa6..c5136c93 100644 --- a/test/unittest/struct/err.D_DECL_COMBO.StructWithoutColon1.d +++ b/test/unittest/struct/err.D_DECL_COMBO.StructWithoutColon1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -30,7 +30,7 @@ struct pirate { struct record rec; struct pirate pir; -BEGIN +dtrace:::BEGIN { rec.content = 'a'; rec.position = 1; diff --git a/test/unittest/struct/err.D_DECL_INCOMPLETE.circular.d b/test/unittest/struct/err.D_DECL_INCOMPLETE.circular.d index 53667aaa..4439d43e 100644 --- a/test/unittest/struct/err.D_DECL_INCOMPLETE.circular.d +++ b/test/unittest/struct/err.D_DECL_INCOMPLETE.circular.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -34,7 +34,7 @@ struct pirate { struct record rec; struct pirate pir; -BEGIN +dtrace:::BEGIN { rec.position = 0; rec.content = 'a'; diff --git a/test/unittest/struct/err.D_DECL_INCOMPLETE.order.d b/test/unittest/struct/err.D_DECL_INCOMPLETE.order.d index f320d624..fc622a42 100644 --- a/test/unittest/struct/err.D_DECL_INCOMPLETE.order.d +++ b/test/unittest/struct/err.D_DECL_INCOMPLETE.order.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ struct pirate { struct record rec; struct pirate pir; -BEGIN +dtrace:::BEGIN { rec.content = 'y'; rec.position = 2; diff --git a/test/unittest/struct/err.D_DECL_INCOMPLETE.order2.d b/test/unittest/struct/err.D_DECL_INCOMPLETE.order2.d index 11570798..964e1854 100644 --- a/test/unittest/struct/err.D_DECL_INCOMPLETE.order2.d +++ b/test/unittest/struct/err.D_DECL_INCOMPLETE.order2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -47,7 +47,7 @@ struct OuterMost { } OMost; -BEGIN +dtrace:::BEGIN { OMost.dummy_More = 0; @@ -76,7 +76,7 @@ BEGIN exit(0); } -END +dtrace:::END /(0 != OMost.dummy_More) || (1 != OMost.OMore.dummy_More) (2 != OMost.OMore.O.dummy_More) || (3 != OMost.OMore.O.I.dummy_More) (4 != OMost.OMore.O.I.IMore.dummy_More) diff --git a/test/unittest/struct/err.D_DECL_INCOMPLETE.recursive.d b/test/unittest/struct/err.D_DECL_INCOMPLETE.recursive.d index 6681c7c1..9088cc55 100644 --- a/test/unittest/struct/err.D_DECL_INCOMPLETE.recursive.d +++ b/test/unittest/struct/err.D_DECL_INCOMPLETE.recursive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ struct record { struct record r1; struct record r2; -BEGIN +dtrace:::BEGIN { r1.position = 1; r1.content = 'a'; diff --git a/test/unittest/struct/err.D_DECL_INCOMPLETE.simple.d b/test/unittest/struct/err.D_DECL_INCOMPLETE.simple.d index 33ab1edf..23c2482d 100644 --- a/test/unittest/struct/err.D_DECL_INCOMPLETE.simple.d +++ b/test/unittest/struct/err.D_DECL_INCOMPLETE.simple.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ struct record { struct record rec; -BEGIN +dtrace:::BEGIN { rec.position = 0; rec.content = 'a'; diff --git a/test/unittest/struct/err.D_DECL_VOIDOBJ.baddec.d b/test/unittest/struct/err.D_DECL_VOIDOBJ.baddec.d index d529225d..e19fc5f3 100644 --- a/test/unittest/struct/err.D_DECL_VOIDOBJ.baddec.d +++ b/test/unittest/struct/err.D_DECL_VOIDOBJ.baddec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ struct { int trace(); }; -BEGIN +dtrace:::BEGIN { exit(1); } diff --git a/test/unittest/struct/err.D_PROTO_ARG.DupStructAssoc.d b/test/unittest/struct/err.D_PROTO_ARG.DupStructAssoc.d index bfdde7e7..62c28769 100644 --- a/test/unittest/struct/err.D_PROTO_ARG.DupStructAssoc.d +++ b/test/unittest/struct/err.D_PROTO_ARG.DupStructAssoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ struct record r2; struct pirate p1; struct pirate p2; -BEGIN +dtrace:::BEGIN { r1.position = 1; r1.content = 'a'; diff --git a/test/unittest/struct/tst.StructAssoc.d b/test/unittest/struct/tst.StructAssoc.d index 9e2b20de..5f075418 100644 --- a/test/unittest/struct/tst.StructAssoc.d +++ b/test/unittest/struct/tst.StructAssoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ struct record { struct record r1; struct record r2; -BEGIN +dtrace:::BEGIN { r1.position = 1; r1.content = 'a'; @@ -42,7 +42,7 @@ BEGIN exit(0); } -END +dtrace:::END /assoc_array[r1] != assoc_array[r2]/ { printf("Error"); diff --git a/test/unittest/struct/tst.StructDataTypes.d b/test/unittest/struct/tst.StructDataTypes.d index abf0e90f..fbaacfe9 100644 --- a/test/unittest/struct/tst.StructDataTypes.d +++ b/test/unittest/struct/tst.StructDataTypes.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -68,7 +68,7 @@ enum colors { /* var.pointer = &`max_pfn; */ -BEGIN +dtrace:::BEGIN { var.new_char = 'c'; var.new_short = 10; diff --git a/test/unittest/struct/tst.StructInside.d b/test/unittest/struct/tst.StructInside.d index 2e1a8218..69690f8d 100644 --- a/test/unittest/struct/tst.StructInside.d +++ b/test/unittest/struct/tst.StructInside.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -47,7 +47,7 @@ struct OuterMost { struct OuterMost OMostCopy; -BEGIN +dtrace:::BEGIN { OMost.dummy_More = 0; @@ -81,7 +81,7 @@ BEGIN exit(0); } -END +dtrace:::END /(0 != OMost.dummy_More) || (1 != OMost.OMore.dummy_More) || (2 != OMost.OMore.O.dummy_More) || (3 != OMost.OMore.O.I.dummy_More) || (4 != OMost.OMore.O.I.IMore.dummy_More) || @@ -91,7 +91,7 @@ END exit(1); } -END +dtrace:::END /(0 != OMostCopy.dummy_More) || (1 != OMostCopy.OMore.dummy_More) || (2 != OMostCopy.OMore.O.dummy_More) || (3 != OMostCopy.OMore.O.I.dummy_More) || diff --git a/test/unittest/struct/tst.clauselocal.d b/test/unittest/struct/tst.clauselocal.d index aa547fc0..36e7b673 100644 --- a/test/unittest/struct/tst.clauselocal.d +++ b/test/unittest/struct/tst.clauselocal.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,14 +16,14 @@ struct foo { this struct foo bar; long bignum; -BEGIN +dtrace:::BEGIN { this->bar.x = 1; this->bar.y = ','; this->bar.z = 1234; } -BEGIN +dtrace:::BEGIN { printf("Die %s%c %s.\n", this->bar.x == 1 ? "SystemTap" : "DTrace", this->bar.y, this->bar.z == 1234 ? "Die" : "The"); diff --git a/test/unittest/struct/tst.global_local_scalar.d b/test/unittest/struct/tst.global_local_scalar.d index 651cc940..957998bc 100644 --- a/test/unittest/struct/tst.global_local_scalar.d +++ b/test/unittest/struct/tst.global_local_scalar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -41,7 +41,7 @@ this struct coords p, q, r; struct particle A, B, C; this struct particle a, b, c; -BEGIN { +dtrace:::BEGIN { /* Initialize the second variables. */ L = 11; this->l = 12; @@ -102,7 +102,7 @@ BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/struct/tst.global_local_struct.d b/test/unittest/struct/tst.global_local_struct.d index 3badc501..952b2d58 100644 --- a/test/unittest/struct/tst.global_local_struct.d +++ b/test/unittest/struct/tst.global_local_struct.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -41,7 +41,7 @@ this struct coords p, q, r; struct particle A, B, C; this struct particle a, b, c; -BEGIN { +dtrace:::BEGIN { /* Initialize the second variables. */ L = 11; this->l = 12; @@ -94,7 +94,7 @@ BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/struct/tst.global_local_struct_nest.d b/test/unittest/struct/tst.global_local_struct_nest.d index 577e78ca..aea80b13 100644 --- a/test/unittest/struct/tst.global_local_struct_nest.d +++ b/test/unittest/struct/tst.global_local_struct_nest.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -41,7 +41,7 @@ this struct coords p, q, r; struct particle A, B, C; this struct particle a, b, c; -BEGIN { +dtrace:::BEGIN { /* Initialize the second variables. */ L = 11; this->l = 12; @@ -88,7 +88,7 @@ BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/struct/tst.implicit_decl.d b/test/unittest/struct/tst.implicit_decl.d index 5b135837..7228c8de 100644 --- a/test/unittest/struct/tst.implicit_decl.d +++ b/test/unittest/struct/tst.implicit_decl.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -34,7 +34,7 @@ this struct coords c_dummy, c_decld; struct particle P_DUMMY, P_DECLD; this struct particle p_dummy, p_decld; -BEGIN { +dtrace:::BEGIN { /* Initialize the declared variables. */ C_DECLD.x = 11; C_DECLD.y = 12; @@ -79,7 +79,7 @@ BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/syscall/tst.args.d b/test/unittest/syscall/tst.args.d index de226b20..100d5a9f 100644 --- a/test/unittest/syscall/tst.args.d +++ b/test/unittest/syscall/tst.args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ syscall::mmap*:entry exit(0); } -tick-1s +profile:::tick-1s /i++ == 3/ { exit(1); diff --git a/test/unittest/syscall/tst.return_args.d b/test/unittest/syscall/tst.return_args.d index e9e752ff..9bcb3ab5 100644 --- a/test/unittest/syscall/tst.return_args.d +++ b/test/unittest/syscall/tst.return_args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ #pragma D option destructive #pragma D option quiet -BEGIN +dtrace:::BEGIN { n = 0; } diff --git a/test/unittest/tcp/tst.ipv4localtcp.sh b/test/unittest/tcp/tst.ipv4localtcp.sh index 89404653..bfdfe743 100755 --- a/test/unittest/tcp/tst.ipv4localtcp.sh +++ b/test/unittest/tcp/tst.ipv4localtcp.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -42,7 +42,7 @@ local=127.0.0.1 tcpport=22 $dtrace $dt_flags -c "$testdir/../ip/client.ip.pl tcp $local $tcpport" -qs /dev/stdin <= 5 ? "yes" : "no"); diff --git a/test/unittest/tcp/tst.ipv4localtcpstate.sh b/test/unittest/tcp/tst.ipv4localtcpstate.sh index 1a06bc5c..17cee7a2 100755 --- a/test/unittest/tcp/tst.ipv4localtcpstate.sh +++ b/test/unittest/tcp/tst.ipv4localtcpstate.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -38,7 +38,7 @@ local=127.0.0.1 tcpport=22 $dtrace $dt_flags -c "$testdir/../ip/client.ip.pl tcp $local $tcpport" -qs /dev/stdin <= 7 ? "yes" : "no"); diff --git a/test/unittest/tcp/tst.ipv4remotetcp.sh b/test/unittest/tcp/tst.ipv4remotetcp.sh index 78ae369d..26d8556d 100755 --- a/test/unittest/tcp/tst.ipv4remotetcp.sh +++ b/test/unittest/tcp/tst.ipv4remotetcp.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -61,7 +61,7 @@ cat > test.pl <<-EOPERL EOPERL $dtrace $dt_flags -c '/usr/bin/perl test.pl' -qs /dev/stdin <= 2 ? "yes" : "no"); diff --git a/test/unittest/tcp/tst.ipv4remotetcpstate.sh b/test/unittest/tcp/tst.ipv4remotetcpstate.sh index ea0eeec0..f88e8c03 100755 --- a/test/unittest/tcp/tst.ipv4remotetcpstate.sh +++ b/test/unittest/tcp/tst.ipv4remotetcpstate.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -58,7 +58,7 @@ fi $dtrace $dt_flags -c "$testdir/../ip/client.ip.pl tcp $dest $tcpport" -qs /dev/stdin <= 4 ? "yes" : "no"); diff --git a/test/unittest/tcp/tst.ipv6localtcp.sh b/test/unittest/tcp/tst.ipv6localtcp.sh index bd358597..951b366f 100755 --- a/test/unittest/tcp/tst.ipv6localtcp.sh +++ b/test/unittest/tcp/tst.ipv6localtcp.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, 2019, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -45,7 +45,7 @@ tcpport=22 /sbin/ip -o route get to $local > /dev/null || exit 67 $dtrace $dt_flags -c "$testdir/../ip/client.ip.pl tcp $local $tcpport" -qs /dev/stdin <= 5 ? "yes" : "no"); diff --git a/test/unittest/tcp/tst.ipv6localtcpstate.sh b/test/unittest/tcp/tst.ipv6localtcpstate.sh index 8dc3a13f..7ae130c4 100755 --- a/test/unittest/tcp/tst.ipv6localtcpstate.sh +++ b/test/unittest/tcp/tst.ipv6localtcpstate.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, 2019, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -37,7 +37,7 @@ tcpport=22 /sbin/ip -o route get to $local > /dev/null || exit 67 $dtrace $dt_flags -c "$testdir/../ip/client.ip.pl tcp $local $tcpport" -qs /dev/stdin <= 7 ? "yes" : "no"); diff --git a/test/unittest/tick-n/tst.tickarg0.d b/test/unittest/tick-n/tst.tickarg0.d index 691b596b..8a9b8017 100644 --- a/test/unittest/tick-n/tst.tickarg0.d +++ b/test/unittest/tick-n/tst.tickarg0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-1 +profile:::tick-1 { printf("The arg0 is %d\n", (int)arg0); exit(0); diff --git a/test/unittest/tick-n/tst.tickms.d b/test/unittest/tick-n/tst.tickms.d index ecf7be18..9142b249 100644 --- a/test/unittest/tick-n/tst.tickms.d +++ b/test/unittest/tick-n/tst.tickms.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-1ms +profile:::tick-1ms { printf("This test is a simple tick-ms provider test\n"); exit(0); diff --git a/test/unittest/tick-n/tst.tickmsec.d b/test/unittest/tick-n/tst.tickmsec.d index d8fbf2b9..2f183882 100644 --- a/test/unittest/tick-n/tst.tickmsec.d +++ b/test/unittest/tick-n/tst.tickmsec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-1msec +profile:::tick-1msec { printf("This test is a simple tick-msec provider test\n"); exit(0); diff --git a/test/unittest/tick-n/tst.tickns.d b/test/unittest/tick-n/tst.tickns.d index 05a682cb..8dbbdd87 100644 --- a/test/unittest/tick-n/tst.tickns.d +++ b/test/unittest/tick-n/tst.tickns.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-20000000ns +profile:::tick-20000000ns { printf("This test is a simple tick-ns provider test\n"); exit(0); diff --git a/test/unittest/tick-n/tst.ticknsec.d b/test/unittest/tick-n/tst.ticknsec.d index f839edd9..77e8339c 100644 --- a/test/unittest/tick-n/tst.ticknsec.d +++ b/test/unittest/tick-n/tst.ticknsec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-20000000nsec +profile:::tick-20000000nsec { printf("This test is a simple tick-nsec provider test\n"); exit(0); diff --git a/test/unittest/tick-n/tst.tickquality-100ms.d b/test/unittest/tick-n/tst.tickquality-100ms.d index 6407245e..d7d51617 100644 --- a/test/unittest/tick-n/tst.tickquality-100ms.d +++ b/test/unittest/tick-n/tst.tickquality-100ms.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { last = timestamp; @@ -27,7 +27,7 @@ BEGIN ngood = 0; nbad = 0; } -tick-100msec +profile:::tick-100msec { t = timestamp; delta = t - last; @@ -40,13 +40,13 @@ tick-100msec /* delta above toohigh is bad */ nbad += delta < toohigh ? 0 : 1; } -tick-100msec +profile:::tick-100msec /delta > toohigh/ { printf("too high:\n%15d (observed)\n%15d (tolerated)\n", delta, toohigh); } -tick-25sec +profile:::tick-25sec { printf("%d counts; %d good and %d bad\n", ntotal, ngood, nbad); printf("%s\n", nbad ? "ERROR" : "success"); diff --git a/test/unittest/tick-n/tst.tickquality-10ms.d b/test/unittest/tick-n/tst.tickquality-10ms.d index 60c90103..710e3f75 100644 --- a/test/unittest/tick-n/tst.tickquality-10ms.d +++ b/test/unittest/tick-n/tst.tickquality-10ms.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { last = timestamp; @@ -27,7 +27,7 @@ BEGIN ngood = 0; nbad = 0; } -tick-10msec +profile:::tick-10msec { t = timestamp; delta = t - last; @@ -40,13 +40,13 @@ tick-10msec /* delta above toohigh is bad */ nbad += delta < toohigh ? 0 : 1; } -tick-10msec +profile:::tick-10msec /delta > toohigh/ { printf("too high:\n%15d (observed)\n%15d (tolerated)\n", delta, toohigh); } -tick-25sec +profile:::tick-25sec { printf("%d counts; %d good and %d bad\n", ntotal, ngood, nbad); printf("%s\n", nbad ? "ERROR" : "success"); diff --git a/test/unittest/tick-n/tst.ticks.d b/test/unittest/tick-n/tst.ticks.d index 729985e2..519b96d6 100644 --- a/test/unittest/tick-n/tst.ticks.d +++ b/test/unittest/tick-n/tst.ticks.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-1s +profile:::tick-1s { printf("This test is a simple tick-s provider test\n"); exit(0); diff --git a/test/unittest/tick-n/tst.ticksec.d b/test/unittest/tick-n/tst.ticksec.d index f8839fcc..a5c3cede 100644 --- a/test/unittest/tick-n/tst.ticksec.d +++ b/test/unittest/tick-n/tst.ticksec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,11 +17,11 @@ #pragma D option quiet -tick-1sec +profile:::tick-1sec { printf("This test is a simple tick-sec provider test\n"); } -tick-1sec +profile:::tick-1sec { printf("This test is a simple tick-sec provider test"); exit(0); diff --git a/test/unittest/tick-n/tst.tickus.d b/test/unittest/tick-n/tst.tickus.d index 754da319..6f501274 100644 --- a/test/unittest/tick-n/tst.tickus.d +++ b/test/unittest/tick-n/tst.tickus.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-2000us +profile:::tick-2000us { printf("This test is a simple tick-us provider test\n"); exit(0); diff --git a/test/unittest/tick-n/tst.tickusec.d b/test/unittest/tick-n/tst.tickusec.d index 6b217063..8871ed3d 100644 --- a/test/unittest/tick-n/tst.tickusec.d +++ b/test/unittest/tick-n/tst.tickusec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -tick-2000usec +profile:::tick-2000usec { printf("This test is a simple tick-usec provider test\n"); exit(0); diff --git a/test/unittest/trace/err.D_PROTO_LEN.bad.d b/test/unittest/trace/err.D_PROTO_LEN.bad.d index f07480cf..342e82e4 100644 --- a/test/unittest/trace/err.D_PROTO_LEN.bad.d +++ b/test/unittest/trace/err.D_PROTO_LEN.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace(); diff --git a/test/unittest/trace/err.D_TRACE_VOID.bad.d b/test/unittest/trace/err.D_TRACE_VOID.bad.d index 2a815beb..ed8a8947 100644 --- a/test/unittest/trace/err.D_TRACE_VOID.bad.d +++ b/test/unittest/trace/err.D_TRACE_VOID.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace((void)`max_pfn); } diff --git a/test/unittest/trace/tst.misc.d b/test/unittest/trace/tst.misc.d index 1075c500..0ed03d3e 100644 --- a/test/unittest/trace/tst.misc.d +++ b/test/unittest/trace/tst.misc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,13 +17,13 @@ * to ensure each one can be traced. */ -BEGIN +dtrace:::BEGIN { i = 1; } -tick-1 +profile:::tick-1 /i != 5/ { trace("test trace"); /* DT_TYPE_STRING */ @@ -35,7 +35,7 @@ tick-1 i++; } -tick-1 +profile:::tick-1 /i == 5/ { exit(0); diff --git a/test/unittest/trace/tst.qstring.d b/test/unittest/trace/tst.qstring.d index 3a9608e5..905642dc 100644 --- a/test/unittest/trace/tst.qstring.d +++ b/test/unittest/trace/tst.qstring.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace("this"); trace(" %should work.\n"); diff --git a/test/unittest/trace/tst.string.d b/test/unittest/trace/tst.string.d index bcbfc02c..36403a6a 100644 --- a/test/unittest/trace/tst.string.d +++ b/test/unittest/trace/tst.string.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/trace() */ -BEGIN +dtrace:::BEGIN { trace("this"); trace(" %should work.\n"); diff --git a/test/unittest/tracemem/err.D_PROTO_ARG.badsize.d b/test/unittest/tracemem/err.D_PROTO_ARG.badsize.d index 2e671688..6a172313 100644 --- a/test/unittest/tracemem/err.D_PROTO_ARG.badsize.d +++ b/test/unittest/tracemem/err.D_PROTO_ARG.badsize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/tracemem() */ -BEGIN +dtrace:::BEGIN { tracemem(123, "i'm a string"); } diff --git a/test/unittest/tracemem/err.D_PROTO_LEN.toofew.d b/test/unittest/tracemem/err.D_PROTO_LEN.toofew.d index 7d843213..f48a41bf 100644 --- a/test/unittest/tracemem/err.D_PROTO_LEN.toofew.d +++ b/test/unittest/tracemem/err.D_PROTO_LEN.toofew.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ */ -BEGIN +dtrace:::BEGIN { tracemem(123); } diff --git a/test/unittest/tracemem/err.D_PROTO_LEN.toomany.d b/test/unittest/tracemem/err.D_PROTO_LEN.toomany.d index b1417ef3..caf6f491 100644 --- a/test/unittest/tracemem/err.D_PROTO_LEN.toomany.d +++ b/test/unittest/tracemem/err.D_PROTO_LEN.toomany.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2017, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/tracemem() */ -BEGIN +dtrace:::BEGIN { tracemem(1, 2, 3, 4); } diff --git a/test/unittest/tracemem/err.D_TRACEMEM_ADDR.badaddr.d b/test/unittest/tracemem/err.D_TRACEMEM_ADDR.badaddr.d index 478a0f47..2369c596 100644 --- a/test/unittest/tracemem/err.D_TRACEMEM_ADDR.badaddr.d +++ b/test/unittest/tracemem/err.D_TRACEMEM_ADDR.badaddr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,13 +12,13 @@ * SECTION: Actions and Subroutines/tracemem() */ -BEGIN +dtrace:::BEGIN { tracemem(*curthread, 123); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/tracemem/err.D_TRACEMEM_SIZE.negsize.d b/test/unittest/tracemem/err.D_TRACEMEM_SIZE.negsize.d index a49c2a77..af5e0a1a 100644 --- a/test/unittest/tracemem/err.D_TRACEMEM_SIZE.negsize.d +++ b/test/unittest/tracemem/err.D_TRACEMEM_SIZE.negsize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/tracemem() */ -BEGIN +dtrace:::BEGIN { tracemem(123, -456); } diff --git a/test/unittest/tracemem/err.D_TRACEMEM_SIZE.zerosize.d b/test/unittest/tracemem/err.D_TRACEMEM_SIZE.zerosize.d index e73a2e08..7a247015 100644 --- a/test/unittest/tracemem/err.D_TRACEMEM_SIZE.zerosize.d +++ b/test/unittest/tracemem/err.D_TRACEMEM_SIZE.zerosize.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Actions and Subroutines/tracemem() */ -BEGIN +dtrace:::BEGIN { tracemem(123, 0); } diff --git a/test/unittest/tracemem/tst.init_task.d b/test/unittest/tracemem/tst.init_task.d index bd8ef6e2..d24ea2d2 100644 --- a/test/unittest/tracemem/tst.init_task.d +++ b/test/unittest/tracemem/tst.init_task.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,19 +14,19 @@ * SECTION: Actions and Subroutines/tracemem() */ -BEGIN +dtrace:::BEGIN { i = 1; } -tick-1 +profile:::tick-1 /i != 5/ { tracemem((void *)&`init_task, 20); i++; } -tick-1 +profile:::tick-1 /i == 5/ { exit(0); diff --git a/test/unittest/tracemem/tst.tracemem.d b/test/unittest/tracemem/tst.tracemem.d index 1aa7e20c..5fe675b4 100644 --- a/test/unittest/tracemem/tst.tracemem.d +++ b/test/unittest/tracemem/tst.tracemem.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { p = (char *)&`linux_banner; /* first 14 chars are "Linux version " */ /* try tracemem() with various sizes */ diff --git a/test/unittest/translators/err.D_CAST_INVAL.CastTransData.d b/test/unittest/translators/err.D_CAST_INVAL.CastTransData.d index f240f8b6..9768cc05 100644 --- a/test/unittest/translators/err.D_CAST_INVAL.CastTransData.d +++ b/test/unittest/translators/err.D_CAST_INVAL.CastTransData.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -30,7 +30,7 @@ translator struct out < struct in *i > struct in *f; -BEGIN +dtrace:::BEGIN { f->ii = 1; addr = (uintptr_t)xlate(f) diff --git a/test/unittest/translators/err.D_DECL_TYPERED.BadTransDecl.d b/test/unittest/translators/err.D_DECL_TYPERED.BadTransDecl.d index 1fbad22c..e0aa82bc 100644 --- a/test/unittest/translators/err.D_DECL_TYPERED.BadTransDecl.d +++ b/test/unittest/translators/err.D_DECL_TYPERED.BadTransDecl.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -36,7 +36,7 @@ translator struct output_struct myc = ((struct input_struct *)uvar)->c; } -BEGIN +dtrace:::BEGIN { printf("Using braces instead of angle brackets for translator input"); exit(0); diff --git a/test/unittest/translators/err.D_OP_INCOMPLETE.NonExistentInput1.d b/test/unittest/translators/err.D_OP_INCOMPLETE.NonExistentInput1.d index 9c197485..03097592 100644 --- a/test/unittest/translators/err.D_OP_INCOMPLETE.NonExistentInput1.d +++ b/test/unittest/translators/err.D_OP_INCOMPLETE.NonExistentInput1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -26,7 +26,7 @@ translator struct output_struct < struct input_struct *ivar > myc = ((struct input_struct *)ivar)->nonexistentC; }; -BEGIN +dtrace:::BEGIN { printf("Test the translation of a non existing input type"); exit(0); diff --git a/test/unittest/translators/err.D_SYNTAX.BadTransDecl1.d b/test/unittest/translators/err.D_SYNTAX.BadTransDecl1.d index d9253ccf..80faa849 100644 --- a/test/unittest/translators/err.D_SYNTAX.BadTransDecl1.d +++ b/test/unittest/translators/err.D_SYNTAX.BadTransDecl1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct (struct input_struct *uvar) myc = ((struct input_struct *)uvar)->c; } -BEGIN +dtrace:::BEGIN { printf("Test translator with input type in parantheses"); exit(0); diff --git a/test/unittest/translators/err.D_SYNTAX.BadTransDecl3.d b/test/unittest/translators/err.D_SYNTAX.BadTransDecl3.d index 9c9b0f42..384640ce 100644 --- a/test/unittest/translators/err.D_SYNTAX.BadTransDecl3.d +++ b/test/unittest/translators/err.D_SYNTAX.BadTransDecl3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ translator struct output_struct < struct input_struct *uvar > myc = ((struct input_struct *)uvar)->c; ; -BEGIN +dtrace:::BEGIN { printf("Test the translator definition without enclosing braces"); exit(0); diff --git a/test/unittest/translators/err.D_SYNTAX.BadTransDecl4.d b/test/unittest/translators/err.D_SYNTAX.BadTransDecl4.d index 7f389857..459ffd26 100644 --- a/test/unittest/translators/err.D_SYNTAX.BadTransDecl4.d +++ b/test/unittest/translators/err.D_SYNTAX.BadTransDecl4.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -37,7 +37,7 @@ translator struct output_struct < struct new_struct *newvar > }; -BEGIN +dtrace:::BEGIN { printf("Test translator declaration without terminating semi-colon"); exit(0); diff --git a/test/unittest/translators/err.D_TYPE_MEMBER.NonExistentInput2.d b/test/unittest/translators/err.D_TYPE_MEMBER.NonExistentInput2.d index a24c6433..1ddbd95c 100644 --- a/test/unittest/translators/err.D_TYPE_MEMBER.NonExistentInput2.d +++ b/test/unittest/translators/err.D_TYPE_MEMBER.NonExistentInput2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct < struct input_struct *ivar > myc = ((struct input_struct *)ivar)->nonexistent; }; -BEGIN +dtrace:::BEGIN { printf("Testing the assignment of a non-existent input member"); exit(0); diff --git a/test/unittest/translators/err.D_XLATE_INCOMPAT.BadInputType1.d b/test/unittest/translators/err.D_XLATE_INCOMPAT.BadInputType1.d index ba58de68..3e2596e9 100644 --- a/test/unittest/translators/err.D_XLATE_INCOMPAT.BadInputType1.d +++ b/test/unittest/translators/err.D_XLATE_INCOMPAT.BadInputType1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct < struct input_struct *uvar > myc = ((struct input_struct *)uvar)->c; }; -BEGIN +dtrace:::BEGIN { printf("Translating against the rules of assignment operator"); exit(0); diff --git a/test/unittest/translators/err.D_XLATE_MEMB.NonExistentOutput2.d b/test/unittest/translators/err.D_XLATE_MEMB.NonExistentOutput2.d index db1d56b2..cfd39941 100644 --- a/test/unittest/translators/err.D_XLATE_MEMB.NonExistentOutput2.d +++ b/test/unittest/translators/err.D_XLATE_MEMB.NonExistentOutput2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct < struct input_struct *ivar > yourc = ((struct input_struct *)ivar)->nonexistent; }; -BEGIN +dtrace:::BEGIN { printf("Testing translation with non existent output member"); exit(0); diff --git a/test/unittest/translators/err.D_XLATE_NONE.BadTransDecl6.d b/test/unittest/translators/err.D_XLATE_NONE.BadTransDecl6.d index e35ad6f6..d1ed0f31 100644 --- a/test/unittest/translators/err.D_XLATE_NONE.BadTransDecl6.d +++ b/test/unittest/translators/err.D_XLATE_NONE.BadTransDecl6.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -35,7 +35,7 @@ translator struct myoutput_struct < struct myinput_struct *ivar > }; struct myinput_struct f; -BEGIN +dtrace:::BEGIN { f.i = 10; f.c = 'c'; @@ -45,7 +45,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(0); } diff --git a/test/unittest/translators/err.D_XLATE_REDECL.RepeatTransDecl.d b/test/unittest/translators/err.D_XLATE_REDECL.RepeatTransDecl.d index 0948a559..97e3bfd6 100644 --- a/test/unittest/translators/err.D_XLATE_REDECL.RepeatTransDecl.d +++ b/test/unittest/translators/err.D_XLATE_REDECL.RepeatTransDecl.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -39,7 +39,7 @@ translator struct output_struct < struct input_struct *ivar1 > }; -BEGIN +dtrace:::BEGIN { printf("Redeclaration of the same translation"); exit(0); diff --git a/test/unittest/translators/err.D_XLATE_SOU.BadTransDecl8.d b/test/unittest/translators/err.D_XLATE_SOU.BadTransDecl8.d index b36ad8ec..9383e58f 100644 --- a/test/unittest/translators/err.D_XLATE_SOU.BadTransDecl8.d +++ b/test/unittest/translators/err.D_XLATE_SOU.BadTransDecl8.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -30,7 +30,7 @@ translator enum colors < struct input_struct *ivar > { }; -BEGIN +dtrace:::BEGIN { printf("Output type of translation is an enum"); exit(0); diff --git a/test/unittest/translators/err.D_XLATE_SOU.BadTransInt.d b/test/unittest/translators/err.D_XLATE_SOU.BadTransInt.d index 78125053..76ceb509 100644 --- a/test/unittest/translators/err.D_XLATE_SOU.BadTransInt.d +++ b/test/unittest/translators/err.D_XLATE_SOU.BadTransInt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ translator int < struct input_struct *ivar > { }; -BEGIN +dtrace:::BEGIN { printf("Output type of translation is an int"); exit(0); diff --git a/test/unittest/translators/err.D_XLATE_SOU.NonExistentOutput1.d b/test/unittest/translators/err.D_XLATE_SOU.NonExistentOutput1.d index f23a32ed..257956c5 100644 --- a/test/unittest/translators/err.D_XLATE_SOU.NonExistentOutput1.d +++ b/test/unittest/translators/err.D_XLATE_SOU.NonExistentOutput1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ translator struct output_struct < struct input_struct *ivar > myc = ((struct input_struct *)ivar)->nonexistent; }; -BEGIN +dtrace:::BEGIN { printf("Translation with non existent output type struct"); exit(0); diff --git a/test/unittest/translators/tst.CircularTransDecl.d b/test/unittest/translators/tst.CircularTransDecl.d index 9f921789..37b620f3 100644 --- a/test/unittest/translators/tst.CircularTransDecl.d +++ b/test/unittest/translators/tst.CircularTransDecl.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -40,7 +40,7 @@ translator struct input_struct < struct output_struct uvar > struct input_struct f1; struct output_struct f2; -BEGIN +dtrace:::BEGIN { f1.i = 10; f1.c = 'c'; @@ -59,21 +59,21 @@ BEGIN exit(0); } -BEGIN +dtrace:::BEGIN /(10 == forwardi) && ('c' == forwardc) && (100 == backwardi) && ('d' == backwardc)/ { exit(0); } -BEGIN +dtrace:::BEGIN /(10 != forwardi) || ('c' != forwardc) || (100 != backwardi) || ('d' != backwardc)/ { exit(1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/translators/tst.EmptyTransDecl.d b/test/unittest/translators/tst.EmptyTransDecl.d index 3c8232d4..2766d3f5 100644 --- a/test/unittest/translators/tst.EmptyTransDecl.d +++ b/test/unittest/translators/tst.EmptyTransDecl.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -34,7 +34,7 @@ translator struct output_struct < struct input_struct uvar > struct input_struct in; struct output_struct ou; -BEGIN +dtrace:::BEGIN { in.i = 10; in.c = 'c'; @@ -44,14 +44,14 @@ BEGIN printf("ou.myi: %d\tou.myc: %c\n", ou.myi, ou.myc); } -BEGIN +dtrace:::BEGIN /(0 != ou.myi) || (0 != ou.myc)/ { printf("Failed\n"); exit(1); } -BEGIN +dtrace:::BEGIN /(0 == ou.myi) || (0 == ou.myc)/ { printf("Passed\n"); diff --git a/test/unittest/translators/tst.ForwardTag.d b/test/unittest/translators/tst.ForwardTag.d index 0ba64e65..a0db1c47 100644 --- a/test/unittest/translators/tst.ForwardTag.d +++ b/test/unittest/translators/tst.ForwardTag.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct < struct callmewhatever *idontcare > myc = ((struct input_struct *)uvar)->c; }; -BEGIN +dtrace:::BEGIN { printf("This test defines a forward tag"); exit(0); diff --git a/test/unittest/translators/tst.InputAliasTrans.d b/test/unittest/translators/tst.InputAliasTrans.d index 52034243..3d9e7632 100644 --- a/test/unittest/translators/tst.InputAliasTrans.d +++ b/test/unittest/translators/tst.InputAliasTrans.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct < input_t *ivar > oc = ((input_t *)ivar)->ic; }; -BEGIN +dtrace:::BEGIN { printf("Input type is an alias"); exit(0); diff --git a/test/unittest/translators/tst.InputIntTrans.d b/test/unittest/translators/tst.InputIntTrans.d index 67f63dd6..915ea1b3 100644 --- a/test/unittest/translators/tst.InputIntTrans.d +++ b/test/unittest/translators/tst.InputIntTrans.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct < int idontcare > myi = ((struct input_struct *)uvar)->c; }; -BEGIN +dtrace:::BEGIN { printf("Input type to the translator decl is different from members"); exit(0); diff --git a/test/unittest/translators/tst.NullInput.d b/test/unittest/translators/tst.NullInput.d index 6d5f085b..8383d78b 100644 --- a/test/unittest/translators/tst.NullInput.d +++ b/test/unittest/translators/tst.NullInput.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ struct task_struct *T; -BEGIN +dtrace:::BEGIN { T = 0; mypr_addr = xlate < psinfo_t > (T).pr_addr; @@ -25,7 +25,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/translators/tst.OutputAliasTrans.d b/test/unittest/translators/tst.OutputAliasTrans.d index 6cbd1b30..b27df980 100644 --- a/test/unittest/translators/tst.OutputAliasTrans.d +++ b/test/unittest/translators/tst.OutputAliasTrans.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -35,7 +35,7 @@ translator output_t < struct input_struct *ivar > oc = ((struct input_struct *)ivar)->ic; }; -BEGIN +dtrace:::BEGIN { printf("Output type is an alias"); exit(0); diff --git a/test/unittest/translators/tst.PartialDereferencing.d b/test/unittest/translators/tst.PartialDereferencing.d index e002e5b4..7eb6af12 100644 --- a/test/unittest/translators/tst.PartialDereferencing.d +++ b/test/unittest/translators/tst.PartialDereferencing.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -35,7 +35,7 @@ translator struct output_struct < struct input_struct ivar > struct output_struct out; struct input_struct in; -BEGIN +dtrace:::BEGIN { in.ii = 100; in.ic = 'z'; @@ -46,19 +46,19 @@ BEGIN printf("out.oi: %d\t out.oc: %d\n", out.oi, out.oc); } -BEGIN +dtrace:::BEGIN /(100 != out.oi) || (0 != out.oc)/ { exit(1); } -BEGIN +dtrace:::BEGIN /(100 == out.oi) && (0 == out.oc)/ { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/translators/tst.PartialOutputTransDefn.d b/test/unittest/translators/tst.PartialOutputTransDefn.d index 8f6a71c7..ffdddee1 100644 --- a/test/unittest/translators/tst.PartialOutputTransDefn.d +++ b/test/unittest/translators/tst.PartialOutputTransDefn.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct < struct input_struct *ivar > oi = ((struct input_struct *)ivar)->ii; }; -BEGIN +dtrace:::BEGIN { printf("Translating only a part of the input struct"); exit(0); diff --git a/test/unittest/translators/tst.ProcModelTrans.d b/test/unittest/translators/tst.ProcModelTrans.d index 7d5fff78..ab9455a6 100644 --- a/test/unittest/translators/tst.ProcModelTrans.d +++ b/test/unittest/translators/tst.ProcModelTrans.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,14 +16,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { mypr_addr = xlate < psinfo_t > (curthread).pr_addr; printf("pr_addr: %p", mypr_addr); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/translators/tst.RepeatDeclaration.d b/test/unittest/translators/tst.RepeatDeclaration.d index 4ac17323..5f7368d6 100644 --- a/test/unittest/translators/tst.RepeatDeclaration.d +++ b/test/unittest/translators/tst.RepeatDeclaration.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -43,7 +43,7 @@ translator struct output_struct < struct input_struct2 *ivar2 > oc = ((struct input_struct2 *)ivar2)->ic2; }; -BEGIN +dtrace:::BEGIN { printf("Reassignment of a struct's members with different input"); exit(0); diff --git a/test/unittest/translators/tst.SimultaneousTranslators.d b/test/unittest/translators/tst.SimultaneousTranslators.d index ee925d28..cd8adad5 100644 --- a/test/unittest/translators/tst.SimultaneousTranslators.d +++ b/test/unittest/translators/tst.SimultaneousTranslators.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -43,7 +43,7 @@ translator struct output_struct < struct input_struct2 *ivar2 > oc = ((struct input_struct2 *)ivar2)->ic2; }; -BEGIN +dtrace:::BEGIN { printf("Translate members of output with different input structs"); exit(0); diff --git a/test/unittest/translators/tst.StructureAssignment.d b/test/unittest/translators/tst.StructureAssignment.d index 9ed501d1..719d6bcf 100644 --- a/test/unittest/translators/tst.StructureAssignment.d +++ b/test/unittest/translators/tst.StructureAssignment.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -36,7 +36,7 @@ translator struct output_struct < struct input_struct ivar > struct output_struct out; struct input_struct in; -BEGIN +dtrace:::BEGIN { in.ii = 100; in.ic = 'z'; @@ -47,19 +47,19 @@ BEGIN printf("out.oi: %d\t out.oc: %d\n", out.oi, out.oc); } -BEGIN +dtrace:::BEGIN /(100 != out.oi) || (0 != out.oc)/ { exit(1); } -BEGIN +dtrace:::BEGIN /(100 == out.oi) && (0 == out.oc)/ { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/translators/tst.TestTransStability.d b/test/unittest/translators/tst.TestTransStability.d index 8c3a8606..5ddfc12b 100644 --- a/test/unittest/translators/tst.TestTransStability.d +++ b/test/unittest/translators/tst.TestTransStability.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -28,13 +28,13 @@ inline lwpsinfo_t *myinfo = xlate < lwpsinfo_t *> (curthread); #pragma D attributes Stable/Stable/Common myinfo -BEGIN +dtrace:::BEGIN { trace(myinfo->pr_flag); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/translators/tst.TransNonPointer.d b/test/unittest/translators/tst.TransNonPointer.d index c7f82c72..4a03839e 100644 --- a/test/unittest/translators/tst.TransNonPointer.d +++ b/test/unittest/translators/tst.TransNonPointer.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -34,7 +34,7 @@ translator struct myoutput_struct < struct myinput_struct ivar > }; struct myinput_struct f; -BEGIN +dtrace:::BEGIN { f.i = 10; f.c = 'c'; @@ -43,13 +43,13 @@ BEGIN realmyc = xlate < struct myoutput_struct > (f).myc; } -BEGIN +dtrace:::BEGIN /(10 != f.i) || ('c' != f.c)/ { exit(1); } -BEGIN +dtrace:::BEGIN /(10 == f.i) && ('c' == f.c)/ { printf("realmyi: %d\n", realmyi); @@ -57,7 +57,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/translators/tst.TransOutputPointer.d b/test/unittest/translators/tst.TransOutputPointer.d index 41cec485..d079ed08 100644 --- a/test/unittest/translators/tst.TransOutputPointer.d +++ b/test/unittest/translators/tst.TransOutputPointer.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -35,7 +35,7 @@ translator struct myoutput_struct < struct myinput_struct ivar > struct myinput_struct f; -BEGIN +dtrace:::BEGIN { f.i = 1203; f.c = 'v'; @@ -44,14 +44,14 @@ BEGIN realmyc = xlate < struct myoutput_struct *> (f)->myc; } -BEGIN +dtrace:::BEGIN /(1203 != realmyi) || ('v' != realmyc)/ { printf("Failure"); exit(1); } -BEGIN +dtrace:::BEGIN /(1203 == realmyi) && ('v' == realmyc)/ { printf("Success"); diff --git a/test/unittest/translators/tst.TransPointer.d b/test/unittest/translators/tst.TransPointer.d index df8f0e49..ce851f8e 100644 --- a/test/unittest/translators/tst.TransPointer.d +++ b/test/unittest/translators/tst.TransPointer.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -35,7 +35,7 @@ translator struct myoutput_struct < struct myinput_struct *ivar > struct myinput_struct *f; -BEGIN +dtrace:::BEGIN { printf("Good translator defn"); exit(0); diff --git a/test/unittest/translators/tst.TranslateSelf.d b/test/unittest/translators/tst.TranslateSelf.d index e89fb169..3dc215b2 100644 --- a/test/unittest/translators/tst.TranslateSelf.d +++ b/test/unittest/translators/tst.TranslateSelf.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ translator struct output_struct < struct output_struct uvar > struct output_struct out; struct output_struct outer; -BEGIN +dtrace:::BEGIN { out.myi = 1234; out.myc = 'a'; @@ -43,13 +43,13 @@ BEGIN printf("outer.myi: %d\t outer.myc: %c\n", outer.myi, outer.myc); } -BEGIN +dtrace:::BEGIN /(1234 != outer.myi) || ('a' != outer.myc)/ { exit(1); } -BEGIN +dtrace:::BEGIN /(1234 == outer.myi) && ('a' == outer.myc)/ { exit(0); diff --git a/test/unittest/translators/tst.UnionInputTrans.d b/test/unittest/translators/tst.UnionInputTrans.d index 977384fa..9f10fdad 100644 --- a/test/unittest/translators/tst.UnionInputTrans.d +++ b/test/unittest/translators/tst.UnionInputTrans.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -33,7 +33,7 @@ translator struct output_struct < union input_union *ivar > }; -BEGIN +dtrace:::BEGIN { printf("Translator definition good\n"); exit(0); diff --git a/test/unittest/translators/tst.UnionOutputTrans.d b/test/unittest/translators/tst.UnionOutputTrans.d index 20b33a0f..c7fa4785 100644 --- a/test/unittest/translators/tst.UnionOutputTrans.d +++ b/test/unittest/translators/tst.UnionOutputTrans.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -33,7 +33,7 @@ translator union output_union < struct input_struct *ivar > }; -BEGIN +dtrace:::BEGIN { printf("Test translator definition with union output"); exit(0); diff --git a/test/unittest/typedef/err.D_DECL_IDRED.DupTypeDef.d b/test/unittest/typedef/err.D_DECL_IDRED.DupTypeDef.d index c9765990..1e436d53 100644 --- a/test/unittest/typedef/err.D_DECL_IDRED.DupTypeDef.d +++ b/test/unittest/typedef/err.D_DECL_IDRED.DupTypeDef.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,14 +17,14 @@ typedef int new_int; -BEGIN +dtrace:::BEGIN { exit(0); } typedef char new_int; -END +dtrace:::END { } diff --git a/test/unittest/typedef/err.D_SYNTAX.BadExistingTypedef.d b/test/unittest/typedef/err.D_SYNTAX.BadExistingTypedef.d index e0327cc4..c33239ed 100644 --- a/test/unittest/typedef/err.D_SYNTAX.BadExistingTypedef.d +++ b/test/unittest/typedef/err.D_SYNTAX.BadExistingTypedef.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ typedef pint new_int; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/typedef/err.D_SYNTAX.TypedefInClause.d b/test/unittest/typedef/err.D_SYNTAX.TypedefInClause.d index 79b7f727..cedc89f9 100644 --- a/test/unittest/typedef/err.D_SYNTAX.TypedefInClause.d +++ b/test/unittest/typedef/err.D_SYNTAX.TypedefInClause.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { typedef int new_int; exit(0); diff --git a/test/unittest/typedef/tst.ChainTypedef.d b/test/unittest/typedef/tst.ChainTypedef.d index 1d928272..e7ce2981 100644 --- a/test/unittest/typedef/tst.ChainTypedef.d +++ b/test/unittest/typedef/tst.ChainTypedef.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ typedef int new_int; typedef new_int latest_int; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/typedef/tst.TypedefDataAssign.d b/test/unittest/typedef/tst.TypedefDataAssign.d index df9d85aa..cbef71cc 100644 --- a/test/unittest/typedef/tst.TypedefDataAssign.d +++ b/test/unittest/typedef/tst.TypedefDataAssign.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -91,7 +91,7 @@ new_enum ne; pointer p; -BEGIN +dtrace:::BEGIN { ns.ch = 'c'; ns.in = INT_VALUE; diff --git a/test/unittest/types/err.D_CAST_INVAL.badcast.d b/test/unittest/types/err.D_CAST_INVAL.badcast.d index 179fc47d..94bf988c 100644 --- a/test/unittest/types/err.D_CAST_INVAL.badcast.d +++ b/test/unittest/types/err.D_CAST_INVAL.badcast.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ * ASSERTION: Test an illegal cast - make sure dtrace catches it. */ -BEGIN +dtrace:::BEGIN { (struct task_struct)trace(`max_pfn); exit(0); diff --git a/test/unittest/types/err.D_CG_DYN.ResultDynType.d b/test/unittest/types/err.D_CG_DYN.ResultDynType.d index 1c292550..a9ff5924 100644 --- a/test/unittest/types/err.D_CG_DYN.ResultDynType.d +++ b/test/unittest/types/err.D_CG_DYN.ResultDynType.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ translator lwpsinfo_t < int i > pr_flag = i; }; -BEGIN +dtrace:::BEGIN { xlate < lwpsinfo_t * > (0); exit(0); diff --git a/test/unittest/types/err.D_CHR_OFLOW.charconst.d b/test/unittest/types/err.D_CHR_OFLOW.charconst.d index 9a110f4d..1661c4b4 100644 --- a/test/unittest/types/err.D_CHR_OFLOW.charconst.d +++ b/test/unittest/types/err.D_CHR_OFLOW.charconst.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { char_bad = 'abc\fefghi'; diff --git a/test/unittest/types/err.D_DECL_BADCLASS.bad.d b/test/unittest/types/err.D_DECL_BADCLASS.bad.d index d1e71bcd..f24c453f 100644 --- a/test/unittest/types/err.D_DECL_BADCLASS.bad.d +++ b/test/unittest/types/err.D_DECL_BADCLASS.bad.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ register x; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/types/err.D_DECL_SCOPE.scopeop-ident.d b/test/unittest/types/err.D_DECL_SCOPE.scopeop-ident.d index 6042e208..7674b5ab 100644 --- a/test/unittest/types/err.D_DECL_SCOPE.scopeop-ident.d +++ b/test/unittest/types/err.D_DECL_SCOPE.scopeop-ident.d @@ -13,7 +13,7 @@ int foo`bar; -BEGIN +dtrace:::BEGIN { exit(1); } diff --git a/test/unittest/types/err.D_DECL_SCOPE.scopeop.d b/test/unittest/types/err.D_DECL_SCOPE.scopeop.d index d83e7741..92a0123d 100644 --- a/test/unittest/types/err.D_DECL_SCOPE.scopeop.d +++ b/test/unittest/types/err.D_DECL_SCOPE.scopeop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ int `xyz; -BEGIN +dtrace:::BEGIN { exit(1); } diff --git a/test/unittest/types/err.D_DECL_USELESS.baddec.d b/test/unittest/types/err.D_DECL_USELESS.baddec.d index 64597097..8d18a22d 100644 --- a/test/unittest/types/err.D_DECL_USELESS.baddec.d +++ b/test/unittest/types/err.D_DECL_USELESS.baddec.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ extern int; -BEGIN +dtrace:::BEGIN { exit(1); } diff --git a/test/unittest/types/err.D_OP_ACT.badcond.d b/test/unittest/types/err.D_OP_ACT.badcond.d index 0d4677c9..b07c60aa 100644 --- a/test/unittest/types/err.D_OP_ACT.badcond.d +++ b/test/unittest/types/err.D_OP_ACT.badcond.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 1; x = i == 0 ? trace(0): trace(1); diff --git a/test/unittest/types/err.D_OP_ARITH.badoperand.d b/test/unittest/types/err.D_OP_ARITH.badoperand.d index 21d993c8..191406cf 100644 --- a/test/unittest/types/err.D_OP_ARITH.badoperand.d +++ b/test/unittest/types/err.D_OP_ARITH.badoperand.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ -BEGIN +dtrace:::BEGIN { p = 123 + -trace(0); exit(1); diff --git a/test/unittest/types/err.D_OP_INCOMPAT.badassign.d b/test/unittest/types/err.D_OP_INCOMPAT.badassign.d index 90e67515..cfbd41b9 100644 --- a/test/unittest/types/err.D_OP_INCOMPAT.badassign.d +++ b/test/unittest/types/err.D_OP_INCOMPAT.badassign.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = 3; a += "foobar"; diff --git a/test/unittest/types/err.D_OP_INT.badbitop.d b/test/unittest/types/err.D_OP_INT.badbitop.d index b2b3519a..c335406c 100644 --- a/test/unittest/types/err.D_OP_INT.badbitop.d +++ b/test/unittest/types/err.D_OP_INT.badbitop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN /"char" & "foo"/ { exit(1); diff --git a/test/unittest/types/err.D_OP_INT.badshift.d b/test/unittest/types/err.D_OP_INT.badshift.d index 18fa8961..cac602f6 100644 --- a/test/unittest/types/err.D_OP_INT.badshift.d +++ b/test/unittest/types/err.D_OP_INT.badshift.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = "char" << 2; exit(1); diff --git a/test/unittest/types/err.D_OP_SCALAR.badcond.d b/test/unittest/types/err.D_OP_SCALAR.badcond.d index 789d25cc..188efc25 100644 --- a/test/unittest/types/err.D_OP_SCALAR.badcond.d +++ b/test/unittest/types/err.D_OP_SCALAR.badcond.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "boo"; c = "boo" ? "should": "fail"; diff --git a/test/unittest/types/err.D_OP_SCALAR.badincop.d b/test/unittest/types/err.D_OP_SCALAR.badincop.d index ad6edbd2..08d1d4bb 100644 --- a/test/unittest/types/err.D_OP_SCALAR.badincop.d +++ b/test/unittest/types/err.D_OP_SCALAR.badincop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "boo"; c = a++; diff --git a/test/unittest/types/err.D_OP_SCALAR.badlogop.d b/test/unittest/types/err.D_OP_SCALAR.badlogop.d index 21dda732..a058cd4c 100644 --- a/test/unittest/types/err.D_OP_SCALAR.badlogop.d +++ b/test/unittest/types/err.D_OP_SCALAR.badlogop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN /"char" && "foo"/ { exit(1); diff --git a/test/unittest/types/err.D_PROTO_LEN.badcond1.d b/test/unittest/types/err.D_PROTO_LEN.badcond1.d index 411ec7b4..f6543873 100644 --- a/test/unittest/types/err.D_PROTO_LEN.badcond1.d +++ b/test/unittest/types/err.D_PROTO_LEN.badcond1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { a = "boo"; c = a == "boo" ? printf("error\n") : trace(); diff --git a/test/unittest/types/err.D_SYNTAX.badid.d b/test/unittest/types/err.D_SYNTAX.badid.d index f1aefa40..2afba6ef 100644 --- a/test/unittest/types/err.D_SYNTAX.badid.d +++ b/test/unittest/types/err.D_SYNTAX.badid.d @@ -16,7 +16,7 @@ int 0abc; -BEGIN +dtrace:::BEGIN { 0abc = 5; printf("0abc is %d", 0abc); diff --git a/test/unittest/types/err.D_XLATE_REDECL.ResultDynType.d b/test/unittest/types/err.D_XLATE_REDECL.ResultDynType.d index e3469d4f..196fb391 100644 --- a/test/unittest/types/err.D_XLATE_REDECL.ResultDynType.d +++ b/test/unittest/types/err.D_XLATE_REDECL.ResultDynType.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2015, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ translator lwpsinfo_t < struct task_struct *T > pr_lwpid = T->pid; }; -BEGIN +dtrace:::BEGIN { xlate < lwpsinfo_t * > (curthread); exit(0); diff --git a/test/unittest/types/err.unloaded_var.d b/test/unittest/types/err.unloaded_var.d index eb38bd81..4d313a74 100644 --- a/test/unittest/types/err.unloaded_var.d +++ b/test/unittest/types/err.unloaded_var.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { t = gfs2`gfs2_control_wq; exit(0); diff --git a/test/unittest/types/tst.assignops.d b/test/unittest/types/tst.assignops.d index 18cbe45a..cc46825c 100644 --- a/test/unittest/types/tst.assignops.d +++ b/test/unittest/types/tst.assignops.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { int_1 = 0x100; int_2 = 0xf0f0; diff --git a/test/unittest/types/tst.badshiftops.d b/test/unittest/types/tst.badshiftops.d index ecfc6518..f3545235 100644 --- a/test/unittest/types/tst.badshiftops.d +++ b/test/unittest/types/tst.badshiftops.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { int_1 = 0xffff; diff --git a/test/unittest/types/tst.basics.d b/test/unittest/types/tst.basics.d index cb469d72..f9cb4840 100644 --- a/test/unittest/types/tst.basics.d +++ b/test/unittest/types/tst.basics.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("\nsizeof(char) = %u\n", sizeof(char)); printf("sizeof(signed char) = %u\n", sizeof(signed char)); diff --git a/test/unittest/types/tst.bitops.d b/test/unittest/types/tst.bitops.d index 8adbd948..ef9b0e89 100644 --- a/test/unittest/types/tst.bitops.d +++ b/test/unittest/types/tst.bitops.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { int_1 = 0xffff; int_2 = 0; diff --git a/test/unittest/types/tst.castwritable.d b/test/unittest/types/tst.castwritable.d index 1b419228..37f30736 100644 --- a/test/unittest/types/tst.castwritable.d +++ b/test/unittest/types/tst.castwritable.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { x = (char *) alloca(8); *((long long*)x) = 0x0067666564636261; diff --git a/test/unittest/types/tst.charconstants.d b/test/unittest/types/tst.charconstants.d index c77708d2..405d24be 100644 --- a/test/unittest/types/tst.charconstants.d +++ b/test/unittest/types/tst.charconstants.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { char_1 = 'a'; char_2 = '\"'; diff --git a/test/unittest/types/tst.complex.d b/test/unittest/types/tst.complex.d index 4afd71ad..7bc97a46 100644 --- a/test/unittest/types/tst.complex.d +++ b/test/unittest/types/tst.complex.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -44,7 +44,7 @@ struct s { int (*afp[2])(); }; -BEGIN +dtrace:::BEGIN { tracemem(curthread, sizeof(struct s)); exit(0); diff --git a/test/unittest/types/tst.condexpr.d b/test/unittest/types/tst.condexpr.d index be9d68a5..a74ebc52 100644 --- a/test/unittest/types/tst.condexpr.d +++ b/test/unittest/types/tst.condexpr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { i = 0; x = i == 0 ? "zero" : "non-zero"; @@ -27,13 +27,13 @@ BEGIN (c >= 'a' && c <= 'z') ? c + 10 - 'a' : c + 10 - 'A'; } -tick-1 +profile:::tick-1 /x == "zero" && hexval == 13/ { exit(0); } -tick-1 +profile:::tick-1 /x != "zero" || hexval != 13/ { exit(1); diff --git a/test/unittest/types/tst.constants.d b/test/unittest/types/tst.constants.d index b64d9f43..440788d1 100644 --- a/test/unittest/types/tst.constants.d +++ b/test/unittest/types/tst.constants.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { decimal = 12345; octal = 012345; diff --git a/test/unittest/types/tst.conv.d b/test/unittest/types/tst.conv.d index 4afba6a0..aea069b0 100644 --- a/test/unittest/types/tst.conv.d +++ b/test/unittest/types/tst.conv.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ short s; long l; long long ll; -BEGIN +dtrace:::BEGIN { /* char -> int */ c = 'A'; diff --git a/test/unittest/types/tst.enum.d b/test/unittest/types/tst.enum.d index 9631e2d7..8cf31d1a 100644 --- a/test/unittest/types/tst.enum.d +++ b/test/unittest/types/tst.enum.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ enum my_enum { maximum = 2147483647 }; -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/types/tst.intincop.d b/test/unittest/types/tst.intincop.d index a6f52734..b182e659 100644 --- a/test/unittest/types/tst.intincop.d +++ b/test/unittest/types/tst.intincop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { int_orig = 100; int_pos = 100+1; @@ -33,7 +33,7 @@ BEGIN } -tick-1 +profile:::tick-1 /int_pos_before == int_pos && int_neg_before == int_neg && int_pos_after == int_orig && int_pos_after == int_orig/ { @@ -41,7 +41,7 @@ tick-1 } -tick-1 +profile:::tick-1 /int_pos_before != int_pos || int_neg_before != int_neg || int_pos_after != int_orig || int_pos_after != int_orig/ { diff --git a/test/unittest/types/tst.intops.d b/test/unittest/types/tst.intops.d index 9f0f51bb..ad20d98a 100644 --- a/test/unittest/types/tst.intops.d +++ b/test/unittest/types/tst.intops.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,14 +17,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { int_1 = 0x100; int_2 = 0x101; int_3 = 0x99; } -tick-1 +profile:::tick-1 /int_1 >= int_2 || int_2 <= int_1 || int_1 == int_2/ { printf("Shouldn't end up here (1)\n"); @@ -33,7 +33,7 @@ tick-1 exit(1); } -tick-1 +profile:::tick-1 /int_3 > int_1 || int_1 < int_3 || int_3 == int_1/ { printf("Shouldn't end up here (2)\n"); @@ -42,7 +42,7 @@ tick-1 exit(1); } -tick-1 +profile:::tick-1 /int_2 > int_3 && int_1 < int_2 ^^ int_3 == int_2 && !(int_1 != int_2)/ { exit(0); diff --git a/test/unittest/types/tst.inttypes.d b/test/unittest/types/tst.inttypes.d index 5afbe1af..3838e3f3 100644 --- a/test/unittest/types/tst.inttypes.d +++ b/test/unittest/types/tst.inttypes.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Types, Operators, and Expressions/Data Types and Sizes */ -BEGIN +dtrace:::BEGIN { printf("sizeof(int8_t) = %u\n", sizeof(int8_t)); printf("sizeof(int16_t) = %u\n", sizeof(int16_t)); diff --git a/test/unittest/types/tst.nested-unnamed-structs.d b/test/unittest/types/tst.nested-unnamed-structs.d index a2b17443..08146785 100644 --- a/test/unittest/types/tst.nested-unnamed-structs.d +++ b/test/unittest/types/tst.nested-unnamed-structs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,17 +15,17 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { printf("offset is %i\n", offsetof(struct rds`rds_message, atomic)); } -BEGIN +dtrace:::BEGIN / offsetof(struct rds`rds_message, atomic) == 0 / { exit(1); } -BEGIN +dtrace:::BEGIN / offsetof(struct rds`rds_message, atomic) != 0 / { exit(0); diff --git a/test/unittest/types/tst.notypeload.sh b/test/unittest/types/tst.notypeload.sh index 7fda8f9a..02c45077 100755 --- a/test/unittest/types/tst.notypeload.sh +++ b/test/unittest/types/tst.notypeload.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2012, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -31,12 +31,12 @@ tiny() int64_t foo; -BEGIN { +dtrace:::BEGIN { foo = 4; exit(0); } -tick-1s { +profile:::tick-1s { trace("foo"); } @@ -48,13 +48,13 @@ bigger() DTRACE_DEBUG=t $dtrace $dt_flags -s /dev/stdin <pid = args[0]->pid; printf("%s\n", curthread->comm); exit(0); } -tick-1s { +profile:::tick-1s { trace("foo"); } diff --git a/test/unittest/types/tst.ptrincop.d b/test/unittest/types/tst.ptrincop.d index 91ff8b73..b24a2f32 100644 --- a/test/unittest/types/tst.ptrincop.d +++ b/test/unittest/types/tst.ptrincop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { ptr_orig = &`max_pfn; ptr_pos = &`max_pfn+1; @@ -34,7 +34,7 @@ BEGIN } -tick-1 +profile:::tick-1 /ptr_pos_before == ptr_pos && ptr_neg_before == ptr_neg && ptr_pos_after == ptr_orig && ptr_pos_after == ptr_orig/ { @@ -42,7 +42,7 @@ tick-1 } -tick-1 +profile:::tick-1 /ptr_pos_before != ptr_pos || ptr_neg_before != ptr_neg || ptr_pos_after != ptr_orig || ptr_pos_after != ptr_orig/ { diff --git a/test/unittest/types/tst.ptrops.d b/test/unittest/types/tst.ptrops.d index 34da22ee..4f9e8eea 100644 --- a/test/unittest/types/tst.ptrops.d +++ b/test/unittest/types/tst.ptrops.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,14 +18,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { ptr_1 = &`max_pfn; ptr_2 = (&`max_pfn) + 1; ptr_3 = (&`max_pfn) - 1 ; } -tick-1 +profile:::tick-1 /ptr_1 >= ptr_2 || ptr_2 <= ptr_1 || ptr_1 == ptr_2/ { printf("Shouldn't end up here (1)\n"); @@ -34,7 +34,7 @@ tick-1 exit(1); } -tick-1 +profile:::tick-1 /ptr_3 > ptr_1 || ptr_1 < ptr_3 || ptr_3 == ptr_1/ { printf("Shouldn't end up here (2)\n"); @@ -43,7 +43,7 @@ tick-1 exit(1); } -tick-1 +profile:::tick-1 /ptr_3 > ptr_2 || ptr_1 < ptr_2 ^^ ptr_3 == ptr_2 && !(ptr_1 != ptr_2)/ { exit(0); diff --git a/test/unittest/types/tst.relenum.d b/test/unittest/types/tst.relenum.d index 99906003..51caa50e 100644 --- a/test/unittest/types/tst.relenum.d +++ b/test/unittest/types/tst.relenum.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ enum numbers_2 { second }; -tick-1 +profile:::tick-1 /zero >= one || second <= first || zero == second/ { printf("Shouldn't end up here (1)\n"); @@ -36,7 +36,7 @@ tick-1 exit(1); } -tick-1 +profile:::tick-1 /second < one || two > second || null == first/ { printf("Shouldn't end up here (2)\n"); @@ -45,7 +45,7 @@ tick-1 exit(1); } -tick-1 +profile:::tick-1 /first < two && second > one && one != two && zero != first/ { exit(0); diff --git a/test/unittest/types/tst.relstring.d b/test/unittest/types/tst.relstring.d index d22beee5..344eae71 100644 --- a/test/unittest/types/tst.relstring.d +++ b/test/unittest/types/tst.relstring.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,14 +16,14 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { string_1 = "abcde"; string_2 = "aabcde"; string_3 = "abcdef"; } -tick-1 +profile:::tick-1 /string_1 <= string_2 || string_2 >= string_1 || string_1 == string_2/ { printf("Shouldn't end up here (1)\n"); @@ -32,7 +32,7 @@ tick-1 exit(1); } -tick-1 +profile:::tick-1 /string_3 < string_1 || string_1 > string_3 || string_3 == string_1/ { printf("Shouldn't end up here (2)\n"); @@ -41,7 +41,7 @@ tick-1 exit(1); } -tick-1 +profile:::tick-1 /string_3 > string_1 && string_1 > string_2 && string_1 != string_2 && string_2 != string_3/ { diff --git a/test/unittest/types/tst.scope-user-dotted.sh b/test/unittest/types/tst.scope-user-dotted.sh index 3d0348b7..516c55b5 100755 --- a/test/unittest/types/tst.scope-user-dotted.sh +++ b/test/unittest/types/tst.scope-user-dotted.sh @@ -20,7 +20,7 @@ cp test/triggers/testprobe "$dir/scope.user" || exit 1 cd "$dir" || exit 1 PATH=.: "$dtrace" $dt_flags -e -xlinkmode=static -c scope.user -n ' -BEGIN +dtrace:::BEGIN { symbol = &scope.user``main; type = (struct scope.user``dtrace_scope_test_type *)NULL; diff --git a/test/unittest/types/tst.scope-user-types.d b/test/unittest/types/tst.scope-user-types.d index 380af340..e11707e1 100644 --- a/test/unittest/types/tst.scope-user-types.d +++ b/test/unittest/types/tst.scope-user-types.d @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { scope_explicit = (struct testprobe``dtrace_scope_test_type *)NULL; scope_implicit = (struct ``dtrace_scope_test_type *)NULL; diff --git a/test/unittest/types/tst.shiftops.d b/test/unittest/types/tst.shiftops.d index 67710dc8..291a42df 100644 --- a/test/unittest/types/tst.shiftops.d +++ b/test/unittest/types/tst.shiftops.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { int_1 = 0xffff; @@ -26,14 +26,14 @@ BEGIN } -tick-1 +profile:::tick-1 /nint != int_1/ { printf("Unexpected error nint = %x, expected %x\n", nint, int_1); exit(1); } -tick-1 +profile:::tick-1 /nint == int_1/ { exit(0); diff --git a/test/unittest/types/tst.stringconstants.d b/test/unittest/types/tst.stringconstants.d index f7a544ac..6826db76 100644 --- a/test/unittest/types/tst.stringconstants.d +++ b/test/unittest/types/tst.stringconstants.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ string string_1; -BEGIN +dtrace:::BEGIN { string_1 = "abcd\n\n\nefg"; string_2 = "abc\"\t\044\?\x4D"; diff --git a/test/unittest/types/tst.struct-padding.d b/test/unittest/types/tst.struct-padding.d index 83fe2166..51fae119 100644 --- a/test/unittest/types/tst.struct-padding.d +++ b/test/unittest/types/tst.struct-padding.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2018, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2018, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { printf("int = %i/%i, %i/%i\n", dt_test`intish[0].foo, dt_test`intish[0].bar, diff --git a/test/unittest/types/tst.struct.d b/test/unittest/types/tst.struct.d index 77499789..875136aa 100644 --- a/test/unittest/types/tst.struct.d +++ b/test/unittest/types/tst.struct.d @@ -38,7 +38,7 @@ struct dqstr { unsigned char *name; }; -BEGIN +dtrace:::BEGIN { s = (struct D`dqstr *)alloca(sizeof(struct D`dqstr)); bcopy(&curthread->fs->root.dentry->d_name, s, sizeof(struct D`dqstr)); @@ -50,7 +50,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { printf("ERROR\n"); exit(1); diff --git a/test/unittest/types/tst.struct2.d b/test/unittest/types/tst.struct2.d index 9e5ee532..621aa3bf 100644 --- a/test/unittest/types/tst.struct2.d +++ b/test/unittest/types/tst.struct2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -37,7 +37,7 @@ struct env_vars_64 { uint64_t e3; }; -BEGIN +dtrace:::BEGIN /curpsinfo->pr_dmodel == PR_MODEL_ILP32/ { e32 = (struct D`env_vars_32 *)curpsinfo->pr_envp; @@ -49,7 +49,7 @@ BEGIN exit(0); } -BEGIN +dtrace:::BEGIN /curpsinfo->pr_dmodel == PR_MODEL_LP64/ { e64 = (struct D`env_vars_64 *)curpsinfo->pr_envp; diff --git a/test/unittest/types/tst.typedef.d b/test/unittest/types/tst.typedef.d index 7ec3bcd3..d4d219dd 100644 --- a/test/unittest/types/tst.typedef.d +++ b/test/unittest/types/tst.typedef.d @@ -38,7 +38,7 @@ typedef struct dqstr { unsigned char *name; } dqstr_t; -BEGIN +dtrace:::BEGIN { s = (D`dqstr_t *)alloca(sizeof(D`dqstr_t)); bcopy(&curthread->fs->root.dentry->d_name, s, sizeof(D`dqstr_t)); @@ -50,7 +50,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { printf("ERROR\n"); exit(1); diff --git a/test/unittest/types/tst.typedef2.d b/test/unittest/types/tst.typedef2.d index 81844f48..857156a6 100644 --- a/test/unittest/types/tst.typedef2.d +++ b/test/unittest/types/tst.typedef2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -38,7 +38,7 @@ typedef struct env_vars_64 { uint64_t e3; } env_vars_64_t; -BEGIN +dtrace:::BEGIN /curpsinfo->pr_dmodel == PR_MODEL_ILP32/ { e32 = (D`env_vars_32_t *)curpsinfo->pr_envp; @@ -50,7 +50,7 @@ BEGIN exit(0); } -BEGIN +dtrace:::BEGIN /curpsinfo->pr_dmodel == PR_MODEL_LP64/ { e64 = (D`env_vars_64_t *)curpsinfo->pr_envp; diff --git a/test/unittest/types/tst.unaryop.d b/test/unittest/types/tst.unaryop.d index 6316fe37..4847bce5 100644 --- a/test/unittest/types/tst.unaryop.d +++ b/test/unittest/types/tst.unaryop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { int_1 = 0xffff; int_2 = 0; diff --git a/test/unittest/types/tst.unloaded.d b/test/unittest/types/tst.unloaded.d index 9e1ac125..a960e056 100644 --- a/test/unittest/types/tst.unloaded.d +++ b/test/unittest/types/tst.unloaded.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2012, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2012, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { s = (struct can`dev_rcv_lists *)NULL; exit(0); diff --git a/test/unittest/udp/tst.ipv4localudp.sh b/test/unittest/udp/tst.ipv4localudp.sh index f45929ac..0865294c 100755 --- a/test/unittest/udp/tst.ipv4localudp.sh +++ b/test/unittest/udp/tst.ipv4localudp.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -41,7 +41,7 @@ $testdir/server.udp.pl $local $udpport >/dev/null& server=$! disown %+ $dtrace $dt_flags -c "$testdir/../ip/client.ip.pl udp $local $udpport" -qs /dev/stdin </dev/null -BEGIN +dtrace:::BEGIN { ipsend = ipreceive = udpsend = udpreceive = 0; } @@ -74,7 +74,7 @@ udp:::receive udpreceive++; } -END +dtrace:::END { printf("Minimum UDP events seen\n\n"); printf("ip:::send - %s\n", ipsend >= 1 ? "yes" : "no"); diff --git a/test/unittest/udp/tst.ipv4remoteudp.sh b/test/unittest/udp/tst.ipv4remoteudp.sh index 62ed186a..1f173cb4 100755 --- a/test/unittest/udp/tst.ipv4remoteudp.sh +++ b/test/unittest/udp/tst.ipv4remoteudp.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -46,7 +46,7 @@ if (( $? != 0 )) || [[ -z $dest ]]; then fi $dtrace $dt_flags -c "$testdir/../ip/client.ip.pl udp $dest $port" -qs /dev/stdin </dev/null -BEGIN +dtrace:::BEGIN { ipsend = udpsend = 0; } @@ -64,7 +64,7 @@ udp:::send udpsend++; } -END +dtrace:::END { printf("Minimum UDP events seen\n\n"); printf("ip:::send - %s\n", ipsend >= 1 ? "yes" : "no"); diff --git a/test/unittest/udp/tst.ipv6localudp.sh b/test/unittest/udp/tst.ipv6localudp.sh index a06e4994..a4af42e2 100755 --- a/test/unittest/udp/tst.ipv6localudp.sh +++ b/test/unittest/udp/tst.ipv6localudp.sh @@ -2,7 +2,7 @@ # # Oracle Linux DTrace. -# Copyright (c) 2017, 2019, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2017, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -41,7 +41,7 @@ $testdir/server.udp.pl $local $udpport >/dev/null& server=$! disown %+ $dtrace $dt_flags -c "$testdir/../ip/client.ip.pl udp $local $udpport" -qs /dev/stdin </dev/null -BEGIN +dtrace:::BEGIN { ipsend = ipreceive = udpsend = udpreceive = 0; } @@ -74,7 +74,7 @@ udp:::receive udpreceive++; } -END +dtrace:::END { printf("Minimum UDP events seen\n\n"); printf("ip:::send - %s\n", ipsend >= 1 ? "yes" : "no"); diff --git a/test/unittest/union/err.D_ADDROF_VAR.UnionPointer.d b/test/unittest/union/err.D_ADDROF_VAR.UnionPointer.d index 8e5e879c..6b1e2957 100644 --- a/test/unittest/union/err.D_ADDROF_VAR.UnionPointer.d +++ b/test/unittest/union/err.D_ADDROF_VAR.UnionPointer.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -24,7 +24,7 @@ union record { union record var; union record *ptr; -BEGIN +dtrace:::BEGIN { var.position = 1; diff --git a/test/unittest/union/err.D_DECL_COMBO.UnionWithoutColon.d b/test/unittest/union/err.D_DECL_COMBO.UnionWithoutColon.d index 1b1f2632..82428532 100644 --- a/test/unittest/union/err.D_DECL_COMBO.UnionWithoutColon.d +++ b/test/unittest/union/err.D_DECL_COMBO.UnionWithoutColon.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ union superStruct super; union record rec; union pirate pir; -BEGIN +dtrace:::BEGIN { rec.content = 'a'; rec.position = 1; diff --git a/test/unittest/union/err.D_DECL_COMBO.UnionWithoutColon1.d b/test/unittest/union/err.D_DECL_COMBO.UnionWithoutColon1.d index 78e6e498..d3259f74 100644 --- a/test/unittest/union/err.D_DECL_COMBO.UnionWithoutColon1.d +++ b/test/unittest/union/err.D_DECL_COMBO.UnionWithoutColon1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -30,7 +30,7 @@ union pirate { union record rec; union pirate pir; -BEGIN +dtrace:::BEGIN { rec.content = 'a'; rec.position = 1; diff --git a/test/unittest/union/err.D_DECL_INCOMPLETE.circular.d b/test/unittest/union/err.D_DECL_INCOMPLETE.circular.d index 0b0a1b0d..6038db89 100644 --- a/test/unittest/union/err.D_DECL_INCOMPLETE.circular.d +++ b/test/unittest/union/err.D_DECL_INCOMPLETE.circular.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -32,7 +32,7 @@ union pirate { union record rec; union pirate pir; -BEGIN +dtrace:::BEGIN { rec.position = 0; rec.content = 'a'; diff --git a/test/unittest/union/err.D_DECL_INCOMPLETE.order.d b/test/unittest/union/err.D_DECL_INCOMPLETE.order.d index 269f4840..9406c402 100644 --- a/test/unittest/union/err.D_DECL_INCOMPLETE.order.d +++ b/test/unittest/union/err.D_DECL_INCOMPLETE.order.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ union pirate { union record rec; union pirate pir; -BEGIN +dtrace:::BEGIN { rec.content = 'y'; rec.position = 2; diff --git a/test/unittest/union/err.D_DECL_INCOMPLETE.recursive.d b/test/unittest/union/err.D_DECL_INCOMPLETE.recursive.d index bb65bc11..4617ae98 100644 --- a/test/unittest/union/err.D_DECL_INCOMPLETE.recursive.d +++ b/test/unittest/union/err.D_DECL_INCOMPLETE.recursive.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -23,7 +23,7 @@ union record { union record r1; union record r2; -BEGIN +dtrace:::BEGIN { r1.position = 1; r1.content = 'a'; diff --git a/test/unittest/union/err.D_DECL_INCOMPLETE.simple.d b/test/unittest/union/err.D_DECL_INCOMPLETE.simple.d index e33baf74..c957596e 100644 --- a/test/unittest/union/err.D_DECL_INCOMPLETE.simple.d +++ b/test/unittest/union/err.D_DECL_INCOMPLETE.simple.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ union record { union record rec; -BEGIN +dtrace:::BEGIN { rec.position = 0; rec.content = 'a'; diff --git a/test/unittest/union/err.D_PROTO_ARG.DupUnionAssoc.d b/test/unittest/union/err.D_PROTO_ARG.DupUnionAssoc.d index 9c23fb39..79aced52 100644 --- a/test/unittest/union/err.D_PROTO_ARG.DupUnionAssoc.d +++ b/test/unittest/union/err.D_PROTO_ARG.DupUnionAssoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -31,7 +31,7 @@ union record r2; union pirate p1; union pirate p2; -BEGIN +dtrace:::BEGIN { r1.position = 1; r1.content = 'a'; diff --git a/test/unittest/union/tst.UnionAssoc.d b/test/unittest/union/tst.UnionAssoc.d index 768795d6..5472c943 100644 --- a/test/unittest/union/tst.UnionAssoc.d +++ b/test/unittest/union/tst.UnionAssoc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ union record { union record r1; union record r2; -BEGIN +dtrace:::BEGIN { r1.position = 1; r1.content = 'a'; @@ -42,7 +42,7 @@ BEGIN exit(0); } -END +dtrace:::END /assoc_array[r1] != assoc_array[r2]/ { printf("Error"); diff --git a/test/unittest/union/tst.UnionDataTypes.d b/test/unittest/union/tst.UnionDataTypes.d index 035706ef..259fcde7 100644 --- a/test/unittest/union/tst.UnionDataTypes.d +++ b/test/unittest/union/tst.UnionDataTypes.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -70,7 +70,7 @@ enum { /* var.pointer = &`max_pfn; */ -BEGIN +dtrace:::BEGIN { var.new_char = 'c'; var.new_short = 10; diff --git a/test/unittest/union/tst.UnionInside.d b/test/unittest/union/tst.UnionInside.d index b23f2105..b6f0c5bc 100644 --- a/test/unittest/union/tst.UnionInside.d +++ b/test/unittest/union/tst.UnionInside.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -45,7 +45,7 @@ union OuterMost { } OMost; -BEGIN +dtrace:::BEGIN { OMost.OMore.O.I.IMore.IMost.position = 5; @@ -57,7 +57,7 @@ BEGIN exit(0); } -END +dtrace:::END /'e' != OMost.OMore.O.I.IMore.IMost.content/ { exit(1); diff --git a/test/unittest/usdt/err.argmap-null.d b/test/unittest/usdt/err.argmap-null.d index ba765bea..b185e61e 100644 --- a/test/unittest/usdt/err.argmap-null.d +++ b/test/unittest/usdt/err.argmap-null.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * has no args. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/err.no-Z.r b/test/unittest/usdt/err.no-Z.r index 52d9492a..6426c361 100644 --- a/test/unittest/usdt/err.no-Z.r +++ b/test/unittest/usdt/err.no-Z.r @@ -1,7 +1,7 @@ expected failure -- @@stderr -- dtrace: invalid probe specifier -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/usdt/err.no-Z.sh b/test/unittest/usdt/err.no-Z.sh index 29d63d9c..c6e558d4 100755 --- a/test/unittest/usdt/err.no-Z.sh +++ b/test/unittest/usdt/err.no-Z.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -11,7 +11,7 @@ dtrace=$1 $dtrace $dt_flags -qn ' -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/usdt/err.no-w.sh b/test/unittest/usdt/err.no-w.sh index 40765498..1085d299 100755 --- a/test/unittest/usdt/err.no-w.sh +++ b/test/unittest/usdt/err.no-w.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -11,7 +11,7 @@ dtrace=$1 $dtrace $dt_flags -c test/triggers/usdt-tst-defer -qn ' -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/usdt/err.wrong-probe-argc-cc.sh b/test/unittest/usdt/err.wrong-probe-argc-cc.sh index 73e11f9b..40426f4c 100755 --- a/test/unittest/usdt/err.wrong-probe-argc-cc.sh +++ b/test/unittest/usdt/err.wrong-probe-argc-cc.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -55,7 +55,7 @@ if [ $? -ne 0 ]; then exit 1 fi -$dtrace $dt_flags -c ./test -n 'test_prov$target:::go, tick-1s { exit(0); }' +$dtrace $dt_flags -c ./test -n 'test_prov$target:::go, profile:::tick-1s { exit(0); }' rc=$? exit $rc diff --git a/test/unittest/usdt/err.wrong-probe-argc-rt.sh b/test/unittest/usdt/err.wrong-probe-argc-rt.sh index 1e34e4ff..5498d9ce 100755 --- a/test/unittest/usdt/err.wrong-probe-argc-rt.sh +++ b/test/unittest/usdt/err.wrong-probe-argc-rt.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -53,7 +53,7 @@ if [ $? -ne 0 ]; then exit 1 fi -$dtrace $dt_flags -c ./test -n 'test_prov$target:::go, tick-1s { exit(0); }' +$dtrace $dt_flags -c ./test -n 'test_prov$target:::go, profile:::tick-1s { exit(0); }' rc=$? exit $rc diff --git a/test/unittest/usdt/err.wrong-probe.sh b/test/unittest/usdt/err.wrong-probe.sh index c7ae74f2..04df797d 100755 --- a/test/unittest/usdt/err.wrong-probe.sh +++ b/test/unittest/usdt/err.wrong-probe.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -53,7 +53,7 @@ if [ $? -ne 0 ]; then exit 1 fi -$dtrace $dt_flags -c ./test -n 'test_prov$target:::, tick-1s { exit(0); }' +$dtrace $dt_flags -c ./test -n 'test_prov$target:::, profile:::tick-1s { exit(0); }' rc=$? exit $rc diff --git a/test/unittest/usdt/err.wrong-prov.sh b/test/unittest/usdt/err.wrong-prov.sh index 4562a3ae..90a8a76a 100755 --- a/test/unittest/usdt/err.wrong-prov.sh +++ b/test/unittest/usdt/err.wrong-prov.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -53,7 +53,7 @@ if [ $? -ne 0 ]; then exit 1 fi -$dtrace $dt_flags -c ./test -n '*_prov$target:::, tick-1s { exit(0); }' +$dtrace $dt_flags -c ./test -n '*_prov$target:::, profile:::tick-1s { exit(0); }' rc=$? exit $rc diff --git a/test/unittest/usdt/tst.arg-reg.d b/test/unittest/usdt/tst.arg-reg.d index 123e7e21..e0fba089 100644 --- a/test/unittest/usdt/tst.arg-reg.d +++ b/test/unittest/usdt/tst.arg-reg.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.argmap-null.d b/test/unittest/usdt/tst.argmap-null.d index dacf4c4f..d775093e 100644 --- a/test/unittest/usdt/tst.argmap-null.d +++ b/test/unittest/usdt/tst.argmap-null.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * ASSERTION: Verify that you can map to no args at all. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.argmap-typed-partial.d b/test/unittest/usdt/tst.argmap-typed-partial.d index 8c4d7273..66799a17 100644 --- a/test/unittest/usdt/tst.argmap-typed-partial.d +++ b/test/unittest/usdt/tst.argmap-typed-partial.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * even if some args are unused. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.argmap-typed.d b/test/unittest/usdt/tst.argmap-typed.d index 1243e059..48060a7e 100644 --- a/test/unittest/usdt/tst.argmap-typed.d +++ b/test/unittest/usdt/tst.argmap-typed.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * ASSERTION: Verify that args[N] variables are properly typed when mapped. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.argmap.d b/test/unittest/usdt/tst.argmap.d index a7d68da3..83a535f0 100644 --- a/test/unittest/usdt/tst.argmap.d +++ b/test/unittest/usdt/tst.argmap.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2007, 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * ASSERTION: Verify that argN and args[N] variables are properly mapped. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.args-alt.d b/test/unittest/usdt/tst.args-alt.d index e83835e2..e343acc5 100644 --- a/test/unittest/usdt/tst.args-alt.d +++ b/test/unittest/usdt/tst.args-alt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2013, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2013, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * Ensure that arguments to USDT probes can be retrieved both from registers * and the stack. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.args.d b/test/unittest/usdt/tst.args.d index bf15c6d6..e824550a 100644 --- a/test/unittest/usdt/tst.args.d +++ b/test/unittest/usdt/tst.args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ * NOTES: * */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.const.d b/test/unittest/usdt/tst.const.d index 515de7f8..7a2fe57b 100644 --- a/test/unittest/usdt/tst.const.d +++ b/test/unittest/usdt/tst.const.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.defer-Z-basic.sh b/test/unittest/usdt/tst.defer-Z-basic.sh index fad91e5f..bc6230dd 100755 --- a/test/unittest/usdt/tst.defer-Z-basic.sh +++ b/test/unittest/usdt/tst.defer-Z-basic.sh @@ -22,7 +22,7 @@ cp $trigger main # Start dtrace. $dtrace $dt_flags -Zq -o dtrace.out -n ' -BEGIN +dtrace:::BEGIN { printf("BEGIN\n"); } diff --git a/test/unittest/usdt/tst.defer-Z.sh b/test/unittest/usdt/tst.defer-Z.sh index db49cd58..a8f26051 100755 --- a/test/unittest/usdt/tst.defer-Z.sh +++ b/test/unittest/usdt/tst.defer-Z.sh @@ -29,7 +29,7 @@ cp $trigger main # Start dtrace. $dtrace $dt_flags -Zwq -o dtrace.out -n ' -BEGIN +dtrace:::BEGIN { printf("BEGIN\n"); } diff --git a/test/unittest/usdt/tst.defer.sh b/test/unittest/usdt/tst.defer.sh index a1c29571..09df169b 100755 --- a/test/unittest/usdt/tst.defer.sh +++ b/test/unittest/usdt/tst.defer.sh @@ -39,7 +39,7 @@ lastdigit=$((${pids[0]} % 10)) # Start dtrace. $dtrace $dt_flags -wq -o dtrace.out -n ' -BEGIN +dtrace:::BEGIN { printf("BEGIN\n"); } diff --git a/test/unittest/usdt/tst.deref-decode.d b/test/unittest/usdt/tst.deref-decode.d index fc019eb5..57a0ed16 100644 --- a/test/unittest/usdt/tst.deref-decode.d +++ b/test/unittest/usdt/tst.deref-decode.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,7 +11,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.dlclose3.sh b/test/unittest/usdt/tst.dlclose3.sh index bcc1e0ed..e73d45f1 100755 --- a/test/unittest/usdt/tst.dlclose3.sh +++ b/test/unittest/usdt/tst.dlclose3.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -128,14 +128,14 @@ script() { exit(0); } - tick-1s + profile:::tick-1s /i++ == 5/ { printf("test timed out"); exit(1); } - END + dtrace:::END /!gotit/ { printf("program ended without hitting probe"); diff --git a/test/unittest/usdt/tst.enable.d b/test/unittest/usdt/tst.enable.d index a95eee20..574c1142 100644 --- a/test/unittest/usdt/tst.enable.d +++ b/test/unittest/usdt/tst.enable.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * ASSERTION: * Make sure that a regular is-enabled probe works. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.enable_and.d b/test/unittest/usdt/tst.enable_and.d index 9715c9c1..b9c33ea1 100644 --- a/test/unittest/usdt/tst.enable_and.d +++ b/test/unittest/usdt/tst.enable_and.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * Make sure that a is-enabled probe can be used as part of a && * construct. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.enable_and_2.d b/test/unittest/usdt/tst.enable_and_2.d index 47e8feb5..f912e97c 100644 --- a/test/unittest/usdt/tst.enable_and_2.d +++ b/test/unittest/usdt/tst.enable_and_2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * Make sure that two is-enabled probes can be used as terms in a && * construct. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.enable_or.d b/test/unittest/usdt/tst.enable_or.d index d935360d..daec6e6a 100644 --- a/test/unittest/usdt/tst.enable_or.d +++ b/test/unittest/usdt/tst.enable_or.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * Make sure that a is-enabled probe can be used as part of a || * construct. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.enable_or_2.d b/test/unittest/usdt/tst.enable_or_2.d index c384cddf..35f2c995 100644 --- a/test/unittest/usdt/tst.enable_or_2.d +++ b/test/unittest/usdt/tst.enable_or_2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ * Make sure that two is-enabled probes can be used as terms in a || * construct. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.enable_pid.sh b/test/unittest/usdt/tst.enable_pid.sh index 296cfb38..d80aa461 100755 --- a/test/unittest/usdt/tst.enable_pid.sh +++ b/test/unittest/usdt/tst.enable_pid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -163,7 +163,7 @@ disown %+ for pid in 1 $pid1 $pid2 '*'; do sleep 1 $dtrace $dt_flags -Zn 'test_prov'$pid':::go { trace("hi"); } - tick-1s { exit(0) }' + profile:::tick-1s { exit(0) }' if [ $? -ne 0 ]; then echo ERROR: dtrace kill -TERM $pid1 diff --git a/test/unittest/usdt/tst.enable_return.d b/test/unittest/usdt/tst.enable_return.d index 2e7b41f9..59f01af1 100644 --- a/test/unittest/usdt/tst.enable_return.d +++ b/test/unittest/usdt/tst.enable_return.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ * instruction (which may be turned into a tail-call on architectures that * support it. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.enable_stmt.d b/test/unittest/usdt/tst.enable_stmt.d index 37e106bf..415ba71b 100644 --- a/test/unittest/usdt/tst.enable_stmt.d +++ b/test/unittest/usdt/tst.enable_stmt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,7 +13,7 @@ * ASSERTION: * Make sure that a is-enabled probe can be used in statement context. */ -BEGIN +dtrace:::BEGIN { /* Timeout after 5 seconds */ timeout = timestamp + 5000000000; diff --git a/test/unittest/usdt/tst.entryreturn.sh b/test/unittest/usdt/tst.entryreturn.sh index 03418e7b..e4139204 100755 --- a/test/unittest/usdt/tst.entryreturn.sh +++ b/test/unittest/usdt/tst.entryreturn.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2007, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2007, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -73,7 +73,7 @@ fi script() { $dtrace $dt_flags -wqZFs /dev/stdin < 100/ { @total = count(); @stacks[ustack()] = count(); } - tick-1s + profile:::tick-1s { secs++; } - tick-1s + profile:::tick-1s /secs > 5/ { done = 1; } - tick-1s + profile:::tick-1s /secs > 10/ { trace("test timed out"); exit(1); } - profile-1999 + profile:::profile-1999 /pid == \$target && done/ { raise(SIGINT); exit(0); } - BEGIN + dtrace:::BEGIN { printf("%i\n", \$target); } - END + dtrace:::END { printa("TOTAL %@u\n", @total); printa("START%kEND\n", @stacks); diff --git a/test/unittest/ustack/tst.spin.sh b/test/unittest/ustack/tst.spin.sh index 856ac08f..61b37203 100755 --- a/test/unittest/ustack/tst.spin.sh +++ b/test/unittest/ustack/tst.spin.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -28,39 +28,39 @@ $dtrace $dt_flags -o $file -c test/triggers/ustack-tst-spin -s /dev/stdin < 100/ { @total = count(); @stacks[ustack(4)] = count(); } - tick-1s + profile:::tick-1s { secs++; } - tick-1s + profile:::tick-1s /secs > 5/ { done = 1; } - tick-1s + profile:::tick-1s /secs > 10/ { trace("test timed out"); exit(1); } - profile-1999 + profile:::profile-1999 /pid == \$target && done/ { raise(SIGINT); exit(0); } - END + dtrace:::END { printa("TOTAL %@u\n", @total); printa("START%kEND\n", @stacks); diff --git a/test/unittest/ustack/tst.uaddr-pid0.d b/test/unittest/ustack/tst.uaddr-pid0.d index 3580f0cd..9d529c0a 100644 --- a/test/unittest/ustack/tst.uaddr-pid0.d +++ b/test/unittest/ustack/tst.uaddr-pid0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-100ms +profile:::profile-100ms /pid == $target/ { uaddr(ucaller); diff --git a/test/unittest/ustack/tst.uaddr.d b/test/unittest/ustack/tst.uaddr.d index 0fce24d8..5eeb7533 100644 --- a/test/unittest/ustack/tst.uaddr.d +++ b/test/unittest/ustack/tst.uaddr.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-1 +profile:::profile-1 /pid == $target/ { uaddr(ucaller); diff --git a/test/unittest/ustack/tst.ufunc-pid0.d b/test/unittest/ustack/tst.ufunc-pid0.d index 0778c33c..f99def0e 100644 --- a/test/unittest/ustack/tst.ufunc-pid0.d +++ b/test/unittest/ustack/tst.ufunc-pid0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-100ms +profile:::profile-100ms /pid == $target/ { ufunc(ucaller); diff --git a/test/unittest/ustack/tst.ufunc.d b/test/unittest/ustack/tst.ufunc.d index 546653de..62327b2f 100644 --- a/test/unittest/ustack/tst.ufunc.d +++ b/test/unittest/ustack/tst.ufunc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-1 +profile:::profile-1 /pid == $target/ { ufunc(ucaller); diff --git a/test/unittest/ustack/tst.umod.d b/test/unittest/ustack/tst.umod.d index b7d3e14f..e78c6a42 100644 --- a/test/unittest/ustack/tst.umod.d +++ b/test/unittest/ustack/tst.umod.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-1 +profile:::profile-1 /pid == $target/ { umod(ucaller); diff --git a/test/unittest/ustack/tst.ustack25_max95_profile.d b/test/unittest/ustack/tst.ustack25_max95_profile.d index 5f5e9e5e..59d22aad 100644 --- a/test/unittest/ustack/tst.ustack25_max95_profile.d +++ b/test/unittest/ustack/tst.ustack25_max95_profile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ #pragma D option quiet #pragma D option maxframes=95 -profile-1 +profile:::profile-1 /pid == $target/ { ustack(25); diff --git a/test/unittest/ustack/tst.ustack25_profile.d b/test/unittest/ustack/tst.ustack25_profile.d index 9b0ba9af..9550d5da 100644 --- a/test/unittest/ustack/tst.ustack25_profile.d +++ b/test/unittest/ustack/tst.ustack25_profile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-1 +profile:::profile-1 /pid == $target/ { ustack(25); diff --git a/test/unittest/ustack/tst.ustack95_max25_profile.d b/test/unittest/ustack/tst.ustack95_max25_profile.d index 9dfe14f2..75d46b30 100644 --- a/test/unittest/ustack/tst.ustack95_max25_profile.d +++ b/test/unittest/ustack/tst.ustack95_max25_profile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ #pragma D option quiet #pragma D option maxframes=25 -profile-1 +profile:::profile-1 /pid == $target/ { ustack(95); diff --git a/test/unittest/ustack/tst.ustack95_profile.d b/test/unittest/ustack/tst.ustack95_profile.d index e0c89443..a40e3c5d 100644 --- a/test/unittest/ustack/tst.ustack95_profile.d +++ b/test/unittest/ustack/tst.ustack95_profile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-1 +profile:::profile-1 /pid == $target/ { ustack(95); diff --git a/test/unittest/ustack/tst.ustack_max25_profile.d b/test/unittest/ustack/tst.ustack_max25_profile.d index 5463ab24..942c9a2c 100644 --- a/test/unittest/ustack/tst.ustack_max25_profile.d +++ b/test/unittest/ustack/tst.ustack_max25_profile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -10,7 +10,7 @@ #pragma D option quiet #pragma D option maxframes=25 -profile-1 +profile:::profile-1 /pid == $target/ { ustack(); diff --git a/test/unittest/ustack/tst.ustack_profile.d b/test/unittest/ustack/tst.ustack_profile.d index 1589acc8..e89eeff5 100644 --- a/test/unittest/ustack/tst.ustack_profile.d +++ b/test/unittest/ustack/tst.ustack_profile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-1 +profile:::profile-1 /pid == $target/ { ustack(); diff --git a/test/unittest/ustack/tst.usym-pid0.d b/test/unittest/ustack/tst.usym-pid0.d index 7833ab1e..724c18ed 100644 --- a/test/unittest/ustack/tst.usym-pid0.d +++ b/test/unittest/ustack/tst.usym-pid0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2023, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2023, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-100ms +profile:::profile-100ms /pid == $target/ { usym(ucaller); diff --git a/test/unittest/ustack/tst.usym.d b/test/unittest/ustack/tst.usym.d index 3bd9dc23..757bf8f2 100644 --- a/test/unittest/ustack/tst.usym.d +++ b/test/unittest/ustack/tst.usym.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,7 +9,7 @@ #pragma D option quiet -profile-1 +profile:::profile-1 /pid == $target/ { usym(ucaller); diff --git a/test/unittest/variables/bvar/err.D_ARGS_IDX.args-neg-idx.d b/test/unittest/variables/bvar/err.D_ARGS_IDX.args-neg-idx.d index 02763fc6..9ba2ba2e 100644 --- a/test/unittest/variables/bvar/err.D_ARGS_IDX.args-neg-idx.d +++ b/test/unittest/variables/bvar/err.D_ARGS_IDX.args-neg-idx.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,16 +14,16 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("echo write something > /dev/null"); } -write:entry { +syscall::write:entry { trace(args[-1]); exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/err.D_ARGS_IDX.args-no-args.d b/test/unittest/variables/bvar/err.D_ARGS_IDX.args-no-args.d index 2c8f5041..8847dbf5 100644 --- a/test/unittest/variables/bvar/err.D_ARGS_IDX.args-no-args.d +++ b/test/unittest/variables/bvar/err.D_ARGS_IDX.args-no-args.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(args[0]); exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/err.D_ARGS_IDX.args-too-many.d b/test/unittest/variables/bvar/err.D_ARGS_IDX.args-too-many.d index f2bbb37a..27b7a36e 100644 --- a/test/unittest/variables/bvar/err.D_ARGS_IDX.args-too-many.d +++ b/test/unittest/variables/bvar/err.D_ARGS_IDX.args-too-many.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,12 +14,12 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("echo write something > /dev/null"); } -write:entry { +syscall::write:entry { trace(args[0]); trace(args[1]); trace(args[2]); @@ -27,6 +27,6 @@ write:entry { exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/err.D_IDENT_BADREF.args-no-idx.d b/test/unittest/variables/bvar/err.D_IDENT_BADREF.args-no-idx.d index 9f0bb67c..c5bfe10a 100644 --- a/test/unittest/variables/bvar/err.D_IDENT_BADREF.args-no-idx.d +++ b/test/unittest/variables/bvar/err.D_IDENT_BADREF.args-no-idx.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(args); exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/err.D_PROTO_ARG.args-non-scalar-idx.d b/test/unittest/variables/bvar/err.D_PROTO_ARG.args-non-scalar-idx.d index 3b3eed0e..b47413af 100644 --- a/test/unittest/variables/bvar/err.D_PROTO_ARG.args-non-scalar-idx.d +++ b/test/unittest/variables/bvar/err.D_PROTO_ARG.args-non-scalar-idx.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,13 +11,13 @@ * SECTION: Variables/Built-in Variables/args */ -BEGIN +dtrace:::BEGIN { trace(args["a"]); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg0.d b/test/unittest/variables/bvar/tst.arg0.d index b17ca252..f1c424b7 100644 --- a/test/unittest/variables/bvar/tst.arg0.d +++ b/test/unittest/variables/bvar/tst.arg0.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg0); exit(arg0 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg1.d b/test/unittest/variables/bvar/tst.arg1.d index 7eb71d1a..c35afacb 100644 --- a/test/unittest/variables/bvar/tst.arg1.d +++ b/test/unittest/variables/bvar/tst.arg1.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg1); exit(arg1 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg2.d b/test/unittest/variables/bvar/tst.arg2.d index 62ef3347..bafcc026 100644 --- a/test/unittest/variables/bvar/tst.arg2.d +++ b/test/unittest/variables/bvar/tst.arg2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg2); exit(arg2 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg3-ERROR-b.sh b/test/unittest/variables/bvar/tst.arg3-ERROR-b.sh index 97661b75..bd2611bf 100755 --- a/test/unittest/variables/bvar/tst.arg3-ERROR-b.sh +++ b/test/unittest/variables/bvar/tst.arg3-ERROR-b.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,31 +20,31 @@ mkdir -p $DIRNAME cd $DIRNAME $dtrace $dt_flags -xdisasm=8 -Sqs /dev/stdin << EOT &> D.out -BEGIN +dtrace:::BEGIN { x = (int *)64; y = *x; /* 1st ERROR */ } -BEGIN +dtrace:::BEGIN { x = (int *)64; y = *x; /* 2nd ERROR */ } -BEGIN +dtrace:::BEGIN { x = (int *)64; y = *x; /* 3rd ERROR */ } -BEGIN +dtrace:::BEGIN { x = (int *)64; y = *x; /* 4th ERROR */ } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/variables/bvar/tst.arg3-ERROR.sh b/test/unittest/variables/bvar/tst.arg3-ERROR.sh index b5460b6c..2e11f1f9 100755 --- a/test/unittest/variables/bvar/tst.arg3-ERROR.sh +++ b/test/unittest/variables/bvar/tst.arg3-ERROR.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -28,14 +28,14 @@ function dump_files { # Run DTrace, also collecting disassembly. $dtrace $dt_flags -o D.out -xdisasm=8 -S -qn ' -BEGIN { nerrs = 0; } /* dt_clause_0 */ -BEGIN { y = *((int*)64); } /* dt_clause_1 */ -BEGIN { y = *((int*)64); } /* dt_clause_2 */ -BEGIN { y = *((int*)64); } /* dt_clause_3 */ -BEGIN { y = *((int*)64); } /* dt_clause_4 */ -BEGIN { exit(0); } /* dt_clause_5 */ - -ERROR +dtrace:::BEGIN { nerrs = 0; } /* dt_clause_0 */ +dtrace:::BEGIN { y = *((int*)64); } /* dt_clause_1 */ +dtrace:::BEGIN { y = *((int*)64); } /* dt_clause_2 */ +dtrace:::BEGIN { y = *((int*)64); } /* dt_clause_3 */ +dtrace:::BEGIN { y = *((int*)64); } /* dt_clause_4 */ +dtrace:::BEGIN { exit(0); } /* dt_clause_5 */ + +dtrace:::ERROR { /* Report the problematic PC and continue execution. */ printf("Error %d at %x\n", ++nerrs, arg3); diff --git a/test/unittest/variables/bvar/tst.arg3.d b/test/unittest/variables/bvar/tst.arg3.d index 9d628f8a..71161e0f 100644 --- a/test/unittest/variables/bvar/tst.arg3.d +++ b/test/unittest/variables/bvar/tst.arg3.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg3); exit(arg3 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg4.d b/test/unittest/variables/bvar/tst.arg4.d index 898252aa..60136463 100644 --- a/test/unittest/variables/bvar/tst.arg4.d +++ b/test/unittest/variables/bvar/tst.arg4.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg4); exit(arg4 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg5.d b/test/unittest/variables/bvar/tst.arg5.d index d166372b..cd897016 100644 --- a/test/unittest/variables/bvar/tst.arg5.d +++ b/test/unittest/variables/bvar/tst.arg5.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg5); exit(arg5 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg6.d b/test/unittest/variables/bvar/tst.arg6.d index 2dd4282a..5f67ff8d 100644 --- a/test/unittest/variables/bvar/tst.arg6.d +++ b/test/unittest/variables/bvar/tst.arg6.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg6); exit(arg6 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg7.d b/test/unittest/variables/bvar/tst.arg7.d index 0ccc6ed7..a30d9684 100644 --- a/test/unittest/variables/bvar/tst.arg7.d +++ b/test/unittest/variables/bvar/tst.arg7.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg7); exit(arg7 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg8.d b/test/unittest/variables/bvar/tst.arg8.d index be876e01..a104e704 100644 --- a/test/unittest/variables/bvar/tst.arg8.d +++ b/test/unittest/variables/bvar/tst.arg8.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg8); exit(arg8 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.arg9.d b/test/unittest/variables/bvar/tst.arg9.d index 39217765..2ca5b7ba 100644 --- a/test/unittest/variables/bvar/tst.arg9.d +++ b/test/unittest/variables/bvar/tst.arg9.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(arg9); exit(arg9 == 0 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.args-match-argN.d b/test/unittest/variables/bvar/tst.args-match-argN.d index bfe8e8fc..f31170de 100644 --- a/test/unittest/variables/bvar/tst.args-match-argN.d +++ b/test/unittest/variables/bvar/tst.args-match-argN.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,18 +15,18 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("echo write something > /dev/null"); } -write:entry { +syscall::write:entry { printf("%x vs %x\n", args[0], arg0); printf("%x vs %x\n", (uint64_t)args[1], arg1); printf("%x vs %x\n", args[2], arg2); exit(args[0] == arg0 && (uint64_t)args[1] == arg1 && args[2] == arg2 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.caller-cpc.d b/test/unittest/variables/bvar/tst.caller-cpc.d index ff275e8a..7081c863 100644 --- a/test/unittest/variables/bvar/tst.caller-cpc.d +++ b/test/unittest/variables/bvar/tst.caller-cpc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ cpc:::cpu_clock-all-100000000 exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-dtrace.d b/test/unittest/variables/bvar/tst.caller-dtrace.d index d726f38a..ad50a313 100644 --- a/test/unittest/variables/bvar/tst.caller-dtrace.d +++ b/test/unittest/variables/bvar/tst.caller-dtrace.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,12 +8,12 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(caller); exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-fbt.d b/test/unittest/variables/bvar/tst.caller-fbt.d index a8135333..b00415d1 100644 --- a/test/unittest/variables/bvar/tst.caller-fbt.d +++ b/test/unittest/variables/bvar/tst.caller-fbt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ fbt::ksys_write:entry exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-io.sh b/test/unittest/variables/bvar/tst.caller-io.sh index 957406da..f5654309 100755 --- a/test/unittest/variables/bvar/tst.caller-io.sh +++ b/test/unittest/variables/bvar/tst.caller-io.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -30,7 +30,7 @@ io::: exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-ip.d b/test/unittest/variables/bvar/tst.caller-ip.d index 05ca5c67..a22f8efc 100644 --- a/test/unittest/variables/bvar/tst.caller-ip.d +++ b/test/unittest/variables/bvar/tst.caller-ip.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ ip::: exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-lockstat.d b/test/unittest/variables/bvar/tst.caller-lockstat.d index fbd1f1ae..487130b2 100644 --- a/test/unittest/variables/bvar/tst.caller-lockstat.d +++ b/test/unittest/variables/bvar/tst.caller-lockstat.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ lockstat:::*acquire exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-proc.d b/test/unittest/variables/bvar/tst.caller-proc.d index 7c3557e2..231500dc 100644 --- a/test/unittest/variables/bvar/tst.caller-proc.d +++ b/test/unittest/variables/bvar/tst.caller-proc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ proc:::start exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-profile.d b/test/unittest/variables/bvar/tst.caller-profile.d index 82d21f78..10bdd85a 100644 --- a/test/unittest/variables/bvar/tst.caller-profile.d +++ b/test/unittest/variables/bvar/tst.caller-profile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ profile:::tick-50ms exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-rawfbt.d b/test/unittest/variables/bvar/tst.caller-rawfbt.d index 9be644ec..a3ed258a 100644 --- a/test/unittest/variables/bvar/tst.caller-rawfbt.d +++ b/test/unittest/variables/bvar/tst.caller-rawfbt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ rawfbt::ksys_write:entry exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-rawtp.d b/test/unittest/variables/bvar/tst.caller-rawtp.d index 9bc91b67..d36691ef 100644 --- a/test/unittest/variables/bvar/tst.caller-rawtp.d +++ b/test/unittest/variables/bvar/tst.caller-rawtp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ rawtp:sched:: exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.caller-sched.d b/test/unittest/variables/bvar/tst.caller-sched.d index bf73608f..5ecdb52e 100644 --- a/test/unittest/variables/bvar/tst.caller-sched.d +++ b/test/unittest/variables/bvar/tst.caller-sched.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -25,7 +25,7 @@ sched:::tick exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.curcpu.d b/test/unittest/variables/bvar/tst.curcpu.d index 04169997..371a49b2 100644 --- a/test/unittest/variables/bvar/tst.curcpu.d +++ b/test/unittest/variables/bvar/tst.curcpu.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(curcpu); exit((int64_t)curcpu != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.curcpu_cpu_id.sh b/test/unittest/variables/bvar/tst.curcpu_cpu_id.sh index c436d4ac..c91d2088 100755 --- a/test/unittest/variables/bvar/tst.curcpu_cpu_id.sh +++ b/test/unittest/variables/bvar/tst.curcpu_cpu_id.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -23,11 +23,11 @@ unset _DTRACE_TESTING # Feed DTrace output into awk script to process results. $dtrace $dt_flags -n ' -profile-3 { +profile:::profile-3 { trace(curcpu->cpu_id); } -tick-2 { +profile:::tick-2 { exit(0); } ' | gawk ' diff --git a/test/unittest/variables/bvar/tst.curthread.d b/test/unittest/variables/bvar/tst.curthread.d index 5f17f81d..c3eeb8cd 100644 --- a/test/unittest/variables/bvar/tst.curthread.d +++ b/test/unittest/variables/bvar/tst.curthread.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(curthread); exit((int64_t)curthread != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.epid.d b/test/unittest/variables/bvar/tst.epid.d index 0c6e01c7..94f498f2 100644 --- a/test/unittest/variables/bvar/tst.epid.d +++ b/test/unittest/variables/bvar/tst.epid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(epid); exit(epid != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.errno.d b/test/unittest/variables/bvar/tst.errno.d index 390cb2a0..435e346b 100644 --- a/test/unittest/variables/bvar/tst.errno.d +++ b/test/unittest/variables/bvar/tst.errno.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(errno); exit(errno != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.execargs.d b/test/unittest/variables/bvar/tst.execargs.d index d4eac223..c3753f5f 100644 --- a/test/unittest/variables/bvar/tst.execargs.d +++ b/test/unittest/variables/bvar/tst.execargs.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(execargs); exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.execname.d b/test/unittest/variables/bvar/tst.execname.d index 2035d4d1..82bbea49 100644 --- a/test/unittest/variables/bvar/tst.execname.d +++ b/test/unittest/variables/bvar/tst.execname.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(execname); exit(0); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.gid.d b/test/unittest/variables/bvar/tst.gid.d index 4740f5e6..e4961499 100644 --- a/test/unittest/variables/bvar/tst.gid.d +++ b/test/unittest/variables/bvar/tst.gid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(gid); exit(gid != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.id-valid.sh b/test/unittest/variables/bvar/tst.id-valid.sh index aa3b5590..2271d931 100755 --- a/test/unittest/variables/bvar/tst.id-valid.sh +++ b/test/unittest/variables/bvar/tst.id-valid.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -23,11 +23,11 @@ unset _DTRACE_TESTING # Feed DTrace output into awk script to process results. $dtrace $dt_flags -n ' -profile-3 { +profile:::profile-3 { trace(id); } -tick-2 { +profile:::tick-2 { exit(0); } ' | gawk ' diff --git a/test/unittest/variables/bvar/tst.id.d b/test/unittest/variables/bvar/tst.id.d index e380d224..fc747759 100644 --- a/test/unittest/variables/bvar/tst.id.d +++ b/test/unittest/variables/bvar/tst.id.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(id); exit(id != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.ipl.d b/test/unittest/variables/bvar/tst.ipl.d index 7e2a432f..bfd3dcaa 100644 --- a/test/unittest/variables/bvar/tst.ipl.d +++ b/test/unittest/variables/bvar/tst.ipl.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(ipl); exit(ipl != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.offset-blank.sh b/test/unittest/variables/bvar/tst.offset-blank.sh index 8fe11b4a..a3cec15d 100755 --- a/test/unittest/variables/bvar/tst.offset-blank.sh +++ b/test/unittest/variables/bvar/tst.offset-blank.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -17,7 +17,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { trace(pid); exit(0); diff --git a/test/unittest/variables/bvar/tst.pid.d b/test/unittest/variables/bvar/tst.pid.d index cc16ebd7..31e07411 100644 --- a/test/unittest/variables/bvar/tst.pid.d +++ b/test/unittest/variables/bvar/tst.pid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(pid); exit(pid != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.ppid.d b/test/unittest/variables/bvar/tst.ppid.d index c0ddb0c5..73c60757 100644 --- a/test/unittest/variables/bvar/tst.ppid.d +++ b/test/unittest/variables/bvar/tst.ppid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(ppid); exit(ppid != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.ppid2.d b/test/unittest/variables/bvar/tst.ppid2.d index 4a4a616f..e6b84f42 100644 --- a/test/unittest/variables/bvar/tst.ppid2.d +++ b/test/unittest/variables/bvar/tst.ppid2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,12 +13,12 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(ppid); trace($ppid); exit(ppid == $ppid ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.probefunc.d b/test/unittest/variables/bvar/tst.probefunc.d index 808d8e65..7196854f 100644 --- a/test/unittest/variables/bvar/tst.probefunc.d +++ b/test/unittest/variables/bvar/tst.probefunc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("sleep 1s"); } @@ -41,6 +41,6 @@ syscall::*sleep:entry exit(1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.probemod.d b/test/unittest/variables/bvar/tst.probemod.d index cc3d384c..f6e2e130 100644 --- a/test/unittest/variables/bvar/tst.probemod.d +++ b/test/unittest/variables/bvar/tst.probemod.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN +dtrace:::BEGIN { system("sleep 1s"); } @@ -35,6 +35,6 @@ syscall::*sleep:entry exit(1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.probename.d b/test/unittest/variables/bvar/tst.probename.d index 7f2bde35..29ba491f 100644 --- a/test/unittest/variables/bvar/tst.probename.d +++ b/test/unittest/variables/bvar/tst.probename.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,22 +13,22 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(probename); } -BEGIN +dtrace:::BEGIN /probename == "BEGIN"/ { exit(0); } -BEGIN +dtrace:::BEGIN { exit(1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.probeprov.d b/test/unittest/variables/bvar/tst.probeprov.d index e5f843ec..3a159adb 100644 --- a/test/unittest/variables/bvar/tst.probeprov.d +++ b/test/unittest/variables/bvar/tst.probeprov.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,22 +13,22 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(probeprov); } -BEGIN +dtrace:::BEGIN /probeprov == "dtrace"/ { exit(0); } -BEGIN +dtrace:::BEGIN { exit(1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.stackdepth-cpc.d b/test/unittest/variables/bvar/tst.stackdepth-cpc.d index 5adae23a..7a74893f 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-cpc.d +++ b/test/unittest/variables/bvar/tst.stackdepth-cpc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ cpc:::cpu_clock-all-100000000 exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-dtrace.d b/test/unittest/variables/bvar/tst.stackdepth-dtrace.d index 1026006e..00f5d973 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-dtrace.d +++ b/test/unittest/variables/bvar/tst.stackdepth-dtrace.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { printf("DEPTH %d\n", stackdepth); printf("TRACE BEGIN\n"); stack(); @@ -16,7 +16,7 @@ BEGIN { exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-fbt.d b/test/unittest/variables/bvar/tst.stackdepth-fbt.d index d33897a5..89fe81d7 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-fbt.d +++ b/test/unittest/variables/bvar/tst.stackdepth-fbt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ fbt::ksys_write:entry exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-io.sh b/test/unittest/variables/bvar/tst.stackdepth-io.sh index 51aeecd1..10fd2e74 100755 --- a/test/unittest/variables/bvar/tst.stackdepth-io.sh +++ b/test/unittest/variables/bvar/tst.stackdepth-io.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. @@ -32,7 +32,7 @@ io::: exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-ip.d b/test/unittest/variables/bvar/tst.stackdepth-ip.d index a35d1e51..6f607abd 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-ip.d +++ b/test/unittest/variables/bvar/tst.stackdepth-ip.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ ip::: exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-lockstat.d b/test/unittest/variables/bvar/tst.stackdepth-lockstat.d index de2b33dd..b7b2cd7b 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-lockstat.d +++ b/test/unittest/variables/bvar/tst.stackdepth-lockstat.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ lockstat:::*acquire exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-proc.d b/test/unittest/variables/bvar/tst.stackdepth-proc.d index 75f72037..e858257b 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-proc.d +++ b/test/unittest/variables/bvar/tst.stackdepth-proc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -29,7 +29,7 @@ proc:::start exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-profile.d b/test/unittest/variables/bvar/tst.stackdepth-profile.d index 614c43a0..35965226 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-profile.d +++ b/test/unittest/variables/bvar/tst.stackdepth-profile.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -18,7 +18,7 @@ profile:::tick-50ms exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-rawfbt.d b/test/unittest/variables/bvar/tst.stackdepth-rawfbt.d index 1c0afffe..2a4b8506 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-rawfbt.d +++ b/test/unittest/variables/bvar/tst.stackdepth-rawfbt.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -21,7 +21,7 @@ rawfbt::ksys_write:entry exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-rawtp.d b/test/unittest/variables/bvar/tst.stackdepth-rawtp.d index b99ada9a..85d9b6a0 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-rawtp.d +++ b/test/unittest/variables/bvar/tst.stackdepth-rawtp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -20,7 +20,7 @@ rawtp:sched:: exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.stackdepth-sched.d b/test/unittest/variables/bvar/tst.stackdepth-sched.d index 05be3172..fa68ab77 100644 --- a/test/unittest/variables/bvar/tst.stackdepth-sched.d +++ b/test/unittest/variables/bvar/tst.stackdepth-sched.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -27,7 +27,7 @@ sched:::tick exit(0); } -ERROR +dtrace:::ERROR { printf("error encountered\n"); exit(1); diff --git a/test/unittest/variables/bvar/tst.tid.d b/test/unittest/variables/bvar/tst.tid.d index 8fe6bcf6..b970800c 100644 --- a/test/unittest/variables/bvar/tst.tid.d +++ b/test/unittest/variables/bvar/tst.tid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(tid); exit(tid != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.timestamp-bug31632630.d b/test/unittest/variables/bvar/tst.timestamp-bug31632630.d index ac48bb36..5e2fff86 100644 --- a/test/unittest/variables/bvar/tst.timestamp-bug31632630.d +++ b/test/unittest/variables/bvar/tst.timestamp-bug31632630.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { this->a = timestamp; this->b = timestamp; @@ -22,6 +22,6 @@ BEGIN exit(this->a == this->b ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.timestamp.d b/test/unittest/variables/bvar/tst.timestamp.d index 3992b70f..9a1a0e91 100644 --- a/test/unittest/variables/bvar/tst.timestamp.d +++ b/test/unittest/variables/bvar/tst.timestamp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(timestamp); exit(timestamp != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.ucaller.d b/test/unittest/variables/bvar/tst.ucaller.d index eef56fd4..d0a2375c 100644 --- a/test/unittest/variables/bvar/tst.ucaller.d +++ b/test/unittest/variables/bvar/tst.ucaller.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(ucaller); exit(ucaller != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.uid.d b/test/unittest/variables/bvar/tst.uid.d index f1450c97..605750c2 100644 --- a/test/unittest/variables/bvar/tst.uid.d +++ b/test/unittest/variables/bvar/tst.uid.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(uid); exit(uid != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.ustackdepth.d b/test/unittest/variables/bvar/tst.ustackdepth.d index 224e0d3f..dd6abc6d 100644 --- a/test/unittest/variables/bvar/tst.ustackdepth.d +++ b/test/unittest/variables/bvar/tst.ustackdepth.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(ustackdepth); exit(ustackdepth != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.ustackdepth2.d b/test/unittest/variables/bvar/tst.ustackdepth2.d index 0e4f5915..b30ade6c 100644 --- a/test/unittest/variables/bvar/tst.ustackdepth2.d +++ b/test/unittest/variables/bvar/tst.ustackdepth2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ * SECTION: Variables/Built-in Variables */ -profile-1 +profile:::profile-1 /pid == $target/ { printf("DEPTH %d\n", ustackdepth); @@ -25,7 +25,7 @@ profile-1 exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.ustackdepth_big.sh b/test/unittest/variables/bvar/tst.ustackdepth_big.sh index aeef9982..c69599c4 100755 --- a/test/unittest/variables/bvar/tst.ustackdepth_big.sh +++ b/test/unittest/variables/bvar/tst.ustackdepth_big.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, 2025, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -35,7 +35,7 @@ function do_dtrace() { # run dtrace $dtrace $dt_flags -c $TRIGGER -qn ' - profile-1 + profile:::profile-1 /pid == $target/ { printf("DEPTH %d\n", ustackdepth); @@ -44,7 +44,7 @@ function do_dtrace() { printf("TRACE END\n"); exit(0); } - ERROR + dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.ustackdepth_small.d b/test/unittest/variables/bvar/tst.ustackdepth_small.d index 22f977c1..a66cea0d 100644 --- a/test/unittest/variables/bvar/tst.ustackdepth_small.d +++ b/test/unittest/variables/bvar/tst.ustackdepth_small.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,14 +16,14 @@ * SECTION: Variables/Built-in Variables */ -profile-1 +profile:::profile-1 /pid == $target/ { printf("DEPTH %d\n", ustackdepth); exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.vtimestamp.d b/test/unittest/variables/bvar/tst.vtimestamp.d index c58e6073..11da97fd 100644 --- a/test/unittest/variables/bvar/tst.vtimestamp.d +++ b/test/unittest/variables/bvar/tst.vtimestamp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,11 +14,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(vtimestamp); exit(vtimestamp != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.walltimestamp.d b/test/unittest/variables/bvar/tst.walltimestamp.d index 95eed54a..03a056ad 100644 --- a/test/unittest/variables/bvar/tst.walltimestamp.d +++ b/test/unittest/variables/bvar/tst.walltimestamp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -13,11 +13,11 @@ #pragma D option quiet -BEGIN { +dtrace:::BEGIN { trace(walltimestamp); exit(walltimestamp != -1 ? 0 : 1); } -ERROR { +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/bvar/tst.walltimestamp2.d b/test/unittest/variables/bvar/tst.walltimestamp2.d index 98f142d9..1f235cf5 100644 --- a/test/unittest/variables/bvar/tst.walltimestamp2.d +++ b/test/unittest/variables/bvar/tst.walltimestamp2.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -8,7 +8,7 @@ #pragma D option quiet #pragma D option destructive -BEGIN { +dtrace:::BEGIN { /* baseline time stamp from system("date") */ system("date +'%%s.%%N'"); diff --git a/test/unittest/variables/gvar/tst.alignment-array.sh b/test/unittest/variables/gvar/tst.alignment-array.sh index a74666d1..fc9e48fb 100755 --- a/test/unittest/variables/gvar/tst.alignment-array.sh +++ b/test/unittest/variables/gvar/tst.alignment-array.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,7 +21,7 @@ $dtrace $dt_flags -Sen ' char dummy; short var[5]; -BEGIN +dtrace:::BEGIN { var[3] = 0x1234; exit(0); diff --git a/test/unittest/variables/gvar/tst.alignment-char.sh b/test/unittest/variables/gvar/tst.alignment-char.sh index e3d52bef..d1d643bc 100755 --- a/test/unittest/variables/gvar/tst.alignment-char.sh +++ b/test/unittest/variables/gvar/tst.alignment-char.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' char dummy; char var; -BEGIN +dtrace:::BEGIN { var = 0x12; exit(0); diff --git a/test/unittest/variables/gvar/tst.alignment-int.sh b/test/unittest/variables/gvar/tst.alignment-int.sh index c07ee504..37766d38 100755 --- a/test/unittest/variables/gvar/tst.alignment-int.sh +++ b/test/unittest/variables/gvar/tst.alignment-int.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' char dummy; int var; -BEGIN +dtrace:::BEGIN { var = 0x12345678; exit(0); diff --git a/test/unittest/variables/gvar/tst.alignment-long.sh b/test/unittest/variables/gvar/tst.alignment-long.sh index 262f26b4..5456303b 100755 --- a/test/unittest/variables/gvar/tst.alignment-long.sh +++ b/test/unittest/variables/gvar/tst.alignment-long.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' char dummy; long var; -BEGIN +dtrace:::BEGIN { var = 0x1234567887654321ull; exit(0); diff --git a/test/unittest/variables/gvar/tst.alignment-ptr.sh b/test/unittest/variables/gvar/tst.alignment-ptr.sh index b2bf9503..1c3d18b3 100755 --- a/test/unittest/variables/gvar/tst.alignment-ptr.sh +++ b/test/unittest/variables/gvar/tst.alignment-ptr.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' char dummy; char *var; -BEGIN +dtrace:::BEGIN { var = 0; exit(0); diff --git a/test/unittest/variables/gvar/tst.alignment-short.sh b/test/unittest/variables/gvar/tst.alignment-short.sh index 9453556b..75d8013a 100755 --- a/test/unittest/variables/gvar/tst.alignment-short.sh +++ b/test/unittest/variables/gvar/tst.alignment-short.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' char dummy; short var; -BEGIN +dtrace:::BEGIN { var = 0x1234; exit(0); diff --git a/test/unittest/variables/gvar/tst.alignment-struct-2.sh b/test/unittest/variables/gvar/tst.alignment-struct-2.sh index db285ab3..46365b94 100755 --- a/test/unittest/variables/gvar/tst.alignment-struct-2.sh +++ b/test/unittest/variables/gvar/tst.alignment-struct-2.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,7 +21,7 @@ $dtrace $dt_flags -Sen ' char dummy; struct { int u; long v; short w; } var; -BEGIN +dtrace:::BEGIN { var.w = 0x1234; exit(0); diff --git a/test/unittest/variables/gvar/tst.alignment-struct.sh b/test/unittest/variables/gvar/tst.alignment-struct.sh index 2dab1bf7..11235c50 100755 --- a/test/unittest/variables/gvar/tst.alignment-struct.sh +++ b/test/unittest/variables/gvar/tst.alignment-struct.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,7 +21,7 @@ $dtrace $dt_flags -Sen ' char dummy; struct { short u, v; } var; -BEGIN +dtrace:::BEGIN { var.u = 0x1234; exit(0); diff --git a/test/unittest/variables/gvar/tst.store-char.d b/test/unittest/variables/gvar/tst.store-char.d index 0349e8a5..d53b81bc 100644 --- a/test/unittest/variables/gvar/tst.store-char.d +++ b/test/unittest/variables/gvar/tst.store-char.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ char a, b; -BEGIN +dtrace:::BEGIN { b = 4; a = 5; diff --git a/test/unittest/variables/gvar/tst.str-size.d b/test/unittest/variables/gvar/tst.str-size.d index 7fc77518..3b1a6962 100644 --- a/test/unittest/variables/gvar/tst.str-size.d +++ b/test/unittest/variables/gvar/tst.str-size.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option strsize=5 -BEGIN +dtrace:::BEGIN { x = "abcd"; y = "abcd"; @@ -22,13 +22,13 @@ BEGIN exit(0); } -END { +dtrace:::END { trace(x); trace(y); trace(z); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/gvar/tst.undecl-offset.sh b/test/unittest/variables/gvar/tst.undecl-offset.sh index 81c43454..95a4b3c2 100755 --- a/test/unittest/variables/gvar/tst.undecl-offset.sh +++ b/test/unittest/variables/gvar/tst.undecl-offset.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -18,7 +18,7 @@ dtrace=$1 $dtrace $dt_flags -Sen ' -BEGIN +dtrace:::BEGIN { a = ""; b = a; diff --git a/test/unittest/variables/inline/tst.procfs-cwd.d b/test/unittest/variables/inline/tst.procfs-cwd.d index c8760f67..7cc0cbf7 100644 --- a/test/unittest/variables/inline/tst.procfs-cwd.d +++ b/test/unittest/variables/inline/tst.procfs-cwd.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,18 +11,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(cwd); } -BEGIN +dtrace:::BEGIN /cwd == ""/ { exit(0); } -BEGIN, -ERROR { +dtrace:::BEGIN, +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/inline/tst.procfs-root.d b/test/unittest/variables/inline/tst.procfs-root.d index 276731c2..2e9e127a 100644 --- a/test/unittest/variables/inline/tst.procfs-root.d +++ b/test/unittest/variables/inline/tst.procfs-root.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,18 +11,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(root); } -BEGIN +dtrace:::BEGIN /root == ""/ { exit(0); } -BEGIN, -ERROR { +dtrace:::BEGIN, +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/inline/tst.sched-chip.d b/test/unittest/variables/inline/tst.sched-chip.d index c1c31414..bd5400dd 100644 --- a/test/unittest/variables/inline/tst.sched-chip.d +++ b/test/unittest/variables/inline/tst.sched-chip.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,18 +11,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(chip); } -BEGIN +dtrace:::BEGIN /chip == curcpu->cpu_chip/ { exit(0); } -BEGIN, -ERROR { +dtrace:::BEGIN, +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/inline/tst.sched-cpu.d b/test/unittest/variables/inline/tst.sched-cpu.d index 542cad7a..8154b4e2 100644 --- a/test/unittest/variables/inline/tst.sched-cpu.d +++ b/test/unittest/variables/inline/tst.sched-cpu.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,18 +11,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(cpu); } -BEGIN +dtrace:::BEGIN /cpu == curcpu->cpu_id/ { exit(0); } -BEGIN, -ERROR { +dtrace:::BEGIN, +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/inline/tst.sched-lgrp.d b/test/unittest/variables/inline/tst.sched-lgrp.d index 0ddf2018..2befe024 100644 --- a/test/unittest/variables/inline/tst.sched-lgrp.d +++ b/test/unittest/variables/inline/tst.sched-lgrp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,18 +11,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(lgrp); } -BEGIN +dtrace:::BEGIN /lgrp == curcpu->cpu_lgrp/ { exit(0); } -BEGIN, -ERROR { +dtrace:::BEGIN, +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/inline/tst.sched-pset.d b/test/unittest/variables/inline/tst.sched-pset.d index a7c946bc..1b0f0820 100644 --- a/test/unittest/variables/inline/tst.sched-pset.d +++ b/test/unittest/variables/inline/tst.sched-pset.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2025, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -11,18 +11,18 @@ #pragma D option quiet -BEGIN +dtrace:::BEGIN { trace(pset); } -BEGIN +dtrace:::BEGIN /pset == curcpu->cpu_pset/ { exit(0); } -BEGIN, -ERROR { +dtrace:::BEGIN, +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/lvar/err.D_OP_INCOMPAT.default_int.d b/test/unittest/variables/lvar/err.D_OP_INCOMPAT.default_int.d index 81dc0720..0573814c 100644 --- a/test/unittest/variables/lvar/err.D_OP_INCOMPAT.default_int.d +++ b/test/unittest/variables/lvar/err.D_OP_INCOMPAT.default_int.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ this x; -BEGIN +dtrace:::BEGIN { this->x = execname; exit(0); diff --git a/test/unittest/variables/lvar/tst.alignment-array.sh b/test/unittest/variables/lvar/tst.alignment-array.sh index 4b5b4351..d3be3942 100755 --- a/test/unittest/variables/lvar/tst.alignment-array.sh +++ b/test/unittest/variables/lvar/tst.alignment-array.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,7 +21,7 @@ $dtrace $dt_flags -Sen ' this char dummy; this short var[5]; -BEGIN +dtrace:::BEGIN { this->var[3] = 0x1234; exit(0); diff --git a/test/unittest/variables/lvar/tst.alignment-char.sh b/test/unittest/variables/lvar/tst.alignment-char.sh index 0e8e8ca0..f5adc3ac 100755 --- a/test/unittest/variables/lvar/tst.alignment-char.sh +++ b/test/unittest/variables/lvar/tst.alignment-char.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' this char dummy; this char var; -BEGIN +dtrace:::BEGIN { this->var = 0x12; exit(0); diff --git a/test/unittest/variables/lvar/tst.alignment-int.sh b/test/unittest/variables/lvar/tst.alignment-int.sh index 06800d65..4388dee1 100755 --- a/test/unittest/variables/lvar/tst.alignment-int.sh +++ b/test/unittest/variables/lvar/tst.alignment-int.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' this char dummy; this int var; -BEGIN +dtrace:::BEGIN { this->var = 0x12345678; exit(0); diff --git a/test/unittest/variables/lvar/tst.alignment-long.sh b/test/unittest/variables/lvar/tst.alignment-long.sh index 6415a079..f6896f2e 100755 --- a/test/unittest/variables/lvar/tst.alignment-long.sh +++ b/test/unittest/variables/lvar/tst.alignment-long.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' this char dummy; this long var; -BEGIN +dtrace:::BEGIN { this->var = 0x1234567887654321ull; exit(0); diff --git a/test/unittest/variables/lvar/tst.alignment-ptr.sh b/test/unittest/variables/lvar/tst.alignment-ptr.sh index 3f196e75..907556fa 100755 --- a/test/unittest/variables/lvar/tst.alignment-ptr.sh +++ b/test/unittest/variables/lvar/tst.alignment-ptr.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' this char dummy; this char *var; -BEGIN +dtrace:::BEGIN { this->var = 0; exit(0); diff --git a/test/unittest/variables/lvar/tst.alignment-short.sh b/test/unittest/variables/lvar/tst.alignment-short.sh index db7f9afb..77f301ab 100755 --- a/test/unittest/variables/lvar/tst.alignment-short.sh +++ b/test/unittest/variables/lvar/tst.alignment-short.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' this char dummy; this short var; -BEGIN +dtrace:::BEGIN { this->var = 0x1234; exit(0); diff --git a/test/unittest/variables/lvar/tst.alignment-struct-2.sh b/test/unittest/variables/lvar/tst.alignment-struct-2.sh index f7a2b194..a6f21a01 100755 --- a/test/unittest/variables/lvar/tst.alignment-struct-2.sh +++ b/test/unittest/variables/lvar/tst.alignment-struct-2.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,7 +21,7 @@ $dtrace $dt_flags -Sen ' this char dummy; this struct { int u; long v; short w; } var; -BEGIN +dtrace:::BEGIN { this->var.w = 0x1234; exit(0); diff --git a/test/unittest/variables/lvar/tst.alignment-struct.sh b/test/unittest/variables/lvar/tst.alignment-struct.sh index ae072fba..217773f3 100755 --- a/test/unittest/variables/lvar/tst.alignment-struct.sh +++ b/test/unittest/variables/lvar/tst.alignment-struct.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -21,7 +21,7 @@ $dtrace $dt_flags -Sen ' this char dummy; this struct { short u, v; } var; -BEGIN +dtrace:::BEGIN { this->var.u = 0x1234; exit(0); diff --git a/test/unittest/variables/lvar/tst.default_int.d b/test/unittest/variables/lvar/tst.default_int.d index d616721a..a298d2f4 100644 --- a/test/unittest/variables/lvar/tst.default_int.d +++ b/test/unittest/variables/lvar/tst.default_int.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ this x; -BEGIN +dtrace:::BEGIN { x = 1; exit(0); diff --git a/test/unittest/variables/lvar/tst.init.d b/test/unittest/variables/lvar/tst.init.d index f3db5205..a0bbb8ef 100644 --- a/test/unittest/variables/lvar/tst.init.d +++ b/test/unittest/variables/lvar/tst.init.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ this int x; -BEGIN +dtrace:::BEGIN { exit(this->x); } diff --git a/test/unittest/variables/lvar/tst.load_before_store.d b/test/unittest/variables/lvar/tst.load_before_store.d index 98cdf120..4d630ecd 100644 --- a/test/unittest/variables/lvar/tst.load_before_store.d +++ b/test/unittest/variables/lvar/tst.load_before_store.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Variables/Clause-Local Variables */ -BEGIN +dtrace:::BEGIN { ++this->x; exit(0); diff --git a/test/unittest/variables/lvar/tst.post_inc_lvar.d b/test/unittest/variables/lvar/tst.post_inc_lvar.d index 5779f489..a9484a32 100644 --- a/test/unittest/variables/lvar/tst.post_inc_lvar.d +++ b/test/unittest/variables/lvar/tst.post_inc_lvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Variables/Clause-Local Variables */ -BEGIN +dtrace:::BEGIN { trace(this->x++); exit(0); diff --git a/test/unittest/variables/lvar/tst.pre_inc_lvar.d b/test/unittest/variables/lvar/tst.pre_inc_lvar.d index 8c25baf1..7838920d 100644 --- a/test/unittest/variables/lvar/tst.pre_inc_lvar.d +++ b/test/unittest/variables/lvar/tst.pre_inc_lvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2020, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Variables/Clause-Local Variables */ -BEGIN +dtrace:::BEGIN { trace(++this->x); exit(0); diff --git a/test/unittest/variables/lvar/tst.store-char.d b/test/unittest/variables/lvar/tst.store-char.d index 741b93cb..bacde5ba 100644 --- a/test/unittest/variables/lvar/tst.store-char.d +++ b/test/unittest/variables/lvar/tst.store-char.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ this char a, b; -BEGIN +dtrace:::BEGIN { this->b = 4; this->a = 5; diff --git a/test/unittest/variables/lvar/tst.str-size.d b/test/unittest/variables/lvar/tst.str-size.d index 58a6fb3f..699203e9 100644 --- a/test/unittest/variables/lvar/tst.str-size.d +++ b/test/unittest/variables/lvar/tst.str-size.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option strsize=5 -BEGIN +dtrace:::BEGIN { this->x = "abcd"; this->y = "abcd"; @@ -25,7 +25,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/lvar/tst.struct.d b/test/unittest/variables/lvar/tst.struct.d index c9530caf..d8a684a2 100644 --- a/test/unittest/variables/lvar/tst.struct.d +++ b/test/unittest/variables/lvar/tst.struct.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ struct foo { }; this struct foo x; -BEGIN +dtrace:::BEGIN { this->x.a = 1; this->x.b = 5; diff --git a/test/unittest/variables/tvar/err.D_OP_INCOMPAT.default_int.d b/test/unittest/variables/tvar/err.D_OP_INCOMPAT.default_int.d index 8e8e5931..afa56417 100644 --- a/test/unittest/variables/tvar/err.D_OP_INCOMPAT.default_int.d +++ b/test/unittest/variables/tvar/err.D_OP_INCOMPAT.default_int.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ self x; -BEGIN +dtrace:::BEGIN { self->x = execname; exit(0); diff --git a/test/unittest/variables/tvar/err.limited_space.d b/test/unittest/variables/tvar/err.limited_space.d index f8fd0378..aae6a9a5 100644 --- a/test/unittest/variables/tvar/err.limited_space.d +++ b/test/unittest/variables/tvar/err.limited_space.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option dynvarsize=15 -BEGIN +dtrace:::BEGIN { self->a = 1; self->b = 2; @@ -23,12 +23,12 @@ BEGIN self->d = 4; } -BEGIN +dtrace:::BEGIN { exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/tvar/tst.alignment-array.sh b/test/unittest/variables/tvar/tst.alignment-array.sh index 6a25087f..196a5aed 100755 --- a/test/unittest/variables/tvar/tst.alignment-array.sh +++ b/test/unittest/variables/tvar/tst.alignment-array.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' self char dummy; self short var[5]; -BEGIN +dtrace:::BEGIN { self->var[3] = 0x1234; exit(0); diff --git a/test/unittest/variables/tvar/tst.alignment-char.sh b/test/unittest/variables/tvar/tst.alignment-char.sh index f7060ba0..22f6d3aa 100755 --- a/test/unittest/variables/tvar/tst.alignment-char.sh +++ b/test/unittest/variables/tvar/tst.alignment-char.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' self char dummy; self char var; -BEGIN +dtrace:::BEGIN { self->var = 0x12; exit(0); diff --git a/test/unittest/variables/tvar/tst.alignment-int.sh b/test/unittest/variables/tvar/tst.alignment-int.sh index ec6db159..40af9dc1 100755 --- a/test/unittest/variables/tvar/tst.alignment-int.sh +++ b/test/unittest/variables/tvar/tst.alignment-int.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' self char dummy; self int var; -BEGIN +dtrace:::BEGIN { self->var = 0x12345678; exit(0); diff --git a/test/unittest/variables/tvar/tst.alignment-long.sh b/test/unittest/variables/tvar/tst.alignment-long.sh index 9072b89f..0c0bcffc 100755 --- a/test/unittest/variables/tvar/tst.alignment-long.sh +++ b/test/unittest/variables/tvar/tst.alignment-long.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' self char dummy; self long var; -BEGIN +dtrace:::BEGIN { self->var = 0x1234567887654321ull; exit(0); diff --git a/test/unittest/variables/tvar/tst.alignment-ptr.sh b/test/unittest/variables/tvar/tst.alignment-ptr.sh index 3b11bda4..e7915467 100755 --- a/test/unittest/variables/tvar/tst.alignment-ptr.sh +++ b/test/unittest/variables/tvar/tst.alignment-ptr.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' self char dummy; self char *var; -BEGIN +dtrace:::BEGIN { self->var = 0; exit(0); diff --git a/test/unittest/variables/tvar/tst.alignment-short.sh b/test/unittest/variables/tvar/tst.alignment-short.sh index c71cece3..a271b6b7 100755 --- a/test/unittest/variables/tvar/tst.alignment-short.sh +++ b/test/unittest/variables/tvar/tst.alignment-short.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' self char dummy; self short var; -BEGIN +dtrace:::BEGIN { self->var = 0x1234; exit(0); diff --git a/test/unittest/variables/tvar/tst.alignment-struct-2.sh b/test/unittest/variables/tvar/tst.alignment-struct-2.sh index 9b518608..46a9c7e2 100755 --- a/test/unittest/variables/tvar/tst.alignment-struct-2.sh +++ b/test/unittest/variables/tvar/tst.alignment-struct-2.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' self char dummy; self struct { int u; long v; short w; } var; -BEGIN +dtrace:::BEGIN { self->var.w = 0x1234; exit(0); diff --git a/test/unittest/variables/tvar/tst.alignment-struct.sh b/test/unittest/variables/tvar/tst.alignment-struct.sh index e6907548..b651487d 100755 --- a/test/unittest/variables/tvar/tst.alignment-struct.sh +++ b/test/unittest/variables/tvar/tst.alignment-struct.sh @@ -1,7 +1,7 @@ #!/bin/bash # # Oracle Linux DTrace. -# Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. # Licensed under the Universal Permissive License v 1.0 as shown at # http://oss.oracle.com/licenses/upl. # @@ -20,7 +20,7 @@ $dtrace $dt_flags -Sen ' self char dummy; self struct { short u, v; } var; -BEGIN +dtrace:::BEGIN { self->var.u = 0x1234; exit(0); diff --git a/test/unittest/variables/tvar/tst.default_int.d b/test/unittest/variables/tvar/tst.default_int.d index 692f391a..2841d39f 100644 --- a/test/unittest/variables/tvar/tst.default_int.d +++ b/test/unittest/variables/tvar/tst.default_int.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ self x; -BEGIN +dtrace:::BEGIN { x = 1; exit(0); diff --git a/test/unittest/variables/tvar/tst.init-str.d b/test/unittest/variables/tvar/tst.init-str.d index 47d3eab6..3cac1bb0 100644 --- a/test/unittest/variables/tvar/tst.init-str.d +++ b/test/unittest/variables/tvar/tst.init-str.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2022, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,13 +16,13 @@ self string x; -BEGIN +dtrace:::BEGIN { trace(self->x); exit(1); } -ERROR +dtrace:::ERROR { exit(arg4 != 1 || arg5 != 0); } diff --git a/test/unittest/variables/tvar/tst.init.d b/test/unittest/variables/tvar/tst.init.d index 3e31744d..fe4eb166 100644 --- a/test/unittest/variables/tvar/tst.init.d +++ b/test/unittest/variables/tvar/tst.init.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -16,7 +16,7 @@ self int x; -BEGIN +dtrace:::BEGIN { exit(self->x); } diff --git a/test/unittest/variables/tvar/tst.load_before_store.d b/test/unittest/variables/tvar/tst.load_before_store.d index 68adbcfc..1487f87c 100644 --- a/test/unittest/variables/tvar/tst.load_before_store.d +++ b/test/unittest/variables/tvar/tst.load_before_store.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Variables/Thread-Local Variables */ -BEGIN +dtrace:::BEGIN { ++self->x; exit(0); diff --git a/test/unittest/variables/tvar/tst.load_no_alloc.d b/test/unittest/variables/tvar/tst.load_no_alloc.d index e0cac6a8..5e027c4c 100644 --- a/test/unittest/variables/tvar/tst.load_no_alloc.d +++ b/test/unittest/variables/tvar/tst.load_no_alloc.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ self x, y, z, w; -BEGIN +dtrace:::BEGIN { trace(self->x); trace(self->y); @@ -27,7 +27,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/tvar/tst.post_inc_lvar.d b/test/unittest/variables/tvar/tst.post_inc_lvar.d index 9b901075..4ca9b89e 100644 --- a/test/unittest/variables/tvar/tst.post_inc_lvar.d +++ b/test/unittest/variables/tvar/tst.post_inc_lvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Variables/Thread-Local Variables */ -BEGIN +dtrace:::BEGIN { trace(self->x++); exit(0); diff --git a/test/unittest/variables/tvar/tst.pre_inc_lvar.d b/test/unittest/variables/tvar/tst.pre_inc_lvar.d index 0dbbf7f5..992f9899 100644 --- a/test/unittest/variables/tvar/tst.pre_inc_lvar.d +++ b/test/unittest/variables/tvar/tst.pre_inc_lvar.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -12,7 +12,7 @@ * SECTION: Variables/Thread-Local Variables */ -BEGIN +dtrace:::BEGIN { trace(++self->x); exit(0); diff --git a/test/unittest/variables/tvar/tst.store-char.d b/test/unittest/variables/tvar/tst.store-char.d index 64c97f7d..ce449140 100644 --- a/test/unittest/variables/tvar/tst.store-char.d +++ b/test/unittest/variables/tvar/tst.store-char.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -17,7 +17,7 @@ self char a, b; -BEGIN +dtrace:::BEGIN { self->b = 4; self->a = 5; diff --git a/test/unittest/variables/tvar/tst.store_zero_deletes.d b/test/unittest/variables/tvar/tst.store_zero_deletes.d index 42aa70d5..ccde7c61 100644 --- a/test/unittest/variables/tvar/tst.store_zero_deletes.d +++ b/test/unittest/variables/tvar/tst.store_zero_deletes.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -15,7 +15,7 @@ #pragma D option quiet #pragma D option dynvarsize=15 -BEGIN +dtrace:::BEGIN { self->a = 1; self->b = 2; @@ -29,7 +29,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/tvar/tst.store_zero_deletes_struct.d b/test/unittest/variables/tvar/tst.store_zero_deletes_struct.d index 6f8fa5ca..b08d858a 100644 --- a/test/unittest/variables/tvar/tst.store_zero_deletes_struct.d +++ b/test/unittest/variables/tvar/tst.store_zero_deletes_struct.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ this struct { int a; } val; -BEGIN +dtrace:::BEGIN { this->val.a = 1; self->a = this->val; @@ -36,7 +36,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/tvar/tst.store_zero_deletes_union.d b/test/unittest/variables/tvar/tst.store_zero_deletes_union.d index 43bdd916..f34e48be 100644 --- a/test/unittest/variables/tvar/tst.store_zero_deletes_union.d +++ b/test/unittest/variables/tvar/tst.store_zero_deletes_union.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2024, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2024, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -19,7 +19,7 @@ this union { int a; } val; -BEGIN +dtrace:::BEGIN { this->val.a = 1; self->a = this->val; @@ -36,7 +36,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/tvar/tst.store_zero_nop.d b/test/unittest/variables/tvar/tst.store_zero_nop.d index 976bf082..77266f7a 100644 --- a/test/unittest/variables/tvar/tst.store_zero_nop.d +++ b/test/unittest/variables/tvar/tst.store_zero_nop.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option dynvarsize=5 -BEGIN +dtrace:::BEGIN { self->a = 1; self->b = 0; @@ -27,7 +27,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/tvar/tst.str-size.d b/test/unittest/variables/tvar/tst.str-size.d index bd8aac13..bf0c547d 100644 --- a/test/unittest/variables/tvar/tst.str-size.d +++ b/test/unittest/variables/tvar/tst.str-size.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,7 +14,7 @@ #pragma D option quiet #pragma D option strsize=5 -BEGIN +dtrace:::BEGIN { self->x = "abcd"; self->y = "abcd"; @@ -25,7 +25,7 @@ BEGIN exit(0); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/variables/tvar/tst.struct.d b/test/unittest/variables/tvar/tst.struct.d index 3b7586fa..a44d4a83 100644 --- a/test/unittest/variables/tvar/tst.struct.d +++ b/test/unittest/variables/tvar/tst.struct.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2021, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -14,14 +14,14 @@ self struct task_struct tsk; -BEGIN +dtrace:::BEGIN { self->tsk = *curthread; exit(self->tsk.pid == pid ? 0 : 1); } -ERROR +dtrace:::ERROR { exit(1); } diff --git a/test/unittest/vars/tst.gid.d b/test/unittest/vars/tst.gid.d index 3f7afe7d..5ff2b66f 100644 --- a/test/unittest/vars/tst.gid.d +++ b/test/unittest/vars/tst.gid.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2022, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN /curpsinfo->pr_gid == gid/ { exit(0); } -BEGIN +dtrace:::BEGIN { printf("%d != %d\n", curpsinfo->pr_gid, gid); exit(1); diff --git a/test/unittest/vars/tst.nullassign.d b/test/unittest/vars/tst.nullassign.d index 44ccc30e..0da48b59 100644 --- a/test/unittest/vars/tst.nullassign.d +++ b/test/unittest/vars/tst.nullassign.d @@ -1,45 +1,45 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2023, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN { lv = "Live"; dt = ", DTrace, "; ps = "Prosper"; } -BEGIN +dtrace:::BEGIN { phrase = strjoin(lv, dt); phrase = strjoin(phrase, lv); expected = "Live, DTrace, Live"; } -BEGIN +dtrace:::BEGIN /phrase != expected/ { printf("global: expected '%s', found '%s'\n", expected, phrase); exit(1); } -BEGIN +dtrace:::BEGIN { this->phrase = strjoin(ps, dt); } -BEGIN +dtrace:::BEGIN { this->phrase = strjoin(this->phrase, ps); expected = "Prosper, DTrace, Prosper"; } -BEGIN +dtrace:::BEGIN /this->phrase != expected/ { printf("clause-local: expected '%s', found '%s'\n", @@ -47,27 +47,27 @@ BEGIN exit(2); } -BEGIN +dtrace:::BEGIN { phrase = NULL; this->phrase = NULL; } -BEGIN +dtrace:::BEGIN /phrase != NULL/ { printf("expected global to be NULL\n"); exit(3); } -BEGIN +dtrace:::BEGIN /this->phrase != NULL/ { printf("expected clause-local to be NULL\n"); exit(4); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/unittest/vars/tst.ppid.d b/test/unittest/vars/tst.ppid.d index bb76b63c..dc8190e2 100644 --- a/test/unittest/vars/tst.ppid.d +++ b/test/unittest/vars/tst.ppid.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN /curpsinfo->pr_ppid == ppid/ { exit(0); } -BEGIN +dtrace:::BEGIN { printf("%d != %d\n", curpsinfo->pr_ppid, ppid); exit(1); diff --git a/test/unittest/vars/tst.uid.d b/test/unittest/vars/tst.uid.d index 081f686c..adf17fa8 100644 --- a/test/unittest/vars/tst.uid.d +++ b/test/unittest/vars/tst.uid.d @@ -1,19 +1,19 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ #pragma D option quiet -BEGIN +dtrace:::BEGIN /curpsinfo->pr_uid == uid/ { exit(0); } -BEGIN +dtrace:::BEGIN { printf("%d != %d\n", curpsinfo->pr_uid, uid); exit(1); diff --git a/test/unittest/vars/tst.walltimestamp.d b/test/unittest/vars/tst.walltimestamp.d index 48ba030f..7c401bd9 100644 --- a/test/unittest/vars/tst.walltimestamp.d +++ b/test/unittest/vars/tst.walltimestamp.d @@ -1,6 +1,6 @@ /* * Oracle Linux DTrace. - * Copyright (c) 2006, 2020, Oracle and/or its affiliates. All rights reserved. + * Copyright (c) 2006, 2026, Oracle and/or its affiliates. All rights reserved. * Licensed under the Universal Permissive License v 1.0 as shown at * http://oss.oracle.com/licenses/upl. */ @@ -9,26 +9,26 @@ uint64_t now; -BEGIN +dtrace:::BEGIN { now = 18252813184; /* Jan 1, 2004 00:00:00 */ } -BEGIN +dtrace:::BEGIN /walltimestamp < timestamp/ { printf("%d < %d", walltimestamp, timestamp); exit(1); } -BEGIN +dtrace:::BEGIN /walltimestamp < now/ { printf("%d (%Y) is before %Y", walltimestamp, walltimestamp, now); exit(2); } -BEGIN +dtrace:::BEGIN { exit(0); } diff --git a/test/utils/stack_skip_test.sh b/test/utils/stack_skip_test.sh index 8ebfd29f..bfab6fb1 100755 --- a/test/utils/stack_skip_test.sh +++ b/test/utils/stack_skip_test.sh @@ -22,7 +22,7 @@ fbt::hrtimer_nanosleep:entry exit(0); } -ERROR +dtrace:::ERROR { exit(1); }' | grep -q 0xffff -- 2.52.0