summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>2019-06-18 19:16:33 +0000
committerjonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>2019-06-18 19:16:33 +0000
commit45ae8e8d70253c09fcaec8478ed8de58c2a8b734 (patch)
tree9dafe0bbf8b483adf3238f029f524c7b58e49216
parent0fb39523e8a91c32630620ae5d61193ae2933feb (diff)
downloadfpc-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.pas10
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;