diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-10-05 20:11:09 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-10-05 20:11:09 +0000 |
| commit | 3c01e664bc20efa9e6f4748de5af54b1db524cc6 (patch) | |
| tree | 997cd3bb227bf442d738946cdda23dbf4f25b86d /compiler/x86 | |
| parent | 0021c74061d341787c52ce9590faa1ee13f93e9c (diff) | |
| download | fpc-3c01e664bc20efa9e6f4748de5af54b1db524cc6.tar.gz | |
o patch by Alexander Shishkin, resolves #20409
* eliminate warnings in compiler (i386 & i368->x86_64) and minor refactorings
- comment out unused vars and types
- comment out unneeded comparisons (Longword <=> 0)
- suppress some "comparison always true|false" warnings
- tweak visiblity sections
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@19385 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/x86')
| -rw-r--r-- | compiler/x86/agx86att.pas | 8 | ||||
| -rw-r--r-- | compiler/x86/nx86cnv.pas | 2 |
2 files changed, 6 insertions, 4 deletions
diff --git a/compiler/x86/agx86att.pas b/compiler/x86/agx86att.pas index 39e81ead63..8890780666 100644 --- a/compiler/x86/agx86att.pas +++ b/compiler/x86/agx86att.pas @@ -229,7 +229,9 @@ interface procedure Tx86InstrWriter.WriteInstruction(hp: tai); var op : tasmop; +{$ifdef x86_64} val : aint; +{$endif} calljmp : boolean; need_second_mov : boolean; i : integer; @@ -244,12 +246,12 @@ interface the fix consists of simply setting only the 4-byte register as the upper 4-bytes will be zeroed at the same time. } need_second_mov:=false; +{$ifdef x86_64} if (op=A_MOV) and (taicpu(hp).opsize=S_Q) and (taicpu(hp).oper[0]^.typ = top_const) then begin 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 owner.AsmWrite(target_asm.comment); owner.AsmWritePChar('Fix for Win64-GAS bug'); @@ -262,8 +264,8 @@ interface else internalerror(20100902); end; -{$endif x86_64} end; +{$endif x86_64} owner.AsmWrite(#9); { movsd should not be translated to movsl when there are (xmm) arguments } diff --git a/compiler/x86/nx86cnv.pas b/compiler/x86/nx86cnv.pas index 2d679655cb..7884c5c803 100644 --- a/compiler/x86/nx86cnv.pas +++ b/compiler/x86/nx86cnv.pas @@ -30,7 +30,7 @@ interface type tx86typeconvnode = class(tcgtypeconvnode) - protected + protected function first_real_to_real : tnode;override; { procedure second_int_to_int;override; } { procedure second_string_to_string;override; } |