paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some unneeded 64 bit conversions + rarely triggered bug on x86

Browse Source 
regarding packed records/arrays

git-svn-id: trunk@5790 -
This commit is contained in:
Jonas Maebe 2007-01-02 18:47:14 +00:00
parent d85573da18
commit 1ad6417f7f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/cgobj.pas
View File

@ -1047,7 +1047,7 @@ implementation
bitmask := not(((aword(1) shl stopbit)-1) xor ((aword(1) shl sreg.startbit)-1))
else
bitmask := (aword(1) shl sreg.startbit) - 1;
if (((a shl sreg.startbit) and not bitmask) <> not bitmask) then
if (((aword(a) shl sreg.startbit) and not bitmask) <> not bitmask) then
a_op_const_reg(list,OP_AND,sreg.subsetregsize,aint(bitmask),sreg.subsetreg);
a_op_const_reg(list,OP_OR,sreg.subsetregsize,aint((aword(a) shl sreg.startbit) and not(bitmask)),sreg.subsetreg);
end;
@ -1665,8 +1665,9 @@ implementation
begin
slopt := SL_REGNOSRCMASK;
if (
(a = (aword(1) shl sref.bitlen) -1) or
{ broken x86 "x shl regbitsize = x" }
((sref.bitlen <> AIntBits) and
(aword(a) = (aword(1) shl sref.bitlen) -1)) or
((sref.bitlen = AIntBits) and
(a = -1))
) then