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

* Move consts to stdconv

Browse Source 
git-svn-id: trunk@39994 -
This commit is contained in:
michael 2018-10-20 12:18:16 +00:00
parent 65433a005e
commit ab159c638c
2 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
packages/rtl-objpas/src/inc/stdconvs.pp
View File

@ -25,6 +25,39 @@ interface
{$ifndef FPUNONE}
Uses convutils;
const
// Powers of 10
siYocto = 1E-24;
siZepto = 1E-21;
siAtto = 1E-18;
siFemto = 1E-15;
siPico = 1E-12;
siNano = 1E-9;
siMicro = 1E-6;
siMilli = 1E-3;
siCenti = 1E-2;
siDeci = 1E-1;
siDeca = 10;
siHecto = siDeca*10;
siKilo = siHecto*10;
siMega = siKilo*1000;
siGiga = siMega*1000;
siTera = Int64(siGiga*1000);
siPeta = Int64(siTera*1000);
siExa = Int64(siPeta*1000);
siZetta = 1E21;
siYotta = 1E24;
// Powers of 2
iecKibi = 1024; // 10
iecMebi = iecKibi*1024; // 20
iecGibi = iecMebi*1024; // 30
iecTebi = Int64(iecGibi*1024); // 40
iecPebi = Int64(iecTebi*1024); // 50
iecExbi = Int64(iecPebi*1024); // 60
iecZebi = Double(iecExbi)*1024; // 70
iecYobi = iecZebi*1024; // 80;
var
{cbArea family}

33
rtl/objpas/math.pp
View File

@ -142,39 +142,6 @@ Const
LessThanValue = Low(TValueRelationship);
GreaterThanValue = High(TValueRelationship);
const
// Powers of 10
siYocto = 1E-24;
siZepto = 1E-21;
siAtto = 1E-18;
siFemto = 1E-15;
siPico = 1E-12;
siNano = 1E-9;
siMicro = 1E-6;
siMilli = 1E-3;
siCenti = 1E-2;
siDeci = 1E-1;
siDeca = 10;
siHecto = siDeca*10;
siKilo = siHecto*10;
siMega = siKilo*1000;
siGiga = siMega*1000;
siTera = Int64(siGiga*1000);
siPeta = Int64(siTera*1000);
siExa = Int64(siPeta*1000);
siZetta = 1E21;
siYotta = 1E24;
// Powers of 2
iecKibi = 1024; // 10
iecMebi = iecKibi*1024; // 20
iecGibi = iecMebi*1024; // 30
iecTebi = Int64(iecGibi*1024); // 40
iecPebi = Int64(iecTebi*1024); // 50
iecExbi = Int64(iecPebi*1024); // 60
iecZebi = Double(iecExbi)*1024; // 70
iecYobi = iecZebi*1024; // 80;
{$push}