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

* Fix from bart removing extra constants. Fix issue #39812

Browse Source 
(cherry picked from commit df8a3ab009)
This commit is contained in:
Michaël Van Canneyt 2022-06-25 17:15:52 +02:00 committed by marcoonthegit
parent 9b9ee443f7
commit 65c06cbc62
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,7 +140,7 @@ Implementation
uses uses
RtlConsts; RtlConsts;
const const
macheps=1E-9; macheps=1E-9;
zeroRes=1E-17; zeroRes=1E-17;
@ -465,10 +465,6 @@ begin
(ConvTypeToFamily(AFrom)=ConvTypeToFamily(ATo)); (ConvTypeToFamily(AFrom)=ConvTypeToFamily(ATo));
end; end;
Const
SConvTooManyConvFamilies = ' SConvTooManyConvFamilies %d';
SConvTooManyConvTypes = 'SConvTooManyConvTypes %d';
Function RegisterConversionFamily(Const S:String):TConvFamily; Function RegisterConversionFamily(Const S:String):TConvFamily;
var len : Longint; var len : Longint;