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

* Avoid warning for i386 cpu

Browse Source 
git-svn-id: trunk@17851 -
This commit is contained in:
pierre 2011-06-28 08:02:35 +00:00
parent 47ff755068
commit 3fd3cc8099
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/agx86att.pas
View File

@ -249,6 +249,7 @@ interface
(taicpu(hp).oper[0]^.typ = top_const) then (taicpu(hp).oper[0]^.typ = top_const) then
begin begin
val := taicpu(hp).oper[0]^.val; val := taicpu(hp).oper[0]^.val;
{$ifdef x86_64}
if (val > int64($7fffffff)) and (val < int64($100000000)) then if (val > int64($7fffffff)) and (val < int64($100000000)) then
begin begin
owner.AsmWrite(target_asm.comment); owner.AsmWrite(target_asm.comment);
@ -262,6 +263,7 @@ interface
else else
internalerror(20100902); internalerror(20100902);
end; end;
{$endif x86_64}
end; end;
owner.AsmWrite(#9); owner.AsmWrite(#9);
{ movsd should not be translated to movsl when there { movsd should not be translated to movsl when there