Răsfoiți Sursa

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

git-svn-id: trunk@31685 -
Jonas Maebe 10 ani în urmă
părinte
comite
75992c1274
1 a modificat fișierele cu 4 adăugiri și 0 ștergeri
  1. 4 0
      compiler/symdef.pas

+ 4 - 0
compiler/symdef.pas

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