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

Small fix for uninitialized variables causing warnings.

Browse Source 
git-svn-id: branches/laksen/armiw@29253 -
This commit is contained in:
Jeppe Johansen 2014-12-11 09:26:48 +00:00
parent eb3eaab54b
commit b5cd9c048e
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/arm/aasmcpu.pas
View File

@ -3094,6 +3094,10 @@ implementation
bytes:=bytes or ord(insentry^.code[4]);
{ set regs }
Rd:=0;
Rn:=0;
Rm:=0;
case oppostfix of
PF_None:
begin
@ -3219,6 +3223,7 @@ implementation
NR_MVFR0: Rn:=$7;
NR_FPEXC: Rn:=$8;
else
Rn:=0;
message(asmw_e_invalid_opcode_and_operands);
end;
@ -3236,6 +3241,7 @@ implementation
NR_FPSCR: Rn:=$1;
NR_FPEXC: Rn:=$8;
else
Rn:=0;
message(asmw_e_invalid_opcode_and_operands);
end;
@ -3417,6 +3423,7 @@ implementation
rn:=16;
end;
else
Rn:=0;
message(asmw_e_invalid_opcode_and_operands);
end;
@ -3499,6 +3506,7 @@ implementation
if oper[1]^.regset^=[] then
message1(asmw_e_invalid_opcode_and_operands, 'Regset cannot be empty');
rd:=0;
for r:=0 to 31 do
if r in oper[1]^.regset^ then
begin
@ -3537,6 +3545,7 @@ implementation
if oper[0]^.regset^=[] then
message1(asmw_e_invalid_opcode_and_operands, 'Regset cannot be empty');
rd:=0;
for r:=0 to 31 do
if r in oper[0]^.regset^ then
begin