paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 01:13:48 +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
begin
found:=false;
imm12:=0;
for shift:=1 to 31 do
begin
tmp:=RolDWord(imm,shift);
@ -2726,12 +2727,14 @@ implementation
var
shift,typ: byte;
begin
shift:=0;
typ:=0;
case oper[op]^.shifterop^.shiftmode of
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_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_RRX: begin typ:=3; shift:=oper[op]^.shifterop^.shiftimm; shift:=0; end;
SM_RRX: begin typ:=3; shift:=0; end;
end;
if is_sat then
@ -4518,13 +4521,13 @@ implementation
begin
bytes:=bytes or (getsupreg(oper[0]^.reg) shl 8);
offset:=0;
if oper[1]^.typ=top_const then
begin
offset:=oper[1]^.val;
end
else if oper[1]^.typ=top_ref then
begin
offset:=0;
currsym:=objdata.symbolref(oper[1]^.ref^.symbol);
if assigned(currsym) then
offset:=currsym.offset-insoffset-8;