diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas index fce7d07cf4..8e0917cad8 100644 --- a/compiler/ogrel.pas +++ b/compiler/ogrel.pas @@ -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 diff --git a/compiler/z80/aasmcpu.pas b/compiler/z80/aasmcpu.pas index afca3d6bed..c4b7b61f6f 100644 --- a/compiler/z80/aasmcpu.pas +++ b/compiler/z80/aasmcpu.pas @@ -675,6 +675,7 @@ implementation var i: Integer; begin + result:=0; case maskcode of 'dd': for i:=0 to insentry^.ops-1 do diff --git a/compiler/z80/cgcpu.pas b/compiler/z80/cgcpu.pas index eeb899e013..e4db4c00f3 100644 --- a/compiler/z80/cgcpu.pas +++ b/compiler/z80/cgcpu.pas @@ -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