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

* bitpacked stuff fixed for x86-64

Browse Source 
git-svn-id: trunk@5503 -
This commit is contained in:
florian 2006-11-26 21:57:34 +00:00
parent 3b6d5c3676
commit 836dbad1b2
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/x86/cgx86.pas
View File

@ -1159,7 +1159,7 @@ unit cgx86;
begin
{$ifdef x86_64}
if (a and 63) <> 0 Then
list.concat(taicpu.op_const_reg(TOpCG2AsmOp[op],TCgSize2OpSize[size],a and 31,reg));
list.concat(taicpu.op_const_reg(TOpCG2AsmOp[op],TCgSize2OpSize[size],a and 63,reg));
if (a shr 6) <> 0 Then
internalerror(200609073);
{$else x86_64}