From patchwork Fri Aug 14 22:11:42 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: 11715227 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 26CD214F6 for ; Fri, 14 Aug 2020 22:14:25 +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 02C5E20771 for ; Fri, 14 Aug 2020 22:14:25 +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="LHLwtQZL" DMARC-Filter: OpenDMARC Filter v1.3.2 mail.kernel.org 02C5E20771 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 1k6hwH-00089S-8X; Fri, 14 Aug 2020 22:12:41 +0000 Received: from us1-rack-iad1.inumbo.com ([172.99.69.81]) by lists.xenproject.org with esmtp (Exim 4.92) (envelope-from ) id 1k6hwG-000891-Ql for xen-devel@lists.xenproject.org; Fri, 14 Aug 2020 22:12:40 +0000 X-Inumbo-ID: edf2a22b-ff50-4a2b-995d-a1c07ad16467 Received: from esa1.hc3370-68.iphmx.com (unknown [216.71.145.142]) by us1-rack-iad1.inumbo.com (Halon) with ESMTPS id edf2a22b-ff50-4a2b-995d-a1c07ad16467; Fri, 14 Aug 2020 22:12:35 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=citrix.com; s=securemail; t=1597443157; h=from:to:cc:subject:date:message-id:in-reply-to: references:mime-version:content-transfer-encoding; bh=YT4HghR0/mQiuB+0ZHbTT8P7/FFGJ4MPWIY1ryiFPUA=; b=LHLwtQZLD17xQqjSbeBzxiZcSTcuuUWjOegjl7MuxhyjR7awPjWkhsaV fztKWKLoh0vyvZcG3s6uGvCdYQ2k9ci/Ey7uE3CUJlBvRyTYRavf6Bv/5 hZ8g2/MAo8nZcTRPvL3f15x9QyIaBWGj2Z6ODLJScmSZErmhrBgpUGS+h s=; Authentication-Results: esa1.hc3370-68.iphmx.com; dkim=none (message not signed) header.i=none IronPort-SDR: VRvqjG0Z9Mii4Qho8718sZXP81D4c5CkfE7hbkOyWgAzlSlmlT1PvrS9bXzuUa3RLdBPVilUmF XqSvTvYm0ejKdlYLNLlttH4vzu+WO/5uBcqARR1edle/G12D4uhks0WxHj0TV9OgZ6atM+7POY f/gufhcM35e8/OcAwkVpOrAaHcyIz9oAdfujTOTw3Rrs/RnG+0F90xRPAcUvKCHiNO9aJpjvhK tAVZXS7YN2nzVLmD6FnrPEIUQPwa7Z0t/OY3x2CVHVrzLkcbEYharJIyhclc5eJOXQPsfrAxE+ Q+k= X-SBRS: 2.7 X-MesageID: 24917746 X-Ironport-Server: esa1.hc3370-68.iphmx.com X-Remote-IP: 162.221.158.21 X-Policy: $RELAYED X-IronPort-AV: E=Sophos;i="5.76,313,1592884800"; d="scan'208";a="24917746" From: =?utf-8?b?RWR3aW4gVMO2csO2aw==?= To: CC: =?utf-8?b?RWR3aW4gVMO2csO2aw==?= , "Christian Lindig" , David Scott , "Ian Jackson" , Wei Liu Subject: [PATCH v1 2/6] tools/ocaml/xenstored: fix deprecation warning Date: Fri, 14 Aug 2020 23:11:42 +0100 Message-ID: X-Mailer: git-send-email 2.25.1 In-Reply-To: References: MIME-Version: 1.0 X-ClientProxiedBy: FTLPEX02CAS02.citrite.net (10.13.99.123) To AMSPEX02CL02.citrite.net (10.69.22.126) 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