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

* fixed tcgx86.a_op_const_ref for shl/shr/sar/rol/ror on i8086 and x86_64

Browse Source 
git-svn-id: trunk@26018 -
This commit is contained in:
nickysn 2013-11-10 20:39:47 +00:00
parent 412dc6586f
commit dea947f87b
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/x86/cgx86.pas
View File

@ -1856,11 +1856,33 @@ unit cgx86;
TCgSize2OpSize[size],a,tmpref));
OP_SHL,OP_SHR,OP_SAR,OP_ROL,OP_ROR:
begin
if (a and 31) <> 0 then
list.concat(taicpu.op_const_ref(
TOpCG2AsmOp[op],TCgSize2OpSize[size],a and 31,tmpref));
{$if defined(x86_64)}
if (a and 63) <> 0 Then
list.concat(taicpu.op_const_ref(TOpCG2AsmOp[op],TCgSize2OpSize[size],a and 63,tmpref));
if (a shr 6) <> 0 Then
internalerror(2013111003);
{$elseif defined(i386)}
if (a and 31) <> 0 Then
list.concat(taicpu.op_const_ref(TOpCG2AsmOp[op],TCgSize2OpSize[size],a and 31,tmpref));
if (a shr 5) <> 0 Then
internalerror(68991);
internalerror(2013111002);
{$elseif defined(i8086)}
if (a shr 5) <> 0 Then
internalerror(2013111001);
a := a and 31;
if a <> 0 Then
begin
if (current_settings.cputype < cpu_186) and (a <> 1) then
begin
getcpuregister(list,NR_CL);
a_load_const_reg(list,OS_8,a,NR_CL);
list.concat(taicpu.op_reg_ref(TOpCG2AsmOp[op],TCgSize2OpSize[size],NR_CL,tmpref));
ungetcpuregister(list,NR_CL);
end
else
list.concat(taicpu.op_const_ref(TOpCG2AsmOp[op],TCgSize2OpSize[size],a,tmpref));
end;
{$endif}
end
else internalerror(68992);
end;