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

* Fix compilation for ARM

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-06-19 11:38:23 +02:00 committed by FPK
parent 1930aaa340
commit 188fc9c112
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/options.pas
View File

@ -2526,7 +2526,7 @@ begin
{$ifdef arm} {$ifdef arm}
'I' : 'I' :
begin begin
if (upper(copy(more,j+1)='THUMB') and if (upper(copy(more,j+1))='THUMB') and
{ does selected CPU really understand thumb? } { does selected CPU really understand thumb? }
(init_settings.cputype in cpu_has_thumb) then (init_settings.cputype in cpu_has_thumb) then
init_settings.instructionset:=is_thumb init_settings.instructionset:=is_thumb