From 68eb921d46a057397491bea4fc8c307818be38f7 Mon Sep 17 00:00:00 2001 From: florian Date: Sat, 30 Jun 2018 12:30:25 +0000 Subject: [PATCH] * broken compilation after r39347 fixed git-svn-id: trunk@39349 - --- compiler/assemble.pas | 1 + compiler/cclasses.pas | 1 + compiler/cfileutl.pas | 1 + compiler/cstreams.pas | 1 + compiler/cutils.pas | 3 +++ compiler/ncgset.pas | 1 + compiler/ncnv.pas | 1 + compiler/ncon.pas | 1 + compiler/nobjc.pas | 1 + compiler/objcgutl.pas | 4 ++++ compiler/omfbase.pas | 1 + compiler/options.pas | 1 + compiler/paramgr.pas | 1 + compiler/symtable.pas | 3 +++ 14 files changed, 21 insertions(+) diff --git a/compiler/assemble.pas b/compiler/assemble.pas index a1f85a3e4c..3e684fde05 100644 --- a/compiler/assemble.pas +++ b/compiler/assemble.pas @@ -418,6 +418,7 @@ Implementation s: ansistring; begin MaybeAddLinePrefix; + s:=''; setlength(s,len); move(p^,s[1],len); AsmWriteAnsiStringUnfiltered(decorator.LineFilter(s)); diff --git a/compiler/cclasses.pas b/compiler/cclasses.pas index 633c92dcc6..0a2d2a124a 100644 --- a/compiler/cclasses.pas +++ b/compiler/cclasses.pas @@ -615,6 +615,7 @@ implementation s : string; begin l := c-b; + s:=''; if (l > 0) or AddEmptyStrings then begin setlength(s, l); diff --git a/compiler/cfileutl.pas b/compiler/cfileutl.pas index 474bd27113..167e52154a 100644 --- a/compiler/cfileutl.pas +++ b/compiler/cfileutl.pas @@ -495,6 +495,7 @@ end; var i : longint; begin + Result:=''; setlength(bstoslash,length(s)); for i:=1to length(s) do if s[i]='\' then diff --git a/compiler/cstreams.pas b/compiler/cstreams.pas index 7feecfad8a..b1ea378ead 100644 --- a/compiler/cstreams.pas +++ b/compiler/cstreams.pas @@ -333,6 +333,7 @@ implementation TheSize : Longint; P : PByte ; begin + Result:=''; ReadBuffer (TheSize,SizeOf(TheSize)); SetLength(Result,TheSize); // Illegal typecast if no AnsiStrings defined. diff --git a/compiler/cutils.pas b/compiler/cutils.pas index db195ce61c..26b9b3838f 100644 --- a/compiler/cutils.pas +++ b/compiler/cutils.pas @@ -637,6 +637,7 @@ implementation var i : longint; begin + Result:=''; setlength(upper,length(s)); for i:=1 to length(s) do upper[i]:=uppertbl[s[i]]; @@ -672,6 +673,7 @@ implementation var i : longint; begin + Result:=''; setlength(lower,length(s)); for i:=1 to length(s) do lower[i]:=lowertbl[s[i]]; @@ -1077,6 +1079,7 @@ implementation t: string; ch: Char; begin + t:=''; DePascalQuote:= false; len:= length(s); if (len >= 1) and (s[1] = '''') then diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas index 71aa5f7609..593f1338fd 100644 --- a/compiler/ncgset.pas +++ b/compiler/ncgset.pas @@ -1032,6 +1032,7 @@ implementation end; begin + labelarray:=nil; SetLength(labelarray,case_count_labels(root)); nextarrayentry:=0; addarrayentry(root); diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas index a647d8fe44..31135872da 100644 --- a/compiler/ncnv.pas +++ b/compiler/ncnv.pas @@ -1211,6 +1211,7 @@ implementation exprtype : tdef; begin result:=nil; + sa:=''; if (left.nodetype=ordconstn) and ((tstringdef(resultdef).stringtype in [st_widestring,st_unicodestring,st_ansistring]) or (torddef(left.resultdef).ordtype in [uchar,uwidechar])) then diff --git a/compiler/ncon.pas b/compiler/ncon.pas index 7fa0a5413b..ae94637c28 100644 --- a/compiler/ncon.pas +++ b/compiler/ncon.pas @@ -234,6 +234,7 @@ implementation stringVal: string; pWideStringVal: pcompilerwidestring; begin + stringVal:=''; if is_constcharnode(p) then begin SetLength(stringVal,1); diff --git a/compiler/nobjc.pas b/compiler/nobjc.pas index 6624c69777..b9675a3d53 100644 --- a/compiler/nobjc.pas +++ b/compiler/nobjc.pas @@ -80,6 +80,7 @@ function tobjcselectornode.pass_typecheck: tnode; len: longint; s: shortstring; begin + s:=''; if not(m_objectivec1 in current_settings.modeswitches) then Message(parser_f_modeswitch_objc_required); result:=nil; diff --git a/compiler/objcgutl.pas b/compiler/objcgutl.pas index b94f8a6c9d..7036b45a47 100644 --- a/compiler/objcgutl.pas +++ b/compiler/objcgutl.pas @@ -213,6 +213,7 @@ procedure objcfinishstringrefpoolentry(entry: phashsetitem; stringpool: tconstpo if (refsec=sec_objc_cls_refs) and not(target_info.system in systems_objc_nfabi) then begin + classname:=''; setlength(classname,entry^.keylength); move(entry^.key^,classname[1],entry^.keylength); { no way to express this in LLVM either, they also just emit @@ -307,6 +308,7 @@ procedure tobjcrttiwriter.gen_objc_methods(list: tasmlist; objccls: tobjectdef; begin methodslabel:=nil; mcnt:=0; + defs:=nil; { collect all instance/class methods } SetLength(defs,objccls.vmtentries.count); for i:=0 to objccls.vmtentries.count-1 do @@ -643,6 +645,7 @@ procedure tobjcrttiwriter_fragile.gen_objc_ivars(list: TAsmList; objccls: tobjec ivarslabel:=nil; vcnt:=0; + vars:=nil; setLength(vars,objccls.symtable.SymList.Count); for i:=0 to objccls.symtable.SymList.Count-1 do @@ -1208,6 +1211,7 @@ procedure tobjcrttiwriter_nonfragile.gen_objc_ivars(list: tasmlist; objccls: tob prefix:=''; vcnt:=0; + vars:=nil; setLength(vars,objccls.symtable.SymList.Count); tcb:=nil; diff --git a/compiler/omfbase.pas b/compiler/omfbase.pas index 87ad0de42a..a9be531be8 100644 --- a/compiler/omfbase.pas +++ b/compiler/omfbase.pas @@ -1342,6 +1342,7 @@ implementation var len: Byte; begin + s:=''; len:=RawData[Offset]; Result:=Offset+len+1; if result>RecordLength then diff --git a/compiler/options.pas b/compiler/options.pas index 34b09861c6..a5844254b5 100644 --- a/compiler/options.pas +++ b/compiler/options.pas @@ -2895,6 +2895,7 @@ begin Message1(option_using_env,envname); env:=GetEnvPChar(envname); pc:=env; + hs:=''; if assigned(pc) then begin repeat diff --git a/compiler/paramgr.pas b/compiler/paramgr.pas index 358c6b79c8..f9d048718b 100644 --- a/compiler/paramgr.pas +++ b/compiler/paramgr.pas @@ -734,6 +734,7 @@ implementation begin c:=0; tmploc:=paralocs; + result:=nil; while assigned(tmploc) do begin inc(c); diff --git a/compiler/symtable.pas b/compiler/symtable.pas index b03e3e9cea..796b2d6736 100644 --- a/compiler/symtable.pas +++ b/compiler/symtable.pas @@ -719,6 +719,9 @@ implementation builtdefderefs, builtsymderefs: array of boolean; begin + newbuiltdefderefs:=nil; + builtdefderefs:=nil; + builtsymderefs:=nil; { tdefs for which we already built the deref } setlength(builtdefderefs,deflist.count); { tdefs for which we built the deref in this iteration }