From 47b350947f6d5b049885038d77d7bb539b00cb77 Mon Sep 17 00:00:00 2001 From: Mattias Gaertner Date: Thu, 26 Apr 2018 08:12:55 +0000 Subject: [PATCH] pas2js: added hexstr git-svn-id: trunk@38846 - --- utils/pas2js/dist/rtl.js | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/utils/pas2js/dist/rtl.js b/utils/pas2js/dist/rtl.js index 86d2cd0d8c..680718d3b5 100644 --- a/utils/pas2js/dist/rtl.js +++ b/utils/pas2js/dist/rtl.js @@ -73,6 +73,10 @@ var rtl = { return (rtl.isObject(type) && rtl.isPasClass(type.$class)); }, + hexStr: function(n,digits){ + return ("000000000000000"+n.toString(16).toUpperCase()).slice(-digits); + }, + m_loading: 0, m_loading_intf: 1, m_intf_loaded: 2, @@ -443,9 +447,7 @@ var rtl = { guidrToStr: function(g){ if (g.$intf) return g.$intf.$guid; - function h(n,digits){ - return ("0000000"+n.toString(16).toUpperCase()).slice(-digits); - } + var h = rtl.hexStr; var s='{'+h(g.D1,8)+'-'+h(g.D2,4)+'-'+h(g.D3,4)+'-'+h(g.D4[0],2)+h(g.D4[1],2)+'-'; for (var i=2; i<8; i++) s+=h(g.D4[i],2); s+='}';