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

* Make explicit how much better FPC is when compared to Delphi ;)

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-03 11:52:14 +01:00 committed by Pierre Muller
parent 7c0f21d8d0
commit db277f2719
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/sysutilh.inc
View File

@ -398,7 +398,7 @@ Type
TArchitecture = (arIntelX86, arIntelX64, arARM32, arARM64, arIntelX16, arXTensa, arAVR, arM68k, arPowerPC, arPower64,
arMips, arMipsel, arMips64, arMips64el, arJVM, arWasm32, arSparc, arSparc64, arRiscV32, arRiscV64, arZ80,
arLoongArch64, arOther);
TPlatform = (pfWindows, pfMacOS, pfiOS, pfAndroid, pfWinRT, pfLinux,
pfGo32v2, pfOS2, pfFreeBSD, pfBeos, pfNetBSD, pfAmiga,
pfAtari, pfSolaris, pfQNX, pfNetware, pfOpenBSD, pfWDosX,
@ -408,6 +408,7 @@ Type
pfNativeNT, pfMSDos, pfWII, pfAROS, pfDragonFly, pfWin16,
pfFreeRTOS, pfZXSpectrum, pfMSXDOS, pfAmstradCPC,
pfSinclairQL, pfWasi, pfOther);
TDelphiPlatform = TPlatform.pfWindows..TPlatform.pfLinux;
public const
AllArchitectures = [Low(TArchitecture) .. High(TArchitecture)];
AllPlatforms = [Low(TPlatform) .. High(TPlatform)];
@ -449,6 +450,7 @@ Type
TArchitectures = set of TOSVersion.TArchitecture;
TPlatforms = set of TOSVersion.TPlatform;
TDelphiPlatforms = set of TOSVersion.TDelphiPlatform;
Function GetCompiledArchitecture : TOSVersion.TArchitecture;
Function GetCompiledPlatform : TOSVersion.TPlatform;