paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 22:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed access to freed memory in ShiftShiftShift2ShiftShift 1a on ARM

Browse Source 
ShiftShiftShift2ShiftShift tried to access a wrong and already freed
instruction the find out whatever a shift will result in a 0 result.

For some reason this only resulted in a bug on x86_64 linux host
crosscompiler builds.

git-svn-id: trunk@23624 -
This commit is contained in:
masta 2013-02-17 00:01:00 +00:00
parent f0e6d2c054
commit 96ed4e7932
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/arm/aoptcpu.pas
View File

@ -809,7 +809,7 @@ Implementation
hp1.free;
hp2.free;
if taicpu(hp1).oper[2]^.shifterop^.shiftimm>=32 then
if taicpu(p).oper[2]^.shifterop^.shiftimm>=32 then
begin
taicpu(p).freeop(1);
taicpu(p).freeop(2);