Ver Fonte

* don't allow records to be put in registers for the llvm target

git-svn-id: trunk@31685 -
Jonas Maebe há 10 anos atrás
pai
commit
75992c1274
1 ficheiros alterados com 4 adições e 0 exclusões
  1. 4 0
      compiler/symdef.pas

+ 4 - 0
compiler/symdef.pas

@@ -2030,6 +2030,9 @@ implementation
             is_intregable:=is_smallset(self);
           recorddef:
             begin
+{$ifdef llvm}
+              is_intregable:=false;
+{$else llvm}
               recsize:=size;
               is_intregable:=
                 ispowerof2(recsize,temp) and
@@ -2039,6 +2042,7 @@ implementation
                   not trecorddef(self).contains_float_field) or
                   (recsize <= sizeof(asizeint))) and
                 not needs_inittable;
+{$endif llvm}
             end;
         end;
      end;