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

Fix several warnings about uninitialized local variables

Browse Source 
git-svn-id: trunk@45787 -
This commit is contained in:
pierre 2020-07-15 08:59:59 +00:00
parent 0e9fc31dd7
commit dfdfbf896d
3 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ogrel.pas
View File

@ -625,6 +625,7 @@ implementation
c: Char; c: Char;
begin begin
s:=''; s:='';
c:=#0;
if AtEoF then if AtEoF then
begin begin
result:=false; result:=false;
@ -930,6 +931,8 @@ implementation
FReader:=AReader; FReader:=AReader;
InputFileName:=AReader.FileName; InputFileName:=AReader.FileName;
Data:=CObjData.Create(InputFileName); Data:=CObjData.Create(InputFileName);
ExpectedAreas:=-1;
ExpectedSymbols:=-1;
result:=false; result:=false;
s:=''; s:='';
repeat repeat

1
compiler/z80/aasmcpu.pas
View File

@ -675,6 +675,7 @@ implementation
var var
i: Integer; i: Integer;
begin begin
result:=0;
case maskcode of case maskcode of
'dd': 'dd':
for i:=0 to insentry^.ops-1 do for i:=0 to insentry^.ops-1 do

2
compiler/z80/cgcpu.pas
View File

@ -921,6 +921,7 @@ unit cgcpu;
optimize_op_const(size,op,a); optimize_op_const(size,op,a);
mask:=$ff; mask:=$ff;
shift:=0; shift:=0;
l1:=nil;
case op of case op of
OP_NONE: OP_NONE:
begin begin
@ -1711,6 +1712,7 @@ unit cgcpu;
i : byte; i : byte;
tmpl: TAsmLabel; tmpl: TAsmLabel;
begin begin
tmpl:=nil;
if size in [OS_8,OS_S8]then if size in [OS_8,OS_S8]then
begin begin
if cmp_op in [OC_EQ,OC_NE,OC_B,OC_AE] then if cmp_op in [OC_EQ,OC_NE,OC_B,OC_AE] then