diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-18 19:16:33 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-18 19:16:33 +0000 |
commit | 45ae8e8d70253c09fcaec8478ed8de58c2a8b734 (patch) | |
tree | 9dafe0bbf8b483adf3238f029f524c7b58e49216 | |
parent | 0fb39523e8a91c32630620ae5d61193ae2933feb (diff) | |
download | fpc-45ae8e8d70253c09fcaec8478ed8de58c2a8b734.tar.gz |
* disable array and record regvars for all cpuhighleveltarget platforms
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42246 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/symdef.pas | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/compiler/symdef.pas b/compiler/symdef.pas index b4e54b9c7f..ffafb51ecb 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -2226,18 +2226,22 @@ implementation setdef: is_intregable:=is_smallset(self); arraydef: +{$ifdef cpuhighleveltarget} + is_intregable:=false +{$else cpuhighleveltarget} is_intregable:=not(is_special_array(self)) and (tarraydef(self).size in [1,2,4,8]) and tstoreddef(tarraydef(self).elementdef).is_intregable {$ifdef SUPPORT_MMX} and not((cs_mmx in current_settings.localswitches) and is_mmx_able_array(self)) {$endif SUPPORT_MMX} +{$endif cpuhighleveltarget} ; recorddef: begin -{$ifdef llvm} +{$ifdef cpuhighleveltarget} is_intregable:=false; -{$else llvm} +{$else cpuhighleveltarget} recsize:=size; is_intregable:= ispowerof2(recsize,temp) and @@ -2249,7 +2253,7 @@ implementation (recsize <= sizeof(aint)) ) and not needs_inittable; -{$endif llvm} +{$endif cpuhighleveltarget} end; else is_intregable:=false; |