paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix not setting result in ConvUtils.RegisterConversionType mantis #39767

Browse Source 
(cherry picked from commit 3751958a32)
This commit is contained in:
marcoonthegit 2022-06-06 17:28:31 +02:00
parent bfd7cf82b0
commit 25986a6398
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/src/inc/convutil.inc
View File

@ -268,13 +268,13 @@ end;
Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType; Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
begin begin
InternalRegisterConversionType(Fam,S,Value,nil,nil); result:=InternalRegisterConversionType(Fam,S,Value,nil,nil);
end; end;
function RegisterConversionType(Fam: TConvFamily; const S: String; function RegisterConversionType(Fam: TConvFamily; const S: String;
const AToCommonFunc, AFromCommonFunc: TConversionProc): TConvType; const AToCommonFunc, AFromCommonFunc: TConversionProc): TConvType;
begin begin
InternalRegisterConversionType(Fam,S,(AToCommonFunc(1)-AToCommonFunc(0)),AToCommonFunc,AFromCommonFunc); result:=InternalRegisterConversionType(Fam,S,(AToCommonFunc(1)-AToCommonFunc(0)),AToCommonFunc,AFromCommonFunc);
end; end;
function SearchConvert(TheType:TConvType; var r:ResourceData):Boolean; function SearchConvert(TheType:TConvType; var r:ResourceData):Boolean;