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

* fix warnings when compiling the compiler with DFA optimizer enabled on i386

Browse Source 
git-svn-id: trunk@28497 -
This commit is contained in:
Károly Balogh 2014-08-20 12:28:44 +00:00
parent 249a60b28b
commit 07ad2a04ac
3 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i386/n386add.pas
View File

@ -442,6 +442,8 @@ interface
begin begin
pass_left_right; pass_left_right;
reg:=NR_NO;
reference_reset(ref,sizeof(pint));
{ Mul supports registers and references, so if not register/reference, { Mul supports registers and references, so if not register/reference,
load the location into a register. load the location into a register.

1
compiler/systems/t_aros.pas
View File

@ -267,6 +267,7 @@ function TLinkeraros.MakeExecutable:boolean;
var var
success : boolean; success : boolean;
begin begin
success:=false;
if not(cs_link_nolink in current_settings.globalswitches) then if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.exefilename); Message1(exec_i_linking,current_module.exefilename);

4
compiler/x86/nx86mat.pas
View File

@ -99,6 +99,7 @@ interface
op : tasmop; op : tasmop;
hreg : tregister; hreg : tregister;
begin begin
op:=A_NONE;
secondpass(left); secondpass(left);
location_reset(location,LOC_MMXREGISTER,OS_NO); location_reset(location,LOC_MMXREGISTER,OS_NO);
hreg:=tcgx86(cg).getmmxregister(current_asmdata.CurrAsmList); hreg:=tcgx86(cg).getmmxregister(current_asmdata.CurrAsmList);
@ -142,6 +143,9 @@ interface
mmxs32bit,mmxu32bit: mmxs32bit,mmxu32bit:
op:=A_PSUBD; op:=A_PSUBD;
end; end;
if op = A_NONE then
internalerror(201408202);
emit_reg_reg(op,S_NO,location.register,hreg); emit_reg_reg(op,S_NO,location.register,hreg);
emit_reg_reg(A_MOVQ,S_NO,hreg,location.register); emit_reg_reg(A_MOVQ,S_NO,hreg,location.register);
end; end;