|
@@ -6,7 +6,7 @@
|
|
Bugs?: For bug reports, consult the following page on
|
|
Bugs?: For bug reports, consult the following page on
|
|
the World Wide Web:
|
|
the World Wide Web:
|
|
|
|
|
|
- http://www.freepascal.org/bugs.html
|
|
|
|
|
|
+ http://bugs.freepascal.org
|
|
|
|
|
|
==================================================================================================}
|
|
==================================================================================================}
|
|
{ Initial Pascal Translation: Jonas Maebe, <[email protected]>, October 2012 }
|
|
{ Initial Pascal Translation: Jonas Maebe, <[email protected]>, October 2012 }
|
|
@@ -64,6 +64,11 @@ interface
|
|
{$elsec}
|
|
{$elsec}
|
|
{$setc __arm__ := 0}
|
|
{$setc __arm__ := 0}
|
|
{$endc}
|
|
{$endc}
|
|
|
|
+{$ifc not defined __arm64__ and defined CPUAARCH64}
|
|
|
|
+ {$setc __arm64__ := 1}
|
|
|
|
+{$elsec}
|
|
|
|
+ {$setc __arm64__ := 0}
|
|
|
|
+{$endc}
|
|
|
|
|
|
{$ifc defined cpu64}
|
|
{$ifc defined cpu64}
|
|
{$setc __LP64__ := 1}
|
|
{$setc __LP64__ := 1}
|
|
@@ -82,6 +87,7 @@ interface
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
@@ -92,6 +98,7 @@ interface
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
@@ -102,6 +109,7 @@ interface
|
|
{$setc TARGET_CPU_X86 := TRUE}
|
|
{$setc TARGET_CPU_X86 := TRUE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$ifc defined(iphonesim)}
|
|
{$ifc defined(iphonesim)}
|
|
{$setc TARGET_OS_MAC := FALSE}
|
|
{$setc TARGET_OS_MAC := FALSE}
|
|
{$setc TARGET_OS_IPHONE := TRUE}
|
|
{$setc TARGET_OS_IPHONE := TRUE}
|
|
@@ -118,6 +126,7 @@ interface
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := TRUE}
|
|
{$setc TARGET_CPU_X86_64 := TRUE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
@@ -128,13 +137,26 @@ interface
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := TRUE}
|
|
{$setc TARGET_CPU_ARM := TRUE}
|
|
|
|
+ {$setc TARGET_CPU_ARM64 := FALSE}
|
|
|
|
+ { will require compiler define when/if other Apple devices with ARM cpus ship }
|
|
|
|
+ {$setc TARGET_OS_MAC := FALSE}
|
|
|
|
+ {$setc TARGET_OS_IPHONE := TRUE}
|
|
|
|
+ {$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
|
|
+ {$setc TARGET_OS_EMBEDDED := TRUE}
|
|
|
|
+{$elifc defined __arm64__ and __arm64__}
|
|
|
|
+ {$setc TARGET_CPU_PPC := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_PPC64 := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_X86 := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_X86_64 := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_ARM := FALSE}
|
|
|
|
+ {$setc TARGET_CPU_ARM64 := TRUE}
|
|
{ will require compiler define when/if other Apple devices with ARM cpus ship }
|
|
{ will require compiler define when/if other Apple devices with ARM cpus ship }
|
|
{$setc TARGET_OS_MAC := FALSE}
|
|
{$setc TARGET_OS_MAC := FALSE}
|
|
{$setc TARGET_OS_IPHONE := TRUE}
|
|
{$setc TARGET_OS_IPHONE := TRUE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$setc TARGET_OS_EMBEDDED := TRUE}
|
|
{$setc TARGET_OS_EMBEDDED := TRUE}
|
|
{$elsec}
|
|
{$elsec}
|
|
- {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ is defined.}
|
|
|
|
|
|
+ {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ nor __arm64__ is defined.}
|
|
{$endc}
|
|
{$endc}
|
|
|
|
|
|
{$ifc defined __LP64__ and __LP64__ }
|
|
{$ifc defined __LP64__ and __LP64__ }
|