* broken compilation after r39347 fixed

git-svn-id: trunk@39349 -

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));

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);

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

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.

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

compiler/ncgset.pas

@@ -1032,6 +1032,7 @@ implementation
         end;
 
       begin
+        labelarray:=nil;
         SetLength(labelarray,case_count_labels(root));
         nextarrayentry:=0;
         addarrayentry(root);

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

compiler/ncon.pas

@@ -234,6 +234,7 @@ implementation
         stringVal: string;
         pWideStringVal: pcompilerwidestring;
       begin
+        stringVal:='';
         if is_constcharnode(p) then
           begin
             SetLength(stringVal,1);

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;

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;

compiler/omfbase.pas

@@ -1342,6 +1342,7 @@ implementation
     var
       len: Byte;
     begin
+      s:='';
       len:=RawData[Offset];
       Result:=Offset+len+1;
       if result>RecordLength then

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

compiler/paramgr.pas

@@ -734,6 +734,7 @@ implementation
       begin
         c:=0;
         tmploc:=paralocs;
+        result:=nil;
         while assigned(tmploc) do
           begin
             inc(c);

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 }