From 00b55e100c7a10ef5d8b28c714696266400c42e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Fri, 20 Jun 2014 13:10:07 +0000
Subject: [PATCH] + try to fix the warnings introduced in r27947, so the
 compiler builds with -Sew

git-svn-id: trunk@28014 -
---
 compiler/pexpr.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 30a74ec7ed..546621f1d7 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -2440,6 +2440,9 @@ implementation
            { allow post fix operators }
            again:=true;
 
+           { preinitalize tokenpos }
+           tokenpos:=current_filepos;
+
            { first check for identifier }
            if token<>_ID then
              begin
@@ -2774,7 +2777,7 @@ implementation
                   end;
               end; { end case }
 
-              if p1.nodetype<>errorn then
+              if assigned(p1) and (p1.nodetype<>errorn) then
                 p1.fileinfo:=tokenpos;
             end;
          end;