paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 03:35:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed concatcopy end bytes copy broken by 64bits patch

Browse Source
This commit is contained in:
peter 2004-03-11 19:35:05 +00:00
parent 9fe655fa0f
commit 81f3ef9eca
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/cgx86.pas
View File

@ -1461,12 +1461,12 @@ unit cgx86;
{$endif cpu64bit} {$endif cpu64bit}
list.concat(Taicpu.op_none(A_MOVSL,S_NO)); list.concat(Taicpu.op_none(A_MOVSL,S_NO));
end; end;
if len>2 then if len>=4 then
begin begin
dec(len,4); dec(len,4);
list.concat(Taicpu.op_none(A_MOVSL,S_NO)); list.concat(Taicpu.op_none(A_MOVSL,S_NO));
end; end;
if len>1 then if len>=2 then
begin begin
dec(len,2); dec(len,2);
list.concat(Taicpu.op_none(A_MOVSW,S_NO)); list.concat(Taicpu.op_none(A_MOVSW,S_NO));
@ -1791,7 +1791,10 @@ unit cgx86;
end. end.
{ {
$Log$ $Log$
Revision 1.118 2004-03-10 22:52:03 peter Revision 1.119 2004-03-11 19:35:05 peter
* fixed concatcopy end bytes copy broken by 64bits patch
Revision 1.118 2004/03/10 22:52:03 peter
* mcount for linux fixed * mcount for linux fixed
* push/pop edx for mcount * push/pop edx for mcount