From 25986a6398dce63938f8165677f834d15877c7f6 Mon Sep 17 00:00:00 2001 From: marcoonthegit Date: Mon, 6 Jun 2022 17:28:31 +0200 Subject: [PATCH] * Fix not setting result in ConvUtils.RegisterConversionType mantis #39767 (cherry picked from commit 3751958a32e2446b410fb94e09fe136fce538fe8) --- packages/rtl-objpas/src/inc/convutil.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/rtl-objpas/src/inc/convutil.inc b/packages/rtl-objpas/src/inc/convutil.inc index 502ab35505..aebfede0fe 100644 --- a/packages/rtl-objpas/src/inc/convutil.inc +++ b/packages/rtl-objpas/src/inc/convutil.inc @@ -268,13 +268,13 @@ end; Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType; begin - InternalRegisterConversionType(Fam,S,Value,nil,nil); + result:=InternalRegisterConversionType(Fam,S,Value,nil,nil); end; function RegisterConversionType(Fam: TConvFamily; const S: String; const AToCommonFunc, AFromCommonFunc: TConversionProc): TConvType; begin - InternalRegisterConversionType(Fam,S,(AToCommonFunc(1)-AToCommonFunc(0)),AToCommonFunc,AFromCommonFunc); + result:=InternalRegisterConversionType(Fam,S,(AToCommonFunc(1)-AToCommonFunc(0)),AToCommonFunc,AFromCommonFunc); end; function SearchConvert(TheType:TConvType; var r:ResourceData):Boolean;