paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 11:24:14 +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;
begin
s:='';
c:=#0;
if AtEoF then
begin
result:=false;
@ -930,6 +931,8 @@ implementation
FReader:=AReader;
InputFileName:=AReader.FileName;
Data:=CObjData.Create(InputFileName);
ExpectedAreas:=-1;
ExpectedSymbols:=-1;
result:=false;
s:='';
repeat

1
compiler/z80/aasmcpu.pas
View File

@ -675,6 +675,7 @@ implementation
var
i: Integer;
begin
result:=0;
case maskcode of
'dd':
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);
mask:=$ff;
shift:=0;
l1:=nil;
case op of
OP_NONE:
begin
@ -1711,6 +1712,7 @@ unit cgcpu;
i : byte;
tmpl: TAsmLabel;
begin
tmpl:=nil;
if size in [OS_8,OS_S8]then
begin
if cmp_op in [OC_EQ,OC_NE,OC_B,OC_AE] then