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

* (modified) patch by Michael Ring to enable the FPU on Cortex-M4F if available

Browse Source 
git-svn-id: trunk@48722 -
This commit is contained in:
florian 2021-02-19 21:11:12 +00:00
parent 715fb8007f
commit 1213948393
2 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/embedded/arm/cortexm4f_start.inc
View File

@ -43,6 +43,14 @@ asm
str r1, [r0]
{$endif REMAP_VECTTAB}
{$if defined(FPUARM_HAS_VFP_EXTENSION)}
ldr r0, .Lcpacr
ldr r1, [r0]
orr r1, r1, #0xf00000
str r1, [r0]
dsb
isb
{$endif defined(FPUARM_HAS_VFP_EXTENSION)}
bl PASCALMAIN
b HaltProc
@ -56,10 +64,13 @@ asm
.long _data
.L_edata:
.long _edata
{$if defined(FPUARM_HAS_VFP_EXTENSION)}
.Lcpacr:
.long 0xE000ED88
{$endif defined(FPUARM_HAS_VFP_EXTENSION)}
{$ifdef REMAP_VECTTAB}
.Lvtor:
.long 0xE000ED08
.Ltext_start:
.long _text_start
{$endif REMAP_VECTTAB}
end;

14
rtl/freertos/arm/cortexm4f_start.inc
View File

@ -43,6 +43,14 @@ asm
str r1, [r0]
{$endif REMAP_VECTTAB}
{$if defined(FPUARM_HAS_VFP_EXTENSION)}
ldr r0, .Lcpacr
ldr r1, [r0]
orr r1, r1, #0xf00000
str r1, [r0]
dsb
isb
{$endif defined(FPUARM_HAS_VFP_EXTENSION)}
bl PASCALMAIN
b HaltProc
@ -56,10 +64,14 @@ asm
.long _data
.L_edata:
.long _edata
{$if not defined(FPUARM_HAS_VFP_EXTENSION)}
.Lcpacr:
.long 0xE000ED88
{$endif defined(FPUARM_HAS_VFP_EXTENSION)}
{$ifdef REMAP_VECTTAB}
.Lvtor:
.long 0xE000ED08
.Ltext_start:
.long _text_start
{$endif REMAP_VECTTAB}
end;
end;