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

Fix some warnings about unitialized variables.

Browse Source 
git-svn-id: branches/laksen/armiw@29346 -
This commit is contained in:
Jeppe Johansen 2014-12-27 23:11:54 +00:00
parent 3ad03491ed
commit c284d8f6ba
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/arm/aasmcpu.pas
View File

@ -2699,6 +2699,7 @@ implementation
else else
begin begin
found:=false; found:=false;
imm12:=0;
for shift:=1 to 31 do for shift:=1 to 31 do
begin begin
tmp:=RolDWord(imm,shift); tmp:=RolDWord(imm,shift);
@ -2726,12 +2727,14 @@ implementation
var var
shift,typ: byte; shift,typ: byte;
begin begin
shift:=0;
typ:=0;
case oper[op]^.shifterop^.shiftmode of case oper[op]^.shifterop^.shiftmode of
SM_LSL: begin typ:=0; shift:=oper[op]^.shifterop^.shiftimm; end; SM_LSL: begin typ:=0; shift:=oper[op]^.shifterop^.shiftimm; end;
SM_LSR: begin typ:=1; shift:=oper[op]^.shifterop^.shiftimm; if shift=32 then shift:=0; end; SM_LSR: begin typ:=1; shift:=oper[op]^.shifterop^.shiftimm; if shift=32 then shift:=0; end;
SM_ASR: begin typ:=2; shift:=oper[op]^.shifterop^.shiftimm; if shift=32 then shift:=0; end; SM_ASR: begin typ:=2; shift:=oper[op]^.shifterop^.shiftimm; if shift=32 then shift:=0; end;
SM_ROR: begin typ:=3; shift:=oper[op]^.shifterop^.shiftimm; if shift=0 then message(asmw_e_invalid_opcode_and_operands); end; SM_ROR: begin typ:=3; shift:=oper[op]^.shifterop^.shiftimm; if shift=0 then message(asmw_e_invalid_opcode_and_operands); end;
SM_RRX: begin typ:=3; shift:=oper[op]^.shifterop^.shiftimm; shift:=0; end; SM_RRX: begin typ:=3; shift:=0; end;
end; end;
if is_sat then if is_sat then
@ -4518,13 +4521,13 @@ implementation
begin begin
bytes:=bytes or (getsupreg(oper[0]^.reg) shl 8); bytes:=bytes or (getsupreg(oper[0]^.reg) shl 8);
offset:=0;
if oper[1]^.typ=top_const then if oper[1]^.typ=top_const then
begin begin
offset:=oper[1]^.val; offset:=oper[1]^.val;
end end
else if oper[1]^.typ=top_ref then else if oper[1]^.typ=top_ref then
begin begin
offset:=0;
currsym:=objdata.symbolref(oper[1]^.ref^.symbol); currsym:=objdata.symbolref(oper[1]^.ref^.symbol);
if assigned(currsym) then if assigned(currsym) then
offset:=currsym.offset-insoffset-8; offset:=currsym.offset-insoffset-8;