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

* check cputhumb/cputhumb2 to detect instruction set

Browse Source 
git-svn-id: trunk@25417 -
This commit is contained in:
florian 2013-09-04 21:00:44 +00:00
parent 6f11e3f316
commit a240e74591
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/system.inc
View File

@ -229,10 +229,10 @@ function do_isdevice(handle:thandle):boolean;forward;
{$Error Can't determine processor type !}
{$endif}
{$i armdefines.inc}
{$if defined(CPUARMV7EM) or defined(CPUARMV7M)}
{$if defined(CPUTHUMB2)}
{$i thumb2.inc} { Case dependent, don't change }
{$else}
{$if defined(CPUARMV6M)}
{$if defined(CPUTHUMB)}
{$i thumb.inc} { Case dependent, don't change }
{$else}
{$i arm.inc} { Case dependent, don't change }