paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for ConvUtils.CompatibleConversionTypes by Bart, resolves bug #39775

Browse Source 
(cherry picked from commit 330b0b1157)
This commit is contained in:
marcoonthegit 2022-06-10 10:41:54 +02:00
parent 3faa984635
commit 745a48ac44
1 changed files with 3 additions and 1 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

@ -333,7 +333,9 @@ end;
function CompatibleConversionTypes(const AFrom, ATo: TConvType): Boolean; function CompatibleConversionTypes(const AFrom, ATo: TConvType): Boolean;
begin begin
result:=ConvTypeToFamily(AFrom)=ConvTypeToFamily(ATo); //ConvTypeToFamily returns TConvFamily(0) if the TConvType is not registerd, but 0 is a valid value for a TConvFamily
result:= (AFrom<length(TheUnits)) and (ATo<length(TheUnits)) and
(ConvTypeToFamily(AFrom)=ConvTypeToFamily(ATo));
end; end;
Function RegisterConversionFamily(Const S:String):TConvFamily; Function RegisterConversionFamily(Const S:String):TConvFamily;