paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 11:37:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add dummy version for symbian

Browse Source 
(cherry picked from commit 13368fbb8a)
This commit is contained in:
Pierre Muller 2023-05-22 09:11:41 +00:00
parent e11fbf2bdc
commit ab0549fe61
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/arm/cpu.pp
View File

@ -16,6 +16,10 @@
{$mode objfpc} {$mode objfpc}
unit cpu; unit cpu;
{$ifdef symbian}
{$define NO_ELF_SUPPORT}
{$endif}
interface interface
function VFPv4Support : Boolean; function VFPv4Support : Boolean;
@ -57,6 +61,7 @@ unit cpu;
auxv: PElf32AuxiliaryVector; auxv: PElf32AuxiliaryVector;
begin begin
psysinfo := 0; psysinfo := 0;
{$ifndef NO_ELF_SUPPORT}
ep := envp; ep := envp;
while ep^ <> nil do while ep^ <> nil do
Inc(ep); Inc(ep);
@ -75,6 +80,7 @@ unit cpu;
end; end;
Inc(auxv); Inc(auxv);
end; end;
{$endif ndef NO_ELF_SUPPORT}
end; end;