From patchwork Mon Aug 17 18:39:50 2020 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: =?utf-8?b?RWR3aW4gVMO2csO2aw==?= X-Patchwork-Id: 11719085 Return-Path: Received: from mail.kernel.org (pdx-korg-mail-1.web.codeaurora.org [172.30.200.123]) by pdx-korg-patchwork-2.web.codeaurora.org (Postfix) with ESMTP id 5652F109B for ; Mon, 17 Aug 2020 18:42:03 +0000 (UTC) Received: from lists.xenproject.org (lists.xenproject.org [192.237.175.120]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mail.kernel.org (Postfix) with ESMTPS id 30AA1204EC for ; Mon, 17 Aug 2020 18:42:03 +0000 (UTC) Authentication-Results: mail.kernel.org; dkim=fail reason="signature verification failed" (1024-bit key) header.d=citrix.com header.i=@citrix.com header.b="h5vowcE3" DMARC-Filter: OpenDMARC Filter v1.3.2 mail.kernel.org 30AA1204EC Authentication-Results: mail.kernel.org; dmarc=fail (p=reject dis=none) header.from=citrix.com Authentication-Results: mail.kernel.org; spf=pass smtp.mailfrom=xen-devel-bounces@lists.xenproject.org Received: from localhost ([127.0.0.1] helo=lists.xenproject.org) by lists.xenproject.org with esmtp (Exim 4.92) (envelope-from ) id 1k7k3l-0006Ou-MS; Mon, 17 Aug 2020 18:40:41 +0000 Received: from all-amaz-eas1.inumbo.com ([34.197.232.57] helo=us1-amaz-eas2.inumbo.com) by lists.xenproject.org with esmtp (Exim 4.92) (envelope-from ) id 1k7k3k-0006K5-KR for xen-devel@lists.xenproject.org; Mon, 17 Aug 2020 18:40:40 +0000 X-Inumbo-ID: fcc229d5-ca6f-41e9-84e3-c5de8102445d Received: from esa5.hc3370-68.iphmx.com (unknown [216.71.155.168]) by us1-amaz-eas2.inumbo.com (Halon) with ESMTPS id fcc229d5-ca6f-41e9-84e3-c5de8102445d; Mon, 17 Aug 2020 18:40:31 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=citrix.com; s=securemail; t=1597689631; h=from:to:cc:subject:date:message-id:in-reply-to: references:mime-version:content-transfer-encoding; bh=YT4HghR0/mQiuB+0ZHbTT8P7/FFGJ4MPWIY1ryiFPUA=; b=h5vowcE3AmbbboBk0fw8JSuGG4cfvyjmQvx6wUzpEiJaTCfoQOBs+mpX F1YhOiEfWXka4Tykjq8mXoh0+ALKILMNvsJ2p3HHZqv41wmkVxWdchTJY SNk5QDUYp8KFO3rKM80jtFYxP6RVMfb1Z4i7TveU2LxosE7dO7HQOP+WL c=; Authentication-Results: esa5.hc3370-68.iphmx.com; dkim=none (message not signed) header.i=none IronPort-SDR: VDHxz6P3BjGSpSDtzFGRuqkP0gIMNM1QvMuADnRgT0xS5/FZHGlhxDURPyxgXOE+yfKZCD0oi9 7mC1CqoeuvuQ/NLxe2mjBsPlJ+COekzzi6khj4ADUo8k92XQ0lRWHLEBQp5lLP/eiz4W4wEyRu AJQFlRgsvMtmh2A7n32oTazJo0Vl/DmOQBbtmd6vSP9SNKyKH8bDFM+T48J+kAJRGK0o6Iabm7 kxxvHVMjT5J4sECPWDf1Gy3E4ThRo9Y+CVMPM65KPiqsRTbWP+v1d9K1Oz9/+hYPJCFgCM5b1e FJw= X-SBRS: 2.7 X-MesageID: 24867844 X-Ironport-Server: esa5.hc3370-68.iphmx.com X-Remote-IP: 162.221.158.21 X-Policy: $RELAYED X-IronPort-AV: E=Sophos;i="5.76,324,1592884800"; d="scan'208";a="24867844" From: =?utf-8?b?RWR3aW4gVMO2csO2aw==?= To: CC: =?utf-8?b?RWR3aW4gVMO2csO2aw==?= , "Christian Lindig" , David Scott , "Ian Jackson" , Wei Liu Subject: [PATCH v2 2/6] tools/ocaml/xenstored: fix deprecation warning Date: Mon, 17 Aug 2020 19:39:50 +0100 Message-ID: <334f84f96ccd4adbbb84b6c01b690c9118fbd613.1597689211.git.edvin.torok@citrix.com> X-Mailer: git-send-email 2.25.1 In-Reply-To: References: MIME-Version: 1.0 X-BeenThere: xen-devel@lists.xenproject.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Xen developer discussion List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Errors-To: xen-devel-bounces@lists.xenproject.org Sender: "Xen-devel" ``` File "xenstored/disk.ml", line 33, characters 9-23: 33 | let c = Char.lowercase c in ^^^^^^^^^^^^^^ (alert deprecated): Stdlib.Char.lowercase Use Char.lowercase_ascii instead. ``` Signed-off-by: Edwin Török --- tools/ocaml/xenstored/disk.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/ocaml/xenstored/disk.ml b/tools/ocaml/xenstored/disk.ml index 4739967b61..1ca0e2a95e 100644 --- a/tools/ocaml/xenstored/disk.ml +++ b/tools/ocaml/xenstored/disk.ml @@ -30,7 +30,7 @@ let undec c = | _ -> raise (Failure "undecify") let unhex c = - let c = Char.lowercase c in + let c = Char.lowercase_ascii c in match c with | '0' .. '9' -> (Char.code c) - (Char.code '0') | 'a' .. 'f' -> (Char.code c) - (Char.code 'a') + 10