From 195dbc15fa02e0d1397fb98ff8c5b23d44d7c310 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Fri, 20 Jun 2014 13:36:57 +0000
Subject: [PATCH] + second try on warning fix

git-svn-id: trunk@28015 -
---
 compiler/pexpr.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 546621f1d7..5f95074999 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -2442,6 +2442,7 @@ implementation
 
            { preinitalize tokenpos }
            tokenpos:=current_filepos;
+           p1:=nil;
 
            { first check for identifier }
            if token<>_ID then