FPC_REQUIRES_PROPER_ALIGNMENT, for andgineer#251

Alexey-T · Aug 2, 2021 · d35ef73 · d35ef73
1 parent 49a36db
commit d35ef73
Show file tree

Hide file tree

Showing 2 changed files with 37 additions and 1 deletion.
diff --git a/src/regexpr.pas b/src/regexpr.pas
@@ -832,6 +832,8 @@ implementation
     gkSubCall
     );
 
+{$undef FPC_REQUIRES_PROPER_ALIGNMENT}
+
 const
   REOpSz = SizeOf(TREOp) div SizeOf(REChar);
   // size of OP_ command in REChars

diff --git a/test/test_fpc.lpi b/test/test_fpc.lpi
@@ -14,7 +14,7 @@
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
     </General>
-    <BuildModes Count="3">
+    <BuildModes Count="4">
       <Item1 Name="Default" Default="True"/>
       <Item2 Name="Unicode">
         <CompilerOptions>
@@ -76,6 +76,40 @@
           </Other>
         </CompilerOptions>
       </Item3>
+      <Item4 Name="aarch64">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <Target>
+            <Filename Value="test_fpc"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="../src"/>
+            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <Parsing>
+            <SyntaxOptions>
+              <IncludeAssertionCode Value="True"/>
+            </SyntaxOptions>
+          </Parsing>
+          <CodeGeneration>
+            <SmartLinkUnit Value="True"/>
+            <Checks>
+              <RangeChecks Value="True"/>
+              <OverflowChecks Value="True"/>
+            </Checks>
+            <TargetCPU Value="aarch64"/>
+            <TargetOS Value="linux"/>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <DebugInfoType Value="dsDwarf2Set"/>
+              <UseExternalDbgSyms Value="True"/>
+            </Debugging>
+            <LinkSmart Value="True"/>
+          </Linking>
+        </CompilerOptions>
+      </Item4>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>