paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only check trecorddef(self).contains_cross_aword_field (for checking

Browse Source 
whether the record can be kept in a register) after determining that the
    record is < 2*sizeof(aword) (it's a much more expensive check, especially
    for big records)

git-svn-id: trunk@33190 -
This commit is contained in:
Jonas Maebe 2016-03-06 14:16:38 +00:00
parent c564acd378
commit 3e59c05ecc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -2116,8 +2116,8 @@ implementation
recsize:=size;
is_intregable:=
ispowerof2(recsize,temp) and
not trecorddef(self).contains_cross_aword_field and
((recsize<=sizeof(aint)*2) and
not trecorddef(self).contains_cross_aword_field and
{ records cannot go into registers on 16 bit targets for now }
(sizeof(aint)>2) and
(not trecorddef(self).contains_float_field) or