From 1142fdeccdd8be9522e014700652c762fd724039 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 21 Nov 2015 14:14:30 +0000
Subject: [PATCH] * initialize variables to avoid warnings

git-svn-id: trunk@32428 -
---
 compiler/aasmcnst.pas | 1 +
 compiler/pdecl.pas    | 1 +
 compiler/pdecvar.pas  | 2 ++
 compiler/pexpr.pas    | 3 +++
 4 files changed, 7 insertions(+)

diff --git a/compiler/aasmcnst.pas b/compiler/aasmcnst.pas
index 5047cb1bdc..3a22226132 100644
--- a/compiler/aasmcnst.pas
+++ b/compiler/aasmcnst.pas
@@ -949,6 +949,7 @@ implementation
        customsecname: boolean;
      begin
        fvectorized_finalize_called:=true;
+       sym:=nil;
        customsecname:=get_vectorized_dead_strip_custom_section_name(basename,st,secname);
        if customsecname then
          sectype:=sec_user
diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index 8192b34b0c..eae0a824f9 100644
--- a/compiler/pdecl.pas
+++ b/compiler/pdecl.pas
@@ -471,6 +471,7 @@ implementation
          block_type:=bt_type;
          hdef:=nil;
          first:=true;
+         had_generic:=false;
          repeat
            defpos:=current_tokenpos;
            istyperenaming:=false;
diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas
index 50167ab8ca..88a59349d6 100644
--- a/compiler/pdecvar.pas
+++ b/compiler/pdecvar.pas
@@ -1287,6 +1287,8 @@ implementation
          sc:=TFPObjectList.create(false);
          first:=true;
          had_generic:=false;
+         vs:=nil;
+         fillchar(tmp_filepos,sizeof(tmp_filepos),0);
          while (token=_ID) do
            begin
              semicoloneaten:=false;
diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index e0b5d85258..141a6ca105 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -2721,6 +2721,9 @@ implementation
            p1:=nil;
            spezcontext:=nil;
 
+           { avoid warning }
+           fillchar(dummypos,sizeof(dummypos),0);
+
            allowspecialize:=not (m_delphi in current_settings.modeswitches) and
                             not (ef_had_specialize in flags) and
                             (block_type in inline_specialization_block_types);